卡西欧5800道路放样程序中怎么反算和正算不一致,正算是正确的。
- 提问者网友:野性
- 2021-02-15 06:09
- 二级知识专家网友:高冷不撩人
- 2021-02-15 06:19
- 1楼网友:一起来看看吧
- 2021-02-15 07:45
线路中、边桩测量放样程序 (ver 3.2)
f1 xlcs (主程序,步数385)
l1 norm:deg:u=o″a0″:prog 1:q=u:c″x-jd″:d″y-jd″:u=a″a:r+l-″:prog 1: b=abs u:r:s″l0″:e″k-zh″
l2 m=.5s-sxy3/240r2:p=s2/24r:t=(r+p)tan.5b+m:f=πrb/180+s+e
l3 k″zj:xy=>1″:k≠1=>{l}:v=l″k″:u=0:prog 4: g=x:h=y:≠>g″x″:h″y″{kj}:k″hs:xy=>1″:k=1=>{i}:x=i″x″:y=j″y″:≠>v=j″k″:u=0:prog 4
l4 pol(x-g,y-h:n=w:u=0:{u}:u″ab″:prog 1:k=u
l5 lb1 0:u=0:{u}:u″cs:xy=>1″:u=0=>{uz}:v=z″k″: u″bz:r+l-″:a<0=>u =-uprog 4: ≠>{xy}:x:yprog 5: prog 6:goto 0
f2 1 (十进制→六十进制子程序,步数19)
l1 u=int u+frac u/.6+frac 100u/90
f3 2 (六十进制→十进制子程序,步数22)
l1 60frac w:w=int w+.01int ans+.006frac ans
f4 3 (缓和曲线上任意点坐标计算子程序,步数57)
l1 y=rs:x=v-vxy5/40y2:y=vxy3(1-vxy4/56y2)/6y+urec(1,90v2/πy:x=x-uw
f5 4 (中桩、边桩坐标计算子程序,步数195)
l1 v>f=>x=t-usinb+rec(v-f+t,b:y=w+ucosb:goto 0
l2 v>f-s=>v=f-v:prog 3: rec(1,b:u=x:x=t+tv-xv-yw:y=tw-uw+yv: goto 0
l3 v>e+s=>y=p+r-rec(r-u,180(v-e-.5s)/πr:x=m+w:goto 0
l4 v>e=>v=v-e:prog 3: ≠>x=v-e:y=u
l5 lbl 0: a<0=>y=-yrec(1,q:u=x:x=c-tv+xv-yw:y=d-tw+uw+yv
f6 5 (测设数据输出子程序,步数76)
l1 pol(x-g,y-h:w=w-n:w<0=>w=w+360w=k+w:w≥360=>w= w-360 fix 4:prog 2:w″ac″=w◢fix 3:v″dc″=v◢norm
f7 6 (测设时移桩数据计算子程序,步数92)
l1 lbl 0:norm:l=0:w=0
casio fx-4x00
l2 lbl 1:u=0:{u}:u″sc″:u≠0=>w=w+u:l=l+1:goto 1w≠0=>{u}:u″v″: prog 1:fix 3:w″sd″=w/l×sin u◢w″move″=v-w◢goto 0