4Misc_StartN4PlatformN@ ROGIXXjj2V+4!*J+winspoolHP Color LaserJet 2600nIP_10.0.1.124HP Color LaserJet 2600n4XXLetterSDDMHP Color LaserJet 2600n-d%~4 ROGIXXjj2V+4!*J+winspoolHP Color LaserJet 2600nIP_10.0.1.124HP Color LaserJet 2600n4XXLetterSDDMHP Color LaserJet 2600n-d%~4 ROGIXXLUu4!*J+winspoolHP Color LaserJet 2600nIP_10.0.1.124HP Color LaserJet 2600n4XXLetterSDDMHP Color LaserJet 2600n-d%~4  ROGIXXLUu4!*J+winspoolHP Color LaserJet 2600nIP_10.0.1.124HP Color LaserJet 2600n4XXLetterSDDMHP Color LaserJet 2600n-d%~4^Graph*@@??WDashSettings#  !Normal@ Arial<HHHH$$Normal@ Arial<HHHH$$444444 ,SNormal@ Arial<HHHH$$4 4 4 4 4 4 homewod((F:ubc reserach:reference - calculation of REMPI spectrum:group files:simulation:F:ubc reserach:reference - calculation of REMPI spectrum:group files:simulation x07:|@|=|U|(7:|X! (7: L|||5c5cYXRecentWindowsGraph0:REMPI_GATEAV_OFF vs DELAY_OFF;...Graph1:REMPI_GATEAV_ON_smth vs DELAY_ON;...Graph2:wave13 vs wave12Table0:wave12,wave13 4Misc_EndNXOPState_StartNData Browser2:wave13 vs wave12Gizmo  d4 L@PeakFunctions2 ##Interpolate XLLoadWaveTable0:wave12,wave13GBLoadWave Surface Plotter 4XOPState_EndN\ONOFF() Delimited text load from "Coil 12 04 29-00h36m .txt" Matrix size: (4746,500), wave: ON0 Delimited text load from "Baseline 12 04 29-00h36m .txt" Matrix size: (4746,500), wave: OFF0 # of raws 4746 # of columns 499 averaged from 0 to 52.5 and 445.5 to 498 # of raws 4746 # of columns 499 averaged from 0 to 52.5 and 445.5 to 498 Label bottom "frequency / cm^-1" Label bottom "frequency / cm^-1" Label left "Intensity (a.u.)" Label left "Intensity (a.u.)" Display wave13 vs wave12 ModifyGraph mode=1 SetAxis left 0,3 TextBox/C/N=text1/A=MC "Experimental spectrum" TextBox/C/N=text2/A=MC "smoothed experimental spectrum" SetAxis left 0,4 TextBox/C/N=text0/A=MC "calculated spectrum" !/rKXLwave12D?ÕÕ~j@ʡ@ ףp@(@@V-`@p= @Qf@^I 8@Zn@K7@V@Q@-@Cle@/$@(B@/$@MH@VP@3333@Mb @\>@㥛Ĥ@$@}?5^@z@jt@K7@sh@R@n3@V-@jt@/S@NbXY@@h|@Z,@x@@MbZ@%@Zd@1@v@V@ \@F@ʡEb@4@(:@Mj@J + @5^I@S@u@x:@Q@ ףp9@n@jt}@Q@@SU@ʡ@#~.@-@FPwave13D?ÕÕ,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@,+MJA@`YiR ?`YiR ?`YiR ?`YiR ?`YiR ?`YiR ?`YiR ?`YiR ?`YiR ???????aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?aۢ?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?Q?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ?cCԧ? ON001uy)P! I!^NepDELAY_ON?$%@ffff@̬@2333@@@dfff@@0333@@@bfff@@.333@@@`fff@ @,333@@@^fff&@,@*3333@9@?@\fffF@L@(333S@Y@_@Zffff@l@&333s@y@@Xfff@̌@$333@@@Vfff@̬@"333@@@Tfff@@ 333@@@Rfff@@333@@@Pfff@ @333@@@Nfff&@,@3333@9@?@LfffF@L@333S@~Y@_@Jffff@l@333s@|y@@Hfff@̌@333@z@@Ffff@̬@333@x@@Dfff@@333@v@@Bfff@@333@t@@@fff@ @ 333@r@@>fff&@,@ 3333@p9@?@Y@_@ ffff@pl@233s@̌@233@ @p@eff@<̬@233@@n@eff@:@233@@l@eff@8@233@@j@eff@6 @233@@h@eff&@4,@2333@9@f?@effF@2L@233S@Y@d_@efff@0l@233s@y@b@eff@.̌@233@@`@eff@,̬@233@@^@eff@*@233@@\@eff@(@233@@Z@eff@& @233@򘙙@X@eff&@$,@2333@𘙙9@V?@effF@"L@233S@Y@T_@efff@ l@233s@옙y@R@eff@̌@233@ꘙ@P@eff@̬@233@蘙@N@eff@@233@昙@L@eff@@~233@䘙@J@eff@ @|233@☙@H@eff&@,@z2333@9@F?@effF@L@x233S@ޘY@D_@efff@l@ܘy@^NC\REMPI_GATEAV_ON?%%?ad9 @YnA{@1D@`j. @E@V-@ ى @p b @ @0 @d= @~x @B^x8u @Eg!@ /Ot @d,* @< @ς.Xbb @pQ@F@cdD @ILB} @n'+*p@֡,@/S@HM?@_ @nQ @.@ @&nZ @s@Am rN @QO@Qk @9L @jUN @o64o @S @{p@, @~o% @3'sL @,E @Q>@? @ԺIf@hw@kӷ4@ y@L`e@iZ@5"@X7k@Qܾz@4@;:&(@Ast@Y@-i1o @(4:@7ޮ9@(Qꇺ@R)@v@fMb@wIE@ǟ1@h@,U3@#{s-G@@$[oA@H xX@-@P0@?,о@ꎆN @D u4@}꒜@3z@4?=@J݆i@ChEF0@ai@8x@!h @6a @h@jZ4& @2U^~@F@]D @MU @A @=d @'R @yH @RԚ @.Z @Zj7@e@ @9d@cʅ @Gpcr @Ӥˌ @F^@#@E̵؈ @VuWJB @oi@-ZJ@ @f ?@lBˑa @Fk<5\@,@M @A^D @nQ @/r!@Y6| @B @0I]!@0D@" @(9 @ X/l@@4| @ @2B @KE* @+s띋 @][m @ #M @y' @;F @QN@-~@=6@ (6)@dĸc @~KJ @]\ @k  @ϡ)@ۍO @l~v@v@I| @  @ٲ̡@̼fo @B @ 6@}A@h&g @Dy)@.IKG@$w@2xQ@!58 @Bg@iB= @1Wh  @Y @TkJ@)9@>Bp@qFV)A@^H% @뒁S @pmTR@@غ!@Hc"HAx@ҫD-@x*@E\l@"BhMjM@l RD@єfJ@@Ό@߶@;U祫H@j~ @ONq@`Uõ @`;@vY@J@vqJR@s@ԃ#@- CB@r>r@h7@ΩX@k%@&yo@[orJ@ @$B*@aWql@NL@A)G@ q@ع@X)@3U@]4(@4 Oo@L@בsW@&1ƒ@h\@Q  @@I%X@`<1|h@lj@҅@A₀t@ ~L@&4 @Uӣ#@<ĵ@#iiR@zkd@AN@+4@-1p7@,@Ka@O}M@7,@)@n7{@]d@6ߍ'@1+|Q@>@o/z'@@Ͷ鸨@ʇ@xdj@ir_?@L.@`@@}n{@w> @4&xq@>ɋ@#@Cs>@1O@M7@3 @lL^@(l@Mq@J8@{!@[M @HUk@8e@tC@v@@x1EQ@i8@yۀ+ @rRA`@zK,8 @ZL @Be@Z@x4@: @n,\ @U^u N@ӧ @B X@4Q#u @67g@?_(@_g@fN@L@:X@?NN9@L'M@5R@.x$ @ۢ@ @MQ2C@7@2h.D(@ |H@n}@rU|o@t0@ w@Ҁ~̉@hh@xNr@Rs @E,P@+ɇ@Bs>ٳ@Pп0()REMPI_GATEAV_ON_smth I!????(sp@ޯ\ @^  @L-{] @7H @,T@@,_@@2R6 @Br @NN @x- @ @LT @ @ @V)@?@_|p@D @}hvq{ @]{ @3-S@۫ Ԝ@D}@%am @[ @D @XD  @YP w@f o @rfA @gNlL @5ŌO @ݨ @%d @k) @ IV @:~ @ @s]{ @2 @,L @bz @fG3X@0`;N@Em8@8r:@1LCq@9@Q@vjO@v@@<"@tt@ሪk2@?@'>@% G@n7z@z@+@Yw}V@.7@Akwvd@6v h@l@y['@j5b@EGؼ@-{@z@b@>G@m+,@Pk%,L.@`>.@240'@z@ 6g@ݖ+@I+h"r@N=$c@-e@8 @$?^+@fS*@fKL/@7&@ȋsL@$w@xS@lew@!}` @W*@d @C@>mV@@s=N@u5|_@=F@Ph8@Y/X@CP<@@!J@QJg@q\!@m*2@9d @D: @1XDZ @Ȧ _@3'@Z|@E!.N@L @8W@orÔ@v'$U@f..@pY@\M@.r@ncV@YG@YX\@@;)@H@>[yk3@o_1B@ JN@*@7@P"@J!@ kN}[@_a@0c*o@ ֢$+@u @/C@n.N@$P%1@2@ݟ'@zjí{ @j. @+ @p h @Og @GQhb @ @ŷ@]1 @2 @,ξn @'] @~G @*=L @^. @a @ V @H @Eu @˼?K @zeĿ @nGHMJ @ @z| @O$s @F! @~|{u @A}? @N @dEК%$ @|O)U @`&4 @.r @h2" @nb @#Y`5W@vd @wۘf @ IӾ @a o @g2 @Tn@X=@\{窩 @!Ͱ @;w- .~ @hEc @1 @bYzS @c @Nǡ} @) @t1! @bxFW @ك[v @/ǘu @p3R @b|z @2-Z* @mrtF @ - @X4 @KM;@k= @G8:U @i}xl @x @Ԃw @Vam@A`@q0@m@yĴ @ % @ȗS @<@wGҜf@&Y@Zf4@+=j @HA @oJ @! ZV @D]*f @nH/ @i! @#;[ @@FR @fw% @ @|Κ@R @+r} @<OVR @Dp@bVyL@e@*}FZ@>˦> @TL@4IT6@H~ @77?j@ !@c @ehe @0Yk>@GL}?wh@3dM['3@ȭϟ @tt@s)s @ͅJ! @f:1~ @[l뙫{ @*1"7 @!H(D @MxFf @ҥ @2 @~yI @0_U@mIs@!BU@vNb @aߧl @Љ @YxwQ @{; @U f @# @ʍx@h7YO\B@FMI@1@=7@=WK] @24 @~&1 @Xgo @Vn @ @Dyr@/ӑG@0!H@ۘ Ҝ@|LVD@̔7@#d@3Q^ @79\ @oލ @kJT@Y@]w@x|*@o`@4@w]-B @@[j@} 6s@\}`@l."i@Rqq:D@#C[@[U8!@GT@jIJ@UG_@R[]'@Ƚ@a@:H@վw@u9A@J6G@@Oq@K3*@P⾹C@2@H{@BU3]@@HS4@^x@e ^@T<@H8@کw@X35@j}8@8!@@V@ q@s=@W@lN1j*@;@V9@n@MB,@`8TI@ 96x@n@jr@G]@?#rX@(<@D.@&6ŀ@o_@*@oG@!&@B-\m@T`;@e@j_ Ӽ@s[@]z͌'@\@tէ@@i5@P 2@y-@X@D@2?N=@(t@2EQ@bY@[ʱ@ێz'w@5E@ (@}H``J@XO0@-@;WB@@G$@\}m.l @<$$@d(@U@w729@h ˠj@*K7@a@D@fd|@ < w@BJ^@)a#@xն@B(@UoM@Ft@ @!@@XR@z2zs@>BC@VB@.n@@t,+@ ;z4@F1^,@0@b!@ʷ@6 я@u<@3i{t@NKd\@a)s@Q3b@,&r@x!@=1u@ OFF001uy)P!ژ^N^p#MDELAY_OFF?((@ffff@̬@2333@@@dfff@@0333@@@bfff@@.333@@@`fff@ @,333@@@^fff&@,@*3333@9@?@\fffF@L@(333S@Y@_@Zffff@l@&333s@y@@Xfff@̌@$333@@@Vfff@̬@"333@@@Tfff@@ 333@@@Rfff@@333@@@Pfff@ @333@@@Nfff&@,@3333@9@?@LfffF@L@333S@~Y@_@Jffff@l@333s@|y@@Hfff@̌@333@z@@Ffff@̬@333@x@@Dfff@@333@v@@Bfff@@333@t@@@fff@ @ 333@r@@>fff&@,@ 3333@p9@?@Y@_@ ffff@pl@233s@̌@233@ @p@eff@<̬@233@@n@eff@:@233@@l@eff@8@233@@j@eff@6 @233@@h@eff&@4,@2333@9@f?@effF@2L@233S@Y@d_@efff@0l@233s@y@b@eff@.̌@233@@`@eff@,̬@233@@^@eff@*@233@@\@eff@(@233@@Z@eff@& @233@򘙙@X@eff&@$,@2333@𘙙9@V?@effF@"L@233S@Y@T_@efff@ l@233s@옙y@R@eff@̌@233@ꘙ@P@eff@̬@233@蘙@N@eff@@233@昙@L@eff@@~233@䘙@J@eff@ @|233@☙@H@eff&@,@z2333@9@F?@effF@L@x233S@ޘY@D_@efff@l@ܘy@^NpG#MREMPI_GATEAV_OFF?((j4 @Hz@L @d%[ @V1]@$W@(ZX@g,@K= eN @GGd @pwY-@R- @ʠ @;EN @fX۳ @jQ @xP @Q4@%0qY @_$) @-@ǝ@22M @A8ɋ @2\՟ @g$ @CZI@ l@1:|@مVF @Dۇ@, @c~xq @F^@r^ @ؿU@m @k9#y @n @r- @A|j @`uk @O@] @@Ep@^gf@\kW@E@g@Dy:Ec@Ho@{@V@v L@«x@@=h1@)_@ŏ@`@?{@1<@5@$` hj@J:@l#@mrZ@nq@k6@`l@YC` @]o@@DX!@|xA@\!@~!\3V"@-%Uf!@/ @i@!@hy]@Cb@R<uG@1׽@E1!@a@g @3:@ @Jd3@(fp5@\PvGM@:d@(F(@h8@K]@Z _@#v/l@cآ@|J@o@LN6B@/m@u@a@a>@P85@r:@é@#@0@=FUq@v_)U@;@|F5 @@RgC@IO,@3@^Xn@p3d@uM:@k/MgI@,@"iLt@V@?S@ s^@D 9@9ܘBo@skz@Q@c DXU@pLD@qHuK@0 @EVϟ@K@L!R@1|@45a@6W@?H @ #@ŷ@Ìhx@|h4D@hV @R @G|0@Dm a@x|@1n_w @+ @ I@ @cg @:'J0@1u @I|0h @Da @Y.N: @ \ @I @~L[@vc`m @7B@vX @-Hۃ @v;E @"  @\m@v; @|yq @17X @D>o @j@1@ @2Nszd @pd @t9Cl @|K@*% @Nrv@?]$t @Z6F @̯#E @J1?Un@ 5@@ V @5@y_$ @'@V$I @3ze^@rr|P1@6!S @m\@$P"r@BM4@0(h @V 5@Ԟ$w @Lk:@7@z-r @aFoO#@}[- @ @d; @qctD @~s/@]1h @$pi@r+@݇@`CA@YmZ@.{@"ǿ @XJL @w4@X@&?@dX @< n9 @;o@*ծg @ @w[@he@gp@*Oil @~ @%@, @(I~@k U2@lc @]Mx @!4FJ @3o8 @; @(NCG@dU:p @>l L6@{:֩4@M/o @W @3s@iu @Dznw @)=@\;v8 @4sr @R  @Qv4 @Qp\@Ĝ Ώ @u\@5p/Ys@]MЊr @TYG| @/d#c @a/E@]l@|CZH@s3- @=/F*@Db=p@ݏ-w@d{.%.@u3 @.lmЃ@Zw @rݥ@P ov @,pz @R @nt¡7 @E6p @!jm@t@ła1@Xلܮ@~Ok @˼^^w@@ @,_@fF֖@ҹ6^ @ j'v@, @@ D @% @ J[Aj @@u @ *x @o# @*C}@veR\ @v>X @D@\k֋q- @j@2.z@6?@g @;LNk @y 3͏S@@^@3DYʓ @Cxj^ @cR@6Qy| @$@2@uf@@G,ԚS@6sؒ@kU@& @JX @U 5@3"@#gn@@$ C@P@wPiU@3ScY&@ 7@{M2dx@B(@;@@fyH @_ʽ@냇@fZDK@L"d҈@E@@r@&4l@ fd@빭l@8[7@ΰ/@x=@݋k$@琄C@f5j@0H9@G|@dfn@h!@-yw@}R @MUC@m}.@3= @r~q@(u3@sIӕ@Vl5+@+;A@ɠŅ @~GRh@I/K7 @xI܊M@q7@xl a@o/Ka@p@WlK@<[0@@ aJ@Q!>y@zVx@J6@n@ @P4|i?@2@$.@*@yk@Qgb@L3@oN@Dd*e@ T|@͠2ٶ@~Le@%zC@GS@i;x@Akn@s0@>Gk4@Y`@iI@nQ@iO@~"@aHn&j@AN@@X@\!@M|@Uk%@BDa@E&'@oU@ @a[C@"@CO @j@.,< i@dPR@(P @װ@lj=2 @X9@R@bmR;@o9@9W@_DZ;@-%]@{S@7CM6 @u\@P;R/@'edk@8w8@R @\Y)9@?R[@ C~  @V @F =@/@I@ 5 T@XYW @6Ť@?/@O7E@O@ 2M@,+ޭ@ r@R)@xJ@$@L<@\@PLR ))REMPI_GATEAV_OFF_smthژ????)Lϼ@Xʧ[ @61& @)p8@dd@'W_@̮r>R@5I12 @C < @Dba @"p? @lƑ @c=~ͪ @ƃ%j @ M礔 @ORn( @P @BӪ @ @d@NXQ @ƝE뵢 @x{WZ @ȣa @1uf @ν @ 9h @r>+Nx @&;5 @gF5 @ގL| @z>x]  @S`Z @B5 @X,eF @3' @ { @Eb @m> @b磛5 @tfm @^8 @N$y @ݙ @~'L@hl@2tN@#@v\'#@_sP@ݻ@4@ F@$@嗁8@<@P@K1h@n>@{v[@Gx@^\@+@|\\T@k)@o[@oY$?@xj@qh  @g%LD@6#e^@]Y, @$m< @Yc @ @k!@6cC!@ &i!@WX+!@[ @W P@ @M߮@m1}@;;G$+V@Ku@GR@Y@/: @&@=V@NӾ/@ s\@Q֦b@S+ݗ@\+ Em@dٕ@E7F@EU@h/@cB@"@Du@pq@z@/6@'0X@ݣ9݆@+T,@$ڻ@h 4M@p@hÖ́l@z7W@<@g@8&:m@!sA@K@@dO@TФ@H |U@]x@Dt_@Ӭ@f @7R/w@-]1@YR@1Ʃ~@[@N@Å!@,n &@8E]r3 @ c@eL@n@0Q@0n@߫@AnK@/+:R{{@%H+@>.|(@xR~@n_}@) @X@l: @J1@@cfw8 @"u @-!xy @_bt @yf>ޖ @Si(@d;( @.. @Nx! @ӳ @$qcz @pu@It@< @_P @TD @K @\PK @"Ԥa @'T @7z @D @{} @=4ʧ @:tPo@ @V!@FZ @K7 @?VFpG @l`{ @V @ @tF @\QS @zr @$Ur @'`S' @b' @i @,(@pl@2?p@22>Co@jXУ@wՎ@lҡȒ[@l@jY@pF( @|3 @M8 @`$ @ @A{t @5Aj @n~|{ @@~Z @3Vx; @'X @rHgk @kE5 @ ¸kj @DK @qc@4#@/؈@  @AIH @ soT @ƧMw @?d @ʀߛ @:B @ ~@C W@Ԃ(@eŵ @cX @di|@Q@J3ρ-(@(t[@LY$L\@pG @ 4- @V}s> @4+ @- @暛d@Į}i@J*G@dv6 @WQ7 @47- @4 @EIj@'@>'(@n@םJ@N}@@9@nӨ@>-@B @?u @#+X @Y$@ƫŜ@L @=M^$k @ $@:X @,sD@r-@wvf_@ܨF @w@kxN@]VE@ ^O@ #@>ͭv@Π5 @ЋW Z @〴) @:Р_ @ncH@ @Π, @H@}K@Cs`I@ 1@Y @[sxh @#3@n$?@"@Ԛ3@ @T#qp @4 @p99@.u2 @Lw7@9zk@4j@*oFJ@vI r@dQ]@%,Ŗ @]Z( @8@@8@a|@dj3B@ $-0@e@*|@t\M@upW]@s@Ѭ@Xl#@lw.@w-lVW@@!"@@Lo7@9qr6@,7u@UG@Y^|b@+pl@F~@4@Om @>ǡ;Z@ԨΪy@YV@G'lJV@.w @ӏF@1(@]/@ƉĠh@Q }@CsC@d2Ad@r-CH@e@@ HL@kef)@ͅ@-O(@#@ՅX@>#@Ũ׆f@/j7@@|Qp@L}:@&F@3@AG(@Te@Tsa@9p@d@kkDX@8F@gq@R?q@|A@uz@2^%K:@Y$@P@Ch@Zw_RT9@%@SD"%@C O@o$@ Xy@! +@;\y@P/jDe@D{`@eV@tit@jmOh@ C@B@@*NUɫ@{ޛ @#2ݱ@"Nc@&v @,ir@@At @yk>@$d@D=@lV)@; .@d@Yy&@F3)@ӹ}@Ffm@!T>@9U=@]]@J+@f~`!B@]m $@l@푥@L>@p6@9di@\@FĦT>C@'@D'@b.#ʁ@Bh@MPt@4fϧU@m@Xf1T@eQ@ *// Platform=WindowsNT, IGORVersion=6.222, architecture=Intel Silent 101 // use | as bitwise or -- not comment. DefaultFont "Arial" MoveWindow/P 5.25,44,504.75,338.75 MoveWindow/C 2.25,497,907.5,651.5 Table0() Graph0() Graph1() Graph2() Window Graph2() : Graph PauseUpdate; Silent 1 // building window... Display /W=(192.75,257.75,587.25,466.25) wave13 vs wave12 ModifyGraph mode=1 SetAxis left 0,4 TextBox/C/N=text0/A=MC/X=2.47/Y=42.18 "calculated spectrum" EndMacro Window Graph1() : Graph PauseUpdate; Silent 1 // building window... String fldrSav0= GetDataFolder(1) SetDataFolder root:ON001: Display /W=(468,53,867.75,302.75) REMPI_GATEAV_ON_smth vs DELAY_ON AppendToGraph ::OFF001:REMPI_GATEAV_OFF_smth vs ::OFF001:DELAY_OFF SetDataFolder fldrSav0 ModifyGraph rgb(REMPI_GATEAV_ON_smth)=(1,4,52428) Label left "Intensity (a.u.)" Label bottom "frequency / cm^-1" TextBox/C/N=text1/A=MC/X=-1.77/Y=49.25 "Savitzky-Golay Smoothing 7" Legend/C/N=text0/J/A=MC/X=-5.08/Y=36.47 "\\s(REMPI_GATEAV_ON_smth) REMPI_GATEAV_ON_smth\r\\s(REMPI_GATEAV_OFF_smth) REMPI_GATEAV_OFF_smth" TextBox/C/N=text2/A=MC/X=-6.40/Y=23.68 "smoothed experimental spectrum" EndMacro Window Graph0() : Graph PauseUpdate; Silent 1 // building window... String fldrSav0= GetDataFolder(1) SetDataFolder root:OFF001: Display /W=(35.25,42.5,429.75,251) REMPI_GATEAV_OFF vs DELAY_OFF AppendToGraph ::ON001:REMPI_GATEAV_ON vs ::ON001:DELAY_ON SetDataFolder fldrSav0 ModifyGraph rgb(REMPI_GATEAV_ON)=(1,4,52428) Label left "Intensity (a.u.)" Label bottom "frequency / cm^-1" Legend/C/N=text0/J/A=MC/X=-1.57/Y=46.45 "\\s(REMPI_GATEAV_OFF) REMPI_GATEAV_OFF\r\\s(REMPI_GATEAV_ON) REMPI_GATEAV_ON" TextBox/C/N=text1/A=MC/X=-4.26/Y=29.38 "Experimental spectrum" EndMacro Window Table0() : Table PauseUpdate; Silent 1 // building window... Edit/W=(42.75,191.75,547.5,398.75) wave12,wave13 ModifyTable format(Point)=1 EndMacro #pragma rtGlobals=1 // Use modern global access method. #include menus=0 Menu "Macros" "ONOFF" End // // program to analyze REMPI data in Nov 2011 ON-OFF baseline 2G1-G2 -- G1 Function ONOFF() String ONf="ON" // ON data folder String OFFf="OFF" // OFF data folder Variable Nit=10 // # of repeat at each timing Variable T1=69450 // start delay time Variable TD=0.4 // time step Variable G1=265 // average gate start Variable G2=370 // average gate stop // Prompt ONf,"COIL ON " Prompt OFFf,"COIL OFF " DoPrompt "Data folder", ONf if (V_Flag) return -1 // User canceled endif // NewDataFolder/O root:$ONf SetDataFolder root:$ONf LoadWave/J/M/D/W/N=ON/K=0 // DoPrompt "Data folder", OFFf if (V_Flag) return -1 // User canceled endif // NewDataFolder/O root:$OFFf SetDataFolder root:$OFFf LoadWave/J/M/D/W/N=OFF/K=0 // // Prompt Nit, "Number if scan at each point " // default =5 Prompt T1, "Start delay time (us) " // default =800 Prompt TD, "Delay step time (us)" // default =2.5 DoPrompt "Start time and delay",Nit,T1,TD if (V_Flag) return -1 // User canceled endif // Prompt G1, "Average Gate start point " // defalt =250 Prompt G2, "Average Gate end point " // defalt =290 DoPrompt "Filter Frequencies ",G1,G2 if (V_Flag) return -1 // User canceled endif // SetDataFolder root:$ONf subtract_offset("ON0",Nit,T1,TD,G1,G2) rename REMPI_AV REMPI_AV_ON rename DELAY DELAY_ON rename REMPI REMPI_ON // Average("REMPI_AV_ON",G1,G2) rename REMPI_GATEAV REMPI_GATEAV_ON // SetDataFolder root:$OFFf subtract_offset("OFF0",Nit,T1,TD,G1,G2) rename REMPI_AV REMPI_AV_OFF rename DELAY DELAY_OFF rename REMPI REMPI_OFF // // Average("REMPI_AV_OFF",G1,G2) rename REMPI_GATEAV REMPI_GATEAV_OFF // SetDataFolder root:$OFFf Display REMPI_GATEAV_OFF vs DELAY_OFF SetDataFolder root:$ONf AppendToGraph REMPI_GATEAV_ON vs DELAY_ON ModifyGraph rgb(REMPI_GATEAV_ON)=(1,4,52428) Legend/C/N=text0/A=MC/X=30/Y=30 // SetDataFolder root:$ONf Duplicate REMPI_GATEAV_ON REMPI_GATEAV_ON_smth Smooth/S=2 7, REMPI_GATEAV_ON_smth Display /W=(50,325,450,575) REMPI_GATEAV_ON_smth vs DELAY_ON ModifyGraph rgb(REMPI_GATEAV_ON_smth)=(1,4,52428) SetDataFolder root:$OFFf Duplicate REMPI_GATEAV_OFF REMPI_GATEAV_OFF_smth Smooth/S=2 7, REMPI_GATEAV_OFF_smth AppendToGraph REMPI_GATEAV_OFF_smth vs DELAY_OFF TextBox/C/N=text1/A=MC "Savitzky-Golay Smoothing 7" TextBox/C/N=text1/X=30.00/Y=45.00 Legend/C/N=text0/A=MC/X=30/Y=30 // SetDataFolder root:$OFFf KillWaves OFF0 KillWaves REMPI_OFF KillWaves REMPI_AV_OFF SetDataFolder root:$ONf KillWaves ON0 KillWaves REMPI_ON KillWaves REMPI_AV_ON SetDataFolder root: // end // // program to analyze REMPI data in Nov 2011 Tony data Function subtract_offset(traceNameR,Nit,T1,TD,G1,G2) String traceNameR // REMPI Variable Nit // # of repeat at each timing Variable T1 // start delay time Variable TD // time step Variable G1 // average gate start Variable G2 // average gate stop wave REMPI //offset subtracted wave wave temp_w1,temp_w2 // work wave Variable msize1=0 // wave size raw Variable msize2=0 // wave size column Variable ms1=0 // 10 % of column data Variable Ave=0 // average Variable i=0 // do loop variable Variable j=0 // do loop variable Variable k=0 // do loop variable Variable ii=0 // do loop variable Variable vw // work variable // DeletePoints/M=1 0,1, $traceNameR // delete first column // Duplicate/O $traceNameR temp_w1 Duplicate/O $traceNameR temp_w2 // msize1=DimSize(temp_w1,0) msize2=DimSize(temp_w1,1) // print "# of raws", msize1 print "# of columns", msize2 // // // modified : // baseline from G1-(G2-G1) ---- G1 i=0 do j=2*G1-G2 k=0 do Ave+=temp_w1[i][j] j+=1 k+=1 while (j