1樓:匿名使用者
j-sqx(豎曲線資料輸入
「j-sqx」::z[9]=n「sjd」:z[10]=h「jdz」:
z[11]=u「i1」:z[12]=v「i2」:z[13]=m「r」:
z[14]=q「qd」:z[15]=p「zd」:「to j-j**s」
j-pqx (平面資料輸入,自行切換到j-j**s
a「jd」 b「jdx」 c「jdy」 f「fj」 o「zj:z-,y+」 re「ls1」 k「ls2」:e<1=>e=1e-9⊿k<1=>k=1e-9⊿z[1]=ee÷24r-e∧4÷2688rrr:
z[2]=e÷2-eee÷240rr:x=(ee-kk)÷24r÷sin abs o :z[3]「t1」 =(r+z[1])tan(abs o ÷2)+z[2]-x◢
z[4]「t2」 =(r+kk÷24r-k∧4÷2688rrr)tan(abs o ÷2)+k÷2-kkk÷240rr+x◢
l=abs oπr÷180+(e+k)÷2◢
j=tan-1((r+z[1])÷(z[3]-z[2]):x「e」=(r+z[1])÷sin j-r◢
x=a-z[3]:y=x+e:e<1=>x「zy」◢
≠=>x「zh」◢
y「hy」◢
⊿y「qz」=x+(l-k-e)÷2+e◢
y=x+l-k:x=x+l:k<1=>x「yz」◢
≠=>y「yh」◢
x「hz」◢
⊿prog「j-j**s」 ←┚
j-j**s(放樣模式主程式
「1-zs,2-f1,3-fs」:「4-f2,5-z0,6-dm」:lb1 0:: z「ms」≤2=>goto 1: ≠=> z≤4=> goto2
:≠=> goto 3⊿⊿←┚
lb1 1 ::pd「bz」w「bj」: prog「jp」:x「x=」◢
y「y=」 ◢
z<2=> goto 1:≠=>prog「js」:prog「jc」:h「z」=h+g◢
goto 1⊿←┚
lb1 2 ::xyw「bj」: prog「jf」: p「p=」◢
d「bz=」◢
z<4=>goto 2:≠=>:q「zp」:prog「js」:prog「jc」:prog「jb」:goto 2⊿←┚
lb1 3 ::p: prog「js」:h「z0=」◢
z<6=>goto 3:≠=>:s「cgz」:t「jkz」:z[8]=q「lh」:d「bz」:prog「jc」:j「jk=」◢
g「z」=h+g◢
goto 0⊿
js(豎曲線計運算元程式
pprog「j-sqx」 ⊿p>z[15]=>prog「sj-sqx」⊿←┚
n=z[9]:u=z[11]:v=z[12]:h=z[13]:g=h abs(u-v)÷200:pi=u:m=n-g:m>p=>m=p⊿≠=>i=v:
m=n+g:mm=p⊿⊿j=(p-m)2÷2h:u-v>0=>j=-j⊿h=z[10]+(p-n)×i÷100+j
jp(平曲線正運算元程式
fixm←┚
lb1 1 :j=f:x= b-z[3]cos f :y= c-z[3]sin f :g=e←┚
p≤a-z[3]=>i=a-z[3]-p:m=-i:n=0:h=f+w:goto 5←┚
≠=>p≤a-z[3]+e=>i=p-a+z[3]:h=90ii÷reπ:o<0=>h=-h⊿h=h+w+f:goto 3←┚
≠=>p≤a-z[3]+l-k=>i=p-a+z[3]-e:goto 4: ≠=>goto 2⊿⊿←┚
lb1 2 :x= b+z[4]cos(f+o :y= c+z[4]sin(f+o :j=f+o+180:g=k←┚
p≤a-z[3]+l=>i=a-z[3]+l-p:h=90ii÷rkπ:o>0=>h=-h⊿h=h+j+w+180:goto 3 ←┚
≠=>i=p-a+z[3]-l:m=-i:n=0:h=j+w+180:goto 5 ←┚
lb1 3 :m=i-i∧5÷40rrgg:n=iii÷6gr-i∧7÷336rrrggg:goto 5 ←┚
lb1 4 :h=(e+2i)×90÷πr:m=r sin h+z[2]:n=r(1-cos h)+z[1]:o<0=>h=-h⊿h=j+h+w: goto 5
←┚lb1 5 :p≤a-z[3]+l-k=> o<0=>n=-n⊿≠=>o>0=>n=-n⊿⊿goto 6←┚
lb1 6 :x =x+m cos j-n sin j+d cos h:y =y+m sin j+n cos j+d sin h
jf(平曲線反運算元程式
fixm←┚
u=x:v=y:d=0:j=f-w:p=a+(y-c)cos j-(x-b)sin j←┚
lb1 1:prog「jp」:j=h-180:
i=(v-y)cos j-(u-x)sin j:abs i<1e-4=>goto 2:≠=>p=p+i:
goto 1⊿←┚
lb2: d=(v-y)÷sinh
jc(超高加寬計運算元程式
fixm:z[8]<1=>z[8]=1e-8⊿
i=e:m=a-z[3]:e<1=>i=z[8]:m=m-i⊿g=k:n=a-z[3]+l:k<1=>g=z[8]:n=n+g⊿←┚
p≤0.5(n+m=>u=(p-m)÷i:≠=>u=(n-p)÷g⊿u<0=>u=0⊿u>1=>u=1⊿
j=ut 高次拋物線加寬j=t(1-3uu+2uuu ) : do<0=>j=0⊿
i=1:prog「jd」:i=us:g=i+un-n:u=abs d-v:⊿u<0=>u=o⊿u>m+j+z[5]=>u=m+j+z[5]⊿
z[7]=1=>goto 1
:≠=>goto 2←┚
lb1 1:i=0=>i=-n:≠=>i=g:do>0=>i=-i:abs ii=-n⊿⊿⊿g=ui:n=i:goto 3←┚
lb1 2:nn=i⊿g=n(m-u)+z[5]z[6]:n=-n:do<0=>g=g+2iu:n=i⊿goto 3←┚
lb1 3: u= m+j+v+z[5]:abs d≥u-0.01=>g=g-z[5](n+z[6])⊿
jb(路基邊樁放樣子程式
h=h+g-q:h<0=>i=2:h「w=」=abs h◢
≠=>i=3 :h「t=」◢
⊿prog「jd」:g=h÷v:g<1=>i=mg:≠=>g<2=>i=m+n(g-1): ≠=>i=m+n+z[6](g-2) ⊿⊿
i「bp」=abs d-vi-z[7]int g-u-z[5] ◢
g=v frac g:g<1.5=>g「pt」◢
⊿jd(斷面資料儲存子程式
i=1=>m=4:n=0.015:z[5]=0.25:z[6]=0.015:v=0:z[7]=2
:≠=> i=2=> z[5]=1.1: m=0.5: n= 0.75: z[6]=1.00: v=10: z[7]=1.0
:≠=> z[5]=0:m=1.50: n=1.75: z[6]=2.00 : v=8: z[7]=1.0⊿⊿
←┚◢ ⊿ ≠=> =>≤≥**的
4500計算器座標計算程式如何輸入計算器
fx 4500p座標計算程式根據座標計算方位角 l1 a x1 b y1 pol c x2 a，d y2 b s w 0 w w 360 w alf 1 2 直線段座標計算l1 x x 0 y y 0 s s 0 a alf l2 lb12l3 l lx l4 m x z x l s cosa l5...
c語言程式問題，C語言程式問題？
1.在你打算學習c語言之前,你要下一個狠狠地決心.因為許多電腦愛好者在學習c語言的過程中,都會遇到困難,從而沒有堅持到最後.只有你下定狠狠地決心,才能學會c語言,才能學好c語言.2.要想學習好c語言,就要學會細心,耐心.c語言程式的編寫需要非常細心,因為一個標點符號的錯誤,可能導致程式的無法執行.3...
linux程式問題，一個linux程式問題
opendir 會返回一個指標列表，每個節點是這個目錄下面的檔名 目錄名 while 每呼叫一次，readdir 會使dirp d name 所指的檔名會自動指向下一個檔名，當readdir返回值為null時遍歷完成，來編譯你這個 c 程式。jiangtao gentoo temp aaaa g a...