end； if io≠k then begin
for j：=k step 1 until n do
begin t：=a[io，j]；a[io，j]：=a[k，j]；a[k，j]：=t end；
t：=b[io]；b[io]：=b[k]；b[k]：=t end： c：=1/c；
for j：=k+1 step 1 until n do a[k，j]；= a[k，j]*c；b[k]：=b[k]*c； for i：=k+1 step 1 until n do begin
for j：=k+1 step 1 until n do a[i，j]：=a[i，j]﹣ a[i，k]*a[k，j]； b[i]：=b[i]﹣a[i，k]*b[k] end； end；
for i：=n﹣1 step﹣1 until 1 do for j：=i+1 step 1 until n do b[i]：=b[i]﹣a[i，j]*b[j]； for k：=1 step 1 until n do c2[c1[k]]：=b[k]； for k：=1 step 1 until n do b[k]：=c2[k]； end gj；
a1[1]：=a1[2]：=a1[3]：=0.5；a1[4]：=1； bt[1]：=bt[4]：=1/6；bt[2]：=bt[3]：=1/3； for j：=1 step 1 until 6 do begin p[j]：=0；
for j：=1 step 1 until 3 do c[i.j]：=d[i.j]：=0； for i：=1 step 1 until 6 do
c1[i，j]：=c2[i，j]：=c3[i，j]：=an[i，j]：=0； end； if a=2 then
begin c[1，1] ：= c[2，3]：=c[3，5]：=1； c[1，4]：=﹣k4/e*d4b；
c[2，6]：=c[1，4]*d4b↑2/12；goto r； and；
if a=3∨a=8∨a=9 then begin
if b=1 then c[1，3]：=c[2，4]：=c[3，5]：=1； if b=2 then c[1，4]：=c[2，5]：=c[3，6]：=1； if b=3 then
begin c[1，1]：=c[2，3]：=c[3，5]：=1；
c[1，4]：=﹣1.2*(if a=3 then k3/e*d3 else k2/e*d2)； c[2，6]：=c[1，4]*(if a=3 then d3 eles d2)↑2/12； end；
end else c[1，2]：=c[2，4]：=c[3，6]=1；
r：d[1，2]：=d[2，4]：=d[3，6]：=1；c1[1，2]：=c1[4，5]：=﹣1； c1[2，1]：=c1[3，3]：=c1[5，4]：=c1[6，6]：=1； if a≤2∨a≥9 then goto l01；
c2[1，1]：=c2[2，2]：=c2[4，4]：=c2[5，5]：=#sin(fi)； c2[1，2]：=c2[4，5]：=﹣#cφs(fi)；
c2[2，1]：=c2[5，4]：=#cφs(fi)；c2[3，3]：=c2[6，6]：=1； if a=6∨a=7 then
begin c3[1，1]：=c3[2，2]：=c3[4，4]：=c3[5，5]：=#sin(fi2+fi1)； c3[1，2]：=c3[4，5]：=﹣#cφs(fi1+fi2)； c3[2，1]：=c3[5，4]：=#cφs(fi1+fi2)； c3[3，3]：=c3[6，6]：=1； end；
lo1：an[3，2]：=﹣1；an[5，6]：=1； for i：=1 step 1 until m+1 do wo[i]：=1； b：=0；
llo：s：=0；b：=b+1； for i：=1 step 1until 6 do begin fe[i]：=0； for j：=1 step 1until 6 do de[i，j]：=if i=j then 1 etse 0； end；
if m1≠0 then goto lo else goto l1； lo：so=0；dl[1]：=0；dl[4]：=ds1；
dl[2]：=dl[3]：=dl[4]/2；ke：=k1/e；mx：=1； if a=7 then
begin an[2，1]：=an[5，4]：=1/r1； an[1，2]：=an[4，5]：=﹣1/r1； end；
l1：for i：=1 step 1 until m do
begin w：=wo[i]；we：=wo[i+1]； if i=m1+1∧m2≠0 then goto l2； if i=m1+ m2+1∧m3≠0 then goto l3； if i=m1+ m2+ m3+1∧m4≠0 then goto l4； if i=m1+ m2+ m3+ m4+1∧m5≠0 then goto l5； l11：gnhn；mat1(g，de，cl)；gg4(cl，de)； mat2(g，fe，h，dl[4]，cp)；gg5(cp，fe)；goto l6； l2：so：=0；dl[1]：=0；dl[4]：=ds2；ke：=k2/e； dl[2]：=dl[3]：=dl[4]/2；an[2，1]：=an[5，4]：=1/r24； an[1，2]：=an[4，5]：=﹣1/r24；mx：=2； if a＜6∨a＞7 then goto l11；
gnhn；mat1(g，c3，cl)；mat1(cl，de，co)；gg4(co，de)；mat2(cl，fe，h，dl[4]，cp)； gg5(cp，fe)；goto l6；
l3：so：=0；dl[1]：=0；dl[4]：=ds3；mx：=3； dl[2]：=dl[3]：=dl[4]/2；ke：=k3/e；
an[2，1]：=an[5，4]：=an[1，2]：=an[4，5]：=0； if m2=0∧m1≠0 then begin
l31：gnhn；mat1(g，c1，cl)；mat1(cl，de，co)； gg4(co，de)：mat2(cl，fe，h，dl[4]，cp)； gg5(cp，fe)；goto l6； end else goto l11；
l4：so：=0；dl[4]：=ds4；dl[2]：=dl[3]：=dl[4]/2； dl[1]：=0，ke：=k4/e；mx：=4； an[2，1]：=an[5，4]：=1/r4； an[1，2]：=an[4，5]：=﹣1/r4； if a≤2∨a≥9 then goto l11；
gnhn；mat1(g，c2，cl)；mat1(cl，de，co)； gg4(co，de)；mat2(cl，fe，h，dl[4]，cp)； gg5(cp，fe)；goto l6；
l5：so：=0；dl[4]：=ds5；dl[2]：=dl[3]：=dl[4]/2； ke：=k5/e；mx：=5；
an[1，2]：=an[2，1]：=an[4，5]：=an[5，4]：=0； if m4=0 then goto l31 else goto l11； l6：end；
for i：=1 step 1until 3 do begin xo[i]：=xo[i+3]：=0； for k：=1 step 1 until 6 do
begin aa[i，k]：=c[i，k]；aa[i+3，k]：=0； xo[i+3]：=xo[i+3]﹣d[i，k]*fe[k]；
for j：=1step 1 until 6 do
aa[i+3，k]：=aa[i+3，k]+d[i，j]*de[j，k]； end； end；
gj(6，aa，xo，105，b1，b2)；
﹣
for i：=1step 1until 6 do x[i]：=xo[i]；
w1[1]：=if xo[5]＞0 then 1 else 0； if m1≠0 then goto l7 else goto l8；
l7：so：=0；dl[4]：=ds1；dl[2]：=dl[3]：=dl[4]/2；
ke：=k1/e；an[1，2]：=an[2，1]：=an[4，5]：=an[5，4]：=0； if a=7 then
begin an[2，1]：=an[5，4]：=1/r1； an[1，2]：=an[4，5]：=﹣1/r1； end； mx：=1；
l8：for i：=1 step 1 until m do begin w：=wo[i]；we：=wo[i+1]； if i=m1+1∧m2≠0 then goto l12； if i=m1+ m2+1∧m3≠0 then goto l13； if i=m1+ m2+ m3+1∧m4≠0 then goto l14； if i=m1+ m2+ m3+ m4+1∧m5≠0 then goto l15； l111：gnhn；mat2(g，xo，h，dl[4]，cp)； for j：= 1 step 1 until 6 do x[6*i+j]：=xo[j]：=cp[j]；goto l16；
l12：so：=0；dl[4]：=ds2；dl[2]：=dl[3]：=dl[4]/2； an[2，1]：=an[5，4]：=1/r24；ke：=k2/e； an[1，2]：=an[4，5]：=﹣1/r24；mx：=2； if a＜6∨a＞7 then goto l111； gnhn；mat1(g，c3，cl)；goto l132； l13：so：=0；dl[1]：=0；dl[4]：=ds3； dl[2]：=dl[3]：=dl[4]/2，ke：=k3/e； mx：=3；
an[1，2]：=an[2，1]：=an[4，5]：=an[5，4]：=0； if m2=0∧bm1≠0 then begin
l131：gnhn；mat1(g，c1，cl) l132：mat2(cl，xo，h，dl[4]，cp)； for j：=1 step 1 until 6 do x[6*i+j]：=xo[j]：=cp[j]；goto
l16；
end else goto l111；
l14：so=0；dl[4]：=ds4；dl[2]：=dl[3]：=dl[4]/2； ke：= k4/e；mx：=4； an[2，1]：=an[5，4]：=1/r4；an [1，2]：=an[4，5]：=﹣1/r4； if a≤2∨a≥9 then goto l111； gnhn；mat1(g，c2，cl)；mat2 (cl，xo，h，dl[4]，cp)； for j：=1 step 1 until 6 do x[6*i+j]：=xo[j]：=cp[j]； goto l16；
l15：so：=0；dl[4]：=ds5；dl[2]：=dl[3]：=dl[4]/2； an[1，2]：=an[2，1]：=an[4，5]：=an[5，4]：=0； ke：=k5/e；mx：=5； if m4=0 hen goto l131 else goto l111；
l16：w1[i+1]：=if xo[5]＞0 then 1 else 0；end； eps：=0；
for j：=1 step 1 until m+1 do eps：=eps+(w1[i]﹣wo[i])↑2； if eps≥2 then goto l9 else goto l10； l9：for i：=1 step 1 until m+1do wo[i]：=w1[i]；
an[1，2]：=an[2，1]，an[4，5]：=an [5，4]：=0； goto ll0；
l10：for i：=0 step 1 until m do for j：=4 step 1 until 6 do x[6*i+j]：=x[6*i+j]/e； k：=q；t：=q/10；mx：=0； for i：=0 step 1 until m do begin
for j：=1 step 1 until 6do begin mx：=mx+1； y[mx]：=x[6*i+j]； end； if i=k∧i≠m then begin k：=k+q；
if i=m1∧m2≠0∧(a=6∨a=7)then