; IDL Version 8.1, Mac OS X (darwin x86_64 m64) ; Journal File for Bob@steinr.pa.msu.edu ; Working directory: /Volumes/d2/MHDV/mhd12v/Stokes ; Date: Tue Oct 25 15:47:11 2011 journ f=read_prf('mhd12_6km_342.6.prf') ;key: -1 ;nregion: 1 ;nw: 200 ;nprf, nx, ny = 200 1008 1008 int=reform(f.prf[0,0,*,*]) v=reform(f.prf[*,3,*,*]) restore,/ver,'Vasym_342.save' tvscl,int ws,0 help,int tvscl,int ir1=ir i=-1 @vr ; % PLOT: Expression must be an array in this context: W. ; 0( 17.0000, 791.000) ws,2 w=f.waves @vr ; 1( 42.0000, 245.000) @vr ; 2( 42.0000, 246.000) @vr ; 3( 43.0000, 247.000) @vr ; 4( 45.0000, 247.000) @vr ; 5( 46.0000, 247.000) @vr ; 6( 46.0000, 248.000) @vr ; 7( 47.0000, 247.000) @vr ; 8( 47.0000, 248.000) @vr ; 9( 48.0000, 246.000) @vr ; 10( 48.0000, 247.000) @vr ; 11( 49.0000, 246.000) @vr ; 12( 49.0000, 247.000) @vr ; 13( 77.0000, 574.000) @vr ; 14( 92.0000, 286.000) @vr ; 15( 93.0000, 285.000) @vr ; 16( 94.0000, 143.000) @vr ; 17( 94.0000, 283.000) @vr ; 18( 95.0000, 282.000) @vr ; 19( 96.0000, 22.0000) @vr ; 20( 96.0000, 23.0000) @vr ; 21( 96.0000, 24.0000) @vr ; 22( 96.0000, 25.0000) @vr ; 23( 96.0000, 280.000) @vr ; 24( 97.0000, 22.0000) @vr ; 25( 97.0000, 23.0000) @vr ; 26( 97.0000, 25.0000) @vr ; 27( 98.0000, 277.000) @vr ; 28( 103.000, 351.000) @vr ; 29( 118.000, 286.000) @vr ; 30( 118.000, 287.000) @vr ; 31( 125.000, 11.0000) @vr ; 32( 126.000, 10.0000) @vr ; 33( 127.000, 11.0000) @vr ; 34( 170.000, 8.00000) @vr ; 35( 171.000, 6.00000) @vr ; 36( 171.000, 7.00000) @vr ; 37( 172.000, 6.00000) @vr ; 38( 172.000, 7.00000) @vr ; 39( 198.000, 706.000) @vr ; 40( 198.000, 707.000) @vr ; 41( 199.000, 707.000) @vr ; 42( 199.000, 708.000) @vr ; 43( 200.000, 708.000) @vr ; 44( 206.000, 458.000) @vr ; 45( 206.000, 460.000) @vr ; 46( 207.000, 458.000) @vr ; 47( 208.000, 457.000) @vr ; 48( 208.000, 458.000) @vr ; 49( 209.000, 457.000) @vr ; 50( 227.000, 489.000) @vr ; 51( 229.000, 488.000) @vr ; 52( 232.000, 664.000) @vr ; 53( 233.000, 663.000) @vr ; 54( 233.000, 664.000) @vr ; 55( 234.000, 663.000) @vr ; 56( 235.000, 663.000) @vr ; 57( 235.000, 664.000) @vr ; 58( 236.000, 663.000) @vr ; 59( 236.000, 664.000) @vr ; 60( 336.000, 82.0000) @vr ; 61( 336.000, 83.0000) @vr ; 62( 337.000, 83.0000) @vr ; 63( 337.000, 84.0000) @vr ; 64( 337.000, 85.0000) @vr ; 65( 338.000, 84.0000) @vr ; 66( 350.000, 306.000) @vr ; 67( 350.000, 308.000) @vr ; 68( 351.000, 305.000) @vr ; 69( 351.000, 307.000) @vr ; 70( 351.000, 308.000) @vr ; 71( 351.000, 309.000) @vr ; 72( 352.000, 304.000) @vr ; 73( 352.000, 305.000) @vr ; 74( 352.000, 306.000) @vr ; 75( 352.000, 307.000) @vr ; 76( 352.000, 308.000) @vr ; 77( 353.000, 300.000) @vr ; 78( 353.000, 301.000) @vr ; 79( 353.000, 306.000) @vr ; 80( 353.000, 307.000) @vr ; 81( 354.000, 304.000) @vr ; 82( 354.000, 969.000) @vr ; 83( 383.000, 960.000) @vr ; 84( 404.000, 825.000) @vr ; 85( 405.000, 826.000) @vr ; 86( 427.000, 550.000) @vr ; 87( 489.000, 763.000) @vr ; 88( 490.000, 764.000) @vr ; 89( 501.000, 681.000) @vr ; 90( 501.000, 682.000) @vr ; 91( 518.000, 719.000) @vr ; 92( 519.000, 604.000) @vr ; 93( 521.000, 714.000) @vr ; 94( 530.000, 426.000) @vr ; 95( 530.000, 427.000) @vr ; 96( 530.000, 428.000) @vr ; 97( 530.000, 690.000) @vr ; 98( 531.000, 427.000) @vr ; 99( 542.000, 337.000) @vr ; 100( 543.000, 337.000) @vr ; 101( 543.000, 338.000) @vr ; 102( 571.000, 671.000) @vr ; 103( 572.000, 668.000) @vr ; 104( 572.000, 669.000) @vr ; 105( 572.000, 670.000) @vr ; 106( 572.000, 671.000) @vr ; 107( 572.000, 672.000) @vr ; 108( 573.000, 670.000) @vr ; 109( 573.000, 671.000) @vr ; 110( 573.000, 672.000) @vr ; 111( 573.000, 673.000) @vr ; 112( 574.000, 672.000) @vr ; 113( 577.000, 446.000) @vr ; 114( 578.000, 664.000) @vr ; 115( 578.000, 665.000) @vr ; 116( 579.000, 664.000) @vr ; 117( 579.000, 665.000) @vr ; 118( 579.000, 666.000) @vr ; 119( 580.000, 664.000) @vr ; 120( 580.000, 665.000) @vr ; 121( 580.000, 666.000) @vr ; 122( 631.000, 837.000) @vr ; 123( 632.000, 838.000) @vr ; 124( 633.000, 832.000) @vr ; 125( 633.000, 833.000) @vr ; 126( 633.000, 835.000) @vr ; 127( 633.000, 836.000) @vr ; 128( 636.000, 887.000) @vr ; 129( 636.000, 888.000) @vr ; 130( 636.000, 889.000) @vr ; 131( 637.000, 887.000) @vr ; 132( 637.000, 888.000) w=f.waves @vr ; 133( 638.000, 887.000) @vr ; 134( 638.000, 888.000) @vr ; 135( 639.000, 887.000) @vr ; 136( 639.000, 888.000) @vr ; 137( 640.000, 892.000) @vr ; 138( 643.000, 877.000) @vr ; 139( 643.000, 878.000) @vr ; 140( 643.000, 879.000) @vr ; 141( 643.000, 881.000) @vr ; 142( 643.000, 882.000) @vr ; 143( 643.000, 883.000) @vr ; 144( 643.000, 915.000) w=f.waves @vr ; 145( 644.000, 877.000) @vr ; 146( 644.000, 878.000) @vr ; 147( 644.000, 879.000) @vr ; 148( 644.000, 880.000) @vr ; 149( 644.000, 881.000) @vr ; 150( 644.000, 891.000) @vr ; 151( 644.000, 894.000) @vr ; 152( 645.000, 894.000) @vr ; 153( 645.000, 895.000) @vr ; 154( 646.000, 895.000) @vr ; 155( 647.000, 895.000) @vr ; 156( 648.000, 890.000) @vr ; 157( 649.000, 147.000) @vr ; 158( 649.000, 148.000) @vr ; 159( 649.000, 149.000) @vr ; 160( 650.000, 148.000) @vr ; 161( 650.000, 150.000) @vr ; 162( 650.000, 151.000) @vr ; 163( 650.000, 152.000) @vr ; 164( 650.000, 153.000) @vr ; 165( 650.000, 890.000) @vr ; 166( 651.000, 149.000) @vr ; 167( 651.000, 150.000) @vr ; 168( 651.000, 151.000) @vr ; 169( 651.000, 152.000) @vr ; 170( 651.000, 153.000) @vr ; 171( 651.000, 154.000) @vr ; 172( 651.000, 155.000) @vr ; 173( 651.000, 156.000) @vr ; 174( 652.000, 126.000) @vr ; 175( 652.000, 127.000) @vr ; 176( 692.000, 646.000) @vr ; 177( 703.000, 928.000) @vr ; 178( 704.000, 926.000) @vr ; 179( 704.000, 927.000) @vr ; 180( 705.000, 925.000) @vr ; 181( 705.000, 926.000) @vr ; 182( 705.000, 927.000) @vr ; 183( 706.000, 924.000) @vr ; 184( 706.000, 925.000) @vr ; 185( 706.000, 926.000) @vr ; 186( 706.000, 927.000) @vr ; 187( 707.000, 922.000) @vr ; 188( 707.000, 923.000) @vr ; 189( 707.000, 924.000) @vr ; 190( 707.000, 925.000) @vr ; 191( 708.000, 922.000) @vr ; 192( 708.000, 923.000) @vr ; 193( 712.000, 736.000) w=f.waves @vr ; 194( 712.000, 737.000) @vr ; 195( 712.000, 738.000) @vr ; 196( 712.000, 739.000) @vr ; 197( 712.000, 740.000) @vr ; 198( 712.000, 741.000) @vr ; 199( 713.000, 737.000) @vr ; 200( 713.000, 738.000) @vr ; 201( 713.000, 739.000) @vr ; 202( 713.000, 740.000) @vr ; 203( 713.000, 741.000) @vr ; 204( 713.000, 744.000) @vr ; 205( 714.000, 737.000) @vr ; 206( 714.000, 743.000) @vr ; 207( 714.000, 744.000) @vr ; 208( 714.000, 745.000) @vr ; 209( 714.000, 746.000) @vr ; 210( 715.000, 742.000) @vr ; 211( 715.000, 744.000) @vr ; 212( 715.000, 745.000) @vr ; 213( 715.000, 746.000) @vr ; 214( 715.000, 747.000) @vr ; 215( 733.000, 182.000) @vr ; 216( 748.000, 787.000) @vr ; 217( 750.000, 787.000) @vr ; 218( 750.000, 788.000) @vr ; 219( 758.000, 185.000) @vr ; 220( 758.000, 186.000) @vr ; 221( 760.000, 190.000) @vr ; 222( 760.000, 191.000) @vr ; 223( 823.000, 867.000) @vr ; 224( 824.000, 865.000) @vr ; 225( 841.000, 544.000) @vr ; 226( 841.000, 545.000) @vr ; 227( 842.000, 543.000) @vr ; 228( 842.000, 544.000) @vr ; 229( 888.000, 838.000) @vr ; 230( 889.000, 838.000) @vr ; 231( 911.000, 65.0000) @vr ; 232( 912.000, 66.0000) @vr ; 233( 936.000, 927.000) @vr ; 234( 936.000, 928.000) @vr ; 235( 940.000, 147.000) @vr ; 236( 943.000, 214.000) @vr ; 237( 943.000, 215.000) @vr ; 238( 943.000, 216.000) @vr ; 239( 996.000, 474.000) @vr ; 240( 997.000, 474.000) @vr ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. i=50 @vr ; 51( 229.000, 488.000) i=48 @vr ; 49( 209.000, 457.000) @vr ; 50( 227.000, 489.000) @vr ; 51( 229.000, 488.000) @vr ; 52( 232.000, 664.000) @vr ; 53( 233.000, 663.000) @vr ; 54( 233.000, 664.000) ir1=ir ir[16]=[0,0] print,ir[16] ;( 0.00000, 0.00000) ir[29]=[0,0] ir[30]=[0,0] ir[33]=[0,0] ir[45]=[0,0] ir[46]=[0,0] ir[50]=[0,0] ir[51]=[0,0] ir[78]=[0,0] ir[82]=[0,0] ir[89]=[0,0] ir[90]=[0,0] ir[92]=[0,0] ir[104]=[0,0] ir[105]=[0,0] ir[108]=[0,0] ir[108:112]=[0,0] ; % Array subscript for IR must have same size as source expression. ir[109]=[0,0] ir[110]=[0,0] ir[111]=[0,0] ir[112]=[0,0] ir[116]=[0,0] ir[117]=[0,0] ir[120]=[0,0] ir[216]=[0,0] ir[217]=[0,0] ir[218]=[0,0] ir[235]=[0,0] ii=where(real_part(ir) ne 0) help,ii tvscl,int ws,0 xyouts,real_part(ib),imaginary(ib),'o',/device,alignment=0.5,chars=2 xyouts,real_part(ir[ii]),imaginary(ir[ii]),'+',/device,alignment=0.5,chars=2 help,in help,int,v vhin=v for i=0,199 do vhin[i,*,*]=seeing(reform(v[i,*,*]),size=48,ap=50,ora=0.244) ; 0.000400367 0.000369853 ; 0.000424428 0.000391984 ; 0.000451840 0.000417184 ; 0.000480220 0.000443249 ; 0.000512687 0.000473059 ; 0.000546452 0.000504035 ; 0.000585203 0.000539563 ; 0.000625639 0.000576605 ; 0.000672265 0.000619293 ; 0.000721160 0.000664013 ; 0.000777846 0.000715811 ; 0.000837599 0.000770338 ; 0.000907263 0.000833819 ; 0.000981172 0.000901058 ; 0.00106785 0.000979801 ; 0.00116035 0.00106373 ; 0.00126967 0.00116272 ; 0.00138749 0.00126907 ; 0.00152810 0.00139553 ; 0.00168089 0.00153253 ; 0.00186524 0.00169697 ; 0.00206852 0.00187655 ; 0.00231743 0.00209231 ; 0.00259446 0.00232414 ; 0.00510094 0.00265412 ; 0.00353827 0.00295239 ; 0.00601713 0.00343533 ; 0.00505891 0.00404000 ; 0.00618232 0.00483432 ; 0.00758136 0.00586362 ; 0.00911724 0.00701332 ; 0.0109947 0.00842455 ; 0.0131956 0.0100756 ; 0.0161950 0.0123387 ; 0.0200242 0.0152720 ; 0.0253862 0.0194710 ; 0.0319013 0.0247436 ; 0.0402185 0.0317387 ; 0.0493047 0.0396468 ; 0.0592624 0.0485927 ; 0.0681142 0.0567712 ; 0.0757355 0.0639834 ; 0.0806575 0.0687448 ; 0.0829147 0.0709269 ; 0.0822367 0.0701238 ; 0.0789125 0.0665229 ; 0.0736836 0.0608848 ; 0.0665110 0.0531026 ; 0.0587909 0.0444978 ; 0.0516044 0.0360831 ; 0.0485800 0.0326054 ; 0.0503279 0.0353064 ; 0.0552097 0.0415770 ; 0.0607892 0.0481042 ; 0.0662885 0.0541268 ; 0.0702830 0.0583018 ; 0.0725730 0.0606158 ; 0.0728479 0.0608588 ; 0.0713843 0.0593619 ; 0.0686261 0.0566009 ; 0.0646075 0.0526304 ; 0.0600345 0.0481731 ; 0.0548505 0.0432011 ; 0.0498930 0.0385363 ; 0.0448735 0.0339263 ; 0.0403107 0.0298655 ; 0.0357433 0.0259370 ; 0.0316281 0.0225036 ; 0.0275746 0.0192216 ; 0.0240009 0.0164149 ; 0.0205902 0.0138152 ; 0.0176947 0.0116682 ; 0.0150295 0.00974124 ; 0.0128260 0.00819166 ; 0.0108359 0.00683193 ; 0.00922368 0.00576028 ; 0.00784724 0.00487172 ; 0.00661673 0.00410006 ; 0.00563065 0.00349574 ; 0.00476550 0.00297701 ; 0.00407387 0.00257165 ; 0.00346202 0.00221934 ; 0.00297725 0.00194089 ; 0.00255817 0.00169639 ; 0.00222707 0.00149868 ; 0.00193390 0.00132038 ; 0.00169217 0.00117265 ; 0.00146739 0.00103561 ; 0.00127462 0.000919515 ; 0.00109243 0.000811386 ; 0.000941990 0.000721639 ; 0.000809836 0.000640594 ; 0.000704501 0.000573945 ; 0.000611003 0.000512703 ; 0.000536776 0.000460955 ; 0.000472783 0.000412006 ; 0.000421384 0.000369255 ; 0.000373622 0.000327444 ; 0.000331943 0.000289912 ; 0.000291090 0.000252527 ; 0.000254487 0.000218549 ; 0.000220002 0.000186032 ; 0.000186233 0.000153475 ; 0.000156978 0.000124348 ; 0.000130806 9.69712e-05 ; 0.000112904 7.69711e-05 ; 0.000105747 6.88578e-05 ; 0.000112839 7.82074e-05 ; 0.000133703 0.000102290 ; 0.000163061 0.000133250 ; 0.000201125 0.000171195 ; 0.000243002 0.000211590 ; 0.000292532 0.000258417 ; 0.000345244 0.000307604 ; 0.000407073 0.000364776 ; 0.000473113 0.000425421 ; 0.000551456 0.000496883 ; 0.000636451 0.000573877 ; 0.000739292 0.000666249 ; 0.000854194 0.000767899 ; 0.00100022 0.000893142 ; 0.00117723 0.00103639 ; 0.00143076 0.00122453 ; 0.00178774 0.00146421 ; 0.00236582 0.00182616 ; 0.00314259 0.00231888 ; 0.00409779 0.00296899 ; 0.00526875 0.00380944 ; 0.00654958 0.00474971 ; 0.00812780 0.00592124 ; 0.00999983 0.00731826 ; 0.0126032 0.00928572 ; 0.0159946 0.0119079 ; 0.0208267 0.0157669 ; 0.0268134 0.0207277 ; 0.0345730 0.0273867 ; 0.0431744 0.0349728 ; 0.0529383 0.0437580 ; 0.0622280 0.0522559 ; 0.0712474 0.0606448 ; 0.0785658 0.0675567 ; 0.0842575 0.0729896 ; 0.0871237 0.0756921 ; 0.0869233 0.0752787 ; 0.0836436 0.0716311 ; 0.0776998 0.0650475 ; 0.0708269 0.0573374 ; 0.0634354 0.0488638 ; 0.0572990 0.0415209 ; 0.0532293 0.0362839 ; 0.0527558 0.0354179 ; 0.0558097 0.0390734 ; 0.0619243 0.0463751 ; 0.0687116 0.0542720 ; 0.0747554 0.0612529 ; 0.0784266 0.0655855 ; 0.0798181 0.0674709 ; 0.0789904 0.0669778 ; 0.0762525 0.0645084 ; 0.0722304 0.0607199 ; 0.0668815 0.0556225 ; 0.0610925 0.0500789 ; 0.0547406 0.0439966 ; 0.0488032 0.0383552 ; 0.0429314 0.0328749 ; 0.0377730 0.0281895 ; 0.0328232 0.0238389 ; 0.0285379 0.0202025 ; 0.0244737 0.0168719 ; 0.0210177 0.0141322 ; 0.0178148 0.0116748 ; 0.0151546 0.00969697 ; 0.0127468 0.00795835 ; 0.0107825 0.00658435 ; 0.00902150 0.00539446 ; 0.00759782 0.00446717 ; 0.00639125 0.00370881 ; 0.00533000 0.00306383 ; 0.00449381 0.00256900 ; 0.00377461 0.00215297 ; 0.00321157 0.00183604 ; 0.00271887 0.00156693 ; 0.00232948 0.00135772 ; 0.00199637 0.00117723 ; 0.00173829 0.00103380 ; 0.00151500 0.000905355 ; 0.00133434 0.000799559 ; 0.00116378 0.000701829 ; 0.00101243 0.000618822 ; 0.000862795 0.000540677 ; 0.000730144 0.000474659 ; 0.000608589 0.000415749 ; 0.000514731 0.000370431 ; 0.000436155 0.000332586 ; 0.000376089 0.000303571 ; 0.000327270 0.000278687 ; 0.000293611 0.000258954 ; 0.000268156 0.000241144 ; 0.000249395 0.000226128 ; 0.000232851 0.000211910 i=41 plot,w,vhin[*,199,707] ws,2 tvscl,int ws,0 tvscl,int xyouts,real_part(ib),imaginary(ib),'o',/device,alignment=0.5,chars=2 xyouts,real_part(ir[ii]),imaginary(ir[ii]),'+',/device,alignment=0.5,chars=2 rdpix,int ;Press left or center mouse button for new output line." ;... right mouse button to exit. ;x= 68, y= 4, value= 0.9592307 ;x= 103, y= 20, value= 0.7247873 ;x= 114, y= 20, value= 1.3709258 ;x= 130, y= 20, value= 1.0548117 ;x= 132, y= 20, value= 0.9901080 ;x= 146, y= 20, value= 0.6291369 ;x= 186, y= 24, value= 0.6983278 ;x= 229, y= 25, value= 1.2367673 ;x= 268, y= 27, value= 0.7959921 ;x= 267, y= 26, value= 0.8170766 ;x= 249, y= 23, value= 0.9971987 ;x= 239, y= 21, value= 1.1361376 ;x= 231, y= 20, value= 1.2077814 ;x= 227, y= 20, value= 1.2238505 ;x= 221, y= 19, value= 1.2513602 ;x= 219, y= 19, value= 1.2428368 ;x= 214, y= 16, value= 0.8799332 ;x= 208, y= 14, value= 0.8905987 ;x= 204, y= 14, value= 0.8895150 ;x= 200, y= 13, value= 0.8778535 ;x= 196, y= 13, value= 0.8160810 ;x= 193, y= 12, value= 0.7380620 ;x= 194, y= 12, value= 0.7588301 ;x= 197, y= 12, value= 0.8396769 ;x= 200, y= 12, value= 0.8840458 ;x= 201, y= 14, value= 0.8769816 ;x= 180, y= 147, value= 0.9418436 ;x= 198, y= 339, value= 1.1772894 ;x= 213, y= 456, value= 0.9128919 ;x= 212, y= 495, value= 0.7871674 ;x= 204, y= 569, value= 0.9193411 ;x= 195, y= 638, value= 1.0195735 ;x= 193, y= 661, value= 1.1040782 ;x= 194, y= 703, value= 0.8356547 ;x= 195, y= 714, value= 0.8704802 ;x= 195, y= 714, value= 0.8704802 ;x= 196, y= 714, value= 0.9145451 ;x= 197, y= 712, value= 0.9650131 ;x= 198, y= 712, value= 0.9907691 ;x= 214, y= 692, value= 0.9722832 ;x= 224, y= 681, value= 0.9029049 ;x= 230, y= 668, value= 0.8018702 ;x= 233, y= 665, value= 0.8488781 ;x= 235, y= 667, value= 0.7368392 ;x= 235, y= 670, value= 0.7677370 ;x= 234, y= 670, value= 0.7783228 ;x= 213, y= 697, value= 0.9446670 ;x= 202, y= 710, value= 1.0503796 ;x= 200, y= 713, value= 1.0276835 ;x= 198, y= 717, value= 0.9129276 ;x= 197, y= 717, value= 0.8877124 ;x= 197, y= 716, value= 0.9187989 ;x= 197, y= 715, value= 0.9379528 ;x= 198, y= 711, value= 0.9995344 ;x= 202, y= 704, value= 0.8923562 ;x= 201, y= 712, value= 1.0737343 ;x= 200, y= 715, value= 0.9987372 ;x= 199, y= 715, value= 0.9868308 ;x= 199, y= 714, value= 0.9984732 ;x= 198, y= 714, value= 0.9778069 ;x= 198, y= 713, value= 0.9846969 ;x= 200, y= 712, value= 1.0462953 ;x= 206, y= 708, value= 0.8284262 ;x= 207, y= 712, value= 0.9194657 ;x= 221, y= 706, value= 0.7760614 ;x= 221, y= 707, value= 0.7729872 ;x= 221, y= 706, value= 0.7760614 ;x= 220, y= 695, value= 0.9193772 ;x= 209, y= 710, value= 0.8093686 ;x= 205, y= 710, value= 0.9216453 ;x= 198, y= 715, value= 0.9662848 ;x= 196, y= 717, value= 0.8545368 ;x= 197, y= 715, value= 0.9379528 ;x= 199, y= 713, value= 1.0052867 ;x= 188, y= 661, value= 1.0852771 print,ir[41] ; % Variable is undefined: IR. retall print,ir[41] ;( 199.000, 707.000) rdpix,int ;Press left or center mouse button for new output line." ;... right mouse button to exit. ;x= 2, y= 8, value= 1.0127621 ;x= 107, y= 173, value= 0.8698850 ;x= 173, y= 275, value= 0.9104857 ;x= 192, y= 304, value= 0.7142518 ;x= 191, y= 299, value= 0.7554183 ;x= 195, y= 382, value= 1.0119804 ;x= 200, y= 454, value= 0.8372124 ;x= 216, y= 625, value= 0.8327112 ;x= 209, y= 690, value= 0.9598578 ;x= 205, y= 698, value= 0.9216864 ;x= 203, y= 704, value= 0.8691605 ;x= 197, y= 711, value= 0.9715604 ;x= 198, y= 712, value= 0.9907691 ;x= 200, y= 711, value= 1.0697836 ;x= 198, y= 709, value= 1.0304828 ;x= 198, y= 708, value= 1.0514588 ;x= 199, y= 706, value= 1.0077020 ;x= 201, y= 706, value= 0.9349732 ;x= 201, y= 707, value= 0.9820096 ;x= 202, y= 710, value= 1.0503796 ;x= 201, y= 711, value= 1.0784116 ;x= 200, y= 711, value= 1.0697836 ;x= 200, y= 710, value= 1.0883516 ;x= 201, y= 710, value= 1.0840132 ;x= 276, y= 710, value= 1.1551881 ;x= 409, y= 717, value= 1.0621680 ;x= 537, y= 736, value= 0.7788945 ;x= 599, y= 736, value= 1.0266956 ;x= 652, y= 740, value= 0.9695445 ;x= 672, y= 743, value= 1.0155241 ;x= 692, y= 746, value= 0.9489346 ;x= 709, y= 746, value= 0.8948931 ;x= 714, y= 748, value= 0.8888825 ;x= 713, y= 748, value= 0.8485093 ;x= 712, y= 747, value= 0.8506736 ;x= 585, y= 821, value= 1.1172421 ;x= 580, y= 859, value= 0.5642608 ;x= 564, y= 904, value= 0.8302973 ;x= 554, y= 941, value= 0.9430144 ;x= 553, y= 941, value= 0.9644162 ;x= 547, y= 944, value= 0.9216684 ;x= 544, y= 946, value= 1.0386469 ;x= 543, y= 945, value= 1.0262430 ;x= 541, y= 943, value= 0.9643596 ;x= 541, y= 942, value= 0.9267365 ;x= 540, y= 942, value= 0.9413550 ;x= 539, y= 942, value= 0.9264371 ;x= 539, y= 941, value= 0.9485708 ;x= 537, y= 941, value= 0.8266149 ;x= 536, y= 940, value= 0.8163077 ;x= 558, y= 809, value= 1.0777599 ;x= 578, y= 444, value= 1.0071330 ;x= 404, y= 229, value= 1.1359608 ;x= 348, y= 101, value= 1.6265572 ;x= 341, y= 62, value= 0.8379413 ;x= 334, y= 17, value= 0.8606822 ;x= 334, y= 24, value= 0.7978854 ;x= 334, y= 26, value= 0.8131803 ;x= 334, y= 27, value= 0.8155788 ;x= 335, y= 26, value= 0.8190326 ;x= 332, y= 27, value= 0.7659360 ;x= 328, y= 29, value= 0.7819787 ;x= 320, y= 28, value= 0.7115597 ;x= 321, y= 28, value= 0.7086950 ;x= 326, y= 27, value= 0.7519845 ;x= 326, y= 27, value= 0.7519845 ;x= 320, y= 31, value= 0.7201375 ;x= 303, y= 41, value= 0.9301789 ;x= 278, y= 74, value= 0.9320847 ;x= 245, y= 169, value= 0.8678433 ;x= 202, y= 327, value= 1.1263593 ;x= 202, y= 315, value= 0.8955675 ;x= 186, y= 262, value= 0.7307014 ;x= 188, y= 269, value= 0.8973022 ;x= 191, y= 276, value= 1.0428699 ;x= 190, y= 279, value= 0.9110180 ;x= 189, y= 278, value= 0.9802700 ;x= 189, y= 277, value= 0.9543078 ;x= 203, y= 260, value= 1.0954382 ;x= 209, y= 252, value= 1.1241527 ;x= 209, y= 256, value= 1.1906636 ;x= 207, y= 263, value= 1.1647742 ;x= 188, y= 278, value= 0.9714218 ;x= 190, y= 281, value= 0.9056866 ;x= 213, y= 284, value= 0.7586829 ;x= 216, y= 285, value= 0.7463214 ;x= 217, y= 285, value= 0.7533655 ;x= 217, y= 280, value= 0.7687489 ;x= 216, y= 279, value= 0.7808411 ;x= 454, y= 328, value= 0.9881001 ;x= 700, y= 395, value= 0.9202684 ;x= 685, y= 420, value= 0.8580412 ;x= 643, y= 451, value= 0.7014952 ;x= 636, y= 459, value= 0.7734503 ;x= 637, y= 463, value= 0.7587107 ;x= 643, y= 466, value= 0.9633167 ;x= 643, y= 467, value= 0.9866040 ;x= 642, y= 467, value= 0.9901773 ;x= 641, y= 467, value= 0.9789187 ;x= 638, y= 466, value= 0.8575497 ;x= 639, y= 466, value= 0.8800189 ;x= 640, y= 466, value= 0.9249620 ;x= 641, y= 467, value= 0.9789187 ;x= 642, y= 469, value= 1.0255837 ;x= 645, y= 470, value= 1.0354563 ;x= 645, y= 471, value= 1.0467488 retall ws,2 plot,vhin[*,542,944] for i=-3,3 do begin $ for j=-3,3 do oplot,v[*,542+i,944+j],lin=1 plot,vhin[*,542,944],yr=-.1,.2] ; % Syntax error. plot,vhin[*,542,944],yr=[-.1,.2] for i=-3,3 do begin for j=-3,3 do oplot,v[*,542+i,944+j],lin=1 plot,vhin[*,542,944],yr=[-.15,.3] for i=-3,3 do begin for j=-3,3 do oplot,v[*,542+i,944+j],lin=1 oplot,vhin[*,542,944],yr=[-.15,.3],thiick=3 ; % Keyword THIICK not allowed in call to: OPLOT oplot,vhin[*,542,944],thiick=3 ; % Keyword THIICK not allowed in call to: OPLOT oplot,vhin[*,542,944],thick=3 plot,w,vhin[*,542,944],yr=[-.15,.3],xtit='!7k!5 A',chars=3,ytit='V/' for i=-3,3 do begin for j=-3,3 do oplot,v[*,542+i,944+j],lin=1 for i=-3,3 do begin for j=-3,3 do oplot,w,v[*,542+i,944+j],lin=1 oplot,vhin[*,542,944],thick=3 oplot,w,vhin[*,542,944],thick=3 plot,w*.1,vhin[*,542,944],yr=[-.15,.3],xtit='!7k!5 (nm)',chars=3,ytit='V/' plot,w*.1,vhin[*,542,944],yr=[-.15,.3],xtit='!7k!5 (nm)',chars=3,ytit='V/I' for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,542+i,944+j],lin=1 oplot,w*.1,vhin[*,542,944],thick=3 ps plot,w*.1,vhin[*,542,944],yr=[-.15,.3],xtit='!7k!5 (nm)',chars=3,ytit='V/I' for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,542+i,944+j],lin=1 oplot,w*.1,vhin[*,542,944],thick=3 psend x $mv idl.ps V_12v_t342_542-944.ps plot,w*.1,vhin[*,642,464],yr=[-.15,.3],xtit='!7k!5 (nm)',chars=3,ytit='V/I' for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,642+i,4644+j],lin=1 ; % Attempt to subscript V with is out of range. for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,642+i,464+j],lin=1 plot,w*.1,vhin[*,191,274],yr=[-.15,.3],xtit='!7k!5 (nm)',chars=3,ytit='V/I' for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,191+i,274+j],lin=1 oplot,w*.1,vhin[*,191,274],thick=3 plot,w*.1,vhin[*,191,274],yr=[-.25,.1],xtit='!7k!5 (nm)',chars=3,ytit='V/I' plot,w*.1,vhin[*,191,274],yr=[-.25,.1],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1 for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,191+i,274+j],lin=1 oplot,w*.1,vhin[*,191,274],thick=3 ps plot,w*.1,vhin[*,191,274],yr=[-.25,.1],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1 for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,191+i,274+j],lin=1 oplot,w*.1,vhin[*,191,274],thick=3 psend x $mv idl.ps V_12v_t342_191-274.ps plot,w*.1,vhin[*,334,23],yr=[-.25,.1],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1 plot,w*.1,vhin[*,646,893],yr=[-.25,.1],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1 for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,646+i,893+j],lin=1 oplot,w*.1,vhin[*,646,893],thick=3 plot,w*.1,vhin[*,646,893],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.2] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,646+i,893+j],lin=1 oplot,w*.1,vhin[*,646,893],thick=3 plot,w*.1,vhin[*,646,893],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,646+i,893+j],lin=1 oplot,w*.1,vhin[*,646,893],thick=3 ps plot,w*.1,vhin[*,646,893],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,646+i,893+j],lin=1 oplot,w*.1,vhin[*,646,893],thick=3 psend x $mv idl.ps V_12v_t342_64-893.ps plot,w*.1,vhin[*,713,741],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,741+j],lin=1 oplot,w*.1,vhin[*,713,741],thick=3 plot,w*.1,vhin[*,713,741],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,741+j],lin=1 oplot,w*.1,vhin[*,713,741],thick=3 plot,w*.1,vhin[*,199,707],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,199+i,707+j],lin=1 oplot,w*.1,vhin[*,199,707],thick=3 plot,w*.1,vhin[*,199,707],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3..1] ; % Syntax error. plot,w*.1,vhin[*,199,707],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.1] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,199+i,707+j],lin=1 oplot,w*.1,vhin[*,199,707],thick=3 ps plot,w*.1,vhin[*,199,707],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.1] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,199+i,707+j],lin=1 oplot,w*.1,vhin[*,199,707],thick=3 psend x $mv idl.ps V_12v_t342_199-707.ps plot,w*.1,vhin[*,352.304],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.1] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,352+i,304+j],lin=1 oplot,w*.1,vhin[*,352,304],thick=3 plot,w*.1,vhin[*,352,304],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.1] plot,w*.1,vhin[*,352,304],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.2] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,352+i,304+j],lin=1 plot,w*.1,vhin[*,352,304],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,352+i,304+j],lin=1 oplot,w*.1,vhin[*,352,304],thick=3 flush,!journal ws,0 rdpix,int ;Press left or center mouse button for new output line." ;... right mouse button to exit. ;x= 310, y= 6, value= 1.0279800 ;x= 351, y= 21, value= 0.9546239 ;x= 343, y= 21, value= 0.9372715 ;x= 339, y= 21, value= 0.8694347 ;x= 337, y= 22, value= 0.8287293 ;x= 337, y= 23, value= 0.8323302 ;x= 337, y= 26, value= 0.8588938 ;x= 335, y= 27, value= 0.8283132 ;x= 334, y= 26, value= 0.8131803 ;x= 334, y= 25, value= 0.8054969 ;x= 345, y= 25, value= 0.9905577 ;x= 507, y= 165, value= 1.1346616 ;x= 522, y= 149, value= 1.1003225 ;x= 512, y= 102, value= 0.9483624 ;x= 630, y= 157, value= 1.0862617 ;x= 637, y= 159, value= 1.0041165 ;x= 646, y= 158, value= 1.0739447 ;x= 648, y= 160, value= 1.1307955 ;x= 649, y= 160, value= 1.1525420 ;x= 650, y= 159, value= 1.1595660 ;x= 651, y= 158, value= 1.1453769 ;x= 652, y= 157, value= 1.1169740 ;x= 651, y= 156, value= 1.1486007 ;x= 650, y= 156, value= 1.1407917 ;x= 676, y= 467, value= 1.0589988 ;x= 708, y= 644, value= 0.9229131 ;x= 716, y= 740, value= 0.8027382 ;x= 716, y= 743, value= 1.0101935 ;x= 716, y= 747, value= 0.9525929 ;x= 714, y= 747, value= 0.9064463 ;x= 713, y= 747, value= 0.8568777 ;x= 711, y= 745, value= 0.8496171 ;x= 610, y= 874, value= 0.7566789 ;x= 558, y= 942, value= 0.8794501 ;x= 537, y= 954, value= 0.7231564 ;x= 543, y= 950, value= 0.9058495 ;x= 541, y= 948, value= 0.9144684 ;x= 540, y= 947, value= 0.8862638 ;x= 541, y= 944, value= 1.0047911 ;x= 578, y= 705, value= 1.0615596 ;x= 473, y= 571, value= 0.9506212 ;x= 318, y= 484, value= 1.1305521 ;x= 262, y= 452, value= 0.7809447 ;x= 180, y= 410, value= 0.8256694 ;x= 136, y= 377, value= 0.6751673 ;x= 119, y= 372, value= 0.7666194 ;x= 110, y= 371, value= 0.7759505 ;x= 105, y= 367, value= 0.8887849 ;x= 100, y= 364, value= 0.7824403 ;x= 98, y= 362, value= 0.8071294 ;x= 97, y= 361, value= 0.8325178 ;x= 97, y= 360, value= 0.8411119 ;x= 105, y= 357, value= 1.0248715 ;x= 137, y= 365, value= 0.7209496 ;x= 1, y= 284, value= 0.9546232 ;x= 25, y= 277, value= 1.1815361 ;x= 35, y= 264, value= 0.6433260 ;x= 40, y= 257, value= 0.7394128 ;x= 43, y= 251, value= 1.0275415 ;x= 45, y= 251, value= 0.9578448 ;x= 46, y= 252, value= 0.8651534 ;x= 43, y= 253, value= 0.8665449 ;x= 43, y= 253, value= 0.8665449 ;x= 63, y= 254, value= 0.7577905 ;x= 16, y= 272, value= 0.9962296 ;x= 250, y= 246, value= 0.9197176 ;x= 233, y= 274, value= 0.6688083 ;x= 175, y= 290, value= 1.1405877 ;x= 173, y= 281, value= 1.0383081 ;x= 175, y= 281, value= 1.0467870 ;x= 183, y= 287, value= 1.0103778 ;x= 189, y= 284, value= 0.9449420 ;x= 191, y= 282, value= 0.8867677 ;x= 190, y= 281, value= 0.9056866 retall plot,w*.1,vhin[*,339,25],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.3] tvscl,int ; % No commands containing 'ib ' exist in the command buffer. xyouts,real_part(ir[ii]),imaginary(ir[ii]),'+',/device,alignment=0.5,chars=2 xyouts,real_part(ib),imaginary(ib),'+',/device,alignment=0.5,chars=2 ws,2 plot,w*.1,vhin[*,339,25],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.4,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,339+i,23+j],lin=1 oplot,w*.1,vhin[*,339,25],thick=3 plot,w*.1,vhin[*,339,25],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.1,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,339+i,25+j],lin=1 oplot,w*.1,vhin[*,339,25],thick=3 plot,w*.1,vhin[*,339,25],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.1,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,339+i,25+j],lin=1 oplot,w*.1,vhin[*,339,25],thick=3 ps plot,w*.1,vhin[*,339,25],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.1,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,339+i,25+j],lin=1 oplot,w*.1,vhin[*,339,25],thick=3 psend x $mv idl.ps V_12v_t342_339-25.ps plot,w*.1,vhin[*,651,156],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.1,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,651+i,156+j],lin=1 oplot,w*.1,vhin[*,651,156],thick=3 plot,w*.1,vhin[*,651,156],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.15] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,651+i,156+j],lin=1 plot,w*.1,vhin[*,651,156],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.15] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,651+i,156+j],lin=1 oplot,w*.1,vhin[*,651,156],thick=3 plot,w*.1,vhin[*,713,747],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.3,.15] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,747+j],lin=1 oplot,w*.1,vhin[*,713,747],thick=3 plot,w*.1,vhin[*,713,747],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.15,.25] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,747+j],lin=1 plot,w*.1,vhin[*,713,747],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.15,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,747+j],lin=1 oplot,w*.1,vhin[*,713,747],thick=3 ps plot,w*.1,vhin[*,713,747],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.15,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,713+i,747+j],lin=1 oplot,w*.1,vhin[*,713,747],thick=3 psend x $mv idl.ps V_12v_t342_713-747.ps plot,w*.1,vhin[*,97,360],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.15,.3] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,97+i,360+j],lin=1 oplot,w*.1,vhin[*,97,360],thick=3 plot,w*.1,vhin[*,97,360],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.4] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,97+i,360+j],lin=1 oplot,w*.1,vhin[*,97,360],thick=3 ps oplot,w*.1,vhin[*,97,360],thick=3 plot,w*.1,vhin[*,97,360],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.4] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,97+i,360+j],lin=1 oplot,w*.1,vhin[*,97,360],thick=3 psend x $mv idl.ps V_12v_t342_97-360.ps plot,w*.1,vhin[*,43,253],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=1,yr=[-.2,.4] for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,43+i,253+j],lin=1 flush,!journal i=-1 @vr ; 0( 17.0000, 791.000) i=i-1 @vr ; 0( 17.0000, 791.000) for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,17+i,791+j],lin=1 ws,2 for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,17+i,791+j],lin=1 i=i-1 @vr ; 4( 45.0000, 247.000) @vr ; 5( 46.0000, 247.000) i=-1 @vr ; 0( 17.0000, 791.000) for i=-3,3 do begin for j=-3,3 do oplot,w*.1,v[*,17+i,791+j],lin=1 &thick ; % Attempt to call undefined procedure/function: 'THICK'. oplot,w*.1,vhin[*,17,791],thick=3 i=-1 @vr ; 0( 17.0000, 791.000) for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,17+ii,791+jj],lin=1 oplot,w*.1,vhin[*,17,791],thick=3 print,i ; 0 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 i=-1 @vr ; 0( 17.0000, 791.000) for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 i=-1 @vr ; 0( 17.0000, 791.000) @vr ; 1( 42.0000, 245.000) @vr ; 2( 42.0000, 246.000) @vr ; 3( 43.0000, 247.000) @vr ; 4( 45.0000, 247.000) @vr ; 5( 46.0000, 247.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 print,i,ir[i] ; 5( 46.0000, 247.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_46-247.ps @vr ; 6( 46.0000, 248.000) @vr ; 7( 47.0000, 247.000) @vr ; 8( 47.0000, 248.000) @vr ; 9( 48.0000, 246.000) @vr ; 10( 48.0000, 247.000) @vr ; 11( 49.0000, 246.000) @vr ; 12( 49.0000, 247.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_49-247.ps @vr ; 13( 77.0000, 574.000) @vr ; 14( 92.0000, 286.000) @vr ; 15( 93.0000, 285.000) @vr ; 16( 0.00000, 0.00000) @vr ; 17( 0.00000, 0.00000) @vr ; 18( 95.0000, 282.000) @vr ; 19( 96.0000, 22.0000) @vr ; 20( 96.0000, 23.0000) @vr ; 21( 96.0000, 24.0000) @vr ; 22( 96.0000, 25.0000) @vr ; 23( 96.0000, 280.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_96-280.ps @vr ; 24( 97.0000, 22.0000) @vr ; 25( 97.0000, 23.0000) @vr ; 26( 97.0000, 25.0000) @vr ; 27( 98.0000, 277.000) @vr ; 28( 103.000, 351.000) @vr ; 29( 0.00000, 0.00000) @vr ; 30( 0.00000, 0.00000) @vr ; 31( 0.00000, 0.00000) @vr ; 32( 126.000, 10.0000) @vr ; 33( 0.00000, 0.00000) @vr ; 34( 0.00000, 0.00000) @vr ; 35( 171.000, 6.00000) ; % No commands containing 'xtot' exist in the command buffer. plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.4,.2] plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.4,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ws,0 tvscl,int xyouts,real_part(ib),imaginary(ib),'o',/device,alignment=0.5,chars=2 ii=where(real_part(ir) ne 0) xyouts,real_part(ir[ii]),imaginary(ir[ii]),'+',/device,alignment=0.5,chars=2 ws,2 @vr ; 36( 171.000, 7.00000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yr=[-.4,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_171-7.ps @vr ; 37( 172.000, 6.00000) @vr ; 38( 172.000, 7.00000) @vr ; 39( 198.000, 706.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_198-706.ps @vr ; 40( 198.000, 707.000) @vr ; 41( 199.000, 707.000) @vr ; 42( 199.000, 708.000) @vr ; 43( 200.000, 708.000) @vr ; 44( 206.000, 458.000) @vr ; 45( 0.00000, 0.00000) @vr ; 46( 0.00000, 0.00000) @vr ; 47( 0.00000, 0.00000) @vr ; 48( 208.000, 458.000) @vr ; 49( 209.000, 457.000) @vr ; 50( 0.00000, 0.00000) @vr ; 51( 0.00000, 0.00000) @vr ; 52( 0.00000, 0.00000) @vr ; 53( 233.000, 663.000) @vr ; 54( 233.000, 664.000) @vr ; 55( 234.000, 663.000) @vr ; 56( 235.000, 663.000) @vr ; 57( 235.000, 664.000) @vr ; 58( 236.000, 663.000) @vr ; 59( 236.000, 664.000) @vr ; 60( 336.000, 82.0000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.15] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.15] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_336-82.ps @vr ; 61( 336.000, 83.0000) @vr ; 62( 337.000, 83.0000) @vr ; 63( 337.000, 84.0000) @vr ; 64( 337.000, 85.0000) @vr ; 65( 338.000, 84.0000) @vr ; 66( 350.000, 306.000) @vr ; 67( 350.000, 308.000) @vr ; 68( 351.000, 305.000) @vr ; 69( 351.000, 307.000) @vr ; 70( 351.000, 308.000) $mv idl.ps V_12v_t342_336-82.ps @vr ; 71( 351.000, 309.000) @vr ; 72( 352.000, 304.000) @vr ; 73( 352.000, 305.000) @vr ; 74( 352.000, 306.000) @vr ; 75( 352.000, 307.000) @vr ; 76( 352.000, 308.000) @vr ; 77( 353.000, 300.000) @vr ; 78( 0.00000, 0.00000) @vr ; 79( 0.00000, 0.00000) @vr ; 80( 353.000, 307.000) @vr ; 81( 354.000, 304.000) @vr ; 82( 0.00000, 0.00000) @vr ; 83( 0.00000, 0.00000) @vr ; 84( 404.000, 825.000) @vr ; 85( 405.000, 826.000) @vr ; 86( 427.000, 550.000) i=i-1 ps @vr ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: IR. ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: IR. retall @vr ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: IR. ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: IR. retall x @vr ; 88( 490.000, 764.000) i=85 @vr ; 86( 427.000, 550.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_427-550.ps @vr ; 87( 489.000, 763.000) @vr ; 88( 490.000, 764.000) @vr ; 89( 0.00000, 0.00000) @vr ; 90( 0.00000, 0.00000) @vr ; 91( 0.00000, 0.00000) @vr ; 92( 0.00000, 0.00000) @vr ; 93( 0.00000, 0.00000) @vr ; 94( 530.000, 426.000) @vr ; 95( 530.000, 427.000) @vr ; 96( 530.000, 428.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_530-428.ps @vr ; 97( 530.000, 690.000) @vr ; 98( 531.000, 427.000) @vr ; 99( 542.000, 337.000) @vr ; 100( 543.000, 337.000) @vr ; 101( 543.000, 338.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_543-338.ps @vr ; 102( 571.000, 671.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_571-671.ps @vr ; 103( 572.000, 668.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_572-668.ps @vr ; 104( 0.00000, 0.00000) @vr ; 105( 0.00000, 0.00000) @vr ; 106( 0.00000, 0.00000) @vr ; 107( 572.000, 672.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_572-672.ps @vr ; 108( 0.00000, 0.00000) @vr ; 109( 0.00000, 0.00000) @vr ; 110( 0.00000, 0.00000) @vr ; 111( 0.00000, 0.00000) @vr ; 112( 0.00000, 0.00000) @vr ; 113( 0.00000, 0.00000) @vr ; 114( 578.000, 664.000) @vr ; 115( 578.000, 665.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_578-665.ps @vr ; 116( 0.00000, 0.00000) @vr ; 117( 0.00000, 0.00000) @vr ; 118( 0.00000, 0.00000) @vr ; 119( 580.000, 664.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.5,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_580-664.ps @vr ; 120( 0.00000, 0.00000) @vr ; 121( 0.00000, 0.00000) @vr ; 122( 631.000, 837.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_631-837.ps @vr ; 123( 632.000, 838.000) @vr ; 124( 633.000, 832.000) @vr ; 125( 633.000, 833.000) @vr ; 126( 633.000, 835.000) @vr ; 127( 633.000, 836.000) @vr ; 128( 636.000, 887.000) @vr ; 129( 636.000, 888.000) @vr ; 130( 636.000, 889.000) @vr ; 131( 637.000, 887.000) @vr ; 132( 637.000, 888.000) @vr ; 133( 638.000, 887.000) @vr ; 134( 638.000, 888.000) @vr ; 135( 639.000, 887.000) @vr ; 136( 639.000, 888.000) @vr ; 137( 640.000, 892.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_640-892.ps @vr ; 138( 643.000, 877.000) @vr ; 139( 643.000, 878.000) @vr ; 140( 643.000, 879.000) @vr ; 141( 643.000, 881.000) @vr ; 142( 643.000, 882.000) @vr ; 143( 643.000, 883.000) @vr ; 144( 643.000, 915.000) i=142 @vr ; 143( 643.000, 883.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_643-883.ps @vr ; 144( 643.000, 915.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.05] plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_643-915.ps @vr ; 145( 644.000, 877.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.15] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.25,.15] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_644-877.ps @vr ; 146( 644.000, 878.000) @vr ; 147( 644.000, 879.000) @vr ; 148( 644.000, 880.000) @vr ; 149( 644.000, 881.000) @vr ; 150( 644.000, 891.000) @vr ; 151( 644.000, 894.000) ; % No commands containing 'xr' exist in the command buffer. plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.45,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.45,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_644-894.ps @vr ; 152( 645.000, 894.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.45,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_645-894.ps @vr ; 153( 645.000, 895.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.45,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_645-895.ps @vr ; 154( 646.000, 895.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.45,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_646-895.ps @vr ; 155( 647.000, 895.000) @vr ; 156( 648.000, 890.000) @vr ; 157( 649.000, 147.000) @vr ; 158( 649.000, 148.000) @vr ; 159( 649.000, 149.000) @vr ; 160( 650.000, 148.000) @vr ; 161( 650.000, 150.000) @vr ; 162( 650.000, 151.000) @vr ; 163( 650.000, 152.000) @vr ; 164( 650.000, 153.000) @vr ; 165( 650.000, 890.000) @vr ; 166( 651.000, 149.000) @vr ; 167( 651.000, 150.000) i=164 @vr ; 165( 650.000, 890.000) @vr ; 166( 651.000, 149.000) @vr ; 167( 651.000, 150.000) @vr ; 168( 651.000, 151.000) @vr ; 169( 651.000, 152.000) @vr ; 170( 651.000, 153.000) @vr ; 171( 651.000, 154.000) @vr ; 172( 651.000, 155.000) @vr ; 173( 651.000, 156.000) @vr ; 174( 652.000, 126.000) @vr ; 175( 652.000, 127.000) @vr ; 176( 692.000, 646.000) @vr ; 177( 703.000, 928.000) @vr ; 178( 704.000, 926.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_704-926.ps @vr ; 179( 704.000, 927.000) @vr ; 180( 705.000, 925.000) @vr ; 181( 705.000, 926.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_705-926.ps @vr ; 182( 705.000, 927.000) @vr ; 183( 706.000, 924.000) @vr ; 184( 706.000, 925.000) @vr ; 185( 706.000, 926.000) @vr ; 186( 706.000, 927.000) @vr ; 187( 707.000, 922.000) @vr ; 188( 707.000, 923.000) @vr ; 189( 707.000, 924.000) @vr ; 190( 707.000, 925.000) @vr ; 191( 708.000, 922.000) @vr ; 192( 708.000, 923.000) @vr ; 193( 712.000, 736.000) @vr ; 194( 712.000, 737.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_712-737.ps print,ir[i] ;( 712.000, 737.000) @vr ; 195( 712.000, 738.000) @vr ; 196( 712.000, 739.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 @vr ; 197( 712.000, 740.000) @vr ; 198( 712.000, 741.000) @vr ; 199( 713.000, 737.000) @vr ; 200( 713.000, 738.000) @vr ; 201( 713.000, 739.000) @vr ; 202( 713.000, 740.000) @vr ; 203( 713.000, 741.000) @vr ; 204( 713.000, 744.000) @vr ; 205( 714.000, 737.000) ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_714-737.ps @vr ; 206( 714.000, 743.000) @vr ; 207( 714.000, 744.000) @vr ; 208( 714.000, 745.000) @vr ; 209( 714.000, 746.000) @vr ; 210( 715.000, 742.000) @vr ; 211( 715.000, 744.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.4] ; % No commands containing 'vor' exist in the command buffer. for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_715-744.ps @vr ; 212( 715.000, 745.000) @vr ; 213( 715.000, 746.000) @vr ; 214( 715.000, 747.000) @vr ; 215( 733.000, 182.000) @vr ; 216( 0.00000, 0.00000) @vr ; 217( 0.00000, 0.00000) @vr ; 218( 0.00000, 0.00000) @vr ; 219( 0.00000, 0.00000) @vr ; 220( 758.000, 186.000) @vr ; 221( 760.000, 190.000) @vr ; 222( 760.000, 191.000) @vr ; 223( 823.000, 867.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.2] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_823-867.ps @vr ; 224( 824.000, 865.000) @vr ; 225( 841.000, 544.000) @vr ; 226( 841.000, 545.000) @vr ; 227( 842.000, 543.000) @vr ; 228( 842.000, 544.000) @vr ; 229( 888.000, 838.000) @vr ; 230( 889.000, 838.000) @vr ; 231( 911.000, 65.0000) @vr ; 232( 912.000, 66.0000) @vr ; 233( 936.000, 927.000) @vr ; 234( 936.000, 928.000) @vr ; 235( 0.00000, 0.00000) @vr ; 236( 0.00000, 0.00000) @vr ; 237( 943.000, 215.000) @vr ; 238( 943.000, 216.000) plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 ps plot,w*.1,v[*,real_part(ir[i]),imaginary(ir[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ir[i])+ii,imaginary(ir[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ir[i]),imaginary(ir[i])],thick=3 psend x $mv idl.ps V_12v_t342_943-216.ps @vr ; 239( 996.000, 474.000) @vr ; 240( 997.000, 474.000) @vr ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. ; % Attempt to subscript IR with I is out of range. i=-1 @vb ; 0( 0.00000, 303.000) @vb ; 1( 0.00000, 306.000) @vb ; 2( 1.00000, 114.000) @vb ; 3( 2.00000, 307.000) @vb ; 4( 3.00000, 305.000) @vb ; 5( 16.0000, 233.000) @vb ; 6( 22.0000, 285.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.4,.5] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_22-285.ps @vb ; 7( 27.0000, 289.000) @vb ; 8( 34.0000, 106.000) @vb ; 9( 34.0000, 107.000) @vb ; 10( 34.0000, 108.000) @vb ; 11( 35.0000, 107.000) @vb ; 12( 35.0000, 108.000) @vb ; 13( 37.0000, 107.000) @vb ; 14( 41.0000, 26.0000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_41,26.ps @vb ; 15( 41.0000, 27.0000) @vb ; 16( 41.0000, 28.0000) @vb ; 17( 41.0000, 29.0000) @vb ; 18( 42.0000, 25.0000) @vb ; 19( 44.0000, 107.000) @vb ; 20( 50.0000, 108.000) @vb ; 21( 70.0000, 351.000) @vb ; 22( 70.0000, 352.000) @vb ; 23( 70.0000, 353.000) @vb ; 24( 71.0000, 353.000) @vb ; 25( 88.0000, 573.000) @vb ; 26( 89.0000, 574.000) @vb ; 27( 90.0000, 347.000) @vb ; 28( 90.0000, 348.000) @vb ; 29( 90.0000, 357.000) @vb ; 30( 90.0000, 575.000) @vb ; 31( 91.0000, 348.000) @vb ; 32( 91.0000, 357.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend $mv idl.ps V_12v_t342_91-357.ps @vb ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: IB. ; % WSET: Routine is not defined for current graphics device. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: W. ; % Variable is undefined: IB. retall x psend ; % Keyword CLOSE not allowed in call to: DEVICE x retall x @vb ; 34( 96.0000, 95.0000) @vb ; 35( 96.0000, 360.000) @vb ; 36( 99.0000, 98.0000) @vb ; 37( 100.000, 98.0000) @vb ; 38( 100.000, 358.000) @vb ; 39( 101.000, 358.000) @vb ; 40( 102.000, 357.000) @vb ; 41( 102.000, 358.000) @vb ; 42( 109.000, 58.0000) @vb ; 43( 110.000, 59.0000) @vb ; 44( 125.000, 292.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_125-292.ps @vb ; 45( 125.000, 294.000) @vb ; 46( 126.000, 291.000) @vb ; 47( 126.000, 292.000) @vb ; 48( 126.000, 293.000) @vb ; 49( 126.000, 294.000) @vb ; 50( 127.000, 293.000) @vb ; 51( 132.000, 51.0000) @vb ; 52( 133.000, 50.0000) @vb ; 53( 181.000, 410.000) @vb ; 54( 185.000, 415.000) @vb ; 55( 191.000, 274.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.1] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_191-274.ps @vb ; 56( 191.000, 275.000) @vb ; 57( 219.000, 279.000) @vb ; 58( 276.000, 811.000) @vb ; 59( 277.000, 812.000) @vb ; 60( 282.000, 846.000) @vb ; 61( 283.000, 845.000) @vb ; 62( 283.000, 846.000) @vb ; 63( 284.000, 24.0000) @vb ; 64( 285.000, 23.0000) @vb ; 65( 294.000, 77.0000) @vb ; 66( 314.000, 952.000) @vb ; 67( 314.000, 953.000) @vb ; 68( 315.000, 952.000) @vb ; 69( 331.000, 23.0000) @vb ; 70( 332.000, 23.0000) @vb ; 71( 333.000, 23.0000) @vb ; 72( 334.000, 23.0000) @vb ; 73( 335.000, 22.0000) @vb ; 74( 335.000, 23.0000) @vb ; 75( 336.000, 21.0000) @vb ; 76( 336.000, 22.0000) @vb ; 77( 336.000, 23.0000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.35] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_336-23.ps @vb ; 78( 337.000, 13.0000) @vb ; 79( 337.000, 15.0000) @vb ; 80( 337.000, 21.0000) @vb ; 81( 337.000, 22.0000) @vb ; 82( 337.000, 23.0000) @vb ; 83( 338.000, 15.0000) @vb ; 84( 338.000, 16.0000) @vb ; 85( 338.000, 20.0000) @vb ; 86( 338.000, 21.0000) @vb ; 87( 338.000, 22.0000) @vb ; 88( 339.000, 15.0000) @vb ; 89( 339.000, 16.0000) @vb ; 90( 339.000, 17.0000) @vb ; 91( 339.000, 18.0000) @vb ; 92( 339.000, 19.0000) @vb ; 93( 339.000, 20.0000) @vb ; 94( 360.000, 958.000) @vb ; 95( 361.000, 830.000) @vb ; 96( 361.000, 958.000) @vb ; 97( 363.000, 831.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.2,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_636-831.ps @vb ; 98( 374.000, 166.000) @vb ; 99( 374.000, 232.000) @vb ; 100( 375.000, 167.000) @vb ; 101( 375.000, 231.000) @vb ; 102( 375.000, 232.000) @vb ; 103( 376.000, 230.000) @vb ; 104( 380.000, 153.000) @vb ; 105( 409.000, 540.000) @vb ; 106( 428.000, 895.000) @vb ; 107( 429.000, 896.000) @vb ; 108( 429.000, 897.000) @vb ; 109( 430.000, 896.000) @vb ; 110( 433.000, 896.000) @vb ; 111( 460.000, 367.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_460-367.ps @vb ; 112( 461.000, 367.000) @vb ; 113( 465.000, 289.000) @vb ; 114( 467.000, 437.000) @vb ; 115( 468.000, 436.000) @vb ; 116( 468.000, 437.000) @vb ; 117( 469.000, 251.000) @vb ; 118( 470.000, 251.000) @vb ; 119( 471.000, 251.000) @vb ; 120( 472.000, 251.000) @vb ; 121( 473.000, 440.000) @vb ; 122( 492.000, 276.000) @vb ; 123( 493.000, 275.000) @vb ; 124( 493.000, 276.000) @vb ; 125( 494.000, 274.000) @vb ; 126( 494.000, 275.000) @vb ; 127( 496.000, 271.000) @vb ; 128( 497.000, 461.000) @vb ; 129( 498.000, 462.000) @vb ; 130( 530.000, 696.000) @vb^xtit ; % Error opening file. File: vb^xtit plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] ; % No commands containing 'vor' exist in the command buffer. for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342_530-696ps @vb ; 131( 531.000, 696.000) @vb ; 132( 532.000, 695.000) @vb ; 133( 533.000, 695.000) @vb ; 134( 538.000, 533.000) @vb ; 135( 538.000, 941.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t538-941-696ps @vb ; 136( 539.000, 941.000) @vb ; 137( 539.000, 942.000) @vb ; 138( 540.000, 942.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.4] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-540-942.ps @vb ; 139( 540.000, 943.000) @vb ; 140( 541.000, 942.000) @vb ; 141( 541.000, 943.000) @vb ; 142( 541.000, 944.000) @vb ; 143( 542.000, 942.000) @vb ; 144( 542.000, 943.000) @vb ; 145( 542.000, 944.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.15,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-542-944.ps @vb ; 146( 542.000, 945.000) @vb ; 147( 542.000, 946.000) @vb ; 148( 542.000, 947.000) @vb ; 149( 542.000, 948.000) @vb ; 150( 543.000, 942.000) @vb ; 151( 543.000, 943.000) @vb ; 152( 543.000, 944.000) @vb ; 153( 543.000, 945.000) @vb ; 154( 543.000, 946.000) @vb ; 155( 543.000, 947.000) @vb ; 156( 543.000, 948.000) @vb ; 157( 543.000, 949.000) @vb ; 158( 544.000, 943.000) @vb ; 159( 544.000, 944.000) @vb ; 160( 544.000, 945.000) @vb ; 161( 544.000, 946.000) @vb ; 162( 544.000, 947.000) @vb ; 163( 544.000, 948.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-544-948.ps @vb ; 164( 544.000, 949.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-544-949.ps @vb ; 165( 545.000, 948.000) @vb ; 166( 545.000, 949.000) @vb ; 167( 545.000, 950.000) @vb ; 168( 546.000, 949.000) @vb ; 169( 565.000, 510.000) @vb ; 170( 572.000, 190.000) @vb ; 171( 573.000, 897.000) @vb ; 172( 574.000, 191.000) @vb ; 173( 587.000, 426.000) @vb ; 174( 588.000, 424.000) @vb ; 175( 593.000, 54.0000) @vb ; 176( 607.000, 553.000) @vb ; 177( 608.000, 551.000) @vb ; 178( 608.000, 552.000) @vb ; 179( 608.000, 553.000) @vb ; 180( 608.000, 554.000) @vb ; 181( 609.000, 427.000) @vb ; 182( 609.000, 482.000) @vb ; 183( 609.000, 551.000) @vb ; 184( 609.000, 552.000) @vb ; 185( 609.000, 553.000) @vb ; 186( 623.000, 823.000) @vb ; 187( 623.000, 824.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-623-824.ps @vb ; 188( 623.000, 825.000) @vb ; 189( 625.000, 433.000) @vb ; 190( 625.000, 670.000) @vb ; 191( 625.000, 671.000) @vb ; 192( 626.000, 434.000) @vb ; 193( 631.000, 675.000) @vb ; 194( 632.000, 675.000) @vb ; 195( 633.000, 677.000) @vb ; 196( 637.000, 154.000) @vb ; 197( 638.000, 155.000) @vb ; 198( 639.000, 141.000) @vb ; 199( 639.000, 156.000) @vb ; 200( 641.000, 463.000) @vb ; 201( 642.000, 464.000) @vb ; 202( 643.000, 464.000) @vb ; 203( 643.000, 465.000) @vb ; 204( 644.000, 466.000) @vb ; 205( 689.000, 183.000) @vb ; 206( 689.000, 848.000) @vb ; 207( 690.000, 848.000) @vb ; 208( 691.000, 848.000) @vb ; 209( 692.000, 848.000) @vb ; 210( 700.000, 833.000) @vb ; 211( 700.000, 834.000) @vb ; 212( 780.000, 209.000) @vb ; 213( 781.000, 209.000) @vb ; 214( 781.000, 210.000) @vb ; 215( 783.000, 870.000) @vb ; 216( 784.000, 868.000) @vb ; 217( 785.000, 867.000) @vb ; 218( 785.000, 868.000) @vb ; 219( 791.000, 221.000) @vb ; 220( 795.000, 223.000) @vb ; 221( 795.000, 224.000) @vb ; 222( 819.000, 883.000) @vb ; 223( 823.000, 565.000) @vb ; 224( 824.000, 562.000) @vb ; 225( 824.000, 563.000) @vb ; 226( 824.000, 564.000) @vb ; 227( 826.000, 893.000) @vb ; 228( 830.000, 554.000) @vb ; 229( 882.000, 649.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.3,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-882-694.ps @vb ; 230( 898.000, 939.000) @vb ; 231( 898.000, 940.000) @vb ; 232( 899.000, 795.000) @vb ; 233( 899.000, 939.000) @vb ; 234( 899.000, 940.000) @vb ; 235( 899.000, 941.000) @vb ; 236( 911.000, 453.000) @vb ; 237( 919.000, 741.000) @vb ; 238( 929.000, 794.000) @vb ; 239( 929.000, 795.000) @vb ; 240( 930.000, 795.000) @vb ; 241( 930.000, 796.000) @vb ; 242( 932.000, 736.000) @vb ; 243( 932.000, 798.000) @vb ; 244( 932.000, 833.000) @vb ; 245( 932.000, 834.000) @vb ; 246( 933.000, 736.000) @vb ; 247( 933.000, 833.000) @vb ; 248( 943.000, 995.000) @vb ; 249( 943.000, 996.000) @vb ; 250( 952.000, 731.000) @vb ; 251( 974.000, 916.000) @vb ; 252( 975.000, 915.000) @vb ; 253( 975.000, 928.000) @vb ; 254( 976.000, 927.000) @vb ; 255( 976.000, 928.000) @vb ; 256( 976.000, 929.000) @vb ; 257( 989.000, 972.000) @vb ; 258( 989.000, 974.000) @vb ; 259( 989.000, 976.000) @vb ; 260( 990.000, 972.000) @vb ; 261( 990.000, 973.000) @vb ; 262( 990.000, 974.000) @vb ; 263( 990.000, 975.000) @vb ; 264( 990.000, 976.000) @vb ; 265( 990.000, 978.000) @vb ; 266( 991.000, 973.000) @vb ; 267( 991.000, 974.000) @vb ; 268( 1003.00, 303.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.05,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.05,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x $mv idl.ps V_12v_t342-1003-303.ps @vb ; 269( 1003.00, 304.000) @vb ; 270( 1004.00, 303.000) @vb ; 271( 1004.00, 304.000) @vb ; % Attempt to subscript V with is out of range. ; 272( 1005.00, 303.000) @vb ; % Attempt to subscript V with is out of range. ; 273( 1005.00, 304.000) plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.05,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 ; % Attempt to subscript V with is out of range. plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.07,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 ; % Attempt to subscript V with is out of range. plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 ; % Attempt to subscript V with is out of range. oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 ps plot,w*.1,v[*,real_part(ib[i]),imaginary(ib[i])],xtit='!7k!5 (nm)',chars=3,ytit='V/I',yst=3,yr=[-.1,.3] for ii=-3,3 do begin for jj=-3,3 do oplot,w*.1,v[*,real_part(ib[i])+ii,imaginary(ib[i])+jj],lin=1 ; % Attempt to subscript V with is out of range. oplot,w*.1,vhin[*,real_part(ib[i]),imaginary(ib[i])],thick=3 psend x print,ib[i] ;( 1005.00, 304.000) $mv idl.ps V_12v_t342-1005-304.ps @vb ; % Attempt to subscript V with is out of range. ; 274( 1005.00, 305.000) @vb ; % Attempt to subscript V with is out of range. ; 275( 1005.00, 306.000) @vb ; % Attempt to subscript V with is out of range. ; 276( 1006.00, 303.000) @vb ; % Attempt to subscript V with is out of range. ; 277( 1006.00, 304.000) @vb ; % Attempt to subscript V with is out of range. ; 278( 1006.00, 305.000) @vb ; % Attempt to subscript V with is out of range. ; 279( 1006.00, 306.000) @vb ; % Attempt to subscript V with is out of range. ; 280( 1007.00, 303.000) @vb ; % Attempt to subscript V with is out of range. ; 281( 1007.00, 304.000) @vb ; % Attempt to subscript V with is out of range. ; 282( 1007.00, 305.000) @vb ; % Attempt to subscript IB with I is out of range. ; % Attempt to subscript IB with I is out of range. ; % Attempt to subscript IB with I is out of range. ; % Attempt to subscript IB with I is out of range. ; % Attempt to subscript IB with I is out of range.