[>In>Jj><>
>_RyTN(?ػ.X?C, ?"̿?h?Fa#O,?FeA?:? |R?^^$?h`C ?y-+?V?$ WeB?*'%c?nVn4?M)E6 ? >Z(>5Ok4>Oq#k=vFx=a`&s,=L-++3S
-*r}A)nr'jqc&[t}V%BgIt$H::#!d(R!v !fe |g d t4R+_O^Bym(~ca
H )twЁuE("2I,TH
g Ks'T
L
@&MA2 7pA
&g7sl#2gZ6#?RP & [ ITok #|VB⓮Oooh0˒L
r 0/q
H-'t=HB\ :
ڵC Jܝ_.T ?udЮ[h x S;D 6w.( q}q(v :!_d]"}f6$4Z^Hx>>?N>vt[?ݍrA?xTѳ;b?c[dvqV|?W?̫a?-%,?իS?ʾ[O&?b=F?'=?xT5t?=gѮRW?([64?o
?{ zy>uXѻӡ>ܲ@(
f>4>z)@>ǬJV?te!7?v/³e?G1*J?9q?NG?*?*[?"gXg?.J?ُy]?;(`#?x+J?d?vgD1?>KV?o.T?Ef v#?~~B>0pĶʭ>+80\g>ڔQ?>=֩ s)n=IH
= Vn=+{]s=)5=svf>:OW`>3> T>>iʔf+?Xn9?@kj`?$̽J?7L?ЮH'?(l?+Ӟ?mO?5U?vӄ̇? M?& ?zN*̗?DJz?o TfO?mgNb?(%D0? D> ᩵>;Go>;
?C!>!w4=4F p=m>/=4e>n e(vvq'bdH&fau%+#2ߔ "i;a!ɵu? Tfʷ %۲l Ff
CH 99u]K+=B2yqʲCK /jߑF & 2 R!> T{ 24 XjԝCRLڵvX`-Qr 3k V YP? wh?-˚mI'2цwwEd :fX ~J?;|`+u>y5+>7R{>?24?xf?]vM?ѰFM-? ?o D?JA|?y]@%@h@N?&?ڊd?>?"!(5?洢{xV?pZM+"?o!>)>OY>ط{ ?lz.E?e>e?"p?ΥYyđ?P(|?5C2?:g]?&*Җ?T4 .? q?utuZS?kB9w0?Mzn{?t6>{Za>Hf!ղZ>M*|T>1 =cgs=܉FR=Ԏܬ<ArO<_AΈ8;| h; $jj: h:FzN0y9L9<8N8r'"p7{s7sn M8j/%8$VR9q)u9 Fp:?xE:b}q;6ǥ;0QWN!>p|Rg>`>Xn>_, U?A6s??jńD ? r+?B8y?ހz?Hk=![?>\4?"?κ0b>B(>w(dV>5+>,߫=kXs+h=
Jn =k(=Pz8ZAd7x[H7E c_6Au5{E ZG&53lc4/ώŘ3_02 ϰ1 #rg1v|B -+0鮧_?/lL+DK.\Q-WP,
.>G+u"W19*@^#) `
3(AꐝL2&.x'%*
2$`z
R#o~@I="ׂ
@! #9 / Ysn os= EtS(#s'w?*f Niξ /
^xsR_9_
,;8;5 KxYn
,9'7 T%$*]4I˲# t ڣ M, خH ٣] M7ls^sӑW)T4թ|oPă1f@d }l
줤 Taʜ>a;YGj4 !pYA9(`hLH`݁ίԁ*sqfE 꺭fD YQ j`']7!c8|Vz"P*
ֶ#[PB$T&7ؒ-C'(ed()Փm*^fdܞ++s ,qb- `.Jq/hNu0fΥiY1{ 62]
CW 3g{<'36Y4?Td5 @", 6
??64k7>A|%8]8ȚwP]9R9 :qJy:"1:/Hz; E͘0;ÓH`<;Ū:4<' YI*= ݄=:5=Wv&>k褌m>Fls>~>&Chq?pwϥ9)B?Se?:r.v?ϟٙ?n+?H
eIJ?i>l?_Fai?(x-?1 zp'?fZoJLx?ґ0X? ON001 A A @ ! ^ N ~ DELAY_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 @ ^ N u 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@Q k
@9 L @jUN @o64o @S @{p@,
@~o%
@3'sL @,E
@Q>@? @ԺIf@hw@kӷ4@
y@L`e@iZ @5"@ X7k@Qܾz@4@;:&(@As t@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
@T kJ@)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@ ,@K a@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
@B e@Z@x4@:
@n,\
@U^u
N@ӧ
@B
X@4Q#u @67 g @?_(@_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 () REMPI_GATEAV_ON_smth ? ? ? ? sp@ޯ \ @^
@L-{] @7H @,T@@,_@ @2R6 @B r @N N @x-
@ @L T @
@
@V)@ ?@_|p@D @}hvq{ @]{
@3-S@۫
Ԝ@D}@%am @[ @D
@X D
@YP w@f o @rfA
@gNlL @5ŌO @ݨ @%d
@ k) @
IV
@:~
@
@s]{
@2
@,L @bz
@fG3X@0`;N@E m8@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!@ k N}[@_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@w 729@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@
OFF001 A A @ ! ^ N R DELAY_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 @ ^ N oo REMPI_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@n q @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; @|y q
@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 @L k:@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{.%.@u 3
@.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@\kq-
@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
@MU C@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@G S@i;x@Akn@s0@>Gk4@Y`@ iI @nQ@iO@~"@aHn&j@AN@@X@\!@M|@Uk%@BDa@E&'@o U@ @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<@\@ P )) 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 @,(@p l@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@@!"@@L o7@9qr6@,7u@U G@ 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@
* d
TXET0RGI d GaussFromLocations.ipf GaussFromLocations_ipf GaussFromLocations.ipf #pragma rtGlobals=1 // Use modern global access method.
Function GaussFromLocations(inY, inX, gaussWidth, outname)
Wave inY
Wave inX
Variable gaussWidth
String outname
Variable numPeaks = numpnts(inY)
Make/N=(numPeaks*100)/O/D $outname/WAVE=outw
SetScale/I x (wavemin(inX)-2*gausswidth), (wavemax(inX)+2*gausswidth), outw
outw = 0
Variable i
for (i = 0; i < numPeaks; i += 1)
Make/FREE/D gcoef = {0, inY[i], inX[i], gaussWidth}
outw += gauss1d(gcoef, x)
endfor
end R H
Geneva W~ 9 x H H (Fg( H H ( d h F H H H H $ $
R0 R MPSR WMT1 * H LP T @ // Platform=Macintosh, IGORVersion=6.220, architecture=Intel
Silent 101 // use | as bitwise or -- not comment.
DefaultFont "Arial"
Table0()
Graph0()
Graph1()
Table1()
MoveWindow/C 4,497,910,654
MoveWindow/P 739,80,1324,1055
Graph2()
OpenProc/W=(439,343,939,638)/J=127250 "GaussFromLocations.ipf"
Window Graph2() : Graph
PauseUpdate; Silent 1 // building window...
Display /W=(577,218,1441,833) wave13 vs wave12
AppendToGraph fakeGauss
ModifyGraph mode(wave13)=1
TextBox/C/N=text0/A=MC/X=2.47/Y=42.18 "calculated spectrum"
EndMacro
Window Table1() : Table
PauseUpdate; Silent 1 // building window...
Edit/W=(736,94,1336,1019) wave12,wave13
ModifyTable format(Point)=1
EndMacro
Window Graph1() : Graph
PauseUpdate; Silent 1 // building window...
String fldrSav0= GetDataFolder(1)
SetDataFolder root:ON001:
Display /W=(468,53,868,303) 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,44,430,252) 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=(43,192,548,399) 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