4Misc_Starth4Platformh@9VersionCheck xHH@Re(HHdh xHH%.7@gyHHdh x HH%.7@gyHHdh ^Graph*WDashSettings#  ! |C6Normal@ Lucida Console<HHHH$$4 4 4 4 4 4 homeaYdE:Radio Astronomy:Meteor scatter:MTG measurements:2021:11:E:Radio Astronomy:Meteor scatter:MTG measurements:2021:11RecentWindowsLGraph0:SRangeTot vs UTD;...Notebook0Table0:UTD,SRangeTot,Doppler,Doppler2 4Misc_EndhTXOPState_Start hPeakFunctions2-647,4XOPState_Endh\h •NewNotebook/F=1/N=Notebook0 •Edit •CalculateDoppler() •Graph0() •AppendToTable Doppler2 !Jx8s ޹ UTD????datCWGAcWGAWGAWGA WGAWGA-WGA-!WGAAWGA2wWGAjWGAWGAWGA WGA WGA WGA WGA-! WGATR WGAH WGA"l WGA WGA: WGAF WGA WGA/WGA;WGAI.WGAR'WGA0LWGAwWGAx8 ޹ SRangeTot????bN@s@" @P>@r\@⴮HP@0L@1Jd9@+~7@H?br7@A@C@/qdJ@m@&Bp@n3}@y߽@BJ"@@T-@*8>@- N@.>@X/9@/>;@'@l@k@vHe@ؠy@@xM8 ޹ Doppler????p@a4 /@qܝ>'@Dt@P;L31u@W$u@!4]b@O7Sbb@VBE@΀Nh3`U]$ jĂKpFdp@hvܒ2%gwq>z{IeZ(9cC`4x]сXRkn #[+toM.ؘcOL˓0#x=8?- - Doppler2????p@a4 /@qܝ>'@Dt@P;L31u@W$u@!4]b@O7Sbb@VBE@΀Nh3`U]$ jĂKpFdp@hvܒ2%gwq>z{IeZ(9cC`4x]сXRkn #[+toM.ؘcOL˓0#*d0TMW????Notebook0Notebook0Notebook0e-Me-MHH%.7@gyHHdh Rb Rb $Normal 6< BHHHH$$@Z48 0 Z    jOriginal Measured Data and original differentiated wave copied from main experiment and pasted in table   Date Time in UTC is wave UTD % Slant Range Total is wave SRangeTot ) Doppler is original differentiated wave  Function CalculateDoppler()  " recalculates Doppler as Doppler2   $Graph0()  plots them Z0<Dh08@t X!@l# Differentiate02 February 202211:02:02iArial2Special0Special1Special2// Platform=WindowsNT, IGORVersion=8.040, architecture=Intel, systemTextEncoding="Windows-1252", historyTextEncoding="UTF-8", procwinTextEncoding="UTF-8", recreationTextEncoding="UTF-8", build=34722 #pragma TextEncoding = "UTF-8" Silent 101 // use | as bitwise or -- not comment. DefaultFont "Arial" Table0() String/G root:gWMSetNextTextFilesTextEncoding = "Windows-1252" // Text encoding for Notebook0. Used by Igor Pro 7. OpenNotebook/N=Notebook0/W=(403.5,43.25,957,347)/J=6057 "Notebook0" MoveWindow/P 216,123.5,915.75,578.75 MoveWindow/C 39.75,336.5,495.75,605 Graph0() KillStrings/Z root:gWMSetNextTextFilesTextEncoding Window Graph0() : Graph PauseUpdate; Silent 1 // building window... Display /W=(438.75,397.25,922.5,662) SRangeTot vs UTD AppendToGraph/R Doppler,Doppler2 vs UTD ModifyGraph mode=4 ModifyGraph marker(SRangeTot)=6,marker(Doppler)=6,marker(Doppler2)=5 ModifyGraph rgb(SRangeTot)=(1,12815,52428),rgb(Doppler2)=(2,39321,1) ModifyGraph msize(SRangeTot)=2,msize(Doppler)=3,msize(Doppler2)=2 ModifyGraph grid(left)=1,grid(bottom)=1 ModifyGraph nticks(bottom)=12 ModifyGraph dateInfo(bottom)={0,0,0} SetAxis/A/N=1 left SetAxis/A/N=1/E=1 bottom ShowInfo Legend/C/N=text0/J/A=MC/X=21.07/Y=25.54 "\\s(SRangeTot) SRangeTot\r\\s(Doppler) Doppler\r\\s(Doppler2) Doppler2" EndMacro Window Table0() : Table PauseUpdate; Silent 1 // building window... Edit/W=(5.25,41.75,384.75,293) UTD,SRangeTot,Doppler,Doppler2 ModifyTable format(Point)=1,format(UTD)=8,showFracSeconds(UTD)=1,width(UTD)=119 ModifyTable rgb(SRangeTot)=(1,12815,52428),width(Doppler)=50,rgb(Doppler)=(65535,0,0) ModifyTable width(Doppler2)=50,rgb(Doppler2)=(2,39321,1) EndMacro #pragma TextEncoding = "UTF-8" #pragma rtGlobals=3 // Use modern global access method and strict wave access. Function CalculateDoppler() wave myUTD = UTD wave mySRangeTot = SRangeTot // km Differentiate /METH=0 mySrangeTot /X=myUTD /D=Doppler2 variable frequency = 143.050 * 10^6 // Hz variable c0 = 2.99792 * 10^5 // speed of em radiation km/s variable wavelength // wavelength km wavelength = c0/frequency Doppler2 *= (1/wavelength) * -1.0 End Window Graph0() : Graph PauseUpdate; Silent 1 // building window... Display /W=(438,446,921.75,710.75) SRangeTot vs UTD AppendToGraph/R Doppler,Doppler2 vs UTD ModifyGraph mode=4 ModifyGraph marker(SRangeTot)=6,marker(Doppler)=6,marker(Doppler2)=5 ModifyGraph rgb(SRangeTot)=(1,12815,52428),rgb(Doppler2)=(2,39321,1) ModifyGraph msize(SRangeTot)=2,msize(Doppler)=3,msize(Doppler2)=2 ModifyGraph grid(left)=1,grid(bottom)=1 ModifyGraph nticks(bottom)=12 ModifyGraph dateInfo(bottom)={0,0,0} SetAxis/A/N=1 left SetAxis/A/N=1/E=1 bottom ShowInfo Legend/C/N=text0/J/A=MC/X=21.07/Y=25.54 "\\s(SRangeTot) SRangeTot\r\\s(Doppler) Doppler\r\\s(Doppler2) Doppler2" EndMacro