F:=p1 l3~:-d =h {mBPJ> &<
D=꼲=bh=r;w]>p=e>5z)X = ˜=S r =dh!T><
~=OYY ˴M.=7U={ʼL΅ <*i=Eш<^]<"< =SźR==B=if/;0<6=p ~,>R}<ĵ=`'=n=m<[$>2#Ԭ=̱S=o'ѫ= e=<-0:1=g W>ݛ>]1c$<ǞsJm=<@Ez9uE>s=aˑ<Ř='=j=qҼQ'< <?m;='>|_;=`j<2 =$;==QDz7<Ӽ4C=w=A>iqҼZ'wk='<=>hDVɽ4<2
=.=)t|>e ] >܊K;½8H=0>G}|+=N
>=^̕==$>27X=g|xLr`ϼW2.<kAiʲh9=fN8AӉڽ"I#,>Ç=\_PRM 'sM - <~k="*Gk4==$::<}u=SQlkD1Hټ5k=W>?= Jｵ=#u=RG%>Y=V=$l1>2"
= Z(>L@x <ż.>A:V >>0>D
604B ʽ< <O>z; g>jLk?TL7=yDgf=x===D ͽr=MCD܂k'>VW=UIW;>»=u = =~<6o<=P5=!בW;E=a=d!>|<= S ><XyS<<#;Ez=WŇ=_I@>dx˼>a=btt{H=
ż'?
>=t7Nn(_yP=8=p=_ >Tl=D ;>Y%C<O\ <[=&>==>JY=;9<8ݸDs<+30E>}8C>?hN&mz=y=R@ٻD=
º=t0|= IؼۼSB>4R->z=`p<~\Rs^^= <=]f<y<
,- s=}f
=ރk
mǽχ=-:=>9-,PC>c3>y>u:ݽ ==Qg|=A=꽴>~= f=wȪ=$<0@мm<A6&< 7Ľ7砽r >cO#==P)1ihv;F>)Խ{hvv=aȽ>n:=`K=\=S?l==(yE:wO=[>3߽ ;*h= =8x;,
=B=& 0;ϰ }YR=>YX=9<뭾 ֽ|U=;z =}<w=K=KxeJo*̼ #/|>
singlepeak ? 4@
tRU=@<ʼ
ˬ=dc>6D3>O= +*iHv< !" <ѷ~j E=N==ir==H? >E}2=45BNs L8^Y"<= <:Aһuݡ;=>}8= =IK=63Qf1ĽB==3&8={=)5Ƚ3+'>qh>f=e,>Ǩ=hj8@=i =M395=gs>bd5d'q=&=4k]=,N=k!>M{Upl D=\>4->m̽νn>@ B>gؼD;dWMD9;i8>X_=]T#BEu%>[,(UVm> >ن=Ȁ8T=+>gz=Z+m4?(D<<#=4:2f=r &: >=<{ʴD'_=[=*1=S=,E= .P;GCr,la|%lN y{A>S|߽=@&O<2g)BA=V>B=?> Zb{Um=ҍq<>&
<=R<:=
Ҿ=kG=r(u=K+>=L =+j=gH=y4ǽ8t0()=OD= =2(>TX=7>⣶K=)1>PqQ=.M>ކv=K=X{
>RqRB)=ĺxS={ZD@=!= %:=T===ޔE 8>
>s=C>:= >*A>>>s >t> A>#>>>&>ŏ>!>כ>Ow>v>F> e>z>ݴ>Ϙ>^?
y?N7> ?>x)?^ ?{y?O?f3???65?`?%?-6?4S?0?r|>Y >?>һ ?߈>?$?g>6>Ȕ"?H>*g>&&>h>\>:>8H>pb>h-}>:>ơ>TN>,>s>;= > >D =l'>"ST8F] i=[a>= 6~x==8c==\ > >x >,QE ".lUM>QY@B=гķX>
<->t?)d=X>~.=`:<\=Ķk=W^}<ɼ"$D=Q%=O)>"<~="x#>$^ =gA;x*;<C=;7=z B>>>iX=sM=nr\6#9 H҇<*QY=t@=~L5l ^$=p_:="=D >~ZSe=,8;y>% <Q֭<}=D\Ѩ=c=>cY=9f`};C>#?L&~=|= ٻD=\=t7|=Aؼ
ۼC>NS->˩z=`q<=88\f9 ,rPC>h3>}>m:ݽ$==Qr|=F=꽻>~= f=yȪ=,<.
@мm<B6&< 7Ľ7砽r >cO#==P)1ihv;F>)Խ{hvv=aȽ>n:=`K=\=S?l==(yE:wO=[>3߽ ;*h= =8x;,
=B=& 0;ϰ }YR=>YX=9<뭾 ֽ|U=;z =}<w=K=KxeJo*̼ #/|> 6 coeffsp ? A @A hB * 8 d 0TMW0RGI Instructions Instructions Instructions h =a > H H L Xg( H H ( d h $ Normal <
B H H H H $ $ 0 d Z
Simulated Spectrum Graph
0 Use the table to change the peak values for the
four peaks.
coeff[0] - peak height
coeff[1] - peak half-width
coeff[2] - peak position
, Use the panel to change the amount of noise
or the graph title.
- Use the Update button to remake the spectrum
) after changing the noise or peak values.
, Use the SaveGraph button to save the graph.
2 It is sized to fit Letter Paper (8.5" x 11"). Use
( the Export Spectrum to save the data as
ASCII x y (tab delimited).
Single Peak Graph
& The coeffsp values make a single peak
. with zero baseline. Use the Export SinglePeak
% button to save the data as ASCII x y. Z , ^ & R l R * T n Times // Platform=Macintosh, IGORVersion=6.100, architecture=Intel
Silent 101 // use | as bitwise or -- not comment.
DefaultFont "Helvetica"
MoveWindow/P 380,237,884,643
Simulated()
Single()
Table0()
Panel0()
MoveWindow/C 13,705,750,862
OpenNotebook/N=Instructions/W=(799,360,1085,736)/J=67827 "Instructions"
Window Panel0() : Panel
PauseUpdate; Silent 1 // building window...
NewPanel /W=(1013,187,1178,325)
SetVariable setvar0,pos={10,28},size={80,15},proc=UpdateNoise,title="noise"
SetVariable setvar0,limits={0,1,0.01},value= betan
Button button0,pos={9,46},size={60,20},proc=b_UpdateSpectrum,title="Update"
Button button1,pos={76,46},size={80,20},proc=b_SaveGrap,title="Save Graph"
SetVariable name,pos={10,9},size={150,15},proc=SetName,title="name"
SetVariable name,value= _STR:"Simulated Spectrum 1"
Button button2,pos={13,98},size={140,20},proc=ExportSinglePeak,title="Export SinglePeak"
Button button3,pos={19,68},size={120,20},proc=ExportSpectrum,title="Export Spectrum"
EndMacro
Window Table0() : Table
PauseUpdate; Silent 1 // building window...
Edit/W=(797,54,1108,163) coeff1,coeff2,coeff3,coeff4,coeffsp
ModifyTable format(Point)=1,width(Point)=24,width(coeff1)=56,width(coeff2)=50,width(coeff3)=56
ModifyTable width(coeff4)=48,width(coeffsp)=54
EndMacro
Window Single() : Graph
PauseUpdate; Silent 1 // building window...
Display /W=(796,189,1003,333) singlepeak as "Single Peak"
ModifyGraph mode=2
ModifyGraph lSize=2
ModifyGraph rgb=(0,0,0)
SetAxis left 0,*
EndMacro
Window Simulated() : Graph
PauseUpdate; Silent 1 // building window...
Display /W=(2,62,794,674) spectrum as "Simulated Spectrum"
ModifyGraph margin(left)=72,margin(bottom)=108,margin(top)=72,margin(right)=72,width=648
ModifyGraph height=432
ModifyGraph mode=2
ModifyGraph marker=19
ModifyGraph lSize=2
ModifyGraph rgb=(0,0,0)
ModifyGraph msize=1
ModifyGraph mirror=2
ModifyGraph nticks=10
ModifyGraph minor(bottom)=1
ModifyGraph lblMargin(left)=18,lblMargin(bottom)=44
ModifyGraph standoff=0
ModifyGraph lblLatPos(left)=3,lblLatPos(bottom)=1
Label left "\\Z16Intensity (Lumens)"
Label bottom "\\Z16\\[0Angular Position (\\So\\M)"
SetAxis left 0,10.5
TextBox/C/N=text0/F=0 "\\f01\\Z16Simulated Spectrum 1"
TextBox/C/N=text1/F=0/A=MC/X=-38.50/Y=45.79 "\\Z16A"
TextBox/C/N=text1_1/F=0/A=MC/X=-17.18/Y=27.44 "\\Z16B"
TextBox/C/N=text1_2/F=0/A=MC/X=10.08/Y=36.70 "\\Z16C"
TextBox/C/N=text1_3/F=0/A=MC/X=37.73/Y=1.85 "\\Z16D"
EndMacro
? #pragma rtGlobals=1 // Use modern global access method.
Function UpdateSpectrum()
NVAR bn = betan
wave s = spectrum
wave sp = singlepeak
wave c1 = coeff1
wave c2 = coeff2
wave c3 = coeff3
wave c4 = coeff4
wave cs = coeffsp
wave n = noise
n = gnoise(bn)
s = (hfgauss(c1,x) + hfgauss(c2,x) + hfgauss(c3,x) + hfgauss(c4,x) + n) + 0.55
sp = hfgauss(cs,x) + n
return 0
end
Function HFGauss(ww,x)
wave ww
variable x
return (ww[0]*exp(-4*ln(2)*(x - ww[2])^2/ww[1]^2))
end
Function UpdateNoise(sva) : SetVariableControl
STRUCT WMSetVariableAction &sva
switch( sva.eventCode )
case 1: // mouse up
case 2: // Enter key
case 3: // Live update
UpdateSpectrum()
break
endswitch
return 0
End
Function b_UpdateSpectrum(ba) : ButtonControl
STRUCT WMButtonAction &ba
switch( ba.eventCode )
case 2: // mouse up
UpdateSpectrum()
// click code here
break
endswitch
return 0
End
Function b_SaveGrap(ba) : ButtonControl
STRUCT WMButtonAction &ba
switch( ba.eventCode )
case 2: // mouse up
// click code here
SavePICT/C=0/E=1/WIN=Graph0
break
endswitch
return 0
End
Function SetName(sva) : SetVariableControl
STRUCT WMSetVariableAction &sva
string graphTitle
switch( sva.eventCode )
case 1: // mouse up
case 2: // Enter key
case 3: // Live update
sprintf graphTitle, "\\f01\\Z16%s", sva.sval
TextBox/C/N=text0 graphTitle
break
endswitch
return 0
End
Function ExportSpectrum(ba) : ButtonControl
STRUCT WMButtonAction &ba
switch( ba.eventCode )
case 2: // mouse up
// click code here
wave s = spectrum
duplicate/FREE s spc
spc = pnt2x(s,p)
Save/J spc, s
break
endswitch
return 0
End
Function ExportSinglePeak(ba) : ButtonControl
STRUCT WMButtonAction &ba
switch( ba.eventCode )
case 2: // mouse up
// click code here
wave sp = singlepeak
duplicate/FREE sp spc
spc = pnt2x(sp,p)
Save/J spc, sp
break
endswitch
return 0
End
Window Simulated() : Graph
PauseUpdate; Silent 1 // building window...
Display /W=(2,62,794,674) spectrum as "Simulated Spectrum"
ModifyGraph margin(left)=72,margin(bottom)=108,margin(top)=72,margin(right)=72,width=648
ModifyGraph height=432
ModifyGraph mode=2
ModifyGraph marker=19
ModifyGraph lSize=2
ModifyGraph rgb=(0,0,0)
ModifyGraph msize=1
ModifyGraph mirror=2
ModifyGraph nticks=10
ModifyGraph minor(bottom)=1
ModifyGraph lblMargin(left)=18,lblMargin(bottom)=44
ModifyGraph standoff=0
ModifyGraph lblLatPos(left)=3,lblLatPos(bottom)=1
Label left "\\Z16Intensity (Lumens)"
Label bottom "\\Z16\\[0Angular Position (\\So\\M)"
SetAxis left 0,10.5
TextBox/C/N=text0/F=0 "\\f01\\Z16Simulated Spectrum 1"
TextBox/C/N=text1/F=0/A=MC/X=-38.50/Y=45.79 "\\Z16A"
TextBox/C/N=text1_1/F=0/A=MC/X=-17.18/Y=27.44 "\\Z16B"
TextBox/C/N=text1_2/F=0/A=MC/X=10.08/Y=36.70 "\\Z16C"
TextBox/C/N=text1_3/F=0/A=MC/X=37.73/Y=1.85 "\\Z16D"
EndMacro
Window Single() : Graph
PauseUpdate; Silent 1 // building window...
Display /W=(967,188,1174,332) singlepeak as "Single Peak"
ModifyGraph mode=2
ModifyGraph lSize=2
ModifyGraph rgb=(0,0,0)
SetAxis left 0,*
EndMacro