Context Navigation

multicurve.pic@ 4073

Visit:

Last change on this file since 4073 was 4073, checked in by ansari, 13 years ago
Ajout script polarplot.pic (trace en coord. polaires) et modifs cosmetiques/copyright, Reza 10/05/2012
File size: 994 bytes

Rev	Line
[4073]	1	################################################################
	2	### SOPHYA class library - piapp interactive analysis tool
	3	### (C) LAL / Univ. Paris Sud, CNRS/IN2P3 1998-2012
	4	### (C) IRFU-SPP / CEA 1998-2012
	5	################################################################
	6	### multicurve.pic : piapp demo script
	7	#################################################################
[2600]	8	# ---- multicurve.pic -----
	9	# Trace de courbes multiples en utilisant les
	10	# possibilites de boucles et variables de type
	11	# tableau de l'interpreteur de piapp
	12	#
	13	set col ( blue red green yellow violet )
	14	set a ( 1.0 0.9 0.8 0.7 0.6 )
	15	setaxesatt 'helveticafont bolditalicfont minorticks intticks'
	16	zone 1
	17	func 1.1sin(1.1x)/x 0.1 20 50 'black notitle'
	18	setaxelabels 'Axe X' 'Axe Y = sin(x)/x' 'darkviolet helveticafont bigbolditalicfont'
	19	for i 0:$#a
	20	func $a[i]sin($a[i]x)/x 0.1 20.0 50 "same $col[i]"
	21	end
	22
	23	setinsetlimits 0.5 0.75 0.5 0.75
	24	func exp(-x*x) -3 3 40 'inset red stdaxes'

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