Casio5800交点法程序带数据库修改版

1、casio5800交点法程序（输入版）本程序由一个主程序jd和三个子程序（jda、jdb、jdc）构成，运行时只需运行主程序即可!本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合xy框架自己修改为数据库反算程序等 主程序名:5. jdlbla: h xc ” ?u :

2、” yc ” ?v :” kx + x x x ” ？p ： ” z ” ？d : if dh0 :then ”pj”？h (偏角):“h 二?q1 : pj1=？j if end/prog " jd1 n :m+o-n (下一直线方位角)prog ” jda ” /cis : h tl= ”：” t2= ”：” l= ” ：” ly= h : locate 4, 1, s : locate 4, 2, t :locate 4, 3, l : locate 4, 4, q /cis : m e= ”：” k (zh) = ”： locate 7, 1, e : locate 7, 2

3、,z1 acis : ” k (hy) = ” ： ” k (qz)二”："k (yh) = ” ： ” k (hz) = ” : locate 7, 1,z2 : locate 7,2, z3 : locate 7,3, z4 : locate 7,4, z5丄if d<0:then cis: ” x(l)二 ”：” y(l)二”：locate 6, 1,f : locate 6, 2, gpol(f-u, g-v : cis : " s(l)= ”： locate 6, 1, i : h f(l)= ”： 360frac (j+360) 4-360tdms ago

4、to a: if end/if d=0 :then cis : ” x二 ”：” y 二"：locate 6, 1, f : locate 6, 2, g :" qxfwj(z)二” :ztdmspol(f-u, g-v : cis : ” s(z)二” :locate 6, 1, i : h f(z)二”: 360frac (j+360) 4-360tdms /goto a: if end/if d>0 :then cis : " x(r)二"："y(r)二"：locate 6, 1, f : locate 6, 2, gpo

5、l(f-u, g-v : cis : " s(r)= ” : locate 6, 1,1 : ” f(r)= ” :360frac (j+360) 4-360vdms agoto a : ifendz子程序1名：jdaif 0<0 : then -1->w : else 1->w : if end : w0->a / (保证 a 为正数且为 角度，方便三角计算)（z6为p,即圆曲线内移量）b2 4-244-r-b(4)4-26884-r 八(3) ->z6 /c2 4-244-r-c(4)4-26884-r 八 ->z7 /（z8为m,即切线增量）

6、(a)4-sin(a)->s/ (s 为切线长)b-2-b"(3)4240r2 -*z8c-r2-c(3)4-24-rr2 ->z9z 8 + (r+z 7 - (r+z 6) cosz9 + (r+z6-(r+z7)cos(a) 4-sin (a)->t/raji 4-180+(b+c) 4-2->lzran 4-180-(b+c) 4-2->qz(r+ (z6 +z7) 4-2) -rcos (a4-2)-r->ezk-s->z1 / /z1+bz2 /z2+q-2->z|3|zzl+l-cz4/z4+c->z5 /子程序2名

7、：jdbx-scos (m)z19 (zh 点 x 坐标)y-ssin(m)->z20z (zh 点 y 坐标)x+tcos (n) -z21 (hz 点 x 坐标)y+tsin(n)->z22z (hz 点 y 坐标)if p>zl:then goto 1 : if end/z1-p->l/x- (s+l) cos (m)+dcos (z+h) -f/y- (s+l) sin(m)+dsin (z+h) ->gzif qloorthen f+qlcos(z+i) f:g+qlsin(z+i)g:ifend/mz : goto 5/lb i 1 : if p>

8、;z2:then goto 2 : if end/p-z1->l:l->z12:bz13:prog ” jdc ” /z 19 +z 14 cos (m) -wz15sin (m) +dcos (z+h) ->fzz 20 +z 14 sin (m) +wz 15 cos (m) +dsin (z+h) ->gzif qloorthen f+qlcos(z+i)->f:g+qlsin(z+i) g:ifendzm+90wl2 4- (brtt)->zz (二m+2& 647890wi/2/b/rz)goto 5/lb i 2 : if p>z4

9、:then goto 3 : ifendzp-zl->l:90(2l-b)4-r4-7t->zllz rsin(zll)+z8fz14:r(lcos(zll)+z6->z15/z 19 +z 14 cos (m) -wz15sin (m) +dcos (z+h) ->fzz 20 +z 14 sin (m) +wz 15cos (m)+dsin (z+h)g/if qloorthen f+qlcos(z+i)->f:g+qlsin(z+i)->g:ifendzm+wz11->z/goto 5/lb i 3 : if p>z5:then goto

10、4 : ifendzz5-p->l:l->z12:cz13:prog ” jdc ” /z 21 -z 14 cos (n) -wz15sin (n) +dcos (z+h) ->fzz22-z14sin (n)+wz15cos(n)+dsin (z+h) g /if qloorthen f+qlcos(z+i)f:g+qlsin(z+i)g:ifend/2n-90wv 一 (crn) z/ (n-28. 647890wi/2/c/rz)goto 5 /lbl 4 : p-z5->lzx+ (t+l) cos (n)+dcos (z+h) ->fzy+ (t+l)

11、 sin (n)+dsin (z+h) ->gzif qloorthen f+qlcos(z+i)->f:g+qlsin(z+i)->g:ifendzn-zzgoto 5/lbl 5 : 360frac (z+360) 4-360->z/子程序3名：jdcif z=0 :then 宀z14: 0*z15 :else/z12- z12a(5)4-404-(rz13)2+ z12 (9) 4-34564- (rz13) (4) -z14/z12 a(3)4-64- (rz13)-z12r (7) 4-3364- (rz13厂(3)+ z12(11)4-422404-(rz1

12、3) (5)->z15 /if end/数据库：progjdlgoto albla:if pw下一交点zh点里程:then交点里程一k：交点x坐标一x：交点y坐标一y：交点上 直线方位角:-m：交点圆曲线半径-r：第一缓和曲线长-b：第二缓和曲线长tc：路线 转角（左负右正）-0:ifcnd： return-数据库格式说明：i计算起点或本交点zh点桩号|计算终点或下一交点zh点桩号ifpelthen本交点桩号交点x（n）坐标交点y（e）坐标今交点上一直线方位角今m：交点转角（左转为负）夕本交点平曲线半径刁r:第一缓和曲线长度£:第二缓和曲线长度c： goto 1： ifendf*程序说明：已知数据输入：xc ?测站x坐标yc ?测站y坐标k （jd） ?交点桩号x （jd） ?交点x坐标y （jd） ?交点y坐标lsi ?第一缓和曲线长度ls2 ?第二缓和曲线长度曲线半径（zh） fwj° ?交点前（即前交点至本交点也即zh点）的正切线方位角 a （z-,y+） ?本交点处线路转角（左转为负，右转为正，度分秒输入）kx + xxx?待求桩号z ?待求桩号距中距离（左负值，右正值，中为0）rj ?斜交右角（线路切线前进方向与