string jsgs,gsjsgs               /* jsgs表示長度計算公式；gsjsgs表示根數計算公式*/

single mg,k,Lw,hs,ln           /* mg:錨固代號；k：斜長系數；lw表示彎折長度*/

hs=th/(m+1)                    /*K值計算*/

ln=bs*m

k=sqrt(sqr(bs)+sqr(hs))/bs

k=fround(k,3)

if jb=1                        /*錨固計算 */

  mg=la1*zj

else

  if jb=2

    mg=la2*zj

  else

    mg=la3*zj

  endif

endif

if mg>(bg-bhc)*k

  Lw=mg-(bg-bhc)*k

else

  Lw=0

endif

/*L=round(Lw)

/*C1=tbh-2*bhc */

B=round((ln/4+bg-bhc)*k)

h1=round(lw)

h2=tbh-2*bhc

H=round(4*hs)

cd=round(ln/4*k+mg+tbh-2*bhc)       /*長度計算 */

jsgs=ln & "/4*" & k & "+" & mg & "+" & tbh & "-2*" & bhc

if jb=1

  jsgs=cd & "+6.25*d"

  cd=cd+6.25*zj

endif

gjlx=0

if jb=5

  gjlx=1

endif

if jb=6

  gjlx=2

endif

if jj=0

  cnt=cnt

  gsjsgs=cnt

else

  cnt=ceil((tbjk-2*bhc)/jj)+1     /* 根數計算 */

  gsjsgs="Ceil((" & tbjk & "-2*" & bhc & ")/" & jj & ")+1"

endif

mainend