
 program$="TAplot 2.85" Ї (C) Copyright D M Price Ї January 26 2006( :+2 fore=15:back=0:warn%=╣:learn%=0:Unew%=5 < ы18:√fore:√back+128:ц0,fore:F ▐ chr 8EP ▐ C%(1E3),D$(25),A(25),B(25),M%(1E3),Z(100,100),T$(4),S$(30),a(7)Z у I%=0 ╕ 23: "KEY"+├(I%):э,d у I%=0 ╕ 25:D$(I%)="channel "+╜(I%+65):э#n у I%=0 ╕ 30:S$(I%)=─30,╜(32)):эx A$=─255," "):B$=" ":C$=B$:F$=B$:O$="":X$=A$:Y$=A$:Xlast$=D$(0):file$="":path$="":mask$="*.*":T1$="       ":T2$=T1$:M%(0)=27+В N%=1:D%=1:X%=0:Y1%=1:Y2%=-1:T1%=0:T2%=0,М XL=-1:XU=1:XI=0.2:Y1L=-1:Y1U=1.2:Y1I=0.2Ц Xlog%=г:Y1log%=г:Y2log%=г=а changed_flag%=╣:show%=╣:step%=0:filter%=0:learn%=0:ann%=гк Є_x_axis:Є_y1_axis┤ :5╛ ї я26,28,0,29,79,28,12,29,240;150;24,0;0;800;800;╚ U%=Unew%:Nmax%=6E4/(U%+3):█'╥ █:ё"  ";program$;К67);"│   f8   │";<▄ ё'"  Array size:             x ";Nmax%;К67)"│ accept │";&ц ї ёК14,1);:Unew%=дnumber(U%+1,╣)-1"Ё ¤ (Unew%>0 А Unew%<26) Д A=152· ¤ U%=Unew%▐ D(U%,Nmax%),E(Nmax%)(у I%=0 ╕ 1:у S%=0 ╕ 1:D(S%,I%)=0:э:э:"ю Е хНtxA,:6ї ї ч show%=г:хНD^A3@я26,28,0,29,79,28,12,29,240;150;24,0;0;800;800;cJё"  │  f1  │  f2  │   f3    │   f4   │   f5   │    f6    │    f7    │";:ч learn%=0:ё"  f8   │";dTё'"  │ file │ edit │ rescale │ replot │ modify │ annotate │ analysis │";:ч learn%=0:ё" macro │";^z%=дget:ч z%>144:z%=z%-96hч z%>64:z%=z%-8r¤ (z%=32 Д (z%>48 А z%<65))v|█:z%=z%+48*show%:ч ann% А ((z%>0 А z%<6) Д z%=12):ч м(дabort("WARNING: Annotations/results may be erased!")):хНtPAРЖю z% Єfile,Єedit,Єrescale,Єplot,Єmodify,Єannotate,Єanalysis,Єmacro,Єnull,Єnull,Єnull,Єdraw_graph,Єnull,Єnull,Єnull,Єnull,Єnull Л show%=дshowР¤ z%=-1Ъы3дро:╕Ї error handling┬@%=&90A:┘#0:*FX15╠я3,4,7:Єnormal:ц0,0:*ESC ON7╓ё'"Exit or Reset?":ї A$=дupper(╛):¤ A$="E" Д A$="R"рч A$="R":∙ъю Е З:ы3:Ў:ё" at line ";Ю'Їё"Type *BYE to exit"■р:	▌дget&ч learn%=1:m%=m%+1:q%=M%(m%):хНDDB&*ESC OFF0q%=е!:ч learn%=-1:m%=m%+1:M%(m%)=q%Dч q%=27:learn%=0	N*FX15X*ESC ONb=q%l:v▌дget$:=╜(дget)А:К▌Єnull:сФ:4Ю▌дshow:ч show%:learn%=learn%*3 Л learn%=learn%/3и=м(show%)▓:╝▌ЄsettingsK╞█:ё"  │    f1    │   f2   │  f3   │"'"  │ warnings │ filter │ reset │";=╨ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т" Д A$="У" Д A$="Ф"┌█Eфч A$="С":warn%=дalarm(warn%) Л ч A$="Т":Єfilter Л ч A$="У":Єresetюс°:▌дalarm(warn%),ёК2);"Warnings ";:ч warn%:ё"OFF" Л ё"ON"╤=0:ї ¤ С>100:=м(warn%) :*▌ЄfilterG4ч ann%:ч м(дabort("WARNING: Annotations/results may be erased!")):с>ї █:ёК2);"Plot: ";Hч filter%=-1:Єinvert#Rё"RIGHT to LEFT";:Єnormal:ё" ";\ч filter%=0:Єinvert"fё"RIGHT & LEFT";:Єnormal:ё" ";pч filter%=1:Єinvertzё"LEFT to RIGHT";:Єnormal*Дї A=дget:¤ A=13 Д A=27 Д A=136 Д A=137SОfilter%=filter%+(A=136)-(A=137):ч filter%<-1:filter%=1 Л ч filter%>1:filter%=-1Ш¤ A=13 Д A=27вЄdraw_graphмс╢:└▌Єmacro%╩ч learn%=-1 Д learn%=1:learn%=0:с╘█:ё"  │   f1   │  f2  │";▐ё'"  │ record │ play │";+шї A$=дget$:¤ A$="С" Д A$="Т" Д A$=╜(27)Єч A$="С":learn%=-1:m%=-1№ч A$="Т":learn%=1:m%=-1с:▌дget_name(T$,N$,i%)$d%=г.ї ч d%=╣:N$=дread_filename*8█:ёК63,0);"│  f7  │";:ч i%:ё;" f8  │";(BёК63,1);"│ path │";:ч i%:ё;" dir │";.LёК2,0);T$;"? ";path$;:N$=дtext_input(N$,╣)&Vч a=151:Єpath:a=0:ч d%=╣:Єdir(г)  !`ч a=152 А i%:Єdir(╣):d%=╣:a=0)jч (a>135 А a<140) А d%=╣:Єmove_cursort¤ a=13 Д a=27~=N$И:Т▌дread_filename(Ья26,31,(2+C%*20),(R%+1):A$="":A%=&876жу I%=1 ╕ 15:A$=A$+╜((║(&FFF4) А &FF00) Б 256):я9:э&░Єinvert:ёК2+C%*20,R%+1);A$:Єnormal║я28,0,29,79,28─=A$╬:
╪▌Єpath3т█:ёК0,0);"  Path? ";:path$=дtext_input(path$,1)ьсЎ: ▌Єdir(t%)?
ч t%:█:ё"  Template? ";:mask$=дtext_input(mask$,╣):ч a=27:с<R%=0:C%=0:я26,12: ("."+path$+mask$+" /w"):я28,0,29,79,28с(:2▌Єmove_cursor<я26:ёК2+C%*20,R%+1);N$DFC%=C%+(a=136 А C%>0)-(a=137 А C%<3):R%=R%+(a=139 А R%>0)-(a=138)PсZ:d▌дupper(A$)PnB$="":у I%=1 ╕ й(A$):J%=Ч(┴A$,I%,1)):J%=J%+32*(J%>96 А J%<123):B$=B$+╜(J%):эx=B$В:М▌дtext_input(a$,caps%)@ЦЄinvert:ё└a$+─40," "),40+20*(caps%=-1)+10*(caps%=1));:a=дget
а=дtextк:
┤▌дtext4╛у I%=1 ╕ 40+20*(caps%=-1)+10*(caps%=1):я8,32,8:э;╚ч a=13 Д a=27 Д (a>135 А a<140) Д (a>150 А a<156):хНTlF)╥l=й(a$):ч a=8 А l>0:a$=└a$,l-1):l=l-1▄ч a<>8:a$="":l=0'цї ч -Ф(caps%):ч a>96 А a<123:a=a-32ЕЁч (a>31 А a<127) Д (a>127 А a<138) Д (a>139 А a<152) Д a>155:ч l<40+20*(caps%=-1)+10*(caps%=1):ч caps%=0 Д a<>32:a$=a$+╜(a):l=l+1·ёa$;2ї a=дget:ч a=8 А l>0:a$=└a$,l-1):l=l-1:я8,32,8
¤ a<>8ч l>0:у I%=1 ╕ l:я8:э,"¤ a=13 Д a=138 Д a=139 Д (a>150 А a<156),Єnormal:ч a=155:a$=file$6ё└a$+─40," "),40);@=a$J:T▌Єinvert:√back:√fore+128:с^:h▌Єnormal:√fore:√back+128:сr:|▌дnumeric_input(pi%)&Жa$="":l=0:ч A=155:ёZ(0,0);:=Z(0,0)NРї ч (A>47 А A<58) Д ((A>42 А A<47) А pi%=г) Д A=69:ч l<11:a$=a$+╜(A):l=l+1Ъёa$;2дї A=дget:ч A=8 А l>0:a$=└a$,l-1):l=l-1:я8,32,8
о¤ A<>8╕ч A=101:A=69┬ч l>0:у I%=1 ╕ l:я8:э$╠¤ A=13 Д (A>129 А A<140) Д A>150
╓=╗(a$)р:ъ▌дnumber(N,pi%)-Ї@%=&01000606:Єinvert:ё┬─12," ")+├(N),11);^■ї A=дget:¤ A=13 Д A=27 Д (A>47 А A<58) Д ((A>42 А A<47) А pi%=г) Д (A>129 А A<140) Д A=152у l=1 ╕ 11:я8,32,8:эCч (A>47 А A<58) Д ((A>42 А A<47) А pi%=г):N=дnumeric_input(pi%)'Єnormal:ё└├(N)+─12," "),11);:@%=&90&=N0:
:▌ЄfileMDї █:ё"  │  f1  │  f2  │  f3  │  f4  │"'"  │ new  │ open │ save │ exit │";=Nї Z$=дget$:¤ Z$="С" Д Z$="Т" Д Z$="У" Д Z$="Ф" Д Z$=╜(27)Xч Z$="С":Єnewbч Z$="Т":Єopenlч Z$="У":Єsavevч Z$="Ф":ЄexitА¤ Z$<>"0"КсФ:
Ю▌Єsave5и█:ё"  │  f1   │   f2   │"'"  │ ASCII │ binary │";+▓ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т"╝ч A$=╜(27):Z$="0":с╞L%=дselect_limits╨Єfile_out┌Єdraw_graphфсю:
°▌ЄopenXч changed_flag%=г:ч м(дabort("WARNING: Existing data has not been saved!")):Z$="0":сDlast%=D%:learn%=learn%*3)ї file$=дget_name("Filename",file$,╣)2 F%=0:ч a<>27:F%=О(path$+file$):ч F%=0:file$=""*¤ F%<>0 Д a=27:4learn%=learn%/3:ч a=27:Z$="0":D%=Dlast%:file$="":┘#0:с*>█:ч Ъ#F%<26:Єbinary_load Л Єascii_load#Hч A$=╜(27) Д O$=╜(27):┘#0:хНTVHRч D%=0:Єone_channel~\changed_flag%=╣:X%=0:Y1%=-1:Y2%=-1:T1%=0:T2%=0:T1$="       ":T2$=T1$:Xlast$=" ":ч D%<U%:у S%=D%+1 ╕ U%:D$(S%)="untitled":эf█:Єplotpсz:Д▌Єascii_loadKО█:ё"  │     f1     │      f2      │"'"  │ Auto-start │ Manual-start │";+Шї A$=дget$:¤ A$="С" Д A$="Т" Д A$=╜(27)вч A$=╜(27):с8м█:ч A$="С":start%=дauto_start Л start%=дmanual_start^╢speed%=г:D%=дnumber_of_channels(A$):N%=дover_add:ч N%=-1:Єsignal_titles Л ч O$=╜(27):хНtNHA└L%=дselect_limits:ё"  Filename: ";path$+file$'"  Loading...";:╩Єascii_get_data:ч N%<0 А L%>-1:F%=О(path$+file$):хНd@H╘с▐:ш▌Єone_channel.Єу I%=0 ╕ N%:D(1,I%)=D(0,I%):D(0,I%)=I%+1:э7№D$(1)=D$(0):D$(0)="data point":D%=1:changed_flag%=г	с	:	▌дover_add$$	ч Dlast%=U% А D%<U%:O$="0":хНD`I3.	█:ё" │    f1     │";:ч Dlast%<=D%:ё"   f2   │";28	ё'" │ overwrite │";:ч Dlast%<=D%:ё" append │";7B	ч Dlast%<U%:ёК22,0);"│  f3   │";К22,1);"│ merge │";TL	learn%=learn%*3:ї O$=дget$:¤ O$="С" Д O$="Т" Д O$="У" Д O$=╜(27):learn%=learn%/3V	ч O$=╜(27):=N%)`	ч O$="0" Д O$="С":d%=D%:ч d%>U%:d%=U%j	ч O$="Т":d%=Dlast%t	ч O$="У":d%=U%-Dlast%,~	у S%=0 ╕ D%:B(S%)=(S%<=d%):э:e%=d%:Q%=D%&И	ї █:ё"  Select channels to load:";!Т	у S%=0 ╕ D%:ч B(S%)=╣:Єinvert$Ь	ёК27+S%*2,0);╜(65+S%);:Єnormal:эKж	ч ((e%<d% А O$<>"Т") Д e%=d%):ёК67,0);"│   f8   │";К67,1);"│ accept │";7░	A=Ч(дupper(дget$)):ч A>64 А A<91:B(A-65)=м(B(A-65))#║	e%=-1:у S%=0 ╕ D%:e%=e%-B(S%):э2─	¤ (A=152 А ((e%<d% А O$<>"Т") Д e%=d%)) Д A=270╬	ч A=27 А O$<>"0":хНTnI Л ч A=27:O$=╜(27):=N%@╪	changed_flag%=(O$="С" Д O$="0"):d%=-1:ч O$="Т":D%=Dlast%:=N%%т	ч O$="У":d%=Dlast%:D%=Dlast%+e%+1ь	ч O$="С":D%=e%@Ў	s%=d%:у S%=0 ╕ Q%:ч B(S%):s%=s%+1:D$(s%)="channel "+╜(65+S%) 
э

=-1
:
▌Єbinary_load;(
╧#F%=0:speed%=╣:ш#F%,D%:N%=дover_add:s%=d%:ч O$=╜(27):с92
у S%=0 ╕ Q%:ш#F%,A$:ч N%=-1:ч B(S%):s%=s%+1:D$(s%)=A$<
э&F
start%=П#F%:ч N%=-1:Єsignal_titlesAP
L%=дselect_limits:ё"  Filename: ";path$+file$'"  Loading...";;Z
Єbinary_get_data:ч N%<0 А L%>-1:F%=О(path$+file$):хНDPJd
сn
:x
▌Єbinary_get_dataВ
O%=-1:╧#F%=start%:*ESC OFFМ
ї у S%=0 ╕ Q%:ш#F%,A(S%):э'Ц
ч L%>-1:ч A(L%)<LL Д A(L%)>LU:хНdHJ9а
N%=N%+1:O%=O%+1:s%=d%:ч (O% Г step%)<>0:N%=N%-1:хНdHJ.к
у S%=0 ╕ Q%:ч B(S%):s%=s%+1:D(s%,N%)=A(S%)┤
э╛
ч N%=Nmax%:Єcompact_data╚
¤ ┼#F% Д ж(0)=27 Д step%<1╥
┘#F%:*FX15▄
*ESC ONц
сЁ
:·
▌Єsetup_titles9S$(1)="time (hr)":S$(2)="time (min)":S$(3)="time (s)"MS$(4)="temperature (°C)":S$(5)="temperature (K)":S$(6)="temperature (°F)"2S$(7)="heat flow (mW)":S$(8)="heat flow (W/g)"+"S$(9)="weight (mg)":S$(10)="weight (%)"<,S$(11)="length (цm)":S$(12)="length (mm)":S$(13)="tan ы"<6S$(14)="E' (GPa)":S$(15)="E' (MPa)":S$(16)="log[E'(Pa)]"?@S$(17)="E"" (MPa)":S$(18)="E"" (kPa)":S$(19)="log[E""(Pa)]"4JS$(20)="frequency (Hz)":S$(21)="frequency (kHz)"?TS$(22)="e'":S$(23)="log[e']":S$(24)="e""":S$(25)="log[e""]"P^S$(26)="wavelength (nm)":S$(27)="wavelength (цm)":S$(28)="wavenumber (cm-1)"hсr:|▌Єsignal_titles8ЖЄsetup_titles:█:ёК67);"│   f8   │"'К67)"│ accept │";$Ря26,28,13,(15+D%/2),73,(12-D%/2)Ъё"┌";─53,"─");"┐"5ду S%=0 ╕ D%:D$(S%)=└D$(S%),40):A$=┬" "+├(S%+1),2)+оё"│ Channel ";A$;": ";D$(S%);К54);"│":э╕ё"└";─53,"─");"┘":S%=0┬ї Єinvert.╠ёК14,S%+1);└D$(S%)+─40," "),40);К14,S%+1); ╓D$(S%)=дsignal_title(D$(S%))$рёК14,S%+1);└D$(S%)+─40," "),40);'ъS%=S%+(a=139 А S%>0)-(a=13 Д a=138)Ї¤ S%>D% Д a=152■я28,0,29,79,28,12с:▌дsignal_title(a$)!&S$(0)=a$:c%=0:caps%=г:Єinvert0ї a$=S$(c%):ё└a$+─40," "),40);/Da=дget:c%=c%+(a=132 А c%>0)-(a=133 А c%<30)Nу I%=1 ╕ 40:я8:эAX¤ a=8 Д a=13 Д (a>31 А a<127) Д a=138 Д a=139 Д a=152 Д a>2235bч a<>13 А a<>138 А a<>139 А a<>152:ёЙ(40);:=дtextlЄnormal:ч c%=0 Д a=152:=a$vЄdelete_title(c%)АI%=0:A$=┴a$,зa$,"[")+1,2)DКї I%=I%+1:B$=┴S$(I%),зS$(I%),"[")+1,2):ч A$=B$:Єdelete_title(I%)Ф¤ I%=30Ю=a$и:▓▌Єdelete_title(c%),╝у J%=c%+1 ╕ 30:S$(J%-1)=S$(J%):э:I%=I%-1╞с╨:┌▌дauto_startфI%=0:P%=04юї ╧#F%=P%:ш#F%,A$:ч дnumerics_only(A$):¤ 1=1:=P%°ч └A$,1)=╜(10):A$=┴A$,2)P%=П#F%:I%=I%+1¤ г: ▌дnumerics_only(A$)(*p1%=г:p2%=╣:ч └A$,1)=╜(10):A$=┴A$,2)"4у J%=1 ╕ й(A$):A%=Ч(┴A$,J%,1))&>ч A%>58 А (A%<>69 Д A%<>101):p1%=╣Hч A%>47 А A%<59:p2%=гRэ\=p1%=г А p2%=гf:p▌дmanual_startzI%=0:E(I%)=0 Дї ╧#F%=E(I%):ш#F%,A$:ёК2);A$'Ої A%=дget:¤ A%=13 Д A%=138 Д A%=139Шч A%=138:I%=I%+1:E(I%)=П#F%вч A%=139 А I%>0:I%=I%-1м¤ ┼#F% Д A%=13╢█:=E(I%)└:╩▌дselect_limits+╘█:ёК67);"│   f8   │"'К67);"│ accept │";"▐L%=-1:inc=0:я26,28,13,20,73,11Cшё"┌";─53,"─");"┐"'"│ Select limits: ";К54);"│"'"└";─53,"─");"┘"ЄЄinvert>№ї ёК17,1);:ч L%=-1:ё"none";Й(33); Л ё└D$(L%)+─40," "),37);3I%=дget:L%=L%+(I%=132 А L%>-1)-(I%=133 А L%<D%)!ч L%>D%:L%=D% Л ч L%<-1:L%=-1¤ I%=13 Д I%=152!$Єnormal:ёК17,1);Й(37);К17,1);.ч L%=-1:ё"none":хНtHN-8ёD$(L%):ч D$(L%)=Xlast$:LL=XL:LU=XU:хНDLN-BLU=1E36:LL=-1E36:ч Z$="У":Єchannel_limits)LёК0,2)"│";Й(53);"│"'"└";;─53,"─");"┘"6V@%=&01000606:ёК2,2);"Between: ";LL;К31,2)"&: ";LU;+`ёК11,2);:LL=дnumber(LL,г):ч A=152:хНDtN+jёК34,2);:LU=дnumber(LU,г):ч A=136:хНD`N$t@%=&90:ч LL>LU:LS=LL:LL=LU:LU=LS~ч Z$="У":inc=дincrementИч Z$="Т":step%=дsample_rateТя26,28,0,29,79,28,12Ь=L%ж:░▌Єchannel_limitsE║у I%=0 ╕ N%:ч D(L%,I%)>LU:LU=D(L%,I%) Л ч D(L%,I%)<LL:LL=D(L%,I%)─э╬с╪:т▌дincrement>ьёК0,3)"│";Й(53);"│"'"└";;─53,"─");"┘";К2,3);"Increment: ";Ў=Ф(дnumber(0,г)) :
▌дsample_rate\ёК0,2-(L%<>-1))"│";Й(53);"│"'"└";;─53,"─");"┘";К2,2-(L%<>-1));"Data reduction factor: ";=1+дnumber(0,╣)(:2▌дnumber_of_channels(A$)<ч └A$,1)=╜(10):A$=┴A$,2)FA$=╜(32)+A$:C%=-14Pу I%=2 ╕ й(A$):A%=Ч(┴A$,I%-1,1)):B%=Ч(┴A$,I%,1))MZч A%=9 Д A%=32 Д A%=44 Д A%=58:ч B%<>9 А B%<>32 А B%<>44 А B%<>58:C%=C%+1dэn=C%x:В▌Єascii_get_dataМ*ESC OFFЦ╧#F%=start%:O%=-11аї O%=O%+1:ш#F%,A$:ч (O% Г step%)=0:Єread_dataк¤ ┼#F% Д ж(0)=27 Д step%<1	┤*FX15╛┘#F%:*ESC ON╚с╥:▄▌Єread_dataцЄread_line(A$):ч S%<>Q%:с#Ёч L%>-1:ч A(L%)<LL Д A(L%)>LU:с·N%=N%+1:s%=d%.у S%=0 ╕ Q%:ч B(S%):s%=s%+1:D(s%,N%)=A(S%)эч N%=Nmax%:Єcompact_data"с,:6▌Єread_line(A$)@ч └A$,1)=╜(10):A$=┴A$,2)+JA$=дupper(╜(32)+A$):I%=1:S%=-1:C%=й(A$)Tї S%=S%+1^ї I%=I%+1%hA%=Ч(┴A$,I%-1,1)):B%=Ч(┴A$,I%,1))Brч I%>C% Д (A%>58 А A%<>69) Д (A%<32 А A%<>9):¤ 1=1:S%=99:хНtPPI|¤ (A%=9 Д A%=32 Д A%=44 Д A%=58) А (B%<>9 А B%<>32 А B%<>44 А B%<>58)ЖA(S%)=╗(┴A$,I%)):I%=I%+1Р¤ S%>=Q%Ъсд:о▌Єcompact_dataL╕ч step%<2:ч м(дabort("WARNING: Data overflow! Compress?")):step%=0:хНdVP;┬у I%=0 ╕ N% И 2:у S%=0 ╕ D%:D(S%,(I% Б 2))=D(S%,I%):э:э╠N%=N%/2:step%=step%*2╓ср:	ъ▌ЄnewVЇч changed_flag%=г:ч м(дabort("WARNING: Existing data has not been saved!")):Z$="0"2■ї █:ё"  Number of channels? ";:D%=дnumber(2,╣)¤ D%>1 А D%<U%+2Cу S%=0 ╕ U%:D$(S%)="channel "+╜(65+S%):э:D%=D%-1:Єsignal_titles5ї █:ё"  Number of data points? ";:N%=дnumber(2,╣)&¤ N%>1 А N%<1000120N%=N%-1:у R%=0 ╕ N%:у C%=0 ╕ D%:D(C%,R%)=0:э:э:ЄeditorDсN:X▌Єfile_outPblearn%=learn%*3:file$=дget_name("Filename",file$,г):learn%=learn%/3:ч a=27:сVlF%=О(path$+file$):┘#F%:ч F%<>0:█:ч м(дabort("WARNING: File exists! Overwrite?")):с0v█:ё"  Filename: ";path$+file$'"  Saving...";7АF%=о(path$+file$):changed_flag%=╣:ч L%>-1:target=LL'Кч A$="Т":Єbinary_save Л Єascii_saveФ┘#F%Юси:▓▌Єascii_save4╝Єwrite(D$(0)):у S%=1 ╕ D%:Єwrite(╜(44)+D$(S%)):э╞╒#F%,13:╒#F%,10╨start%=П#F%:speed%=г9┌у I%=0 ╕ N%:ч L%>-1:ч D(L%,I%)<LL Д D(L%,I%)>LU:хНTBR5фу S%=0 ╕ D%:A(S%)=D(S%,I%):э:ч inc>0:Єinterpolate8юЄwrite(├(A(0))):у S%=1 ╕ D%:Єwrite(╜(44)+├(A(S%))):э°╒#F%,13:╒#F%,10эс: ▌Єwrite(A$)&*у J%=1 ╕ й(A$):╒#F%,Ч(┴A$,J%,1)):э4с>:H▌Єbinary_save.Rspeed%=╣:ё#F%,D%:у S%=0 ╕ D%:ё#F%,D$(S%):э\start%=П#F%9fу I%=0 ╕ N%:ч L%>-1:ч D(L%,I%)<LL Д D(L%,I%)>LU хНtDR5pу S%=0 ╕ D%:A(S%)=D(S%,I%):э:ч inc>0:Єinterpolatezу S%=0 ╕ D%:ё#F%,A(S%):эДэОсШ:в▌Єinterpolate'мї I%=I%+1:¤ target<D(L%,I%) Д I%=N%'╢ї I%=I%-1:¤ target>=D(L%,I%) Д I%=0J└ч D(L%,I%+1)<>D(L%,I%):S=(target-D(L%,I%))/(D(L%,I%+1)-D(L%,I%)) Л S=08╩у S%=0 ╕ D%:A(S%)=D(S%,I%)+(D(S%,I%+1)-D(S%,I%))*S:э╘target=target+inc▐сш:
Є▌ЄeditI№█:ё"  │  f1  │   f2   │    f3    │"'"  │ data │ titles │ settings │";4ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т" Д A$="У"ч A$=╜(27):сч A$="У":Єsettings:сQ$ч changed_flag%=г:ч м(дabort("WARNING: Existing data has not been saved!")):с.ч A$="С":Єeditor:с'8ч A$="Т":Єsignal_titles:Єdraw_graphBсL:V▌Єeditor
`я26,12Pjnum_row%=25:num_col%=5:top_row%=0:end_row%=0:l_col%=0:r_col%=5:row%=0:col%=0tї~ч num_row%>N%:num_row%=N%Ич num_row%>25:num_row%=25/Тч top_row%>N%-num_row%:top_row%=N%-num_row%Ьч top_row%<0:top_row%=0)жч end_row%<num_row%:end_row%=num_row%░ч end_row%>N%:end_row%=N%║ч num_col%>D%:num_col%=D%─ч num_col%>5:num_col%=5+╬ч l_col%>D%-num_col%:l_col%=N%-num_col%╪ч l_col%<0:l_col%=0%тч r_col%<num_col%:r_col%=num_col%ьч r_col%>D%:r_col%=D%Ў@%=&01000606: ёК1,0);"┌";─num_col%,─11,"─")+"┬");─11,"─");"┐";Й(16);
у line%=top_row% ╕ end_row%ёК1,line%-top_row%+1);"│";у series%=l_col% ╕ r_col%-(number$=└├(D(series%,line%))+─20," "),11)62ёК(series%-l_col%)*12+2,line%-top_row%+1);number$;
<ё;"│";FэPё;Й(12);ZэDdёК1,num_row%+2);"└";─num_col%,─11,"─")+"┴");─11,"─");"┘";Й(79-▒)nч ╝<28:ёК0,╝);Й(79):хНDnTJxёК1,28);"Row: ";┬"    "+├(row%+1),5);К1,29);"Column: ";D$(col%);Й(40);,Вї ёК(col%-l_col%)*12+2,row%-top_row%+1);(МD(col%,row%)=дnumber(D(col%,row%),г)Ц¤ A=27 Д (A>129 А A<140)hач A=134 Д A=135:Єinvert:ёК(col%-l_col%)*12+2,row%-top_row%+1);└├(D(col%,row%))+─20," "),11);:Єnormalкч A=134:Єinsert_data┤ч A=135:Єdelete_data╛ч A=130:row%=0╚ч A=131:row%=N%╥col%=col%-(A=137)+(A=136)▄ч col%<0:col%=0цч col%>D%:col%=D%2Ёч col%<l_col%:l_col%=col%:r_col%=col%+num_col%2·ч col%>r_col%:r_col%=col%:l_col%=col%-num_col%3row%=row%-(A=138)+(A=139)-26*(A=133)+26*(A=132)ч row%<0:row%=0ч row%>N%:row%=N%8"ч row%<top_row%:top_row%=row%:end_row%=row%+num_row%8,ч row%>end_row%:end_row%=row%:top_row%=row%-num_row%
6¤ A=27E@@%=&90:X%=0:Y1%=-1:Y2%=-1:T1%=0:T2%=0:T1$="       ":T2$=T1$:XL=XU	JЄplotTс^:h▌Єinsert_datarч D%=U% А N%=Nmax%:с%|ч D%=U% А N%<Nmax%:A$="С":хНtdU  #Жч D%<U% А N%=Nmax%:A$="Т":хНtdUNРёК0,28);Й(79)'Й(79);К1,28);"│  f1  │   f2   │";К1,29);"│ row  │ column │";+Ъї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т"2дч A$="С":Єrow_insert Л ч A$="Т":Єcolumn_insertоёК0,28);Й(79)'Й(79);╕с┬:╠▌Єrow_insertH╓ёК0,28);Й(79)'Й(79);К1,28);"Number of rows: ";:n%=дnumber(1,╣):A=134*рч n%=0:с Л ч row%=N%:row%=row%+1:хНdtU<ъу R%=N% ╕ row% И -1:у C%=0 ╕ D%:D(C%,R%+n%)=D(C%,R%):э:э=Їу R%=row% ╕ row%+n%-1:у C%=0 ╕ D%:D(C%,R%)=0:э:э:N%=N%+n%■num_row%=N%с:▌Єcolumn_insert&ч col%=D%:col%=col%+1:хНDNV90у C%=D% ╕ col% И -1:у R%=0 ╕ N%:D(C%+1,R%)=D(C%,R%):э;:ч D$(C%)="channel "+╜(C%+65):D$(C%)="channel "+╜(C%+66)DD$(C%+1)=D$(C%):э&Nу R%=0 ╕ N%:D(col%,R%)=0:э:D%=D%+16XёК1,28);Й(78)'Й(78);К1,28);"Channel ";col%+1;": ";1bD$(col%)=дtext_input("channel "+╜(col%+65),г)lч num_col%<5:num_col%=D%vсА:К▌Єdelete_dataФч D%=1 А N%=0:сЮч D%=1 А N%>0:A$="С":хНdPVич D%>1 А N%=0:A$="Т":хНdPV▓ёК0,28);Й(79)'Й(79);;╝ёК1,28);"│  f1  │   f2   │";К1,29);"│ row  │ column │";+╞ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т"8╨ч A$="С":Єrow_delete(row%) Л ч A$="Т":Єcolumn_delete┌ёК0,28);Й(79)'Й(79);фсю:°▌Єrow_delete(R1%)ёК0,28);Й(79)'Й(79);@ёК1,28);"Row: ";R1%+1;К17,28);"to: ";:R2%=дnumber(R1%+1,╣)-11ч R1%>R2%:R%=R2%:R2%=R1%:R1%=R%:ч R1%<0:R1%=0# A=135:R1%=R2%-R1%+1:ч R1%>=N%:с!*ч R2%>=N%:N%=N%-R1%:row%=N%:с94у R%=R2%+1 ╕ N%:у C%=0 ╕ D%:D(C%,R%-R1%)=D(C%,R%):э:э>N%=N%-R1%HсR:\▌Єcolumn_deletefч col%=D%:D%=D%-1:col%=D%:с6pу C%=col%+1 ╕ D%:у R%=0 ╕ N%:D(C%-1,R%)=D(C%,R%):э7zч D$(C%)="channel "+├(C%+1):D$(C%)="channel "+├(C%)ДD$(C%-1)=D$(C%):эОD%=D%-1Шсв:
м▌Єplot╢я26,28,10,15,74,11?└ё"┌";─51,"─");"┬";─7,"─");"┐"'"│ x-axis : ";К52)"│ type: │"X╩ё"│ y-axis : ";:ч Y1%=-1 ё"not defined"; Л ч Y1log%:ё"log[";D$(Y1%);"]"; Л ёD$(Y1%);╘ёК52)"│";T1$;"│"X▐ё"│ y'-axis: ";:ч Y2%=-1 ё"none       "; Л ч Y2log%:ё"log[";D$(Y2%);"]"; Л ёD$(Y2%);шёК52)"│";T2$;"│""Єё"└";─51,"─");"┴";─7,"─");"┘";.№Єselect_axis(X%,-1,1,Xlog%):X%=A%:Xlog%=T%2Єselect_axis(Y1%,-1,2,Y1log%):Y1%=A%:Y1log%=T%ч I%=139:хНd|W3T%=T1%:T$=T1$:Єselect_type(Y1%,2):T1%=T%:T1$=T$$ч I%=136:хНTFX.ч D%=1:хНD`X38Єselect_axis(Y2%,Y1%,3,Y2log%):Y2%=A%:Y2log%=T%Bч I%=139:хНTFX3LT%=T2%:T$=T2$:Єselect_type(Y2%,3):T2%=T%:T2$=T$#Vч I%=136:хНTxX Л ч I%=139:хНTZX,`ч Xlast$<>D$(X%):XU=0:XL=0:Xlast$=D$(X%)jЄscale:Єdraw_graphtс~:И▌Єselect_axis(x%,y%,c%,t%)ТЄinvert:I%=0Ьї ч c%<3 А x%<0:x%=0жч c%>1:ч x%=X%:x%=x%+1 ░ч c%=3:ч x%=y%:x%=x%+1:хНtfX║ч x%>D%:x%=-1:хНdvX─ч c%=3:A$="none"+╬ч x%>-1:A$=D$(x%):ч t%:A$="log["+A$+"]"╪ёК11,c%);└A$+─40," "),40);тI%=дget:ч I%=9:t%=м(t%))ьx%=x%+(I%=132)-(I%=133):ч x%<-1:x%=-18Ў¤ I%=13 Д (I%=137 А c%>1) Д I%=138 Д (I%=139 А c%>1)0 Єnormal:ёК11,c%);A$;Й(40-й(A$));:A%=x%:T%=t%
с:▌Єselect_type(x%,c%),(Єinvert:ч x%=-1:T$="       ":T%=-1:хНDdY2їh<ч T%=1:T$=" ───── " Л ч T%=2:T$=" ----- " Л ч T%=3:T$=" ooooo " Л ч T%=4:T$=" xxxxx " Л T$="       "FёК53,c%);T$CPI%=дget:T%=T%+(I%=132)-(I%=133):T%=0-T%*(T%>-1 А T%<5)-4*(T%<0)8Z¤ I%=13 Д I%=136 Д (I%=138 А c%=2) Д (I%=139 А c%=3)dЄnormal:ёК53,c%);T$nсx:В▌ЄscaleМч XL<>XU:хНt~YЦXL=1E30:XU=-1E30)ау I%=0 ╕ N%:ч D(X%,I%)<XL:XL=D(X%,I%)кч D(X%,I%)>XU:XU=D(X%,I%)┤э)╛Y1L=1E30:Y1U=-1E30:Y2L=1E30:Y2U=-1E301╚у I%=0 ╕ N%:ч D(X%,I%)<XL Д D(X%,I%)>XU:хНTDZ!╥ч D(Y1%,I%)<Y1L:Y1L=D(Y1%,I%)!▄ч D(Y1%,I%)>Y1U:Y1U=D(Y1%,I%)цч Y2%=-1:хНTDZ!Ёч D(Y2%,I%)<Y2L:Y2L=D(Y2%,I%)!·ч D(Y2%,I%)>Y2U:Y2U=D(Y2%,I%)э1ч XL=XU:XL=XL*.9:XU=XU*1.1:ч XL=XU:XL=-1:XU=1.XI=дinc(XU,XL):ч Xlog%:ч XL<1E-30:XL=1E-30;"ч Y1L=Y1U:Y1L=Y1L*.9:Y1U=Y1U*1.1:ч Y1L=Y1U:Y1L=-1:Y1U=1,Y1I=дinc(Y1U,Y1L)96ч м(Y1log%):Y1L=и(Y1L/Y1I)*Y1I:Y1U=(и(Y1U/Y1I)+1)*Y1I"@ч Y1log%:ч Y1L<1E-30:Y1L=1E-30Jч Y2%=-1:с$Tч Y2L=Y2U:Y2L=Y2L*.9:Y2U=Y2U*1.1^ч Y2L=Y2U:Y2L=-1:Y2U=1hY2I=дinc(Y2U,Y2L)9rч м(Y2log%):Y2L=и(Y2L/Y2I)*Y2I:Y2U=(и(Y2U/Y2I)+1)*Y2I"|ч Y2log%:ч Y2L<1E-30:Y2L=1E-30ЖсР:Ъ▌Єto_log"дч Xlog%:XL=л(XL):XU=л(XU):XI=1(оч Y1log%:Y1L=л(Y1L):Y1U=л(Y1U):Y1I=11╕ч Y2%>-1:ч Y2log%:Y2L=л(Y2L):Y2U=л(Y2U):Y2I=1┬с╠:╓▌Єfrom_log,рч Xlog%:XL=10^XL:XU=10^XU:XI=дinc(XU,XL)4ъч Y1log%:Y1L=10^Y1L:Y1U=10^Y1U:Y1I=дinc(Y1U,Y1L)=Їч Y2%>-1:ч Y2log%:Y2L=10^Y2L:Y2U=10^Y2U:Y21=дinc(Y2U,Y2L)■с:▌Єdraw_graphЄto_log
&ann%=г)0Є_x_axis:Є_y1_axis:ч Y2%>-1:Є_y2_axis5:Єdraw_curve(XL,XU,Y1L,Y1U,X%,Y1%,Y1log%,0,N%,T1%)>Dч Y2%>-1:Єdraw_curve(XL,XU,Y2L,Y2U,X%,Y2%,Y2log%,0,N%,T2%)NЄfrom_log:я28,0,29,79,28Xсb:l▌Є_x_axisvя26,12,5,29,240;150;$Аь0,0:▀0,800:▀800,800:▀800,0:▀0,0КXS=800/(XU-XL):@%=&01000606Фу x=и(XL/XI)*XI ╕ XU И XI#ЮX=(x-XL)*XS:ч X<0 Д X>800:хНdP[иьX,0:Ё1,0,-8▓X$=├(x):ч Xlog%:X$=├(10^x)B╝ч м(Xlog%) Д (Xlog% А (x>-2 А x<3)):ьX-(й(X$)*7),-20:ёX$:хНdP["╞ьX-28,-20:ё"10":ьX+4,-12:ё├(x)╨ч м(Xlog%):хНTB\┌у i%=1 ╕ 9фX=(x-XL+л(i%))*XS!юч м(X<0 Д X>800):ьX,0:Ё1,0,-4°ээ6X=400-й(D$(X%))*7:Є_print_horizontal(D$(X%),X,-50)я4 с*:4▌Є_y1_axis>я26,5,29,240;150;&HY1S=800/(Y1U-Y1L):@%=&01000606:x=0"Rу y=и(Y1L/Y1I)*Y1I ╕ Y1U И Y1I\ч Ф(y)<Y1I/2:y=0%fY=(y-Y1L)*Y1S:ч Y<0 Д Y>800:хНtl\pь0,Y:Ё1,-8,0zY$=├(y):ч Y1log%:Y$=├(10^y)ДX=-20-й(Y$)*16:ч X<x:x=X:Оч м(Y1log%) Д (Y1log% А (y>-2 А y<3)):ьX,Y+7:ёY$:хНtl\ШX=16*(y>0 А y<10)-16*(y<-9)#вь-84-X,Y:ё"10":ь-52-X,Y+7:ё├(y)мч м(Y1log%):хНd^\╢у i%=1 ╕ 9└Y=(y-Y1L+л(i%))*Y1S!╩ч м(Y<0 Д Y>800):ь0,Y:Ё1,-4,0╘э▐э6шY$=D$(Y1%):ч Y2%>-1:ч T1$<>T2$:Y$=┴T1$,2,3)+" "+Y$-ЄY=400-й(Y$)*8:Є_print_sideways(Y$,x-30,Y)№@%=&90:я4с:▌Є_y2_axis$я26,5,29,240;150;(.Y2S=800/(Y2U-Y2L):@%=&01000606:x=800"8у y=и(Y2L/Y2I)*Y2I ╕ Y2U И Y2IBч Ф(y)<Y2I/2:y=0  %LY=(y-Y2L)*Y2S:ч Y<0 Д Y>800:хНtz]Vь800,Y:Ё1,8,0`Y$=├(y):ч Y2log%:Y$=├(10^y)jX=820+й(Y$)*16:ч X>x:x=X<tч м(Y2log%) Д (Y2log% А (y>-2 А y<3)):ь820,Y+7:ёY$:хНtH]~ь820,Y:ё"10":ь852,Y+7:ё├(y)Ич м(Y2log%):хНtz]Ту i%=1 ╕ 9ЬY=(y-Y2L+л(i%))*Y2S"жч м(Y<0 Д Y>800):ь800,Y:Ё1,4,0░э║э-─Y$=D$(Y2%):ч T1$<>T2$:Y$=┴T2$,2,3)+" "+Y$-╬Y=400-й(Y$)*8:Є_print_sideways(Y$,x+22,Y)╪@%=&90A:я4тсь:Ў▌Є_print_horizontal(a$,X,Y) у i%=1 ╕ й(a$)&
?chr=Ч(┴a$,i%,1)):ч ?chr<128:хНtB^я23,128,0,0,0,0,0,0,0,00ч ?chr=224:я23,128,0,0,118,220,200,220,118,04(ч ?chr=225:я23,128,0,120,204,248,204,248,192,19222ч ?chr=227:я23,128,0,254,108,108,108,108,108,03<ч ?chr=230:я23,128,0,102,102,102,102,124,96,1922Fч ?chr=233:я23,128,56,108,198,254,198,108,56,03Pч ?chr=234:я23,128,56,108,198,198,108,108,238,01Zч ?chr=235:я23,128,28,48,24,124,204,204,120,00dч ?chr=238:я23,128,56,96,192,248,192,96,56,0.nч ?chr=241:я23,128,48,48,252,48,48,0,252,0-xч ?chr=248:я23,128,56,108,108,56,0,0,0,0 &ВьX,Y:ч ?chr<128:ё╜(?chr) Л ё╜(128)
МX=X+16Цэаск:┤▌Є_print_sideways(a$,X,Y)╛Xtemp%=X%:Ytemp%=Y%	╚A%=&A╥X%=chr Г 256▄Y%=chr Б 256цу i%=1 ╕ й(a$)Ё?chr=Ч(┴a$,i%,1))·ч ?chr>127:хНD^_╓ &FFF1у j=0 ╕ 7
a(j)=0"у k=1 ╕ 8,,a(j)=a(j)-2^(8-k)*((chr?k В 2^j)<=chr?k)6э@э3Jя23,128,a(0),a(1),a(2),a(3),a(4),a(5),a(6),a(7)	TхНdV_^я23,128,0,0,0,0,0,0,0,0&hч ?chr=196:я23,128,8,8,8,8,8,8,8,8-rч ?chr=224:я23,128,0,34,54,28,54,34,62,28.|ч ?chr=225:я23,128,0,0,40,124,84,84,127,631Жч ?chr=227:я23,128,0,64,126,126,64,126,126,64.Рч ?chr=230:я23,128,0,120,124,4,4,126,127,12Ъч ?chr=233:я23,128,0,56,124,214,146,214,124,562дч ?chr=234:я23,128,0,50,126,206,128,206,126,500оч ?chr=235:я23,128,0,156,190,242,82,18,30,121╕ч ?chr=238:я23,128,0,0,146,146,146,214,124,56.┬ч ?chr=241:я23,128,0,0,34,34,250,250,34,34.╠ч ?chr=248:я23,128,0,0,96,240,144,240,96,0╓ьX,Y:ё;╜(128)
рY=Y+16ъэЇX%=Xtemp%:Y%=Ytemp%■с :2 ▌Єdraw_curve(XL,XU,YL,YU,X%,Y%,Ylog%,A%,B%,T%)" я26,29,240;150;24,0;0;800;800;& p%=00 у I%=A%+1 ╕ B%-: x0=D(X%,I%-1):ч Xlog%:ч x0>1E-30:x0=л(x0)+D x1=D(X%,I%):ч Xlog%:ч x1>1E-30:x1=л(x1)-N y0=D(Y%,I%-1):ч Ylog%:ч y0>1E-30:y0=л(y0)+X y1=D(Y%,I%):ч Ylog%:ч y1>1E-30:y1=л(y1)1b x0=(x0-XL)*800/(XU-XL):x1=(x1-XL)*800/(XU-XL)-l ч (x0<0 Д x0>800) А (x1<0 Д x1>800):хНtT`1v y0=(y0-YL)*800/(YU-YL):y1=(y1-YL)*800/(YU-YL)-А ч (y0<0 Д y0>800) А (y1<0 Д y1>800):хНtT`yК ч T%=1:Є_solid_line(x0,y0,x1,y1) Л ч T%=2:Є_broken_line(x0,y0,x1,y1) Л ч T%=3:Є_circle(x0,y0):Л ч T%=4:Є_cross(x0,y0)Ф э2Ю ч T%=3:Є_circle(x1,y1):Л ч T%=4:Є_cross(x1,y1)и с▓ :╝ ▌Є_solid_line(x0,y0,x1,y1)#╞ ч ┤(x0-x1)=filter% А (x0<>x1):с╨ ьx0,y0:▀x1,y1┌ сф :ю ▌Є_broken_line(x0,y0,x1,y1)$° ч ┤(x0-x1)=filter% А (x0<>x1):с !l=╢((x1-x0)^2+(y1-y0)^2)!ч l=0:с!у n=0 ╕ l !x=x0+n/l*(x1-x0)*!y=y0+n/l*(y1-y0)4!ч (p% Г 16)<8:Ё69,x,y>!p%=p%+1H!эR!с\!:f!▌Є_circle(x,y))p!ьx-6,y-2:Ё1,0,4:Ё1,4,4:Ё1,4,0:Ё1,4,-4$z!Ё1,0,-4:Ё1,-4,-4:Ё1,-4,0:Ё1,-4,4Д!сО!:Ш!▌Є_cross(x,y)в!ьx-4,y-4:▀x+4,y+4м!ьx-4,y+4:▀x+4,y-4╢!с└!:╩!▌дinc(U,L)╘!O=л(Ф(U-L)):I=10^(и(O)-1)*2▐!ч O-и(O)>л(2):I=I*2ш!ч O-и(O)>л(5):I=I*2.5Є!=┤(U-L)*I№!:"▌дcursor(c%,e%,s%)"@%=&01000606%"ч c%>0:C%=C%(c%-1)-(C%(c%-1)<>N%)B$"ч c%=0:L%=X%:inc=0:I%=N%/2:target=(XL+XU)/2:Єinterpolate:C%=I%."ч e%=0:ёК2);"Cursor:";98"ч e%>0:ёК(c% Г 2)*40+2,(c%>1)*-1);"Cursor ";c%+1;":";!B"ц4,fore:Єinvert:Єto_log:*FX15)L"ї X=D(X%,C%):ч X>1E-30 А Xlog%:X=л(X)V"Єdraw_cursor(s%) `"a$=┬─12," ")+├(D(X%,C%)),11)8j"ч e%=0:ёК10,0);a$; Л ёК(c% Г 2)*40+12,(c%>1)*-1);a$;
t"A=дget~"Єdraw_cursor(s%)-И"C%=C%+(A=136)-(A=137)+5*(A=128)-5*(A=129)Т"ч C%<0:C%=0 Л ч C%>N%:C%=N%+Ь"¤ A=13 Д (A=45 Д (A>47 А A<58)) Д A=155ж"ч e%>0 А A<>13:Єfind_point ░"у S%=0 ╕ D%:A(S%)=D(S%,C%):э!║"ч e%=0 А A<>13:Єreturn_values─"ц0,fore:ЄnormalA╬"ч e%>0:ёК(c% Г 2)*40+12,(c%>1)*-1);└├(D(X%,C%))+─12," "),11);╪"@%=&90:ч c%=3:ёт"=C%ь":Ў"▌Єdraw_cursor(s%). #ч s%=-1:Ё4,(X-XL)/(XU-XL)*800,0:Ё1,0,800:с
#Y=D(Y%,C%):ч Ylog%:Y=л(Y)-#x=(X-XL)/(XU-XL)*800:y=(Y-YL)/(YU-YL)*800>#Ё4,x,y-16:Ё1,0,32:Ё4,x-4,y-4:Ё1,8,0:Ё1,0,8:Ё1,-8,0:Ё1,0,-8(#ч s%=0:с2#Y=D(Y2%,C%):ч Y2log%:Y=л(Y)0<#x=(X-XL)/(XU-XL)*800:y=(Y-Y2L)*800/(Y2U-Y2L):F#Ё4,x,y-16:Ё1,0,32:Ё4,x-4,y-4:Ё1,8,8:Ё4,x-4,y+4:Ё1,8,-8P#сZ#:d#▌Єreturn_values4n#ёК10,0);Й(11);К10,0);:target=дnumeric_input(pi%)"x#inc=0:L%=X%:I%=C%:ЄinterpolateВ#сМ#:Ц#▌Єfind_pointAа#ёК(c% Г 2)*40+12,(c%>1)*-1);Й(11);К(c% Г 2)*40+12,(c%>1)*-1);*к#target=дnumeric_input(pi%):error=XU-XL<┤#у I%=0 ╕ N%:B=Ф(D(X%,I%)-target):ч B<error:error=B:C%=I%╛#э╚#с╥#:▄#▌Єrescaleaц#ё"  │   f1   │   f2   │"'"  │ cursor │ manual │";К35,0);"│    f4    │";К35,1);"│ all data │";IЁ#ч Y2%>-1:ч Y1log%=Y2log%:ёК27,0);"f3      │";К22,1);"y & y' equal │";I·#ч changed_flag% А file$<>"":ёК67,0);"│   f8   │";К67,1);"│ update │";$ї A$=дget$$¤ A$=╜(27) Д A$="С" Д A$="Т" Д (A$="У" А Y2%>-1 А Y1log%=Y2log%) Д A$="Ф" Д ((A$="Ш" Д A$="и") А changed_flag% А file$<>"")$█"$ч A$=╜(27):с,$ч A$="С":Єcursor_rescale6$ч A$="Т":Єmanual_rescale@$ч A$="У":Єset_y_axes_equalJ$ч A$="Ф":XL=XU:ЄscaleT$ч A$="Ш":Єupdate^$ч A$="и":Єauto_update:сh$Єdraw_graphr$с|$:Ж$▌Єcursor_rescaleCР$у J%=0 ╕ 1:C%(J%)=дcursor(J%,1,╣):X=D(X%,C%(J%)):ч Xlog%:X=л(X).Ъ$ь(X-XL)/(XU-XL)*800,0:Ё2,0,800:Єfrom_log:э9д$XL=D(X%,C%(0)):XU=D(X%,C%(1)):ч XU<XL:L=XU:XU=XL:XL=L
о$Єscale╕$с┬$:╠$▌Єmanual_rescaleZ╓$A(0)=XL:A(1)=XU:A(2)=XI:A(3)=Y1L:A(4)=Y1U:A(5)=Y1I:ч Y2%>-1:A(6)=Y2L:A(7)=Y2U:A(8)=Y2I-р$J%=0:ёК67);"│   f8   │"'К67)"│ accept │";ъ$ї я26,28,15,17,75,118Ї$у I%=0 ╕ 8 И 3:A(I%+2)=Ф(A(I%+2))*┤(A(I%+1)-A(I%)):э■$@%=&010006069%ё"┌──────┬─────────────┬─────────────┬─────────────┐"9%ё"│ axis │   minimum   │   maximum   │  increment  │"9%ё"│  x   │             │             │             │"9&%ё"│  y   │             │             │             │"90%ё"│  y'  │             │             │             │"::%ё"└──────┴─────────────┴─────────────┴─────────────┘";+D%у I%=0 ╕ 8:ёК(I% Г 3)*14+9,(I% Б 3)+2);1N%ч I%>5 А Y2%=-1:ё"    none" Л ё;└├(A(I%)),12)X%э b%ёК(J% Г 3)*14+9,(J% Б 3)+2);Pl%ч (J% Г 3)<2:A(J%)=дnumber(A(J%),г):Л A(J%)=дnumber(дinc(A(J%-1),A(J%-2)),г)*v%ч A=13 Д (A=137 А (J% Г 3)<>2):J%=J%+1!А%ч A=136:ч (J% Г 3)<>0:J%=J%-17К%ч A=138:ч (J%<6 А Y2%>-1) Д (J%<3 А Y2%=-1):J%=J%+3Ф%ч A=139 А J%>2:J%=J%-3$Ю%¤ J%=9 Д (J%=6 А Y2%=-1) Д A=152
и%@%=&90Z▓%XL=A(0):XU=A(1):XI=A(2):Y1L=A(3):Y1U=A(4):Y1I=A(5):ч Y2%>-1:Y2L=A(6):Y2U=A(7):Y2I=A(8)1╝%у I%=0 ╕ N%:ч D(X%,I%)<XL Д D(X%,I%)>XU:хНdPe!╞%ч A%>I%:A%=I% Л ч B%<I%:B%=I%╨%э┌%сф%:ю%▌Єset_y_axes_equal°%ч Y1U<Y2U:Y1U=Y2U&ч Y1L>Y2L:Y1L=Y2L&Y1I=дinc(Y1U,Y1L)9&ч м(Y1log%):Y1L=и(Y1L/Y1I)*Y1I:Y1U=(и(Y1U/Y1I)+1)*Y1I &Y2U=Y1U:Y2L=Y1L:Y2I=Y1I*&с4&:>&▌Єupdate,H&L%=X%:LL=XL:LU=XU:N%=-1:ё"  Updating..."/R&ї F%=О(path$+file$):ч step%>1:step%=step%-1/\&ч speed%:Єbinary_get_data Л Єascii_get_data	f&L%=-1p&¤ N%>-1
z&ЄscaleД&сО&:Ш&▌Єauto_update/в&█:ё"  Refresh rate: ";:delay%=дnumber(10,╣)м&old_warn%=warn%:warn%=г╢&█:ё"  Updating...";└&ї N%=-1╩&ї F%=О(path$+file$)/╘&ч speed%:Єbinary_get_data Л Єascii_get_data▐&*ESC OFF
ш&¤ N%>0$Є&N%=N%-1:XL=XU:Єscale:Єdraw_graph№&ё"  Updating...";'*ESC OFF'q%=ж(delay%*1E2)	'*FX15$'*ESC ON.'¤ q%=278'warn%=old_warn%B'сL':V'▌ЄannotateK`'█:ё"  │  f1  │  f2   │  f3  │  f4 │"'"  │ text │ point │ line │ box │";=j'ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т" Д A$="У" Д A$="Ф"t'ч A$=╜(27):с/~'x=400:y=400:p=0:s=1:у I%=0 ╕ 4:T$(I%)=" ":э.И'ч A$="С":Єedit_result:Єdisplay_result(x,y)Т'ч A$="Т":Єmark_pointЬ'ч A$="У":Єmark_lineж'ч A$="Ф":Єmark_box░'ц0,fore║'с─':╬'▌Єedit_result╪'█:J%=0:H%=0/т'ї ёК67,0);"│   f8   │";К67,1);"│ accept │";<ь'ёК2,H%);"Line #";J%+1;": ";:T$(J%)=дtext_input(T$(J%),г)+Ў'I%=(a=139 А J%>0)-(a=138 А J%<4)-(a=13)* (J%=J%+I%:ч I%<>0:H%=-1*(I%=1):я(11-H%)
(¤ a=152 Д (a=13 А J%>4)(с(:((▌Єdisplay_result(x,y)E2(█:ё"  │   f1   │   f2   │  f3  │"'"  │ accept │ reject │ edit │";<(я5:ц4,fore:x=x-4*й(T$(0))F(ї *FX155P(у I%=0 ╕ 4:Є_print_horizontal(T$(I%),x,y-16*I%):эZ(B$=дget$:J%=Ч(B$)5d(у I%=0 ╕ 4:Є_print_horizontal(T$(I%),x,y-16*I%):эYn(x=x+4*(J%=136 Д J%=130 Д J%=131)-4*(J%=137 Д J%=132 Д J%=133)+16*(J%=128)-16*(J%=129)Ax(y=y+4*(J%=138 Д J%=131 Д J%=133)-4*(J%=139 Д J%=130 Д J%=132)В(ч J%=13:x=400:y=400 М(¤ B$="С" Д B$="Т" Д B$="У"Ц(ч B$="Т":я4:с"а(ч B$="У":я4:Єedit_result:хНTrhGк(ц0,fore:у I%=0 ╕ 4:Є_print_horizontal(T$(I%),x,y-16*I%):э:я4:ann%=╣┤(с╛(:╚(▌Єmark_pointX╥(Єcursor:T$(0)=" x: "+├(A(X%)):T$(1)=" y: "+├(A(Y1%)):ч Y2%>-1:T$(2)="y': "+├(A(Y2%)):▄(Єdraw_cross(x,y):Єdisplay_result(x,y):Єdraw_cross(x,y)ц(сЁ(:·(▌Єcursor,)@%=&01000606:█:ц4,fore:Єto_log:p=1:*FX15%)ї Ё4,x,0:Ё1,0,800:Ё4,0,y:Ё1,800,03)A(X%)=(x*(XU-XL))/800+XL:ч Xlog%:A(X%)=10^A(X%):")A(Y1%)=(y*(Y1U-Y1L))/800+Y1L:ч Y1log%:A(Y1%)=10^A(Y1%)C,)ч Y2%>-1:A(Y2%)=(y*(Y2U-Y2L))/800+Y2L:ч Y2log%:A(Y2%)=10^A(Y2%)66)█:ёК13,0);"x:";К29,0);"y:":ч Y2%>-1:ёК45,0);"y':";@)ч p=1:Єinvert*J)ёК16,0);┬─12," ")+├(A(X%)),11):ЄnormalT)ч p=2:Єinvert+^)ёК32,0);┬─12," ")+├(A(Y1%)),11):Єnormalh)ч p=3:Єinvert4r)ч Y2%>-1:ёК49,0);┬─12," ")+├(A(Y2%)),11):Єnormal)|)A=дget:ч A=9:p=p+1:ч p>2-(Y2%>-1):p=1#Ж)Ё4,x,0:Ё1,0,800:Ё4,0,y:Ё1,800,0/Р)ч A=45 Д (A>47 А A<58) Д A=155:Єfind_point27Ъ)x=x+(A=136 Д A=130 Д A=131)-(A=137 Д A=132 Д A=133)7д)y=y+(A=138 Д A=131 Д A=133)-(A=139 Д A=130 Д A=132)
о)¤ A=13╕)Єfrom_log┬)с╠):╓)▌Єfind_point21р)Єinvert:ёК16*p-(p=3),0);Й(11);К16*p-(p=3),0);iъ)ч p=1:A(X%)=дnumeric_input(pi%) Л ч p=2:A(Y1%)=дnumeric_input(pi%) Л ч p=3:A(Y2%)=дnumeric_input(pi%)Ї)ч Xlog%:A(X%)=л(A(X%))■)ч Y1log%:A(Y1%)=л(A(Y1%))&*ч Y2%>-1:ч Y2log%:A(Y2%)=л(A(Y2%))\*x=(A(X%)-XL)*800/(XU-XL):y=(A(Y1%)-Y1L)*800/(Y1U-Y1L):ч p=3:y=(A(Y2%)-Y2L)*800/(Y2U-Y2L)*Єnormal:A=0&*с0*::*▌Єdraw_cross(x,y)%D*Ё4,x-8,y:Ё1,16,0:Ё4,x,y-8:Ё1,0,16N*сX*:b*▌Єmark_lineZl*Єcursor:x1=x:y1=y:Єdraw_cross(x1,y1):Z(0,1)=A(X%):Z(0,2)=A(Y1%):ч Y2%>-1:Z(0,3)=A(Y2%)Zv*Єcursor:x2=x:y2=y:Єdraw_cross(x2,y2):Z(1,1)=A(X%):Z(1,2)=A(Y1%):ч Y2%>-1:Z(1,3)=A(Y2%)rА*T$(0)=" dx: "+├(Ф(Z(0,1)-Z(1,1))):T$(1)=" dy: "+├(Ф(Z(0,2)-Z(1,2))):ч Y2%>-1:T$(2)="dy': "+├(Ф(Z(0,3)-Z(1,3)))jК*ьx1,y1:▀x2,y2:Єdisplay_result((x1+x2)/2,(y1+y2)/2):ьx1,y1:▀x2,y2:Єdraw_cross(x1,y1):Єdraw_cross(x2,y2)Ф*сЮ*:и*▌Єmark_boxX▓*Єcursor:x1=x:y1=y:Єdraw_cross(x,y):Z(0,1)=A(X%):Z(0,2)=A(Y1%):ч Y2%>-1:Z(0,3)=A(Y2%)Z╝*Єcursor:x2=x:y2=y:Єdraw_cross(x1,y1):Z(1,1)=A(X%):Z(1,2)=A(Y1%):ч Y2%>-1:Z(1,3)=A(Y2%)&╞*ьx1,y1:▀x2,y1:▀x2,y2:▀x1,y2:▀x1,y1D╨*у I%=1 ╕ 3:ч Z(0,I%)>Z(1,I%):d=Z(0,I%):Z(0,I%)=Z(1,I%):Z(1,I%)=d┌*эmф*T$(0)=├(Z(0,1))+"<x<"+├(Z(1,1)):T$(1)=├(Z(0,2))+"<y<"+├(Z(1,2)):ч Y2%>-1:T$(2)=├(Z(0,3))+"<y'<"+├(Z(1,3))Kю*Єdisplay_result((x1+x2)/2,(y1+y2)/2):ьx1,y1:▀x2,y1:▀x2,y2:▀x1,y2:▀x1,y1°*с+:+▌Єanalysis+B$="С":ч Y2%=-1:хНDHk9 +█:ё"  │   f1   │    f2   │"'"  │ y-axis │ y'-axis │";+*+ї B$=дget$:¤ B$=╜(27) Д B$="С" Д B$="Т"4+ч B$=╜(27):с.>+ч B$="Т":Y%=Y2%:YL=Y2L:YU=Y2U:Ylog%=Y2log%.H+ч B$="С":Y%=Y1%:YL=Y1L:YU=Y1U:Ylog%=Y1log%cR+█:ё"  │   f1  │  f2  │";:ч м(Ylog%) А м(Xlog%):ё"  f3   │  f4  │   f5   │  f6  │     f7     │";b\+ё'"  │ point │ peak │";:ч м(Ylog%) А м(Xlog%):ё" onset │ area │ change │ step │ polynomial │";Жf+ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т" Д ((A$="У" Д A$="Ф" Д A$="Х" Д A$="Ц" Д A$="Ч" Д A$="д" Д A$="ж") А (м(Ylog%) А м(Xlog%)))p+ч A$=╜(27) А Y2%>-1:хНTVkz+ч A$=╜(27) А Y2%:с7Д+E%=1:ч A$<>"У" А A$<>"Ф" А A$<>"Ц" А A$<>"ж" х Нd|k#О+ч A$="Ф":хНtlk Л ч A$="Ц":хНdJkEШ+█:ё"  │    f1     │     f2     │"'"  │ two point │ four point │";	в+хНdTkBм+█:ё"  │  f1  │   f2    │";:ч Y2%=-1 А D%<U%:ё"     f3      │";A╢+ё'"  │ full │ partial │";:ч Y2%=-1 А D%<U%:ё" cummulative │";	└+хНdTk]╩+█:ё"  │    f1     │            │    f3     │"'"  │ two point │            │ six point │";╘+ї C$=дget$^▐+¤ C$=╜(27) Д C$="С" Д (C$="Т" А A$<>"Ц") Д (C$="У" А (A$="Ц" Д (A$="Ф" А Y2%=-1 А D%<U%)))ш+ч C$=╜(27) хНDRk`Є+ч C$="С" Д (A$="Ф" А C$="У"):E%=1 Л ч C$="Т":E%=3 Л ч C$="У":E%=5 Л ч (A$="Ф" А C$="У"):E%=1№+█:ч A$="С":E%=0,ч Ylog%:YL=л(YL):YU=л(YU)',у J%=0 ╕ E%:C%(J%)=дcursor(J%,E%,г),X=A(X%):ч Xlog%:X=л(X)$,Y=A(Y%):ч Ylog%:Y=л(Y)4.,ь(X-XL)/(XU-XL)*800,(Y-YL)/(YU-YL)*800-8:Ё1,0,168,Єfrom_logB,эL,ч A$="С":хНtHlV,у J%=1 ╕ E%:у K%=1 ╕ E%;`,ч C%(K%-1)>C%(K%):C%=C%(K%-1):C%(K%-1)=C%(K%):C%(K%)=C%j,э:э(t,ч E%=3:C%=C%(1):C%(1)=C%(3):C%(3)=C%(~,ч E%=5:C%=C%(1):C%(1)=C%(5):C%(5)=C%0И,Єto_log:@%=&0100050A:у I%=0 ╕ 4:T$(I%)=" ":эТ,ч A$="С":ЄpointЬ,ч A$="Т":Єpeakж,ч A$="У":Єonset░,ч A$="Ф":Єarea║,ч A$="Х":Єchange─,ч A$="Ц":Єstep╬,ч A$="Ч":Єpolynomial#╪,ч A$="д":x%=X%:X%=0:Єarea:X%=x%т,ч A$="ж":Єstep2?ь,у J%=0 ╕ E%:ч A$<>"С":A(X%)=D(X%,C%(J%)):A(Y%)=D(Y%,C%(J%))Ў,X=A(X%):ч Xlog%:X=л(X) -Y=A(Y%):ч Ylog%:Y=л(Y)4
-ь(X-XL)/(XU-XL)*800,(Y-YL)/(YU-YL)*800-8:Ё1,0,16-э-Єfrom_log:ц0,fore:@%=&90A(-с2-:<-▌Єpoint-F-x=(X-XL)/(XU-XL)*800:y=(Y-YL)/(YU-YL)*800(P-ч B$="С":T$(1)=" y: " Л T$(1)="y': ";Z-T$(0)=" x: "+├(A(X%)):T$(1)=T$(1)+├(A(Y%)):Z(0,0)=A(Y%):d-Єdraw_cross(x,y):Єdisplay_result(x,y):Єdraw_cross(x,y)n-сx-:
В-▌Єpeak/М-D1=0:Z%=C%(0):Z=(D(Y%,C%(0))+D(Y%,C%(1)))/20Ц-█:ё"  Smoothing fraction? ";:W%=дnumber(0,╣)+а-у I%=C%(0) ╕ C%(1):A(X%)=0:A(Y%)=0:n%=0Jк-у J%=I%-W% ╕ I%+W%:A(X%)=A(X%)+D(X%,J%):A(Y%)=A(Y%)+D(Y%,J%):n%=n%+1:эS┤-A(X%)=A(X%)/n%:A(Y%)=A(Y%)/n%:D2=Ф(A(Y%)-Z):ч D2>D1:D1=D2:X=A(X%):Y=A(Y%):K%=I%╛-э3╚-target=X:inc=0:L%=X%:I%=K%:Єinterpolate:Y=A(Y%)8╥-T$(0)=" peak : "+├(X):T$(1)="value : "+├(Y):Z(0,0)=X▄-ч Xlog%:X=л(X)ц-ч Ylog%:Y=л(Y).Ё-Єdraw_peak:Єdisplay_result(x,y):Єdraw_peak·-с.:.▌Єdraw_peak>.x=(X-XL)/(XU-XL)*800:y=(Y-YL)/(YU-YL)*800:Єdraw_cross(x,y)".с,.:6.▌Єonset	@.Z%=Y%>J.ч E%=1:M1=дslope(C%(0)-3,7) Л M1=дslope(C%(0),C%(3)-C%(0))T.C1=sumy/n-M1*sumx/n>^.ч E%=1:M2=дslope(C%(1)-3,7) Л M2=дslope(C%(2),C%(1)-C%(2)))h.C2=sumy/n-M2*sumx/n:D=(C2-C1)/(M1-M2)"r.T$(0)="onset : "+├(D):Z(0,0)=D|.T$(1)="value :"+├(M1*D+C1)0Ж.Єdraw_onset:Єdisplay_result(x,y):Єdraw_onsetР.сЪ.:д.▌Єdraw_onset5о.x=(D-XL)/(XU-XL)*800:y=((M1*D+C1)-YL)/(YU-YL)*800 ╕.y=((M1*D+C1)-YL)/(YU-YL)*800D┬.ь(D(X%,C%(0))-XL)/(XU-XL)*800,(M1*D(X%,C%(0))+C1-YL)/(YU-YL)*800╠.▀x,yD╓.▀(D(X%,C%(1))-XL)/(XU-XL)*800,(M2*D(X%,C%(1))+C2-YL)/(YU-YL)*800р.съ.:
Ї.▌Єarea■.cum%=(C$="У")/Єselect_baselineG/D=0:Ylast=D(Y%,C%(0)):ч C$="Ф":Ylast=D(Y%,C%(1)) Л ч C$="Х":Ylast=0/Єdraw_area&/у I%=C%(0) ╕ C%(1)-150/D=D+(D(Y%,I%)+D(Y%,I%+1))*(D(X%,I%+1)-D(X%,I%))/2=:/Y=дbaseline:D=D-(Ylast+Y)*(D(X%,I%+1)-D(X%,I%))/2:Ylast=YD/ч cum%:D(D%+1,I%)=DN/ч E%=3 А I%<C%(3):F=DX/ч E%=3 А I%<C%(2):E=Db/эl/ч cum%:Єcummulative_area:сv/ч E%=3:F=E-F:E=F/D:D=F/А/█:ё"  Integration factor? ";:m=дnumber(1,г))К/T$(0)="    area : "+├(D*m):Z(0,0)=D*m#Ф/ч E%=3:T$(1)="fraction : "+├(E)#Ю/Єdisplay_result(x,y):Єdraw_areaи/с▓/:╝/▌Єselect_baselineС╞/█:ё"  │   f1   │     f2     │    f3     │   f4   │        f5         │"'"  │ linear │ horizontal │ tangental │ spline │ integral baseline │";;╨/ї C$=дget$:¤ C$="С" Д C$="Т" Д C$="У" Д C$="Ф" Д C$="Х"#┌/d=D(X%,C%(1))-D(X%,C%(0)):Z%=Y%Nф/s0=(D(Y%,C%(1))-D(Y%,C%(0))):s1=дslope(C%(0)-3,7)*d:s2=дslope(C%(1)-3,7)*d#ю/ч C$="Ф":Єcubic_baseline:C$="Ч"&°/ч C$="Х":Єintegral_baseline:C$="Ш"?0ч C$="У":Єtangental_baseline Л ч C$="Т":Єhorzontal_baseline0█0с 0:*0▌Єhorzontal_baselinee40█:ё"  │     f1    │     f2     │      f3       │"'"  │ from left │ from right │ use data zero │";)>0ї C$=дget$:¤ C$="С" Д C$="Т" Д C$="У"H0ч C$="У":C$="Ф"R0ч C$="Т":C$="У"\0ч C$="С":C$="Т"f0сp0:z0▌Єtangental_baselineEД0█:ё"  │     f1    │     f2     │"'"  │ from left │ from right │"; О0ї C$=дget$:¤ C$="С" Д C$="Т"Ш0ч C$="Т":C$="Ц"в0ч C$="С":C$="Х"м0с╢0:└0▌Єcubic_baseline'╩0c=1/d:y1=D(Y%,C%(0)):y2=D(Y%,C%(1))╘0у I%=C%(0) ╕ C%(1)▐0x1=D(X%,I%)-D(X%,C%(0))ш0x2=D(X%,I%)-D(X%,C%(1))YЄ0E(I%)=y1*c^2*x2^2*(1+2*c*x1)+y2*c^2*x1^2*(1-2*c*x2)+s1/d*c^2*x1*x2^2+s2/d*c^2*x1^2*x2№0э1с1:1▌Єintegral_baseline$$1D=0:Ylast=D(Y%,C%(0)):E(C%(0))=0.1у I%=C%(0) ╕ C%(1)-1581D=D+(D(Y%,I%)+D(Y%,I%+1))*(D(X%,I%+1)-D(X%,I%))/2 B1t=(D(X%,I%+1)-D(X%,C%(0)))/dL1Y=D(Y%,C%(0))+s0*t1V1D=D-(Ylast+Y)*(D(X%,I%+1)-D(X%,I%))/2:Ylast=Y`1E(I%+1)=Dj1э&t1у I%=C%(0) ╕ C%(1):E(I%)=E(I%)/D:э~1сИ1:Т1▌дbaselineЬ1ч C$="Т":=D(Y%,C%(0))ж1ч C$="У":=D(Y%,C%(1))░1ч C$="Ф":=0 ║1t=(D(X%,I%)-D(X%,C%(0)))/d─1ч C$="С":=D(Y%,C%(0))+s0*t╬1ч C$="Х":=D(Y%,C%(0))+s1*t "╪1ч C$="Ц":=D(Y%,C%(1))-s2*(1-t)т1ч C$="Ч":=E(I%)Iь1ч C$="Ш":=(D(Y%,C%(0))+s1*t)*(1-E(I%))+(D(Y%,C%(1))-s2*(1-t))*(E(I%))Ў1: 2▌Єdraw_area0
2x=(D(X%,C%(0))+D(X%,C%(1))-2*XL)/(XU-XL)*40002y=(D(Y%,C%(0))+D(Y%,C%(1))-2*YL)/(YU-YL)*4002ч E%=3:C%=C%(3) Л C%=C%(0)8(2ь(D(X%,C%)-XL)/(XU-XL)*800,(D(Y%,C%)-YL)/(YU-YL)*80022ч C%(1)-C%(0)<2:хНDxr<2у I%=C%(0) ╕ C%(1)&F2ч E%=3:ч I%<C%(3) Д I%>C%(2):хНDdrP2Y=дbaseline1Z2▀(D(X%,I%)-XL)/(XU-XL)*800,(Y-YL)/(YU-YL)*800d2эn2ч E%=3:C%=C%(2) Л C%=C%(1)8x2▀(D(X%,C%)-XL)/(XU-XL)*800,(D(Y%,C%)-YL)/(YU-YL)*800В2сМ2:Ц2▌Єcummulative_area*а2D%=D%+1:D$(D%)="area (%)":Y2%=D%:T2%=1к2у I%=0 ╕ C%(0):D(D%,I%)=0:э ┤2у I%=C%(1) ╕ N%:D(D%,I%)=D:э)╛2у I%=0 ╕ N%:D(D%,I%)=D(D%,I%)*100/D:э(╚2Єdraw_area:Y2log%=г:Єscale:Є_y2_axis7╥2Єdraw_curve(XL,XU,Y2L,Y2U,X%,Y2%,0,C%(0),C%(1),T2%)▄2сц2:Ё2▌Єchange>·2Z(0,0)=D(Y%,C%(1))-D(Y%,C%(0)):T$(0)="change : "+├(Z(0,0))23Єdraw_change:Єdisplay_result(x,y):Єdraw_change3с3:"3▌Єdraw_change0,3x=(D(X%,C%(0))+D(X%,C%(1))-2*XL)/(XU-XL)*400063y=(D(Y%,C%(0))+D(Y%,C%(1))-2*YL)/(YU-YL)*400C@3x1=(D(X%,C%(0))-XL)/(XU-XL)*800:y1=(D(Y%,C%(0))-YL)/(YU-YL)*800CJ3x2=(D(X%,C%(1))-XL)/(XU-XL)*800:y2=(D(Y%,C%(1))-YL)/(YU-YL)*800бT3ьx1,y1:▀x2,y1:▀x2-8,y1+8*((y1>y2)-(y2>y1)):ьx2,y1:▀x2+8,y1+8*((y1>y2)-(y2>y1)):ьx2,y1:▀x2,y2:▀x2-8,y2+8*((y1<y2)-(y2<y1)):ьx2,y2:▀x2+8,y2+8*((y1<y2)-(y2<y1))^3сh3:r3▌Єpolynomial0|3█:ё"  Order? ";:o%=дnumber(1,╣):@%=&0100040A(Ж3ч o%=0:Єmean Л ч o%=1:Єline Л ЄcurveР3сЪ3:
д3▌ЄlineWо3█:ё"  │       f1       │       f2       │"'"  │ use all points │ use end points │";+╕3ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т"3┬3ч A$=╜(27):с Л █:ч A$="Т":s%=C%(1)-C%(0) Л s%=1$╠3█:ч A$="Т":s%=C%(1)-C%(0) Л s%=14╓3n%=0:sumx=0:sumy=0:sumx2=0:sumy2=0:sumxy=0:syx=09р3у I%=C%(0) ╕ C%(1) И s%:x=D(X%,I%):y=D(Y%,I%):n%=n%+1Mъ3sumx=sumx+x:sumy=sumy+y:sumx2=sumx2+x^2:sumy2=sumy2+y^2:sumxy=sumxy+x*y:эVЇ3m=(n%*sumxy-sumx*sumy)/(n%*sumx2-sumx^2):Z(0,0)=m:c=sumy/n%-m*sumx/n%:ч n%<3:хНTHtQ■3у I%=C%(0) ╕ C%(1):x=D(X%,I%):y=D(Y%,I%):syx=syx+(y-m*x-c)^2:э:syx=syx/(n%-2)N4merror=╢(n%*syx/(n%*sumx2-sumx^2)):cerror=╢((syx*sumx2)/(n%*sumx2-sumx^2))D4T$(0)="    slope : "+├(m):ч merror>0:T$(0)=T$(0)+" ё "+├(merror)D4T$(1)="intercept : "+├(c):ч cerror>0:T$(1)=T$(1)+" ё "+├(cerror).&4Єdraw_line:Єdisplay_result(x,y):Єdraw_line04ч B$="Т":сI:4█:ё"  │    f1    │      f2       │"'"  │ continue │ read point(s) │"; D4ї A$=дget$:¤ A$="С" Д A$="Т"N4ч A$="Т":Єread_pointsX4сb4:l4▌Єdraw_line0v4x=(D(X%,C%(0))+D(X%,C%(1))-2*XL)/(XU-XL)*4008А4y=(m*D(X%,C%(0))+m*D(X%,C%(1))-2*YL+2*c)/(YU-YL)*400BК4ь(D(X%,C%(0))-XL)/(XU-XL)*800,(m*D(X%,C%(0))-YL+c)/(YU-YL)*800BФ4▀(D(X%,C%(1))-XL)/(XU-XL)*800,(m*D(X%,C%(1))-YL+c)/(YU-YL)*800Ю4си4:▓4▌Єread_points$╝4p=1:ї C$=" y:":ч Y%=Y2%:C$="y':" ╞4@%=&01000606:█:ц4,fore:*FX157╨4ёК61,0);"│  f7  │  f8  │";К61,1);"│ mark │ exit │";<┌4ї Ё4,x,y-16:Ё1,0,32:Ё4,x-4,y-4:Ё1,8,8:Ё4,x-4,y+4:Ё1,8,-85ф4A(X%)=(x*(XU-XL))/800+XL:A(Y%)=(y*(YU-YL))/800+YLю4ёК13,0);"x:";К29,0);C$;°4ч p=1:Єinvert*5ёК16,0);┬─12," ")+├(A(X%)),11):Єnormal5ч p=2:Єinvert*5ёК33,0);┬─12," ")+├(A(Y%)),11):Єnormal  5A=дget:ч A=9:p=p+1:ч p>2:p=1:*5Ё4,x,y-16:Ё1,0,32:Ё4,x-4,y-4:Ё1,8,8:Ё4,x-4,y+4:Ё1,8,-8/45ч A=45 Д (A>47 А A<58) Д A=155:Єfind_point3>5x=x+((A=136)-(A=137))/H5y=(m*((x*(XU-XL))/800+XL)-YL+c)/(YU-YL)*800R5¤ A=151 Д A=1525\5ч A=151:X=A(X%):Y=A(Y%):B$=╜(145-(Y2%=Y%)):Єpointf5¤ A=152p5сz5:Д5▌Єfind_point31О5Єinvert:ёК16*p-(p=2),0);Й(11);К16*p-(p=2),0);WШ5ч p=1:A(X%)=дnumeric_input(pi%) Л ч p=2:A(Y%)=дnumeric_input(pi%):A(X%)=(A(Y%)-c)/m(в5x=(A(X%)-XL)*800/(XU-XL):A=0:Єnormalм5с╢5:
└5▌Єstep	╩5Z%=Y%>╘5ч E%=1:M1=дslope(C%(0)-3,7) Л M1=дslope(C%(0),C%(5)-C%(0))▐5C1=sumy/n-M1*sumx/n>ш5ч E%=1:M2=дslope(C%(1)-3,7) Л M2=дslope(C%(4),C%(1)-C%(4))Є5C2=sumy/n-M2*sumx/n№5M3=0:C3=096у I%=C%(0) ╕ C%(1):M=дslope(I%-2,5):C=sumy/n-M*sumx/n%6ч Ф(M)>Ф(M3):M3=M:C3=C:I=D(X%,I%)6э;$6ч E%=5:M3=дslope(C%(2),C%(3)-C%(2)):C3=sumy/n-M3*sumx/nG.6A=(C3-C1)/(M1-M3):B=(C2-C3)/(M3-M2):C=(A+B)/2:D=(M2*C+C2)-(M1*C+C1)&86T$(0)="     onset: "+├(A):Z(0,0)=I=B6ч C<I:T$(1)="  midpoint: "+├(C):T$(2)="inflection: "+├(I)>L6ч C>=I:T$(1)="inflection: "+├(I):T$(2)="  midpoint: "+├(C)7V6T$(3)="    endset: "+├(B):T$(4)="    change: "+├(D).`6Єdraw_step:Єdisplay_result(x,y):Єdraw_stepj6сt6:~6▌Єdraw_step5И6x=(C-XL)/(XU-XL)*800:y=((M3*C+C3)-YL)/(YU-YL)*800DТ6ь(D(X%,C%(0))-XL)/(XU-XL)*800,(M1*D(X%,C%(0))+C1-YL)/(YU-YL)*8000Ь6▀(A-XL)/(XU-XL)*800,(M1*A+C1-YL)/(YU-YL)*8000ж6▀(B-XL)/(XU-XL)*800,(M2*B+C2-YL)/(YU-YL)*800D░6▀(D(X%,C%(1))-XL)/(XU-XL)*800,(M2*D(X%,C%(1))+C2-YL)/(YU-YL)*800║6с─6:╬6▌Єstep2D╪6Z%=Y%:ч E%=1:M1=дslope(C%(0)-3,7) Л M1=дslope(C%(0),C%(3)-C%(0))Rт6C1=sumy/n-M1*sumx/n:ч E%=1:M2=дslope(C%(1)-3,7) Л M2=дslope(C%(2),C%(1)-C%(2))ь6C2=sumy/n-M2*sumx/n:A=0:Y=01Ў6у I%=C%(0)+1 ╕ C%(1):Ylast=Y:Y=M1*D(X%,I%)+C1? 7A=A+(D(X%,I%)-D(X%,I%-1))*(D(Y%,I%)+D(Y%,I%-1)-Y-Ylast)/2:эI
7step=(D(X%,C%(1))-D(X%,C%(0)))/10:F=D(X%,C%(1)):C=F:D=M2*C+C2-M1*C-C1R7ї F=F-step:E=M2*F+C2-M1*F-C1:B=(C-F)*(E+D)/2:ч Ф(A)<Ф(B):F=F+step:step=step/107¤ step<0.001#(7T$(0)="fictive: "+├(F):Z(0,0)=F027Єdraw_step2:Єdisplay_result(x,y):Єdraw_step2<7сF7:P7▌Єdraw_step2EZ7x=(F-XL)/(XU-XL)*800:y=(D(Y%,C%(0)+D(Y%,C%(1))/2)-YL)/(YU-YL)*800Dd7ь(D(X%,C%(0))-XL)/(XU-XL)*800,(M1*D(X%,C%(0))+C1-YL)/(YU-YL)*8000n7▀(F-XL)/(XU-XL)*800,(M1*F+C1-YL)/(YU-YL)*8000x7▀(F-XL)/(XU-XL)*800,(M2*F+C2-YL)/(YU-YL)*800DВ7▀(D(X%,C%(1))-XL)/(XU-XL)*800,(M2*D(X%,C%(1))+C2-YL)/(YU-YL)*800М7сЦ7:
а7▌Єmean6к7n%=0:t=0:у I%=C%(0) ╕ C%(1):n%=n%+1:t=t+D(Y%,I%):э6┤7m=t/n%:t=0:у I%=C%(0) ╕ C%(1):t=t+(D(Y%,I%)-m)^2:эH╛7@%=&90A:T$(0)="mean : "+├(m):Z(0,0)=m:T$(1)=" s.d : "+├(t^.5/(n%-1)).╚7Єdraw_mean:Єdisplay_result(x,y):Єdraw_mean╥7с▄7:ц7▌Єdraw_meanEЁ7x=(D(X%,C%(0))+D(X%,C%(1))-2*XL)/(XU-XL)*400:y=(m-YL)/(YU-YL)*800C·7ь(D(X%,C%(0))-XL)/(XU-XL)*800,y:▀(D(X%,C%(1))-XL)/(XU-XL)*800,y8с8:8▌Єcurve"8t=1E-30:E(0)=0:n=0:o1%=o%+28,8у I%=C%(0) ╕ C%(1):E(0)=E(0)+D(Y%,I%):n=n+1:э:A(0)=n68у J%=1 ╕ o%:D=01@8у I%=C%(0) ╕ C%(1):D=D+D(Y%,I%)*D(X%,I%)^J%:эJ8E(J%)=D:эT8у J%=1 ╕ 2*o%:A=0(^8у I%=C%(0) ╕ C%(1):A=A+D(X%,I%)^J%:эh8A(J%)=A:э1r8у J%=0 ╕ o%:у K%=0 ╕ o%:Z(J%,K%)=A(J%+K%):э:э"|8у I%=0 ╕ o%:Z(I%,o1%)=E(I%):э Ж8у I%=0 ╕ o%:D=02Р8у J%=I% ╕ o%:E=Z(J%,I%):F=Ф(E):ч F>D:D=E:G%=J%Ъ8эд8ч F<t:I%=o1%:хНdjxо8ч G%=I%:хНdBxA╕8у J%=I% ╕ o1%:swap=Z(I%,J%):Z(I%,J%)=Z(G%,J%):Z(G%,J%)=swap:э)┬8у J%=I%+1 ╕ o1%:Z(I%,J%)=Z(I%,J%)/D:э╠8у J%=0 ╕ o%:ч J%=I%:хНd`x=╓8E=Z(J%,I%):у K%=I%+1 ╕ o1%:Z(J%,K%)=Z(J%,K%)-E*Z(I%,K%):эр8эъ8эЇ8ч F<t:с!■8у I%=0 ╕ o%:A(I%)=Z(I%,o1%):э9sumx=0:sumy=0:sumz=039у I%=C%(0) ╕ C%(1):X=D(X%,I%):Y=A(0):Z=D(Y%,I%) 9у J%=1 ╕ o%:Y=Y+A(J%)*X^J%:э/&9E(I%)=Y:sumx=sumx+X:sumy=sumy+Y:sumz=sumz+Z09э7:9x=(sumx/n-XL)/(XU-XL)*800:y=(sumz/n-YL)/(YU-YL)*800D9Єdraw_polynomial6N9ч o%=2:T$(0)="nd" Л ч o%=3:T$(0)="rd" Л T$(0)="th"CX9T$(0)=" "+├(o%)+T$(0)+" order polynomial fit":T$(1)=" "+├(A(0))b9у I%=1 ╕ o%:J%=(I% Б 3)+1 l9ч A(I%)>=0:T$(J%)=T$(J%)+"+"v9T$(J%)=T$(J%)+├(A(I%))+"x""А9ч I%>1:T$(J%)=T$(J%)+"^"+├(I%)К9эФ9sumy2=0:sumz2=0:sumyz=07Ю9у I%=C%(0) ╕ C%(1):Y=E(I%)-sumy/n:Z=D(Y%,I%)-sumz/n5и9sumy2=sumy2+Y^2:sumz2=sumz2+Z^2:sumyz=sumyz+Y*Z:эD▓9ч J%<4:T$(J%+1)=" corr. coeff.: "+├(sumyz/(sumy2^0.5*sumz2^0.5)))╝9Єdisplay_result(x,y):Єdraw_polynomial╞9с╨9:┌9▌Єdraw_polynomialAф9у X=D(X%,C%(0)) ╕ D(X%,C%(1)) И (D(X%,C%(1))-D(X%,C%(0)))/800$ю9Y=0:у J%=0 ╕ o%:Y=Y+A(J%)*X^J%:э-°9x=(X-XL)/(XU-XL)*800:y=(Y-YL)/(YU-YL)*800:ч X=D(X%,C%(0)):ьx,y Л ▀x,y:э:с ::*:▌Єmodify4:cum%=Y2%8>:█:ё"  │   f1   │   f2   │";:ч Y2%<>-1:ё"    f3   │";'H:ёК51);"│  f6  │   f7   │   f8   │";7R:ё'"  │ x-axis │ y-axis │";:ч Y2%<>-1:ё" y'-axis │";'\:ёК51);"│ keep │ remove │ smooth │";f:ї A$=дget$Yp:¤ A$=╜(27) Д A$="С" Д A$="Т" Д (A$="У" А Y2%<>-1) Д A$="Ц" Д A$="Ч" Д A$="Ш" Д A$="з"z:ч A$=╜(27):сXД:ч A$="С" Д A$="Ц" Д A$="Ч" Д A$="з":Z%=X%:YL=Y1L:YU=Y1U:Ylog%=Y1log%:ч A$="С":A$="x"5О:ч A$="Т":A$="y":Z%=Y1%:YL=Y1L:YU=Y1U:Ylog%=Y1log%6Ш:ч A$="У":A$="y'":Z%=Y2%:YL=Y2L:YU=Y2U:Ylog%=Y2log%в:ч A$="Ц":Єedit_points(-1):см:ч A$="Ч":Єedit_points(0):с╢:ч A$="з":Єedit_points(1):с└:ч A$="Ш":Єsmooth:с,╩:█:ё"  │    f1    │ f2  │ f3  │  f4   │";A╘:ч A$="y" Д A$="y'":ё"     f5     │    f6    │"; Л ё"  f5  │";5▐:ч (A$="y" А Y2%=-1 А D%<U%) Д A$="y'":ё"  f7  │";+ш:ё'"  │ equation │ log │ 10^ │ power │";AЄ:ч A$="y" Д A$="y'":ё" derivative │ integral │"; Л ё" sort │";+№:ч A$="y" А (Y2%=-1 А D%<U%):ё" copy │";;ч A$="y'":ё" kill │";;ї F$=дget$w;¤ F$=╜(27) Д F$="С" Д F$="б" Д F$="Т" Д F$="У" Д F$="Ф" Д F$="Х" Д F$="Ц" Д (F$="Ч" А ((Y2%=-1 А D%<U%) Д A$="y'"))$;█:ч F$=╜(27):хНT~z0.;ч F$="С" Д F$="б":Єequation:ч E$=╜(27):хНdJz8;ч F$="Т":ЄlogB;ч F$="У":ЄantilogL;ч F$="Ф":Єpower,V;ч F$="Х" А A$="x":Єsort:ч E$=╜(27):хНdJz`;ч F$="Х" А A$="x":хНdD{"j;changed_flag%=г:ч A$="x":хНt\{t;ч F$="Х":Єderivative~;ч F$="Ц":Єintegral"И;ч F$="Ч" А A$="y'":Єkill:хНdD{Т;ч F$="Ч" А A$="y":ЄcopyЬ;█:Єsetup_titlesCж;ё"  New ";A$;"-axis title? ";:H=▒::D$(Z%)=дsignal_title(D$(Z%))░;ёКH,0);D$(Z%);Й(40);:Єscalej║;ч F$="Х" Д F$="Ц" Д F$="Ч":ч cum%=-1:Y2log%=г:Є_y2_axis:Єdraw_curve(XL,XU,Y2L,Y2U,X%,Y2%,0,0,N%,T2%):с─;Єdraw_graph╬;с╪;:т;▌ЄsmoothWь;█:ё"  │       f1       │       f2       │"'"  │ moving average │ boxcar average │";4Ў;ї A$=дget$:¤ A$=╜(27) Д A$="С" Д A$="Т" Д A$="в" <ч A$=╜(27):с
<█@<ч A$="С" Д A$="Т":ё"  Smooth width: ";:W%=дnumber(5,╣):хНTr|3<ё"  Threshold in x-axis: ";:limit=дnumber(XI,г)/(<ё'"  Mininum run length: ";:W%=дnumber(5,╣)2<█:ё"  Smoothing..." <<ч A$="С":Єsmooth_data(W%,-1)F<ч A$="Т":Єboxcar(W%,0)P<ч A$="в":Єboxcar(W%,limit)&Z<changed_flag%=г:Єscale:Єdraw_graphd<сn<:x<▌Єsmooth_data(W%,Z%)В<у I%=0 ╕ N%-W%:у S%=0 ╕ D%М<ч S%=Z%:хНt`|8Ц<D=0:у J%=I% ╕ I%+W%:D=D+D(S%,J%):э:D(S%,I%)=D/(W%+1)а<эк<э┤<N%=N%-W%╛<с╚<:╥<▌Єboxcar(W%,limit)▄<J%=-1:I%=0
ц<ї:n%=0Ё<у S%=0 ╕ D%:A(S%)=0:э·<ї ч n%=0:start=D(X%,I%)4=ч limit>0:ч Ф(D(X%,I%))-start>limit:n%=-n%:хНTb}&=у S%=0 ╕ D%:A(S%)=A(S%)+D(S%,I%):э"=n%=n%+1:I%=I%+1:ч I%>N%:n%=-n%"=¤ (n%=W% А limit=0) Д n%<0I,=n%=Ф(n%):ч м(n%<W% А limit>0):J%=J%+1:у S%=0 ╕ D%:D(S%,J%)=A(S%)/n%:э6=¤ I%>=N%	@=N%=J%J=сT=:^=▌Єedit_points(k%)3h=ч м(дabort("WARNING: Data will be deleted!")):с)r=A$="x":Єget_boundaries(╣):J%=N%:N%=-1|=у I%=0 ╕ J%)Ж=ч k%=-1 А (I%<C%(0) Д I%>C%(1)):хНtn}*Р=ч k%=0 А (I%>=C%(0) А I%<=C%(1)):хНtn}(Ъ=ч k%=1 А (I%>C%(0) А I%<C%(1)):фНdV}+д=N%=N%+1:у S%=0 ╕ D%:D(S%,N%)=D(S%,I%):эо=э╕=changed_flag%=г:Єdraw_graph┬=с╠=:Y╓=у S%=0 ╕ D%:D(S%,I%)=D(S%,C%(0))+(D(S%,C%(1))-D(S%,C%(0)))/(C%(1)-C%(0))*(I%-C%(0)):эр=°ъ=:
Ї=▌Єsorte■=█:ё"  │    f1     │     f2     │      f3       │"'"  │ ascending │ descending │ reverse order │";4>ї E$=дget$:¤ E$=╜(27) Д E$="С" Д E$="Т" Д E$="У">ч E$=╜(27):с>█:ё"  Sorting..."'&>ч E$="У":Єreverse_order:с 70>ёК1,28);"Sorting data...":T%=л(N%+1)/л(2):T%=2^T%-1&:>ї:у J%=0 ╕ N%-T%:у I%=J% ╕ 0 И -T%(D>ч E$="С":ч D(X%,I%)>D(X%,I%+1):Єswop(N>ч E$="Т":ч D(X%,I%)<D(X%,I%+1):ЄswopX>э:эb>T%=T%/2:¤ T%=0l>сv>:
А>▌Єswop=К>у S%=0 ╕ D%:D=D(S%,I%+1):D(S%,I%+1)=D(S%,I%):D(S%,I%)=D:эФ>сЮ>:и>▌Єreverse_order▓>у I%=0 ╕ N%/2:у S%=0 ╕ D%1╝>D=D(S%,I%):D(S%,I%)=D(S%,N%-I%):D(S%,N%-I%)=D╞>э:э╨>с┌>:ф>▌Єequation'ю>ч A$="x":E$="С":Єequation_1:E$=B$:с`°>█:ч A$="y":ё"  │      f1      │    f2     │";:ч Y2%>-1:ё"    f3    │    f4    │    f5    │";_?ч A$="y":ё'"  │ y=a(y+b)/c+d │ y=ay+bx+c │";:ч Y2%>-1:ё" y=ay+by' │ y=ay/by' │ y=ay*by' │";б?ч A$="y'":ё"  │       f1       │      f2     │     f3    │     f4    │     f5    │"'"  │ y'=a(y'+b)/c+d │ y'=ay'+bx+c │ y'=ay'+by │ y'=ay'/by │ y'=ay'*by │";?ї E$=дget$H ?¤ E$="С" Д E$="Т" Д ((E$="У" Д E$="Ф" Д E$="Х") А Y2%>-1) Д E$=╜(27))*?ч E$="С":Єequation_1:ч B$=╜(27):хНdx~)4?ч E$="Т":Єequation_2:ч B$=╜(27):хНdx~>?ч E$="У":Єequation_3H?ч E$="Ф":Єequation_4("/")R?ч E$="Х":Єequation_4("*")\?сf?:p?▌Єequation_1#z?Єget_boundaries(г):ч B$=╜(27):сД?ч F$="С":learn%=learn%*3О?A(0)=1:A(1)=0:A(2)=1:A(3)=0cШ?█:ёК2);A$;К4);" = ";A(0);К17);"(";A$;К20);"+";К21);A(1);К32);")/";К34);A(2);К45);"+";К46);A(3); в?ёК6,0);:A(0)=дnumber(A(0),г)!м?ёК21,0);:A(1)=дnumber(A(1),г)╢?ч A=136:хНtb!└?ёК34,0);:A(2)=дnumber(A(2),г)╩?ч A=136:хНtl!╘?ёК46,0);:A(3)=дnumber(A(3),г)▐?ч A=136:хНd@@ш?у I%=C%(0) ╕ C%(1):D(Z%,I%)=A(0)*(D(Z%,I%)+A(1))/A(2)+A(3):эDЄ?ч A$="x":XL=A(0)*(XL+A(1))/A(2)+A(3):XU=A(0)*(XU+A(1))/A(2)+A(3)№?ч XL>XU:X=XU:XU=XL:XL=X@ч F$="С":learn%=learn%/3@ч B$="Т" А A$="x":XL=XU@с$@:.@▌Єequation_2#8@Єget_boundaries(г):ч B$=╜(27):сB@ч F$="С":learn%=learn%*3L@A(0)=1:A(1)=0:A(2)=0BV@█:ёК2);A$;К4);" = ";A(0);К18);A$;К20);"+";A(1);К32);"x+";A(2); `@ёК6,0);:A(0)=дnumber(A(0),г)!j@ёК21,0);:A(1)=дnumber(A(1),г)t@ч A=136:хН@`@!~@ёК34,0);:A(2)=дnumber(A(2),г)И@ч A=136:хН@j@BТ@у I%=C%(0) ╕ C%(1):D(Z%,I%)=A(0)*D(Z%,I%)+A(1)*D(X%,I%)+A(2):эЬ@ч F$="С":learn%=learn%/3 ж@с░@:║@▌Єequation_3─@ч F$="С":learn%=learn%*3╬@A(0)=1:A(1)=08╪@█:ёК2);A$;К4);" = ";A(0);К18);A$;К20);"+";A(1);К32);т@ч A$="y":ё"y'" Л ё"y" ь@ёК6,0);:A(0)=дnumber(A(0),г)!Ў@ёК21,0);:A(1)=дnumber(A(1),г) Aч A=136:хН`l@
Aч A$="y":Y%=Y2% Л Y%=Y1%AV%=Z%:ч D%<U%:D%=D%+1:V%=D%Aч A$="y":Y1%=V% Л Y2%=V%6(Aу I%=0 ╕ N%:D(V%,I%)=A(0)*D(Z%,I%)+A(1)*D(Y%,I%):э"2AZ%=V%:ч F$="С":learn%=learn%/3<AсFA:PA▌Єequation_4(O$)ZAч F$="С":learn%=learn%*3dAA(0)=1:A(1)=17nA█:ёК2);A$;К4);" = ";A(0);К18);A$;К20);O$;A(1);К32);xAч A$="y":ё"y'" Л ё"y" ВAёК6,0);:A(0)=дnumber(A(0),г)!МAёК21,0);:A(1)=дnumber(A(1),г)"ЦAч A=136:хНpBA Л ч A(1)=0:хНpLAаAч A$="y":Y%=Y2% Л Y%=Y1% кAV%=Z%:ч D%<U%:D%=D%+1:V%=D% ┤Aч A$="y":Y1%=V% Л Y2%=V%╛Aу I%=0 ╕ N%3╚Aч O$="/":D(V%,I%)=A(0)*D(Z%,I%)/(A(1)*D(Y%,I%))3╥Aч O$="*":D(V%,I%)=A(0)*D(Z%,I%)*(A(1)*D(Y%,I%))▄Aэ"цAZ%=V%:ч F$="С":learn%=learn%/3ЁAс·A:B▌Єget_boundaries(s%)Bч s%:хН@@BCB█:ё"  │    f1    │     f2     │"'"  │ all data │ set limits │";+"Bї B$=дget$:¤ B$="С" Д B$="Т" Д B$=╜(27),Bч B$=╜(27):с6Bч B$="С":C%(0)=0:C%(1)=N%:с-@B█:s%=0:Y%=Z%:ч Z%=X%:Y%=Y1%:ч Y2%>-1:s%=1JBч Ylog%:YL=л(YL):YU=л(YU)&TBу J%=0 ╕ 1:C%(J%)=дcursor(J%,2,s%)^Bч Xlog%:A(X%)=л(A(X%))hBч Y1log%:A(Y1%)=л(A(Y1%))&rBч Y2%>-1:ч Y2log%:A(Y2%)=л(A(Y2%))P|Bч A$="x" Д A$="y":ь(A(X%)-XL)/(XU-XL)*800,(A(Y1%)-Y1L)/(Y1U-Y1L)*800:Ё1,0,16\ЖBч (A$="x" Д A$="y'") А Y2%>-1:ь(A(X%)-XL)/(XU-XL)*800,(A(Y2%)-Y2L)/(Y2U-Y2L)*800:Ё1,0,16РBЄfrom_log:э/ЪBч C%(0)>C%(1):C%=C%(0):C%(0)=C%(1):C%(1)=C%дBсоB:	╕B▌Єlog/┬Bу I%=0 ╕ N%:ч D(Z%,I%)<1E-30:D(Z%,I%)=1E-30╠BD(Z%,I%)=л(D(Z%,I%))╓BэBрBD$(Z%)="log["+D$(Z%)+"]":ч A$="x" А XL>1E-30:XL=л(XL):XU=л(XU)ъBсЇB:■B▌Єantilog)Cу I%=0 ╕ N%:D(Z%,I%)=10^(D(Z%,I%)):э ;CD$(Z%)="10^["+D$(Z%)+"]":ч A$="x":XL=10^(XL):XU=10^(XU)Cс&C:0C▌Єpower":C█:ё"  ";A$;"^";:n=дnumber(1,г)3DCу I%=0 ╕ N%:ч D(Z%,I%)<>0:D(Z%,I%)=(D(Z%,I%))^nNCэXCч A$="x":XL=XL^n:XU=XU^nbCч XL>XU:X=XU:XU=XL:XL=XlCD$(Z%)="["+D$(Z%)+"]^"+├(n)vCсАC:КC▌Єderivative0ФCё"  d";A$;"/dx";К23,0);"derivative width? ";%ЮCW%=дnumber(5,╣):V%=Z%:ч W%<1:W%=5<иCч D%<U%:D%=D%+1:V%=D%:Y2%=V%:T2%=2:T2$=" ----- ":A$="y'"+▓Cу I%=0 ╕ N%-W%:D(V%,I%)=дslope(I%,W%):э9╝CЄsmooth_data(W%,V%):D$(V%)="Derivative "+D$(Z%):Z%=V%╞Cс╨C:┌C▌дslope(I%,W%)%фCn=0:sumx=0:sumx2=0:sumy=0:sumxy=0юCу J%=I% ╕ I%+W%%°CK%=J%:ч K%<0:K%=0 Л ч K%>N%:K%=N%Dx=D(X%,K%):y=D(Z%,K%):n=n+1;Dsumx=sumx+x:sumx2=sumx2+x^2:sumy=sumy+y:sumxy=sumxy+x*yDэ Dч n=1 Д (n*sumx2=sumx^2):=0)*D=(n*sumxy-sumx*sumy)/(n*sumx2-sumx^2)4D:>D▌Єintegral?HDё"  Integral of ";A$;" (dx)";К23,0);"integration factor? ";5RDm=дnumber(1,г):ёК58,0);"offset? ";:c=дnumber(0,г)\DD=0:V%=Z%:ч m=0:m=1<fDч D%<U%:D%=D%+1:V%=D%:Y2%=V%:T2%=2:T2$=" ----- ":A$="y'"IpDу I%=0 ╕ N%-1:D=D+m*(D(Z%,I%)+D(Z%,I%+1)-2*c)*(D(X%,I%+1)-D(X%,I%))/2zDD(V%,I%)=D:э8ДDЄsmooth_data(1,V%):D$(V%)="Integrated "+D$(Z%):Z%=V%ОDсШD:
вD▌Єcopy+мDD%=D%+1:у I%=0 ╕ N%:D(D%,I%)=D(Z%,I%):э:╢DD$(D%)=D$(Z%):Z%=D%:Y2%=Z%:T2%=2:T2$=" ----- ":A$="y'"└Dс╩D:
╘D▌Єkill3▐Dч м(дabort("WARNING: Data will be deleted!")):с1шDcol%=Z%:Єcolumn_delete:Y2%=-1:ч X%>Z%:X%=X%-1ЄDч Y1%>Z%:Y1%=Y1%-1№DсE:
E▌ЄexitKEч changed_flag%:A$="":Л A$="WARNING: Existing data has not been saved!"$Ez%=дabort(A$).Eс8E:BE▌ЄresetRLEч м(changed_flag%):ч м(дabort("WARNING: Existing data has not been saved!")):с@VEч дabort("WARNING: All settings will revert to start up!"):∙`EсjE:tE▌дabort(M$)*~Eч м(warn%) Д (learn%=-1 Д learn%=1):=╣@ИE█:ё"  │    f1    │   f2   │"'"  │ continue │ cancel │  ";M$;,ТEї Q$=дget$:¤ Q$="С" Д Q$="Т":█:=(Q$="С") 