4Misc_Start ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d  ROGI'XXp>><4!*8 WINSPOOLHP LaserJet 4MLPT1:HP LaserJet 4M@g XXLetter 8 1/2 x 11 in@MSUDNHP LaserJet 4M;d ^Graph*@@??fWDashSettings#  !_Normal@ Arial<HHHH$$_Normal@ Arial<HHHH$$444444 (ONormal@ Arial<HHHH$$4 4 4 4 4 4 homeYQd,x\C:Writing:Academic:PChem:Lab4-Intrinsic_Viscocity:C:Writing:Academic:PChem:Lab4-Intrinsic_ViscocityhemLab4-Intrinsic_ViscocityC:\Writing\Academic\PChem\Lab4-Intrinsic_Viscocity\Lab 4-graph.pxpT0UT0h 4Misc_EndtXOPState_Start@ANOVASupportY Data Browser?f w4XOPState_Endq .JC4?V_Flag?V_sigaF?%?V_sigbT +?V_chisq#/!?V_q?V_Rabߌ(rV_PrHD?V_numNaNsV_numINFsV_npnts@V_nterms@V_nheldS_waveNameswave0;S_pathamesS_fileName Clipboard,Rename wave0,'Spec. Visc./Conc.'; Rename 'Spec. Visc./Conc.','Spec. Visc./Conc. Unc'; Rename 'Spec. Visc./Conc. Unc','Conc.'; Rename 'Conc.','Conc. - Unc'; Rename 'Spec. Visc./Conc. Unc1','Spec. Visc./Conc. Unc.'; Rename wave0,'(1/c)(ln(n/n0))'; Edit Rename 'Spec. Visc./Conc. Unc.1','Spec. Visc./Conc. C.'; Rename 'Conc. - Unc1','Conc. - Cleaved'; Rename '(1/c)(ln(n/n0))1','(1/c)(ln(n/n0)) - Cleaved'; Rename 'Spec. Visc./Conc. C.','Spec. Visc./Conc. Cleaved'; DeletePoints 0,4, 'Spec. Visc./Conc. Cleaved' DeletePoints 0,4, 'Conc. - Cleaved' DeletePoints 0,4, '(1/c)(ln(n/n0)) - Cleaved' Display 'Spec. Visc./Conc. Unc.' vs 'Conc. - Unc' AppendToGraph '(1/c)(ln(n/n0))' vs 'Conc. - Unc' ModifyGraph mode('Spec. Visc./Conc. Unc.')=3 ModifyGraph mode=3 Display 'Conc. - Unc' vs 'Spec. Visc./Conc. Unc.' AppendToGraph 'Conc. - Unc' vs '(1/c)(ln(n/n0))' ModifyGraph mode('Conc. - Unc')=3 ModifyGraph mode=3 Display 'Conc. - Cleaved' vs 'Spec. Visc./Conc. Cleaved' AppendToGraph 'Conc. - Cleaved' vs '(1/c)(ln(n/n0)) - Cleaved' ModifyGraph mode('Conc. - Cleaved')=2 ModifyGraph mode('Conc. - Cleaved'#1)=3 ModifyGraph mode=3 CurveFit line 'Conc. - Unc' /X='Spec. Visc./Conc. Unc.' /D 'fit_Conc. - Unc'= W_coef[0]+W_coef[1]*x W_coef={0.35058,0.1913} V_chisq= 0.152031; V_npnts= 4; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -0.406045; V_Pr= 0.73218; W_sigma={0.142,0.126} Coefficient values one standard deviation a = 0.35058 0.142 b = 0.1913 0.126 Edit CurveFit line 'Conc. - Unc' /X='Spec. Visc./Conc. Unc.' /D 'fit_Conc. - Unc'= W_coef[0]+W_coef[1]*x W_coef={-0.43606,1.0606} V_chisq= 0.0117853; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -20.0785; V_Pr= 0.971911; W_sigma={0.235,0.257} Coefficient values one standard deviation a = -0.43606 0.235 b = 1.0606 0.257 KillWaves 'Conc. - Unc','Spec. Visc./Conc. Unc.','(1/c)(ln(n/n0))';DelayUpdate KillWaves 'Conc. - Cleaved','Spec. Visc./Conc. Cleaved';DelayUpdate KillWaves '(1/c)(ln(n/n0)) - Cleaved',W_coef,'fit_Conc. - Unc',W_sigma;DelayUpdate KillWaves 'Conc. - Unc1','Spec. Visc./Conc. Unc.1','(1/c)(ln(n/n0))1' Edit as "Uncleaved" Rename wave0,Conc; Rename wave0,'Nsp/C'; Rename wave0,'(1/c)(ln()'; Rename '(1/c)(ln()','(1/c)(ln(n/n0)'; Display Conc vs 'Nsp/C' AppendToGraph Conc vs '(1/c)(ln(n/n0)' DeletePoints 3,1, 'Nsp/C' DeletePoints 3,1, Conc DeletePoints 3,1, '(1/c)(ln(n/n0)' CurveFit line Conc /D fit_Conc= W_coef[0]+W_coef[1]*x W_coef={1.6369,-0.64047} V_chisq= 0.0303626; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -3.57152; V_Pr= -0.981994; W_sigma={0.159,0.123} Coefficient values one standard deviation a = 1.6369 0.159 b = -0.64047 0.123 CurveFit line Conc /X='Nsp/C' /D fit_Conc= W_coef[0]+W_coef[1]*x W_coef={-0.87128,4.2401} V_chisq= 0.0471618; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -14.1902; V_Pr= 0.971888; W_sigma={0.47,1.03} Coefficient values one standard deviation a = -0.87128 0.47 b = 4.2401 1.03 ModifyGraph rgb(fit_Conc)=(16384,16384,65280) ModifyGraph mode(Conc)=3 ModifyGraph mode(Conc#1)=3 CurveFit/X=1 line Conc /X='Nsp/C' /D fit_Conc= W_coef[0]+W_coef[1]*x W_coef={-0.87128,4.2401} V_chisq= 0.0471618; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -14.1902; V_Pr= 0.971888; W_sigma={0.47,1.03} Coefficient values one standard deviation a = -0.87128 0.47 b = 4.2401 1.03 ModifyGraph marker(Conc)=6 ModifyGraph marker(Conc#1)=42 CurveFit/X=1 line Conc /X='(1/c)(ln(n/n0)' /D fit_Conc= W_coef[0]+W_coef[1]*x W_coef={-2.8005,10.772} V_chisq= 0.0780983; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -25.919; V_Pr= 0.952997; W_sigma={1.22,3.42} Coefficient values one standard deviation a = -2.8005 1.22 b = 10.772 3.42 Display 'Nsp/C' vs Conc as "Uncleaved" AppendToGraph '(1/c)(ln(n/n0)' vs Conc Duplicate/D/O Conc,'fit-unc-conc.vs. Nsp' CurveFit/X=1 line Conc /X='Nsp/C' /D='fit-unc-conc.vs. Nsp' 'fit-unc-conc.vs. Nsp'= W_coef[0]+W_coef[1]*'Nsp/C' W_coef={-0.87128,4.2401} V_chisq= 0.0471618; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -14.1902; V_Pr= 0.971888; W_sigma={0.47,1.03} Coefficient values one standard deviation a = -0.87128 0.47 b = 4.2401 1.03 AppendToGraph 'fit-unc-conc.vs. Nsp' vs Conc ModifyGraph mode('Nsp/C')=3,mode('(1/c)(ln(n/n0)')=3;DelayUpdate ModifyGraph rgb('(1/c)(ln(n/n0)')=(0,0,0) ModifyGraph marker('Nsp/C')=43,marker('(1/c)(ln(n/n0)')=43 ModifyGraph rgb('fit-unc-conc.vs. Nsp')=(16384,28160,65280) Duplicate/D/O Conc,'Res-unc-conc. vs. Nsp Res' CurveFit/X=1 line Conc /X='Nsp/C' /D='fit-unc-conc.vs. Nsp' /R='Res-unc-conc. vs. Nsp Res' 'fit-unc-conc.vs. Nsp'= W_coef[0]+W_coef[1]*'Nsp/C' 'Res-unc-conc. vs. Nsp Res'= Conc - (W_coef[0]+W_coef[1]*'Nsp/C') W_coef={-0.87128,4.2401} V_chisq= 0.0471618; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -14.1902; V_Pr= 0.971888; W_sigma={0.47,1.03} Coefficient values one standard deviation a = -0.87128 0.47 b = 4.2401 1.03 CurveFit/X=1 line 'Nsp/C' /X=Conc /D='fit-unc-conc.vs. Nsp' /R='Res-unc-conc. vs. Nsp Res' 'fit-unc-conc.vs. Nsp'= W_coef[0]+W_coef[1]*Conc 'Res-unc-conc. vs. Nsp Res'= Nsp/C - (W_coef[0]+W_coef[1]*Conc) W_coef={0.21851,0.22277} V_chisq= 0.00247782; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -20.4171; V_Pr= 0.971888; W_sigma={0.061,0.054} Coefficient values one standard deviation a = 0.21851 0.061 b = 0.22277 0.054 Duplicate/D/O '(1/c)(ln(n/n0)','fit-unc-conc.vs. ln' Duplicate/D/O '(1/c)(ln(n/n0)','Res-unc-conc. vs. ln' CurveFit/X=1 line '(1/c)(ln(n/n0)' /X=Conc /D='fit-unc-conc.vs. ln' /R='Res-unc-conc. vs. ln' 'fit-unc-conc.vs. ln'= W_coef[0]+W_coef[1]*Conc 'Res-unc-conc. vs. ln'= (1/c)(ln(n/n0) - (W_coef[0]+W_coef[1]*Conc) W_coef={0.26847,0.084312} V_chisq= 0.000611283; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -41.1063; V_Pr= 0.952997; W_sigma={0.0303,0.0268} Coefficient values one standard deviation a = 0.26847 0.0303 b = 0.084312 0.0268 AppendToGraph 'fit-unc-conc.vs. ln' vs Conc ModifyGraph rgb('fit-unc-conc.vs. ln')=(0,0,0) ModifyGraph rgb('fit-unc-conc.vs. Nsp')=(65280,16384,16384) Display 'Res-unc-conc. vs. Nsp Res' vs Conc ModifyGraph mode=2 ModifyGraph mode=3 ModifyGraph zero(left)=1 Display 'Res-unc-conc. vs. ln' vs Conc ModifyGraph mode=3 Edit as "Cleaved" Rename wave0,Concentration; Rename wave1,'Cleaved Nsp/c'; Rename wave2,'Cleaved (1/c)(ln/n0)'; Rename Concentration,'cleaved - Conc'; Display 'Cleaved Nsp/c' vs 'cleaved - Conc' AppendToGraph 'cleaved - Conc' vs 'Cleaved (1/c)(ln/n0)' RemoveFromGraph 'Cleaved Nsp/c' RemoveFromGraph 'cleaved - Conc' AppendToGraph 'Cleaved Nsp/c' vs Conc AppendToGraph 'Cleaved (1/c)(ln/n0)' vs 'cleaved - Conc' RemoveFromGraph 'Cleaved Nsp/c' AppendToGraph 'Cleaved Nsp/c' vs 'cleaved - Conc' Duplicate/D/O 'Cleaved Nsp/c','fit-cl-conc.vs. ln' Duplicate/D/O 'Cleaved Nsp/c','Res-cl-conc. vs. ln' CurveFit/X=1 line 'Cleaved Nsp/c' /X='cleaved - Conc' /D='fit-cl-conc.vs. ln' /R='Res-cl-conc. vs. ln' 'fit-cl-conc.vs. ln'= W_coef[0]+W_coef[1]*'cleaved - Conc' 'Res-cl-conc. vs. ln'= Cleaved Nsp/c - (W_coef[0]+W_coef[1]*'cleaved - Conc') W_coef={-0.955,0.6139} V_chisq= 0.230422; V_npnts= 4; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -2.0771; V_Pr= 0.825751; W_sigma={0.292,0.297} Coefficient values one standard deviation a = -0.955 0.292 b = 0.6139 0.297 AppendToGraph 'fit-cl-conc.vs. ln' vs 'cleaved - Conc' Duplicate/D/O 'Cleaved (1/c)(ln/n0)','fit-cl-conc.vs. Nsp' Duplicate/D/O 'Cleaved (1/c)(ln/n0)','Res-cl-conc. vs. Nsp' CurveFit/X=1 line 'Cleaved (1/c)(ln/n0)' /X='cleaved - Conc' /D='fit-cl-conc.vs. Nsp' /R='Res-cl-conc. vs. Nsp' 'fit-cl-conc.vs. Nsp'= W_coef[0]+W_coef[1]*'cleaved - Conc' 'Res-cl-conc. vs. Nsp'= Cleaved (1/c)(ln/n0) - (W_coef[0]+W_coef[1]*'cleaved - Conc') W_coef={-1.0882,0.70416} V_chisq= 0.314515; V_npnts= 4; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -1.77787; V_Pr= 0.820872; W_sigma={0.341,0.346} Coefficient values one standard deviation a = -1.0882 0.341 b = 0.70416 0.346 AppendToGraph 'fit-cl-conc.vs. Nsp' vs 'cleaved - Conc' ModifyGraph mode('Cleaved (1/c)(ln/n0)')=3,rgb('Cleaved (1/c)(ln/n0)')=(0,0,0);DelayUpdate ModifyGraph mode('Cleaved Nsp/c')=3,rgb('fit-cl-conc.vs. ln')=(0,0,0) TextBox/C/N=text0/A=MC "Cleaved:" TextBox/C/N=text1/A=MC "(1/c)ln(n/n\\B0\\M)" TextBox/C/N=text2/A=MC "Specific Viscosity over Concentration of \rPolymer vs. Concentration of Polymer" TextBox/C/N=text2 "\\K(65280,16384,16384)Specific Viscosity over Concentration of \rPolymer vs. Concentration of Polymer" TextBox/C/N=text0 "\\f01Cleaved:" TextBox/C/N=text0_1/A=MC/X=-44.71/Y=37.48 "\\f01Cleaved:" TextBox/C/N=text0/A=MC "\\f01Uncleaved:" TextBox/C/N=text1/A=MC "\\K(65280,16384,16384)Specific Viscosity over Concentration of ";DelayUpdate AppendText "Polymer vs. Concentration of Polymer" TextBox/C/N=text2/A=MC "(1/c)ln(n/n\\B0\\M)" TextBox/C/N=text1 "\\Z10\\K(65280,16384,16384)Specific Viscosity over Concentration of ";DelayUpdate AppendText/N=text1 "Polymer vs. Concentration of Polymer" TextBox/C/N=text2 "\\Z10(1/c)ln(n/n\\B0\\M)" Label bottom "Concentration (g/100mL)" Label left "(1/c)(ln(n/n\\B0\\M))" Label left "" ModifyGraph fSize(left)=10 ModifyGraph fSize=10 Label bottom "Concentration (g/100ml)" ModifyGraph fSize(left)=10 ModifyGraph fSize=10 CurveFit/X=1 line 'Nsp/C' /X=Conc y= W_coef[0]+W_coef[1]*x W_coef={0.21851,0.22277} V_chisq= 0.00247782; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -20.4171; V_Pr= 0.971888; W_sigma={0.061,0.054} Coefficient values one standard deviation a = 0.21851 0.061 b = 0.22277 0.054 CurveFit/X=1 line '(1/c)(ln(n/n0)' /X=Conc y= W_coef[0]+W_coef[1]*x W_coef={0.26847,0.084312} V_chisq= 0.000611283; V_npnts= 3; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -41.1063; V_Pr= 0.952997; W_sigma={0.0303,0.0268} Coefficient values one standard deviation a = 0.26847 0.0303 b = 0.084312 0.0268 CurveFit/X=1 line 'Cleaved Nsp/c' /X='cleaved - Conc' y= W_coef[0]+W_coef[1]*x W_coef={-0.955,0.6139} V_chisq= 0.230422; V_npnts= 4; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -2.0771; V_Pr= 0.825751; W_sigma={0.292,0.297} Coefficient values one standard deviation a = -0.955 0.292 b = 0.6139 0.297 CurveFit/X=1 line 'Cleaved (1/c)(ln/n0)' /X='cleaved - Conc' y= W_coef[0]+W_coef[1]*x W_coef={-1.0882,0.70416} V_chisq= 0.314515; V_npnts= 4; V_numNaNs= 0; V_numINFs= 0; V_q= 1; V_Rab= -1.77787; V_Pr= 0.820872; W_sigma={0.341,0.346} Coefficient values one standard deviation a = -1.0882 0.341 b = 0.70416 0.346 Display 'Cleaved Nsp/c' vs 'cleaved - Conc' 3Conc? S?1[wT?1[wT?Nsp/C?޾ ?4?9) ߴ?=(1/c)(ln(n/n0)?}xQ?[Y!3?vU?W_coef?űű EiZ?q?#fit_Conc?vU?UU?]\@~W_sigma?űűF?%?T +?X뤱zfit-unc-conc.vs. Nsp(q???? O5+?u)?bݦ?CX[zRes-unc-conc. vs. Nsp Res(q????"[XY@?8sHop c>?Xfit-unc-conc.vs. ln(q????#hf??Us|?X8Res-unc-conc. vs. ln(q????*@,{?FL^2:?$cleaved - Conc?S?1[wT?1[wT?1[wT?GCleaved Nsp/c?05jǿ_޿@[m`xD Cleaved (1/c)(ln/n0)(q????2UΎLDنJɿn#oGqrBfit-cl-conc.vs. ln?\?`<%ҏۿ,a%+*趀]` Res-cl-conc. vs. ln(q????4KO|θP?K*?NhԿٳ`ììfit-cl-conc.vs. Nsp(q????5!O? 4'߿n3Q8!_`ììRes-cl-conc. vs. Nsp(q????6?>zĿI?@+M?'O5ؿ // Platform=WindowsNT, IGORVersion=4.050 Silent 101 // use | as bitwise or -- not comment. DefaultFont "Arial" Graph4() Graph1() Graph2() Graph3() MoveWindow/P 5.25,40.25,504.75,335 Table0() Table1() MoveWindow/C 95.25,422,743.25,660.5 Window Table1() : Table PauseUpdate; Silent 1 // building window... Edit/W=(52.5,277.25,557.25,452) 'cleaved - Conc','Cleaved Nsp/c','Cleaved (1/c)(ln/n0)' as "Cleaved" EndMacro Window Table0() : Table PauseUpdate; Silent 1 // building window... Edit/W=(29.25,48.5,534,223.25) Conc,'Nsp/C','(1/c)(ln(n/n0)' as "Uncleaved" EndMacro Window Graph3() : Graph PauseUpdate; Silent 1 // building window... Display /W=(112.5,359.75,507,568.25) 'Res-unc-conc. vs. ln' vs Conc ModifyGraph mode=3 MoveWindow 0, 0, 0, 0 // Minimize the window. EndMacro Window Graph2() : Graph PauseUpdate; Silent 1 // building window... Display /W=(74.25,271.25,468.75,479.75) 'Res-unc-conc. vs. Nsp Res' vs Conc ModifyGraph mode=3 ModifyGraph zero(left)=1 MoveWindow 0, 0, 0, 0 // Minimize the window. EndMacro Window Graph1() : Graph PauseUpdate; Silent 1 // building window... Display /W=(-75.75,137,597,711.5) 'Nsp/C' vs Conc as "Uncleaved" AppendToGraph '(1/c)(ln(n/n0)' vs Conc AppendToGraph 'fit-unc-conc.vs. Nsp' vs Conc AppendToGraph 'fit-unc-conc.vs. ln' vs Conc ModifyGraph mode('Nsp/C')=3,mode('(1/c)(ln(n/n0)')=3 ModifyGraph marker('Nsp/C')=43,marker('(1/c)(ln(n/n0)')=43 ModifyGraph rgb('(1/c)(ln(n/n0)')=(0,0,0),rgb('fit-unc-conc.vs. Nsp')=(65280,16384,16384) ModifyGraph rgb('fit-unc-conc.vs. ln')=(0,0,0) ModifyGraph fSize=10 ModifyGraph lblMargin(left)=18 ModifyGraph lblLatPos(left)=6 Label bottom "Concentration (g/100mL)" TextBox/N=text0/A=MC/X=-38.37/Y=39.61 "\\f01Uncleaved:" TextBox/N=text1/A=MC/X=-26.75/Y=26.46 "\\Z10\\K(65280,16384,16384)Specific Viscosity over Concentration of " AppendText "Polymer vs. Concentration of Polymer" TextBox/N=text2/A=MC/X=-37.44/Y=32.96 "\\Z10(1/c)ln(n/n\\B0\\M)" MoveWindow 0, 0, 0, 0 // Minimize the window. EndMacro Window Graph4() : Graph PauseUpdate; Silent 1 // building window... Display /W=(132,157.25,850.5,611) 'Cleaved (1/c)(ln/n0)' vs 'cleaved - Conc' AppendToGraph 'Cleaved Nsp/c' vs 'cleaved - Conc' AppendToGraph 'fit-cl-conc.vs. ln' vs 'cleaved - Conc' AppendToGraph 'fit-cl-conc.vs. Nsp' vs 'cleaved - Conc' ModifyGraph mode('Cleaved (1/c)(ln/n0)')=3,mode('Cleaved Nsp/c')=3 ModifyGraph rgb('Cleaved (1/c)(ln/n0)')=(0,0,0),rgb('fit-cl-conc.vs. ln')=(0,0,0) ModifyGraph fSize=10 Label bottom "Concentration (g/100ml)" TextBox/N=text0/A=MC/X=-44.71/Y=37.48 "\\f01Cleaved:" TextBox/N=text1/A=MC/X=-40.95/Y=30.02 "(1/c)ln(n/n\\B0\\M)" TextBox/N=text2/A=MC/X=-28.80/Y=20.46 "\\K(65280,16384,16384)Specific Viscosity over Concentration of " AppendText "Polymer vs. Concentration of Polymer" TextBox/N=text0_1/A=MC/X=-44.71/Y=37.48 "\\f01Cleaved:" MoveWindow 0, 0, 0, 0 // Minimize the window. EndMacro #pragma rtGlobals=1 // Use modern global access method. Window Graph0() : Graph PauseUpdate; Silent 1 // building window... Display /W=(151.5,293,546,501.5) Conc vs 'Nsp/C' AppendToGraph Conc vs '(1/c)(ln(n/n0)' AppendToGraph fit_Conc ModifyGraph mode(Conc)=3,mode(Conc#1)=3 ModifyGraph marker(Conc)=6,marker(Conc#1)=42 ModifyGraph rgb(fit_Conc)=(16384,16384,65280) EndMacro