Context Navigation

dispspectre.pic@ 3537

Visit:

Last change on this file since 3537 was 3537, checked in by ansari, 17 years ago
Ajout du module AddOn/TAcq (programmes test pour acquisition BAORadio) ds cvs sophya (sous-repertoire AddOn/) , Reza 22/10/2008
File size: 1.3 KB

Rev	Line
[3537]	1	setaxesatt 'font=helvetica,bold,14 fixedfontsize minorticks'
	2
	3	set CDIR './'
	4
	5	defscript ds
	6	min = 1
	7	max = 10
	8	if ( $# > 1 ) then
	9	min = $1
	10	max = $2
	11	endif
	12	echo "IMin = $min IMax= $max"
	13	for i ${min}:$max
	14	del spectre
	15	openppf $CDIR/spectre$i.ppf
	16	rename spectre$i spectre
	17	plot2d spectre 1200.+n*500./4072. val n>2 'notit'
	18	# plot2d spectre n val n>2
	19	settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'
	20
	21	sleep 1
	22	end
	23	endscript
	24
	25	defscript dsv
	26	min = 1
	27	max = 10
	28	if ( $# > 1 ) then
	29	min = $1
	30	max = $2
	31	endif
	32	echo $min $max
	33	for i ${min}:$max
	34	mv spectre /autoc/spectre
	35	openppf $CDIR/spectre$i.ppf
	36	rename spectre$i spectre
	37	disp spectre 'notit'
	38	settitle "Spectre $i" ' ' 'font=helvetica,bolditalic,16'
	39	sleep 1
	40	end
	41	endscript
	42
	43	defscript dsh
	44	min = 1
	45	max = 10
	46	if ( $# > 1 ) then
	47	min = $1
	48	max = $2
	49	endif
	50	echo "IMin = $min IMax= $max"
	51	newh1d hspec 1199.5 1449.5 2036
	52	zone 1 2
	53	for i ${min}:$max
	54	del spectre
	55	openppf $CDIR/spectre$i.ppf
	56	rename spectre$i spectre
	57	projh1d hspec spectre 1200.+n*500./4072. val n>0&&n<2037 'nodisp'
	58	# disp hspec
	59	# disp spectre
	60	# settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'
	61	# sleep 1
	62	end
	63	zone 1
	64	disp hspec
	65	endscript
	66
	67
	68

Note: See TracBrowser for help on using the repository browser.