en4：=go3：=e2-(e2-e1)/(h+r4*(1-#cφs(fi*m)))*h； ho4：=if ab＞h then #sign(ho)*(ab-h)else o； goto Loo；
la4：#read(0，‘N’，ld，h，fi，d1，d3，d4b，d4，ho，qn，e1，e2，qd，ml，k1，k3，k4，e)；
#print(0，‘13F10.2，4I10‘，ld，h，fi，d1，d3，d4b，d4，ho，qn，e1，e2，qd，ml，k1，k3，k4，e)；
goto La31；
la5：#read(0，‘N‘，ld，h，fi，r24，d1，d3，d4b，d4，ho，qn，e1，e2，qd，ml，k1，k3，k4，e)； #print(o，‘14F10.2，4I10‘，ld，h，fi，r24，d1，d3，d4b，d4，ho，qn，e1，e2，qd，ml，k1，k3，k4，e)；
d2：=(d1+d3)/2；k2：=(k1+k3)/2；r4：=(ld+r24)/#sin(fi*m)； en4：=go3：=e2-(e2-e1)/(r24+h+r4*(1-#cφs(fi*m)))*(r24+h)； gn3：=fo2：=e2-(e2-e1)/(r24+h+r4*(1-#cφs(fi*m)))*r24； fn2：=e2；ab：=#abs(ho)；hf：=#sign(ho)；fi2：=90； ho3：=if ab＞r24 then hf*(ab-r24)else o； ho4：=if ab＞h+r24 then hf*(ab-h-r24)else o； goto Loo；
la6：#read(0，‘N‘，r24，fi2，r4，fi，d1，d2，d4，ho，qn，e1，e2，qd，ml，k1，k2，k4，e)；
#print(0，‘13F10.2，4I10‘，r24，fi2，r4，fi，d1，d2，d4，ho，qn，e1，e2，qd，ml，k1，k2，k4，e)；
m1：=q；d4b：=(d2+d4)/2；ld：=r4*(1﹣#cφs(fi*m))﹣r24*(1﹣#cφs(fi2*m))；ds1：=ld/m1；fi1：=o； la61：cf4：=#cφs(fi*m)；sf2：=#sin(fi2*m)；
en4：=fo2：=e2﹣(e2﹣e1)/(r24*sf2+r4*(1﹣cf4)*r24*sf2； fn2：=e2； la62∶ab：=#abs(ho)；
ho4∶=if ab＞r24*sf2 then #sign(ho)*(ab﹣r24*sf2)else 0； goto Loo；
la7：#read(0，‘N‘，r1，fi1，r24，fi2，r4，fi，d1，d2，d4，ho，qn，e1，e2，qd，ml，k1，k2，k4，e)； #print(0，‘15F10.2，4I10‘r1，fi1，r24，fi2，r4，fi，d1，d2，d4，ho，qn，e1，e2，qd，ml，k1，k2，k4，e)；
m1∶=q；fi1：= fi1*m；d4b：=(d2+d4)/2； ds1：=r1*fi1/*m1；goto La61；
La8：#read(0，‘N‘，b，r24，fi2，r4，fi，d2，d4b，d4，ho，qn，e1，e2，ml，k2，k4，e)；
#print(0，‘I10，12F10.2，3I10‘，b，r24，fi2，r4，fi2，d2，d4b，d4，ho，qn，e1，e2，ml，k2，k4，e)；
if a=8 then goto la61；sf2：=#sin(fi2*m)；
en4：=eo2：=e2﹣(e2﹣e1)/((r24﹣r4)*sf2+r4)*r24*sf2； en2：=e2；goto la62；
la10：#read(0，‘N‘，ld，r24，h，d1，d3，d5，ho，qn，e1，e2，qd，ml，k1，k3，k5，e)；
#print(0，‘12F10.2，4I10‘，lb，r24，h，d1，d3，d5，ho，qn，e1，e2，qd，nl，k1，k3，k5，e)； m1：=m3：=m5：=q；d2：=(d1+d3)/2；d4b：=d3；d4：=d5； r4：=r24；fi：=fi2：=90；ds1：=ds5：=ld/m5；
h3：=h；
ds3：=h/m3；k2：=(k1+k3)/2；k4：=(k3+k5)/2；if ld=0 then m1：=m5：=0； if h=0 then m3：0，
en4：=go3：=e1+(e2﹣e1)/(h+2*r24)*r24； fn2：=e2；
gn3：=fo2：=e2﹣(e2﹣e1)/(h+2*r24)*r24； ab：=#abs(ho)；hf：=#sign(ho)；
ho3：=if ab＞r24 then hf*(ab﹣r24)else 0； ho4：=if ab＞h+r24 then hf(ab﹣r24﹣h)else 0； ho5：=if ab＞h+2*r24 then hf(ab﹣h﹣2*r24)else 0； ab3：=#abs(ho3)；hf3：=#sign(ho3)； goto Loo；
la11：#read(0，‘N‘，ld，h，d1，d3，d5，ho，qn，e1，e2，qd，ml，k1，k3，k5，e)；
#print(0，‘11F10.2，4I10‘，lb，h，d1，d3，d5，ho，qn，e1，e2，qd，ml，k1，k3，k5，e)； ab：=#abs(ho)；
m5：=q；ds5：=ld/m5；go3：=e1，gn3：=e2； ho3：=ho；
ho5：=if ab＞h then #sign(ho)*(ab﹣h)else 0； loo：if a≤10 then
begin m4：=q；fi：=fi*m；ds4：=fi*r4/m4； eo4：=e1；cf4：=#cφs(fi)； ab4：=#abs(ho4)；hf4：=#sign(ho4)； ena；
if a=1∨(a≥5∧a≤10)then
begin m2：=q；fi2：=fi2*m；ds2：=fi2*r24/m2； sf2：=#sin(fi2)；ab：=#abs(ho)；hf：=#sign(ho)； end；
if a=4∨a=5∨a=11 then
begin m1：=m3：=q；ds1：=ld/m1；ds3：=h/m3； h3：=h；ab3：=#abs(ho3)；hf3：=#sign(ho3)； end；
if a=10∧r24=0 then m2：=m4：=0； m：=m1+m2+m3+m4+m5； begin
real s，so，ke，w，we，eps； integer i，j，k，mx；
array c，d[1∶3，1∶6]；bt，a1，dl[1∶4]，c1，c2，c3，co，cl，g，gi，ae，an，aa，de[1∶6，1∶6]，xo，fe，p，cp，h，hi，b1，b2[1∶6]w1，wo[1∶251]，x[1∶1506]，y[1∶330]； procedu re mat1(a，b，c)； array a，b，c；
begin integer i，j，k； for i：=1 step 1 until 6 do for k：=1 step 1 until 6 do begin c[i，k]：=0； for j：=1 step 1until 6 do c[i，k]：=c[i，k]+a[i，j]*b[j，k]； end； end mat1；
procedure mat2(a，f，h，d，b)； v alue d；real d；array a，f，h，b； begin integer i，j； for i：=1 step 1 until 6 do begin b[i]：=0；
for j：=1 step 1 until 6 do b[i]：=b[i]+a[i，j]*f[j]； b[i]：=b[i]+h[i]*d； end； end mat2；
procedure gg4(x，y)； array x，y； begin integer i，j； for i：=1 step 1 until 6 do for j：=1 step 1 until 6 do y[i，j]：=x[i，j]； end gg4；
procedure gg5(x，y)； array x，y； begin integer i； for i：=1 step 1until 6 do y[i]：=x[i]； end gg5； procedure gnhn； begin integer i，j，l； s：=so；
for i：=1 step 1 until 6 do for j：=1 step 1 until 6 do begin
g[i，j]：=if i=j then 1 else 0； gi[i，j]：=hi[i]：=h[i]：=0； end；
for j：=1 step 1 until 4 do begin so：=s+dl[j]；
begin real gx，gy，d，b1，b2，bo，hm，cf； switch sw2：=lm1，lm2，lm3，lm4，lm5； goto sw2[mx]；
lm1：d：=d1；p[1]：=0；p[2]：=qd﹣ho﹣d*ml；goto ll； lm2：if a≠9 then begin d：=d2；
bo：=fi2﹣so/r24；b1：=#sin(bo)；b2：=#cφs(bo)； gx：=qd﹣d*ml/(if bo=0 then 104else b1)；
﹣
gy：=fo2+b1*(fn2﹣fo2)/sf2； cf：=r24*(sf2﹣b1)；
hm：=if ab＞cf then hf*(ab﹣cf) else 0；
lm21：if H00002=1 then hm：=ho：p[1]：=(gy﹣gx)*b2*b1； p[2]：=gy*b2*b2+gx*b1*b1﹣hm；goto ll；and； bo：=so/r24；b1：=#sin(bo)；b2：=#cφs(bo)； d：=d4b+(fi2﹣bo)/fi2)↑2*(d2﹣d4b)； gx：=eo2+(sf2﹣b1)/sf2*(en2﹣eo2)； gy：=qn+d*ml/(if bo=0 then 104 else b1)；
﹣
cf：=r24*b1；hm：=if ab＞cf then hf *(ab﹣cf) else 0； if H00002=1 then hm：=ho：p[1]：=(gy﹣gx)*b1*b2；
p[2]：=gy*b1*b1+gx*b2*b2﹣hm；goto ll；lm3：d：=d3；hm：=if ab3＞so then hf3*(ab3﹣so)else 0；
if H00002=1 then hm：=ho；p[1]：=d*ml； p[2]：=(h3﹣so)/h3*(gn3﹣go3)+go3﹣hm； goto ll；
lm4：bo：=fi﹣so/r4；b1：=#sin(ho)；b2：=cφs(bo)； d：=d4+(bo/fi)↑2*(d4b﹣d4)； gx：=eo4+(1﹣b2)*(en4﹣eo4)/(1﹣cf4)； gy：=qn+d*ml/(if bo＞1.57 then 104 else b2)；
﹣
cf：=r4*(b2﹣cf4)；
hm：=if ab4＞cf then hf4*(ab4﹣cf)else 0； goto lm21；
lm5：d：=d5；p[1]：=0；if H00002=1 then ho5：=ho； p[2]：=qn+d*ml﹣ho5；
ll：an[2，5]：=if so=s then w*ke else we*ke； an[4，1]：=1/d；an[6，3]：=12/d↑3； end；
for i：=1 step 1 until 6 do
for l：=1 step 1 until 6 do begin
gi[i，l]：=if i=l then 1+a1[j]*gi [i，l]else a1[j]*gi[i，l]； ae[i，l]：=dl[4]*an[i，l]； end；
for i：=1 step 1 until 6 do hi[i]：=a1[j]*hi[i]；
mat1(ae，gi，cl)；gg4(cl，gi)； mat2(ae，hi，p，1，cp)；gg5(cp，hi)； for i：=1 step 1 until 6 do begin h[i]：=h[i]+bt[j]*hi[i]； for l：=1 step 1 until 6 do g[i，l]：=g[i，l]，+bt[j]*gi[i，l]； end； end； end gnhn；
procedure gj(n，a，b，ep，c1，c2)；
value n，ep；real n，ep；arrag a，b，c1，c2； begin
integer i，j，k，io，jo；real c，t； for i：=1 step 1until n do c1[i]：=i；
for k：=1 step 1until n do begin c：=0；
for i：=k step 1until n do for j：=k step 1until n do if #abs (a[i，j])＞#abs(c)then begin c：= a[i，j]；io：=i；jo：=j end；
if #abs(c)≤ep then
begin # print(0，‘10‘，c)；stop end； if jo≠k then begin
for i：=1 step 1 until n do
begin t：=a[i，jo]；a[i，jo]：=a[i，k]； a[i，k]：=t end；
j：=c1[k]；c1[k]：=c1[jo]；c1[jo]：=j