source: Sophya/trunk/Cosmo/RadioBeam/pa.pic@ 4032

Last change on this file since 4032 was 3489, checked in by ansari, 17 years ago

Les differents scripts+prog de calcul P(k)/bruit, lobe, config interfero ajoute ds ce module - Reza 28/04/2008
  • Property svn:executable set to *
File size: 2.0 KB
Line 
1### Calcul et trace de lobes synthetises
2### BAORadio -- R. Ansari - Avril 2008
3### ===> Fichiers pa.pic + pa.cc + pa.h
4defscript go
5 delobjs *
6 c++execfrf pa.cc pa.h
7endscript
8
9go
10
11setaxesatt 'font=times,bolditalic,18 fixedfontsize minorticks'
12
13defscript tracelobe
14 set gropt "connectpoints xylimits=-90,90,50,280000 notit nsta"
15 if ( $# > 0 ) then
16 gropt = "$gropt $1"
17 endif
18 plot2d lobes teta*180/M_PI wmod2 m==0 "$gropt"
19 plot2d lobes teta*180/M_PI wmod2 m==50 'connectpoints same blue nsta'
20 plot2d lobes teta*180/M_PI wmod2 m==150 'connectpoints same orange nsta'
21 plot2d lobes teta*180/M_PI wmod2 m==200 'connectpoints same red nsta'
22 setaxelabels ' Angle Theta (degree) ' 'Synth. lobes' 'font=times,bold,18'
23 settitle 'Reconstructed lobes (FFT-like synthesis)' ' ' 'font=times,bold,18'
24 set txt ( 'Theta=0 deg' 'Theta=+12 deg' 'Theta=+36 deg' 'Theta=48 deg' )
25 set cols ( 'black' 'blue' 'orange' 'red' )
26 textdrawer txt cols 'font=times,bolditalic,18 frame'
27endscript
28
29
30defscript tracelobe2
31 plot2d lobes teta*180/M_PI wmod2 m==0 "black connectpoints notit nsta"
32 plot2d lobes teta*180/M_PI wmod2 m==1 "blue same connectpoints notit nsta"
33 plot2d lobes teta*180/M_PI wmod2 m==2 "magenta same connectpoints notit nsta"
34 plot2d lobes teta*180/M_PI wmod2 m==3 "red same connectpoints notit nsta"
35 setaxelabels ' Angle Theta (degree) ' 'Lobe' 'font=times,bold,18'
36 settitle 'Reconstructed lobes - 7 Lambda/2 dipole sum' ' ' 'font=times,bold,18'
37endscript
38
39defscript tracelobe3
40 plot2d lobes wy wx m==0 'black connectpoints'
41 plot2d lobes wy wx m==2 'red same connectpoints'
42 plot2d lobes wy wx m==-2 'red same connectpoints'
43 plot2d lobes wy wx m==1 'orange same connectpoints'
44 plot2d lobes wy wx m==-1 'orange same connectpoints'
45 plot2d lobes wy wx m==3 'blue same connectpoints'
46 plot2d lobes wy wx m==-3 'blue same connectpoints'
47 plot2d lobes wy wx m==4 'violet same connectpoints'
48 plot2d lobes wy wx m==-4 'violet same connectpoints'
49endscript
50
Note: See TracBrowser for help on using the repository browser.