08.都既定の巾杭計算
lprint type"dc"*TOHABAGUI'-----都規定巾杭計算defdbl D-H,L,P-Y:defstr N,K:defint a,I,J,cPI=3.141592653589793#RA=206264.806471#:RAA=180#/PI:RRA=PI/180#dim NN$(50),N2$(50),XR(50),YR(50),XL(50),YL(50),SS(20),S(20)def fnRAA(D)=(fix(D)+fix*1/36)…
lprint type"dc"*TOHABAGUI'-----都規定巾杭計算defdbl D-H,L,P-Y:defstr N,K:defint a,I,J,cPI=3.141592653589793#RA=206264.806471#:RAA=180#/PI:RRA=PI/180#dim NN$(50),N2$(50),XR(50),YR(50),XL(50),YL(50),SS(20),S(20)def fnRAA(D)=(fix(D)+fix*1/36)…