**TI85** Group file dated 05/26/98, 22:28ogram fil=OMATSOM-MATSoo-n- MATSn-o-n-n-o-[ENTER] to continue..no7ZTEMPo ZCHMN-ZCHMN'oooTOPoChMenoLD1/-CHP/5CHP/D2/-ChVl/6CHVL/D3/-ChVc/6CHVC/D4/-Misc/6MISC/D5/-MORE/6MOR2ooMISCoLD1/-inv/6ZINV/D2/-Det/6ZDET/D3/->>/4CA/D4/-Disp/5DIS/D5/-BACK/7ChMenooMOR2oLD1/-H/6HHHH/D2/-H-I/7HMINI/D3/-COL/5COL/D4/-/5ZTR/D5/-MORE/6MOR3ooIPo->> /4ZTo4ZT o4ZT 6AAnso4ZToMOR2ooMOR3oLD2/-Vaug/7ZAUGV/D4/-G/S/4GS/D3/-STO /5STO/D1/-BACK/:StartMen/D5/-MORE/5TOPooZAUGVo-Vaug(X,Y)o-Enter X: /4ZXo-Enter Y: /4ZYo4ZXK/4ZYKK 6AAnso6AAns o6AAnsoMOR3ooHHHHo7ZHERMo5HHH 6AAnso6AAns o6AAnsoMOR2ooHMINIo7ZHERMo5HHH 6ZDDDo5HHHa6ZDDDD1 6AAnso6AAns o6AAnsoMOR2ooCOLo-Extract ith Colo-Enter i: /4ZCo6AAns 6ZDDDo6ZDDDD1/D1 5ZTCo4ZI/D1/6ZDDDD1o6AAns4ZI/4ZC 5ZTC4ZI/D1oo5ZTC 6AAnso6AAns o6AAnsoMOR2ooSTOoLD1/-M1/4M1/D2/-M2/4M2/D3/-M3/4M3/D4/-M4/4M4/D5/-BACK/6MOR3oMOR2ooM1o6AAns 4M1n-storedn6AAnsoMOR3ooM2o6AAns 4M2n-storedn6AAnsoMOR3ooM3o6AAns 4M3n-storedn6AAnsoMOR3ooM4o6AAns 4M4n-storedn6AAnsoMOR3oooZAUGoo-aug(X,Y)o-Enter X: /4ZXo-Enter Y: /4ZYo4ZX/4ZY 6AAnso6AAns o6AAnsoMOR3ooDISoo-[ENTER] to continue...o5ZZZo6AAns ovMISCooZINVo6DDD1P6DDD2ooط5MMMUD0oo5MMMI 6AAnso6AAns 5MMMo5ZZZo6AAnso6AAns oo-Matrix not invertibleooo-Matrix not squareooMISCooZTRo6AAnsK 5MMMn5MMM 6AAnso5MMM o6AAnsoMOR2ooZDETo6DDD1P6DDD2oo5MMM oo-Matrix not squareoMISCoooCAon->> /5YYYoD1/D1/-[Enter] to continue...o5YYY o5YYY 6AAnso6AAnsovMISCoooGSo5ZGSo6AAnsoMOR3ooooCHPno-wait...o6ZCHPoChMenoooCHVLo-wait...o7ZCHVLoChMenooCHVCo-wait...o7ZCHVCoChMenooDISo6AAns oStartMenooStartMenooeZCHPec-Begin ZCHPoD1 8CHPVALo5MMM 5TTAo5MMM 5DDDn5DDDD1 6DDD1o6DDD1 5TTDo5TTD`D1 5TTCo5TTD 5TTIoD1 5TTCD1o5TTI 5TTBo4II/D2/5TTD`D1/D1o5MMMp5TTB 5TTAoD0 6TTTRo4JJ/D1/5TTD/D1o6TTTR`5TTA4JJ/4JJ 6TTTRoo6TTTRq4IIaD1 5TTC4IIo5TTA`5TTC4IIp5TTI 5TTBoo5TTCo<Ans 6CHPCoo-[ENTER] to continue...oo-oo6CHPC oo6CHPC 6AAnso6CHPCo ZCHP2"Begin ZCHP2"1CHPVALMMMTTAdim (MMM)DDD:DDD(1)DDD1DDD1TTDTTD+1dim TTCident TTDTTI1TTC(1)TTITTBFor(II,2,TTD+1,1)MMM*TTBTTA0TTTRFor(JJ,1,TTD,1)TTTR+TTA(JJ,JJ)TTTREndTTTR/(II-1)TTC(II)TTA+TTC(II)*TTITTBEndvcli TTCAnsCHPC ZCHVC-ZCHVCoBEGINnoooMainoSTARToLD1/-M-I/9VALMAT2/D2/-H/6HHHH/D3/-H-I/7IMINH/D4/-NS/4NS/D5/-MORE/6MOR2ooMOR2oLD1/-NZCs/5NZC/D2/-STO/5STO/D3/-aug/6AUGG/D4/-/7TRANS/D5/-MORE/6MOR4ooMOR4oLD5/-MORE/7START/D1/-BACK/6BACK/D2/->> /4CA/D3/-Disp/5DISooDISoo-[ENTER] to continue...o5ZZZo6AAnsoMOR4oooCAon->> /5YYYoD1/D1/-[Enter] to continue...o5YYY o5YYY 6AAnso6AAnsoMOR4ooTRANSo6AAnsK 6AAnso6AAnso6AAnsoMOR2ooNZCoo7ZDELZo6AAns o6AAnso}MOR2ooMOR3oSTARTooAUGGo-Augment X by Yo-Enter X: /6MMM1o-Enter Y: /6MMM2o6MMM1/6MMM2 6AAnso6AAnso6AAnso}MOR2ooDELCo-Delete jth columno-Enter j :/4IIo6AAns 5DDDn5DDDD1 6DDD1n5DDDD2 6DDD2o6DDD1/6DDD2aD1 6TMMMo4JJ/D1/6DDD1/D1o4KK/D1/4IIaD1/D1o6AAns4JJ/4KK 6TMMM4JJ/4KKooo4JJ/D1/6DDD1/D1o4KK/4II`D1/6DDD2/D1o6AAns4JJ/4KK 6TMMM4JJ/4KKaD1ooo6TMMM 6AAnso6AAns o6AAnsoSTARToooSTOoLD1/-M1/4M1/D5/-BACK/6BACK/D2/-M2/4M2/D3/-P/3P/D4/-Q/3QooM1o6AAns 4M1o-storedo6AAnsoMainooM2o6AAns 4M2o-storedo6AAnsoMainooPo6AAns 3Po-storedo6AAnsoMainooQo6AAns 3Qo-storedo6AAnsoMainooHHHHoo7ZHERMo5HHH 6AAnso6AAns o6AAnsoSTARTooIMINHoo7ZHERMo5HHHa6DDD1 6AAnso6AAns o6AAnsoSTARTooIMINH2oo5HHH 6ZDDDo5HHHa6ZDDDD1 6AAnso-ZDELZo6AAns o6AAnso!STARTooNSoo7ZHERMno5HHH 6AAnsnIMINH2o6AAnsoSTARTooVALMATon-Enter :/5LAMn3Aa5LAM6DDD1n<Ans 6AAnsn6AAns o6AAns 6ZTTTo6AAnsoSTARTooVALMAT2o6CHPCPD1nn-Must calculate CHP...nnooo-Enter :/5LAMo5AAAa5LAM6DDD1o<Ans 6AAnso6AAns o6AAnso!STARTooBACKooo ZCHVL-Begin ZCHVLonooChVlMenoLD1/-Plot/9PlotMen/D2/-SynDv/:SynDvMen/D4/-Srch/6EIGV/D3/-Newt/6NEWT/D5/-BACK/7ChMenooEIGVo7ZSRCHoChVlMenooPlotMeno7ZPLOToChMenooSynDvMenoLD1/-CHP/5YES/D5/-BACK/7ChMen/D2/-QUO/5QUO/D3/-SAME/5SAMooYESo6CHPCPD1o6ZCHPo6CHPC 6PPPCno7ZCONToSynDvMenooQUOo<Ans 6PPPCno7ZCONToSynDvMenooSAMo7ZCONToSynDvMenooQUIToChVlMenooCONToSynDvMenooNEWTo7ZNEWToChVlMenooChMenooChVlMenuo-above added as debug testooTestMenoLD1/-val/7other/D2/-eval/7evalu/D5/-BACK/6BACKoooothero-Enter test value: /5vvvoTestMenooevaluo"6CHPC/5vvv oTestMenooBACKo- End ZCHVLoChVlMenooBACKooo ZCONT-ZCONToo-Poly :/6PPPC o-Divide by {1r}o-Enter r :/5VVVo6PPPC 6QQQCn6PPPCD1 6QQQCD1o3I/D1/6PPPCaD1o6QQQC3Ip5VVV`6PPPC3I`D1 6QQQC3I`D1no6QQQC6QQQC 3Rno6QQQCaD1 6QQQCnoآ3RQD.0001oD0 3Ro-Quo=/6QQQC o-Rem=/3R o6QQQCoo ZDELC"ZDELC"ClLCDAAnsZTM:1ZILbl STdim ZTMZDDWhile ZI SWAPo5MMM ooo5MMM4ZR/4ZCUD1oD1q5MMM4ZR/4ZC/5MMM/4ZR 5MMMo5MMM 6AAnso-* ONEo5MMM oo4ZI/D1/6DDD1o4ZIU4ZR@5MMM4ZI/4ZCUD0oo5MMM4ZI/4ZC/5MMM/4ZR/4ZI 5MMMo4II/D1/6DDD2oآ5MMM4ZI/4IIQD.00001oD0 5MMM4ZI/4IIoo5MMM 6AAnso-*+ ZEROo5MMM oooD1`4ZR 4ZRooD1`4ZC 4ZCooo (ZHERM(&-ZHERMo6AAns 5HHHo5HHH 5DDDn5DDDD1 6DDD1n5DDDD2 6DDD2o6DDD1R6DDD2nn6DDD1/6DDD1 5HHHnn5HHH 5HHHno6DDD2/6DDD2 5HHHo4II/6DDD2/D1/D1nD0 5CCCn4JJ/D1/6DDD2/D1oآ5HHH4II/4JJPD1@5CCCPD0nnD1 5CCCn5HHH/4II/4JJn<Ans 5HHHonnn5HHH 5EEEn5ZZZn5EEE 5HHHo5HHHo/ZHHH/--ZHHHo5MMM 5DDDo5DDDD1 6DDDMo5DDDD2 6DDDNo6DDDMR6DDDNo6DDDM/6DDDM 5MMMo5MMM 5EEEno6DDDN/6DDDN 5EEEo4II/6DDDN/D1/D1oD0 5CCCo4JJ/D1/6DDDN/D1noآ5EEE4II/4JJPD1@5CCCPD0ooD1 5CCCo5EEE/4II/4JJo<Ans 5EEEnonno6DDDN/6DDDN 5EEEo5EEE 5MMMo5ZZZoo5MMM 6TMATooZMAT-ZMATo-INITSoD0 6CHPCoo[oD0 8CHPVALo-END INITSo-BEGINo-oXStartMenoStartMenooLD1/-I/O/8MtxMen/D2/-EROs/9ErosMen/D3/-MATH/9EigVMen/D4/-EDIT/6MISC/D5/-MORE/5MORoooMISCo-wait...o7ZMISCoStartMenooMtxMenoLD1/-RCL/5RCL/D2/-Def/5Def/D3/-STO/5STO/D4/-Disp/5DIS/D5/-BACK/:StartMenoooCALCo->> /5YYYo5YYYo5YYY 6AAnso6AAnsoMtxMenoooMORoLD1/-End/7Endit/D2/-DISP/5DIS/D3/-*>>/5ENT/D5/-MORE/:StartMenooENTo-*> /5YYYo5YYY oMORooDISoo-[ENTER] to continue...o6AAns oMORooSTOoLD1/-A/4MA/D2/-B/4MB/D3/-D/4MD/D4/-P/4MP/D5/-MORE/5MORooLD1/-M1/4M1/D2/-M2/4M2/D3/-M3/4M3/D4/-M4/4M4/-BACK/8MtxMenooMAn6AAns 3An3A 5MMMn3An-storedn6AAnsoMtxMenooMBo6AAns 3Bn3B 5MMMo3B o-storedo6AAnsoMtxMenooMDo6AAns 3Dn3D 5MMMo3D o-storedo6AAnsoMtxMenooMPo6AAns 3Pn3P 5MMMo3P o-storedo6AAnsoMtxMenooM1o6AAns 4M1n4M1 5MMMn4M1n-storedn6AAnsoMtxMenooM2o6AAns 4M2n4M2 5MMMn4M2n-storedn6AAnsoMtxMenooM3o6AAns 4M3n4M3 5MMMn4M3n-storedn6AAnsoMtxMenooM4o6AAns 4M4n4M4 5MMMn4M4n-storedn6AAnsoMtxMenooDISo5ZZZoo-oD1/D1/-[ENTER] to continue...o5ZZZo6AAns oStartMenooRCLoD0 6CHPCo-Enter Matrix: /5AAAo5AAA 5MMMn5AAA 6AAnsoD0 6CHPCo5MMM o5MMM 5DDDo5DDDD1 6DDD1o5DDDD2 6DDD2oXStartMenooNAMEoD0 6CHPCo-Enter Definition: /5AAAo5AAA 5MMMn5MMM 6AAnsoD0 6CHPCo5MMM 5DDDo5DDDD1 6DDD1o5DDDD2 6DDD2oStartMenooDefoD0 6CHPCo-Collect mxn matrixo-Enter m: /4MMo-Enter n: /4NNo4MM/4NN 5AAAo5AAA 5DDDo4MM 6DDD1o4NN 6DDD2o4II/D1/4MM/D1o4JJ/D1/4NN/D1ooD1/D10/-<nD1/D11/4IInD1/D13/-,oD1/D15/4JJoo7ENTRYo7ENTRY 5AAA4II/4JJoooo5AAA o5AAA 5MMMn5MMM 6AAnso5MMM 5DDDoXStartMenooEnditooooErosMeno-One moment...o7ZROSAoStartMenoooEigVMeno-One moment...o7ZCHMNoXStartMenoo ZMISC-ZMISCoo5MMM oStartoLD1/-Aug/6AUGG/D2/-DelC/6DELC/D3/-DelR/6DELR/D4/-/7TRANS/D5/-BACK/6BACKooTRANSo6AAnsK 6AAnso6AAns o6AAnsoStartooZDETo5MMMo<Ans oStartoooTRANSo5MMMK 5MMMo5MMM oStartooAUGGo-Augment X by Yo-Enter X: /6MMM1o-Enter Y: /6MMM2o6MMM1/6MMM2 5MMMo5MMM n5MMM 6AAnsoStartooDELCo-Delete jth columno-Enter j :/4IIo6AAns 5DDDn5DDDD1 6DDD1n5DDDD2 6DDD2o6DDD1/6DDD2aD1 6TMMMo4JJ/D1/6DDD1/D1o4KK/D1/4IIaD1/D1o5MMM4JJ/4KK 6TMMM4JJ/4KKooo4JJ/D1/6DDD1/D1o4KK/4II`D1/6DDD2/D1o5MMM4JJ/4KK 6TMMM4JJ/4KKaD1ooo6TMMM 5MMMo5MMM 6AAnso6AAns o6AAnsoStartooDELRo6AAns 5MMMo-Delete ith rowo-Enter i :/4IIo5MMM 5DDDn5DDDD1 6DDD1n5DDDD2 6DDD2o6DDD1aD1/6DDD2 6TMMMo4JJ/D1/4IIaD1/D1o4KK/D1/6DDD2/D1o5MMM4JJ/4KK 6TMMM4JJ/4KKooo4JJ/4II`D1/6DDD1/D1o4KK/D1/6DDD2/D1o5MMM4JJ/4KK 6TMMM4JJaD1/4KKooo6TMMM 5MMMn5MMM 6AAnso6AAns o6AAnsoStartooBACKooWZMMMWU"ZMMM"MMM(I)ZMMFor(II,1,DDD2)If abs (ZMM(II)).000010ZMM(II)EndZMMMMM(I) ZNEWT"ZNEWT"ClLCDy1=det (x*ident DDD(1)-AAA)Input "Enter x0: ",x:y2=nDer(y1,x)Lbl Newx(y2*x-y1)/y2x1If abs (x-x1)>.00001Thenx1xGoto NewxElseDisp xEndReturn (ZPLOT(&n-Begin ZPLOToPlotMenoLD1/-RANGE/:RangeMen/D2/-ZIN/6ZZIN/D3/-ZOUT/7ZZOUT/D4/-GRAPH/4GR/D5/-BACK/6BACKooRangeMenoLD1/-xMin/5xMn/D2/-xMax/5xMx/D3/-yMin/5yMn/D4/-yMax/5yMx/D5/-BACK/9PlotMenooxMnoo-Enter xMin: /=oRangeMenooxMxoo-Enter xMax: /=oRangeMenooyMnoo-Enter yMin: /=oRangeMenooyMxoo-Enter yMax: /=oRangeMenooZZINooPlotMenooZZOUTooPlotMenooGRo6CHPCPD1nn-Must calculate CHP...nnoo;y1?2xp5DDDD1a5AAAooPlotMeno-End of ZPLOTooBACKooooo gZROSAge-ZROSAoo5MMM oErosoLD1/-*/6ROWX/D2/-*+/6RPIV/D3/-<-->/9SWAPROW/D5/-MORE/7ErosB/D4/-Disp/5DISooDISoo-[Enter] to continue...o6ZZZOo5MMM oErosoo-SWAPoSWAPROWo-Ri<-->Rjo-Enter I: /4IIo-Enter J: /4JJo5MMM/4II/4JJ 5MMMo5MMM o5MMM 6TMAToErosooRPIVo-K * Ri + Rj -> Rjo-Enter K: /4KKo-Enter I: /4IIo-Enter J: /4JJo4KK/5MMM/4II/4JJo<Ans 5MMMo5ZZZo5MMM o5MMM 6TMAToErosooROWXo-k * Ri -> Rio-Enter k :/4KKo-Enter I :/4IIo4KK/5MMM/4II 5MMMo5MMM o5MMM 6TMAToErosooErosBo-One moment...o7ZROSBoErosooStartMenoooFPIVno7ZFPIVoErosoo ZROSB-ZROSBo-MORE EROSoErosBoLD1/-rref/7RREFF/D2/-H/6HHHH/D3/-H b'/4HA/D4/-Sho/6RSHO/D5/-BACK/7ZMATAoooZMATAo6ZMAToooRSHOo7ZGSHOoErosBooDETTo5MMMo<Ans oErosBooFPIVno7ZFPIVoErosBooRREFFo7ZRREFoErosBooHHHHno6ZHHHo5MMM oErosBooHMINIo6ZHHHo5MMM 5DDDo5MMMa6DDDN 6AAnso6AAns 5MMMo5MMM oErosBnooHAo6ZHHHo5MMM 6DDDNo6DDDND1aD1/6DDDND2 5MMMo5MMM 6AAnso5MMM oErosBnoooooooDet*o6DetK oErosBooStartMenoooErosoo ZRREF-ZRREFo5MMM 5ZMMo5MMM 5DDDo5DDDD1 6DDD1n5DDDD2 6DDD2o6DDD1R6DDD2o6DDD1/6DDD1 5ZMMo5ZMM 5ZMMn6DDD1/6DDD2 5ZMMo5ZMM o5ZMM 6TMATo5ZMM 6AAnso5ZMM 5MMMoo ZSRCH-ZSRCHo-Integer root search..o6CHPCPD1oo-Must calculate CHP...oooo6CHPC 7ZPPPCoD0 8ZCHVLUooSToآ7ZPPPC7ZPPPCQD.0001oo7ZPPPCaD1 7ZPPPCo8ZCHVLU`D1 8ZCHVLUoD0 8ZCHVLU8ZCHVLUoSTooo7ZPPPC7ZPPPC 5ZUCooD1 7ZRNRMo4ZI/D1/6DDD1o$5AAA4ZI/4ZJ/4ZJ/D1/6DDD1/D1 5ZNMo5ZNMR7ZRNRMn5ZNM 7ZRNRMooo$7ZRNRM`5AAA4ZI/4ZI/4ZI/D1/6DDD1/D1 6ZNUPoo$7ZRNRM`5AAA4ZI/4ZI/4ZI/D1/6DDD1/D1 6ZNLPoo5ZUC 6ZUL1n6ZNUP 6ZUL2o6ZUL1/6ZUL2 5ZULo6ZUL1/6ZNLP 5ZLLoooST2o4ZI/5ZLL/5ZULoآ"7ZPPPC/4ZIQD.0001oo7ZPPPC 7ZQQQCo4ZJ/D1/7ZPPPCaD1o7ZQQQC4ZJp4ZI`7ZPPPC4ZJ`D1 7ZQQQC4ZJ`D1no7ZQQQCaD1 7ZQQQCo8ZCHVLU`D1 8ZCHVLUo4ZI 8ZCHVLU8ZCHVLUo7ZQQQC 7ZPPPCooST2onoo8ZCHVLUPD0oo-None found...ooo8ZCHVLUoo HZSRCH2HFIf dimL CHPC==1:Then:Disp "Must calculate CHP...":Return:End0dimL (ZCHVLU)CHPCZPPPCLbl STIf abs ZPPPC(dimL ZPPPC)<.0001ThendimL (ZPPPC)-1dimL ZPPPC:dimL ZCHVLU+1dimL ZCHVLU:0ZCHVLU(dimL ZCHVLU)Goto STElse0dimL DLSTabs ZPPPC(dimL ZPPPC)ZUC1ZRNRMFor(ZI,1,DDD(1)):sum seq(abs AAA(ZI,ZJ),ZJ,1,DDD(1),1)ZNMIf ZNM>ZRNRM:ZNMZRNRM:Endmax(seq(ZRNRM+AAA(ZI,ZI),ZI,1,dimL ZPPPC-1,1))ZNUPmin(seq(ZRNRM+AAA(ZI,ZI),ZI,1,dimL ZPPPC-1,1)ZNLPZUCZUL1:ZNUPZUL2min(ZUL1,ZUL2)ZULmax(ZUL1,ZNLP)ZLLEndLbl ST2For(ZI,ZLL,ZUL)If ZI0ThenIf mod(ZUC,ZI)==0ThenIf abs pEval(ZPPPC,ZI)<.0001ThenZIZDZPPPCZQQQQCFor(ZJ,1,dimL ZPPPC-1)ZQQQC(ZJ)*ZD+ZPPPC(ZJ+1)ZQQQC(ZJ+1):EnddimL (ZQQQC)-1dimL (ZQQQC)dimL (ZCHVLU)+1dimL (ZCHVLU)ZDZCHVLU(dimL ZCHVLU)ZQQQCZPPPCGoto ST2End:EndEnd:End:EndDisp ZCHVLU #ZTEMP#!-ZTEMPo4ZJ/D1/D100oo6ZMATo ZXHMN"ZXHMN"Lbl ChMen:Menu(1,"ChP",CHP,2,"ChVl",CHVl,3,"ChVc",ChVc,4,"Disp",DIS,5,"BACK",StartMen)Lbl CHP:ZCHPGoto ChMenLbl ChVlMenZCHVLGoto ChMenLbl ChVcZCHVCGoto ChMenLbl DISCHPHGoto ChMenLbl StartMenZZZ-ZZZo6AAns 5ZMMo5ZMM 7DIMJJo4II/D1/7DIMJJD1o4IJ/D1/7DIMJJD2oآ5ZMM4II/4IJSD.00001oD0 5ZMM4II/4IJoooo5ZMM 6AAnsoZZZO-ZZZo5MMM 5ZMMo5ZMM 7DIMJJo4II/D1/7DIMJJD1o4IJ/D1/7DIMJJD2oآ5ZMM4II/4IJSD.00001oD0 5ZMM4II/4IJoooo5ZMM 5MMMoXH