source: Sophya/trunk/SophyaPI/DemoPIApp/multicurve.pic@ 4081

Last change on this file since 4081 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
Line 
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#################################################################
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#
13set col ( blue red green yellow violet )
14set a ( 1.0 0.9 0.8 0.7 0.6 )
15setaxesatt 'helveticafont bolditalicfont minorticks intticks'
16zone 1
17func 1.1*sin(1.1*x)/x 0.1 20 50 'black notitle'
18setaxelabels 'Axe X' 'Axe Y = sin(x)/x' 'darkviolet helveticafont bigbolditalicfont'
19for i 0:$#a
20 func $a[i]*sin($a[i]*x)/x 0.1 20.0 50 "same $col[i]"
21end
22
23setinsetlimits 0.5 0.75 0.5 0.75
24func exp(-x*x) -3 3 40 'inset red stdaxes'
Note: See TracBrowser for help on using the repository browser.