lisp 非对称缓和曲线_非对称缓和曲线放样计算程序清单(for Casio-fx4850)
编制:苏畅
根据他人程序结合本人实际运用修改,十分好用。上传与大家分享
非对称缓和曲线放样计算程序清单
(for Casio-fx4850)
扩展变量操作(15个):Defm 15←┚( O为字母
、0为数字)
J-PQX (平面数据输入,自行切换到J-JSMS)
Defm 15←┚
A“JD”B“JDX”C“JDY”F“FWJ”O“A0: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 :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢
“T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs
O÷2)+K÷2-KKK÷240RR+X◢
“L=”:L=Abs OπR÷180+(E+K)÷2◢
J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢
X=A-Z[3]:Y=X+E:E<1=>“ZY=”:X◢
≠=>“ZH=”:X◢
“HY=”:Y◢
⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢
Y=X+L-K:X=X+L:K<1=>“YZ=”:X◢
≠=>“YH=”:Y◢
“HZ=”:X◢
⊿Prog“J-JSMS” ←┚
J-JSMS(放样模式主程序)
“1-ZS, FY,3-FS”: Lb1 0:{Z}: Z“MS”≤2=>Goto 1:≠=> Z≤4=> Goto2
⊿⊿←┚
Lb1 1 :Q“X-YIQI”S“Y-YIQI”T“X-HOUSI”U“Y-HOUSI”:{PDW}:P“F=”D“BZ=”W“BJ=”: Prog“JP”: Prog“FY”: Goto 1←┚
Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”:“P=”: P◢
“BZ=”: D◢
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
“X=”: X◢
“Y=”: Y◢
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
FY(放样计算子程序)
Pol(T-Q,U-S):“HOUSI D=”:I◢
J<0=>J=J+360⊿J>360=>J=J-360⊿“HOUSI J=”:J→DMS◢
Pol(X-Q,Y-S):“I=”:I◢
J<0=>J=J+360⊿J>360=>J=J-360⊿“J=”:J→DMS◢
一、程序简介
本套程序是共有2个主程序,3个子程序。包括了路线坐标正反算、放样计算等程序。
二、程序功能
本着用最懒的方法做最繁杂的事(当然认真更重要!),根据不同需要,本程序共设置了2种计算模式J-JSMS:
1-ZS,FY正算及放样模式:适用于中、边桩计算,里程桩号及边距=>平面坐标、放样极距及偏角。
3-FS,反算模式:适用于任意点里程、边距计算,任意点坐标=>里程、边距。
三、计算范围
平曲线:直线-缓和曲线(或无)-圆曲线-缓和曲线(或无)-直线中任意桩号,允许两缓和曲线不等长,即可以算卵形曲线,回头曲线
四、数据输入及各计算模式运行过程
1、正算模式:1-ZS,
运行主程序J-PQX(平曲线),计算过程如下:
显示输入计算结果备注
DJ?交点桩号
JDX?交点X值
JDY?交点Y值
FWJ?计算方位角
A0:Z-,Y+? 交点转角左转为负值,右转正值
R?圆曲线半径
LS1?第一缓和曲线
LS2?
第二缓和曲线
T1=前切线
T2=后切线
L=曲线长度
E=外距
ZH=
ZH桩号 若不计算平曲线要素桩号,程序清单J-PQX内有下划线部分可以不写入计算器内。
HY=
HY桩号
QZ=
QZ桩号
YH=
YH桩号
HZ=
HZ桩号
1-ZS,FY,3-FS
MS?
计算模式选择,此模式请输入:1总共有2种计算模式供选择,符号说明见“二、程序功能”。
X-YIQI输入置仪点坐标X
Y-YIQI输入置仪点坐标Y
X-HOUSI输入后视点坐标X
Y-HOUSI输入后视点坐标Y
F=?待求点桩号
BZ=?边桩距离左边为负值,右边为正值,中桩输0
BJ=?边桩夹角右边桩与中线夹角,正交为90,斜交另输
X=放样点X值
Y=放样点Y值
HOUSI D=后视点到置仪点的距离
HOUSI J=后视点偏角望远镜对准后视点时度盘读数为该数值
I=放样点到置仪点的距离
J=放样点的偏角望远镜对准放样点时度盘读数为该数值
F=?BZ=?BJ=?...本模式循环计算
2、反算模式:3-FS,
运行主程序J-PQX(平曲线),运行过程同“1、1-ZS,正算模式”;若平曲线数据已经输入了,或者计算交点同上次相同,可直接运行J-JSMS(计算模式)
显示 输入
计算结果 备注
······平曲线数据输入过程·····
1-ZS,FY,3-FS
计算模式选择,此模式请输入:3总共有6种计算模式供选择,符号说明见“二、程序功能”。
X?
任意点P的X值
Y?
任意点P的Y值
BJ?
边桩夹角右边桩与中线夹角,正交为90,斜交另输
P= P点桩号
BZ=边桩距离 负值为左边桩,正值为右边桩
X?Y?...本模式循环计算
必读:
1、如果中途关机或已知数据与上次计算相同,直接运行J-JSMS计算即可,可不必重新输入已知数据。
2、程序内未加入长短链数据,涉及长短链的曲线计算时P值应该增加(或减少)长短链数值。
lisp 非对称缓和曲线_非对称缓和曲线放样计算程序清单(for Casio-fx4850)相关推荐
- python如何画贝塞尔曲线_初识贝塞尔曲线
贝塞尔曲线在CSS动画中和canvas.svg绘图中都是比较重要的一个东西!所以我来好好的小结一下关于它的一些东西. 什么是贝塞尔曲线 贝塞尔曲线于1962,由法国工程师皮埃尔·贝塞尔(Pierre ...
- teechart绘制实时曲线_关于PIII曲线
近期忙,忙于生计,三千出头的工资早已力不从心~公众号自上次更新以来已久久没有动静.今天决定再更新一篇:关于水文P-III曲线的一些内容.P-III曲线这里只讲一下绘图的问题.最近在做了几个频率曲线适线 ...
- 边际效用递减推导需求曲线_软件需求曲线
边际效用递减推导需求曲线 回到我将经济学工具应用于软件开发的系列文章– 软件开发中的 供需,一段时间内的 软件供应和软件供求–这次是敏捷 –是时候将我们的注意力转向需求曲线了. 首先提醒人们事情是如何 ...
- python画loss曲线_绘制loss曲线
第一步保存日志文件,用重定向即可: $TOOLS/caffe train --solver=$SOLVERFILE 2>&1 |tee out.log 第二步直接绘制: python p ...
- stata绘制roc曲线_绘制ROC曲线、找截断值,教你两种软件操作方法!
我们在前面学习过用SPSS(SPSS操作:多项测量指标的ROC曲线分析)和Stata (Stata教程:ROC曲线下面积的比较)绘制ROC曲线.但是,最佳临界点--截断值(cut-off point) ...
- lisp 非对称缓和曲线_利用AutoLISP语言绘制带缓和曲线的铁路曲线平面图
利用 AutoLISP 语言绘制带缓和曲线的铁路曲线平面图 [ 摘要 ] 通过 AutoLISP 编程方法的剖析 , 探讨了基于 Visual LISP(VLISP) 编程软件环境下 , 利用 Aut ...
- python绘制缓和曲线_在cad中画缓和曲线的绘制方法
缓和曲线具有以下作用:曲率连续变化,便于车辆遵循:离心加速度逐渐变化,旅客感觉舒适:超高横坡度及加宽逐渐变化,行车更加稳定:与圆曲线配合,增加线形美观.故,缓和曲线在公路.桥梁.铁路及高速铁路中广泛采 ...
- JPBC实现非对称双线性配对:typeF型曲线
文章目录 引言 一.对称与非对称双线性对 二.TypeF简单使用 1.初始化实例 2.生成群元素与计算 疑问与补充 引言 最近在做基于身份的签名算法仿真,涉及到椭圆曲线双线性配对,本人比较小白所以就用 ...
- python绘制缓和曲线_CAD中缓和曲线的画法 - AutoCAD基础应用 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
在AutoCAD中缓和曲线的几种画法,其实在AutoCAD中,想要画出缓和的曲线是一项比较困难的工作,目前常见的画法可以分为以下的这几种: 1.AutoLISP程序法,使用这个方法要求用户掌握已知的曲 ...
最新文章
- 波士顿房价预测学习项目笔记
- Android- assent和raw的区别
- 成人高考计算机考试技巧,备战2015年成人高考:计算机基础考试经验分享
- jquery获取java对象的属性_jQuery - 获得内容和属性
- [转载] python循环中break、continue 、exit() 、pass的区别
- linux与python客户端,LINUX平台下DM7与Python的适配
- openstack虚拟机迁移live-migration中libvirt配置
- [python]getopt模块的使用介绍
- linux基础及网新运维,Linux运维工程师常用到的Linux基础命令(一)
- 学习记录 | ZigBee协议栈工作流程
- 三轴加速度传感器的类型、原理、特点和应用
- 复化梯形公式求积算法 c语言,c语言版本复合梯形法、辛普森法求积公式
- 芯片中的CP是什么CP
- MATLAB超限邻域滤波
- 转载一篇过来人谈的大学期间关于课外学习的意见lt;出自左飞老师笔记gt;
- C#语言实例源码系列-实现XML文件操作
- 详解办公室装修设计省钱妙计
- JavaScript实现贷款利息计算器
- 当年明月致新浪朋友的信
- 我们该如何高效的学习
热门文章
- 采用 MediaRecorder 实现录音功能
- 谈谈html中一些比较偏门的知识(maparea;iframe;label)
- linux下使用tar命令解压.tar.gz文件是参数的说明
- Nginx反向代理与负载均衡
- Android学习笔记之百度地图(根据地名查询经纬度)
- wifidog java_家用环境下部署wifidog认证服务器(java版)
- open-falcon-agent部署
- 前端文本对比工具使用 - mergely
- win7安装oracle 黑屏,雨林木风 win7安装黑屏怎么解决
- 迈拓网络硬盘软件全攻略(5)mldonkey