.DL R_CH BARS M ;I [1] M_,M#M.GE0 [2] R_((.ROM),100).RO' ' [3] I_1 [4] CH_(.ROM).ROCH [5] B1: R[I;.IOM[I].FL100]_CH[I] [6] .GO((.ROM).GEI_I+1)/B1 [7] R[(M>100)/.IO.ROM;100]_'>' .DL .DL R_C2B CV [1] R_CV.NE' ' [2] R_((.NG2.DAR).OR(1.DA.NG1.DAR).OR2.DAR)/.NG2.DACV [3] R_R,.NG2^CV .DL CCNO_2 ''.RO  CCV_26 ''.RO AS AS AS AS AS K .DL CM_CMAT N ;I [1] CM_(N,72).RO' ' [2] I_1 [3] B10: .BX_'ROW ',.ENI [4] CM[I;]_72^.QQ [5] .GO(N.GEI_I+1)/B10 [6] CM_CM[;.IO73-(.RV' '&.=CM).IO0] .DL FF_' ' L1_26 .RO 1 1 0 1 1 0 0 1 1 0 0 0 1 1 0 0 0 0 1 1 0 0 0 0 0 1 .DL R_CH MBAR M ;I [1] CH_(.NG1^.ROM).ROCH [2] M_.CE.NG4.999989E.NG1 +M [3] R_((1^.ROM),70).RO' ' [4] I_(.IO0).RO.ROCH [5] B1: R_(((1^.ROM),.CE/M[;I]).ROCH[I]),R [6] R_((1^.ROM),.NG70)^(-M[;I]).RVR [7] .GO(0.RO.ROCM),(.ROCM),1).ROCM [4] B1: FP_0/.EP(.ENVF),'.OQCM[I;]' [5] .GO((1^.ROCM).GEI_I+1)/B1 .DL .DL R_F THORN M ;I;RO;T [1] F_F,(1=.RO,F)/0 [2] RO_(.IO1=.RO.ROM),(.IO0=.RO,.ROM),.ROM_(10*-F[2])#.CE.NG4.999999E.NG1 +M#10*F[2] [3] M_((#/RO),1).ROM [4] M_(0 .NG2+.ROM)^M_((#/RO),(.ROM)%#/RO).ROM_(.ENM),' ' [5] T_(#/RO).ROF[2]-F[2]=0 [6] I_1 [7] B1: T[I]_(.NT'E'.EPM[I;])#T[I]-(.NG1^.ROM)-(M[I;].IO'.').FL1+(1.DAM[I;]).IO' ' [8] .GO((.ROT).GEI_I+1)/B1 [9] R_(RO#1,1^F).ROM_((1^.ROM),-1^F)^M_T.RVM_(((1^.ROM),F[1]-1).RO' '),M .DL