计算器4800程序K<255=>Prog''AA'':≠=>K<288=>Prog''BB'':≠=>Prog''CC''怎么换成5800程

来源：蜘蛛抓取(WebSpider) 时间：2017-04-24 13:47 标签：
CASiO fx-4800计算器程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
CASiO fx-4800计算器程序
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
《5800计算器全线坐标计算放样正反算程序》.doc 29页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
&#xe600;下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：250 &&
《5800计算器全线坐标计算放样正反算程序》
你可能关注的文档：
··········
··········
5800计算器全线坐标计算放样正反算（定稿）5800计算器全线坐标计算放样正反算程序（定稿） ??????????????????????????????????????????彭赐明 主程序??坐标正反算 程序名称：ZBZFS LB1??A Cls:Fix4:30→DimZ:&0=ZS,1=FS&?Z↙ If??Z=0:Then??GotoB:IfEnd↙(Z=0进入里程点坐标正算） If??Z=1:Then??Prog&FSLCBZ&:GotoA:IfEnd(Z=1进入反算里程边桩） Lb1B?? “K=”?K：（计算里程）Prog&SJK1&:Prog”ZBFY”:GotoA 子程序??数据库??SJK1 IF??K&本段曲线终点里程??AND??K≥上段曲线终点里程：THEN??本段终点里程→Z[1]:上段曲线终点里程→Z[2]：1→O（注：左偏曲线输入-1→O,右偏曲线输入1→O）:半径→R:曲线偏角→A:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:交点X→B:交点Y→C:小里程向交点方位角→E:交点向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入） 补充直线段输入如下(单独直线段） IFK&本段直线终点里程AND??K≥本段直线起点里程:THEN本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*COSE→Z[18]:Z[17]+(K-Z[3])*SINE→Z[19]:Return:IFEND 子程序坐标正算，名称：XLZBJSCX LB1??2（曲线要素计算） Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]??（M1） Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]??（M2） Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]??（P1） Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]??（P2） π*A*R/180+0.5*(Z[6]+Z[7])→Z[25]??（曲线总长） 90*Z[6]/(R*π)→Z[14]????（第一缓和曲线总偏角） 90*Z[7]/(R*π)→Z[15]（第二缓和曲线总偏角,可以省略） Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]??(切线T1) Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]??(切线T2) B+Z[12]*COS(E+180)→Z[16]??（ZH点X） C+Z[12]*SIN(E+180)→Z[17]??（ZH点Y） Z[1]-Z[25]→Z[3]??????(ZH点里程) Z[3]+Z[6]→Z[4]??(HY点里程) Z[1]-Z[7]→Z[5]??(YH点里程) GOTO3 LB1??3↙(判断里程点与曲线关系) IF??K≤Z[3]??AND??K&Z[2]:THEN??GOTO??4:IFEND IF??K≤Z[4]??AND??K&Z[3]:THEN??GOTO??5:IFEND↙ IF??K≤Z[5]??AND??K&Z[4]:THEN??GOTO??6:IFEND↙ IF??K≤Z[1]??AND??K&Z[5]:THEN??GOTO??7:IFEND↙ LB1??4↙（里程小于直缓点直线独立坐标） K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO??8 LB1??5↙（第一缓和曲线独立坐标） K-Z[3]→H H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→Z[23]↙ H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Z[24]↙ 90*H^2/(R*π*Z[6])→T↙ IF??O&0??：THEN??T+E→T:ELSE??E-T→T:T&0=&360+T→T:IFEND GOTO8↙ LB16↙（圆曲线独立坐标） K-Z[4]→H H*180/(R*π)+Z[14]→T↙ R*SINT+Z[8]→Z[23]↙ R*(1-COST)+Z[10]→Z[24]↙ IF??O&0??：THEN??T+E→T:ELSE??E-T→T:T&0=&360+T→T:IFEND GOTO8↙ LB17↙（第二缓
正在加载中，请稍后...(┯_┯)广告君被屏蔽了~~~
感谢您的支持，请按照如下步骤取消屏蔽ABBAO的广告()：
我取消屏蔽了您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
CASIOfx4500P计算器程序.doc27页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
文档加载中...广告还剩秒
需要金币：100 &&
你可能关注的文档：
··········
··········
CASIO fx4500P计算器
实 用 程 序
二○○一年八月
本程序稿由于时间仓促及编者水平有限，缺点、错误以及疏漏与不足之处在所难免，恳请大家批评指正。
程序步骤计算：1个字符的文件名算3步 每增加一个字符多算一步 ，行号算1步，每个字符算1步。CASIO fx-4500P共有1103步。
二○○一年八月
程序1――角度判断 1
程序2――角度换算① 1
程序3――角度换算② 1
程序4――角度换算③ 1
程序5――角度换算④ 1
程序6――视距测量 2
程序7――坐标反算 2
程序8――坐标方位角计算 2
程序9――坐标正算 3
程序10――坐标方位角交会计算 3
程序11――垂距计算 4
程序12――视差法测距计算 5
程序13――剖面交点计算 6
程序14――前方交绘计算 6
程序15――附合导线近似平差 7
程序16――渠道中线里程计算 9
程序17――多边形面积计算 11
程序18――闭合导线近似平差 13
程序19――直线交点坐标计算 14
程序20――极坐标法放样计算 15
附录1：CASIO fx-4500P错误标示一览表 16
附录2：常用数学公式 17
附录3：常用测量公式 17
附录4：单一附合导线内业平差计算 20
程序1――角度判断
文 件 名 A 角度判断 29步
L1 B≥360 B B－360△B＜0 B B+360
说明：①程序A为子程序，对≥360°或＜0°的角值进行判断处理。
程序2――角度换算①
文 件 名 B 角度换算① 23步
L1 B Int B+Frac B/.6+Frac100B/90
程序3――角度换算②
文 件 名 C 角度换算② 22步
L1 B Int B+.6Frac B－.004Frac 60B
程序4――角度换算③
文 件 名 D 角度换算③ 25步
L1 F B:B I:Prog B:I B:B F:Prog B
程序5――角度换算④
文 件 名 E 角度换算④ 25步
L1 F B:B I:Prog B:I B:B F:Prog B
说明：①程序B、C、D、E均为子程序，简化测量计算中角度的输入及显
正在加载中，请稍后...

我要回帖

 

随机推荐