M.W.E.2.0/H&P B4 * MOLECULAR WEIGHT DETERMINATION . 2.0/H&P * T . S . P . T VRAM RAMDISC. U (ROBOTRON 6313) (MZ1P16).j A , . A , . P , 8 9. P , * RND. L B; C 8/310; P 8 - L; PSC 18000*  "CRT:M3" M,4 k, ,"LB SOFT",@,,( M,52 |, ,"PRESENTS",,,z< H,`,P,`,P,p,W,p,W,`,h,`: ,`,,`sF , ,"MOLECULAR WEIGHT",@,,: R,p,"DETERMINATION",,,7P h,,". 2.0/H&P",,,cZ""Jd 4,H,"C (C) 1988 LB-SOFT",,,CnX,8:"< P , >": A$: A$"" n x:"ZADANI1""ZADANI2" "WAIT""VYPOCET"#I :::I "MENU" "VYPOCET"***SERAZENI DAT***INJIN(VV(I,)VV(J,) : "L(TVV(I,L):VV(I,L)VV(J,L):VV(J,L)TL"J,I6***SUBST***@ W(N,)JIN:TW(I,)(VV(I,)):W(I,)VV(I,)^Ih***SUMY***rSX:SY|INSXSXW(I,)SYSYW(I,)I***PRUMERY*** MXSXN MYSYN***CENTRALNI ODCHYLKY***"CV:VX:VYIN,CVCV(W(I,)MX)(W(I,)MY)"VXVX(W(I,)MX)"VYVY(W(I,)MY)I***REGRESNI ROVNICE***  Y(N) B1CVVX&B0MYB1MX0IN:Y(I)B1W(I,)B0DI N***KORELACNI KOEFICIENT***XRCV(VXVY)b"F-TRANSFORMACE"lFTFT(I,)vTDFT(N@)***HODNOTY PRO GRAFIKU*** X(N),Z(N),YY(N)INX(I)Z((W(I,)(W(,)(W(,))))((W(N,)(W(N,)))(W(,)(W(,))))w)Z(I)$((W(I,)(W(N,)(W(N,))))(W(,)W(N,)(W(,))(W(N,))))I,ZX:X2:ZY:XYINZXZXX(I)X2X2X(I)ZYZYZ(I)XYXYX(I)Z(I)I%AA(NXYZXZY)(NX2ZX)& BB(X2ZYZXXY)(NX2ZX)IN YY(I)AAX(I)BB*I4***MOL.VAHA***> MW(C),NW(C),XW(C),YW(C)HIC!RMW(I) ((YC(I)B0)B1)\NW(I)(MW(I))fXW(I)Z((NW(I)(W(,)(W(,))))((W(N,)(W(N,)))(W(,)(W(,))))w)pYW(I)AAXW(I)BBzI "MENU":"CRT:M3"1 , ,"MENU",@,,1 ,,"",@,, W,,"C",@,,: q, ,". (.)",,,: W,T,"G",@,,: q,p," . ",,, W,,"L",@,,: q, ," . ",,,: W,:,"M",@,,: q,H,".. ",,, W,b,"E",@,,: q,p," ",,,: W,,"N",@,,: q, ," ",,, , :"I Y , H ( ), P ( MZ1P16 ) ( )."@  ,8:"< P , >";: T$MT$"C" "CALIBR": T$"G"T$"E" "GRAF1": T$"L" "LISTING": +T$"M" "M.W.": T$"N" : "F-TRANSFORMACE" FT(J,)IJ"$ FT(I,): FT(I,)$. (R)FT(I,)y# > B 8 >BIL 0.00,0.0000V 0.01,0.0100` 0.02,0.0200j 0.03,0.0300t 0.04,0.0400~ 0.05,0.0500 0.06,0.0601 0.07,0.0701 0.08,0.0802 0.09,0.0902 0.10,0.1003 0.11,0.1104 0.12,0.1206 0.13,0.1307 0.14,0.1409 0.15,0.1511 0.16,0.1614 0.17,0.1717 0.18,0.1820  0.19,0.1923 0.20,0.2027 0.21,0.2132( 0.22,0.22372 0.23,0.2342< 0.24,0.2448F 0.25,0.2554P 0.26,0.2661Z 0.27,0.2769d 0.28,0.2877n 0.29,0.2986x 0.30,0.3095 0.31,0.3205 0.32,0.3316 0.33,0.3428 0.34,0.3541 0.35,0.3654 0.36,0.3769 0.37,0.3884 0.38,0.4001 0.39,0.4118 0.40,0.4236 0.41,0.4356 0.42,0.4477 0.43,0.4599 0.44,0.4722 0.45,0.4847 0.46,0.4973" 0.47,0.5101, 0.48,0.52306 0.49,0.5361@ 0.50,0.5493J 0.51,0.5627T 0.52,0.5763^ 0.53,0.5901h 0.54,0.6042r 0.55,0.6184| 0.56,0.6328 0.57,0.6475 0.58,0.6625 0.59,0.6777 0.60,0.6931 0.61,0.7089 0.62,0.7250 0.63,0.7414 0.64,0.7582 0.65,0.7753 0.66,0.7928 0.67,0.8107 0.68,0.8291 0.69,0.8480 0.70,0.8673 0.71,0.8872 0.72,0.9076& 0.73,0.92870 0.74,0.9505: 0.75,0.9730D 0.76,0.9962N 0.77,1.0203X 0.78,1.0454b 0.79,1.0714l 0.80,1.0986v 0.81,1.1270 0.82,1.1568 0.83,1.1881 0.84,1.2212 0.85,1.2562 0.86,1.2933 0.87,1.3331 0.88,1.3758 0.89,1.4219 0.90,1.4722 0.91,1.5275 0.92,1.5890 0.93,1.6584 0.94,1.7380 0.95,1.8318  0.96,1.9459 0.97,2.0923  0.98,2.2976* 0.99,2.64664 1.00,4.0000> H"WAIT"R z::"CRT:M1"3\`,0: "< A , ! >"f z:[p, : "WAIT A MOMENT PLEASE":: (@);"YOUR PROBLEM IS JUST SOLVED"z"ZADANI1":"CRT:M3"* "NAME OF PROBLEM (. 33 .):"4 ( );"<------------------------------->",: A$; "DATE OF EXPERIMENT OR COMPUTATION :";:" ";DATUM$@",\,"DATA FOR CALIBRATION",,,@",,"",,,A, : "1) CHARACTERISATION OF STANDARDS :":""1 " N C. P ( >3 ) : N = ";N" C- Y :"" (P);"";:"N : ";Y$# (P);"";:"U : ";V$ "2) INPUT OF DATA :" " D I :" VV(N,),M$(N)J$ (@);"N. .. Y "K. (0);""8 INqB (@);I;: (0);:" ";M$(I): ();"";:" ";VV(I,): (h);"";:" ";VV(I,)L IV ` "CALIBR"j :"CRT:M3":t (A$),,A$,,,.~ ( (DATUM$));"";DATUM$= 7, ,"C C",,,= 7,,,"",,, "N = ";N> "EQUATION OF REGRESION : Y' = ";B0;" + (";B1;") * X"B "ESTIMATE OF CORRELATION : R = ";"##.###";CV(VXVY) TD%R : 6 "C 1%":  TDzG : 6 "C 5%": A "C 5%": :  ,8: "< P , >" O$: O$"" . O$"H" "HCOPY" : O$"P" "CC/P"  "LISTING" :"CRT:M3"G( N,,"L C D",,,G2 N,,"",,,$< R (N)[F ;" * X * * Y * * Y'* * E * "VP "";Z I(R)p p(R)pd IpR n : n NpR : x x IN : A ,@I(R)p: "######";VV(I,)? `,@I(R)p: "###.#";W(I,)8 @,@I(R)p: "###.#";Y(I) RESW(I,)Y(I)6  ,@I(R)p: "##.#";RES I9  ,8:"< P , >" O$: O$"" / O$"H" "HCOPY" : O$"P" "LCD/P" :R9  ,8:"< P , >" O$: O$"" / O$"H" "HCOPY" : O$"P" "LCD/P"  "ZADANI2" :"CRT:M3"G" >, ,"DATA FOR M.W. DETERMINATION",,,G, >, ,"",,,6 , %@ "NUMBER OF EXP. POINTS: X = ";C3J (@);"N. N Y "2T (@);""^ C$(C),YC(C)h ICr (@);I;2| " ";C$(I): (<);" ";:"";YC(I) I "M.W." :"CRT:M3": P,,"E M.W.",,,: P, ,"",,,8 ();"S :"; IN M$(I)M$(I) ) ();M$(I);" = ";VV(I,) ID ( );"N. N ";Y$;"[";V$;"] .."? ();"" IC@ ();I,C$(I),"";YC(I);: (h);"######",MW(I) I8&  ,8:"

"0 O$: O$"" 0 -: O$"H" "HCOPY" : O$"P" "MWE"D N "GRAF1"X :"CRT:M3"$b ,@:,"l B, ,@,,v Y $ D,Y,J,Y:Yv XO(W(N,)(W(N,)))(W(,)(W(,))):XPW(,)(W(,)) IXO X6 LOZ(w(I(X))(XO)) LO,+,LO,):X,I" ,+,,) IXPXOXP I$(I)K R(w(IXP)(XO)),/,I$,,, I" $,8:;"(..)"l ZAW(,)(W(,)):ZBW(N,)(W(N,)):ZC(ZAZB) I< ,((I): "#####.#";ZBIZC I7 OO:(((Y$)(V$)))(* p,OO,Y$,,,>4 p,OO(Y$),"(",,,=> p,OO(Y$),V$,,,LH p,OO(Y$)(V$),")",,,R IN)\ X(I),Z(I),X(I),Z(I))f X(I),Z(I),X(I),Z(I)p I'z X(),YY(),X(N),YY(N) T$"E" "E." O$: O$"" / O$"H" "HCOPY" : O$"P" "G1/P"$ ,:,  "E." IC XW(I),YW(I), I$(I)8 XW(I),YW(I)@,I$,,, I "HCOPY" T$"G" T$"E" A ,8:[]"< P , >", `: A$ %: B: A,B: A%$"LPT:M0,S3":P (X);"1";F. A D:P (X);"*";"J";();();48 B @:AD A B7B*,AD :*,(AD):(),TX$,TX$)LP TX$;: B:P: AV"LPT:M0,S2":` 219,224,62,1,211,205,221,42,0,42,62,4,50,2,42,62,20,50,3,42,33,0,43,62,8,50,4,42,221,70,0,203,24,245,203,22,241,203,22,35j 58,4,42,61,50,4,42,14,0,185,194,31,41,221,35,58,3,42,61,50,3,42,14,0,185,194,23,41,229,221,229,225,17,60,0,25,229,221,225,225Ft 58,2,42,61,50,2,42,14,0,185,194,15,41,219,225,17,0,43,6,160,201 ~ "CC/P""CRT:M1""LPT:M0,S0"  TN  'P ( (A$));A$:P3P ( (DATUM$));DATUM$:P:P  @.P (0);"CALIBRATION CURVE":P:P  P "N = ";N:P"P "E :")P "Y' = ";B0;" + (";B1;") * X":P$P "E :") P "R = ";"#.###";CV(VXVY):P(P "C :" TD%R ( : 2(P " 1%": P2 TDzG < : F<P " 5%": P!FP " 5%"P"CRT:M3":Z "LCD/P"d"CRT:M1"n"LPT:M0,S0" x TN  @DP:P:P:P (@);"LISTING OF CALIBRATION DATA":P:P  9P ();"* X * * Y * * Y'* * E *"7P "----------------------------------------":PIN*P (@);"######";VV(I,);(P (`);"###.#";W(I,); P (@);"###.#";Y(I)RESW(I,)Y(I)( :P ( );"##.#";RESIP:P:P"CRT:M3":  "MWE""CRT:M1"""LPT:M0,S0" , TN 6 @7@P:P:P:P (P);"ESTIMATED M.W.":P:P J +TP "S :"^INh M$(I)M$(I) |!rP M$(I);" = ";VV(I,)|I P:P6P " N. N ";Y$;"[";V$;"] .."7P "----------------------------------------":PIC?P ();I,C$(I),YC(I);:P ();"######";MW(I)IP:P:P"CRT:M3":  "G1/P" "LPT:M0,S0"  GR:   ,HI@ pI,Ig&%,pI,I,pI,I%,PI,I%,PI,I,pI,I0I:J@DI N  0IJ,AX%, J0I,, J0I, bI,JlJ@vIXOX7LP ((I(X))(XO)) \,LPJ3%,\,LPJ,|,LPJ X,I,JJ@ \,J/%,\,J,|,JJIXPXOXP I$(I)4 h,((IXP)(XO))[,],I$I  , ![,],"(..)" I=*FA(ZBIZC) :FB(FA) :FC(ZBIZC)FB)4FC$(FC): FCZBIZC > : H:> h0I, ((FC$)) : R.H h0I, ((FC$))R[,],FC$\I.f  ((Y$V$)),H#p[,],Y$,"[",V$,"]" z  PX(N),PY(N),YP(N)INPX(I) ((W(I,)(W(,)(W(,))))((W(N,)(W(N,)))(W(,)(W(,)))))PY(I)((W(I,)(W(N,)(W(N,))))(W(,)W(N,)(W(,))(W(N,)))F)5 PY(I),PX(I):[,],"+"I,XX:XS:YS:YXINXXXXPX(I)XSXSPX(I)YSYSPY(I)YXYXPX(I)PY(I)I&AP(NYXXXYS)(NXSXX)&BP(XSYSXXYX)(NXSXX)IN$YP(I)AP(PX(I))BP.I.8 ( );(YP()),(PX())$B (YP()),(PX())?L%,(YP()),(PX()),(YP(N)),(PX(N))V T$"E" "EG"` ,Hj t"EG" ~ @ XV(C),YV(C)ICXV(I) ((NW(I)(W(,)(W(,))))((W(N,)(W(N,)))(W(,)(W(,)))))YV(I)AP(XV(I))BP  YV(I)@,XV(I)@[,],"" I$(I)  YV(I) ,XV(I)[,],I$I&!E!EsQ+R RBQ  RQ RQRBR!C!s]O