任意里程中边桩坐标正反算程序 for 4850P(正反算全线贯通和手工双重版本)

Posted on 2010-10-26 by HANNIU_1973

[B][color=Blue][center]任意里程中边桩坐标正反算程序 for 4850P[/center][/color][/B] 一、程序编制原理: 本程序是基于圆心坐标和点到线元始终点法线垂距乘积反号原理为数学建模精确解析正反算线元坐标。 二、源程序: 1、主程序: ZFS-SZ Lbl 0:Cls:{N}:N"1.ZBZS 2. ZBFS"=1=>Goto 1:≠>Goto 6△ Lbl 1:Cls:{SZ}:S"Kp":S<0=>Goto 0△Z"Dp" Lbl 2:Cls:{N}:N"1.AUTO 2.MANUAL"<0=>Goto 1:≠>N=1=>Goto 3:≠>N=2=>Goto 4△△△ Lbl 3:Prog "ZS-LY3":Goto 5 Lbl 4:{UVOGRQ}:Prog "XY-M":F=G:Prog "DMS1":G=F:Goto 5 Lbl 5:L=S-O:B=90QL÷π÷R:F=G+B:E=F+B+90:C=LK+2MRsinQB "Xp":X=I...

圆曲线(已知两点和半径)座标计算程序 for 4850P

Posted on 2014-1-13 by HANNIU_1973

[color=Blue]圆曲线(已知两点和半径)座标计算程序 for 4850P[/color] 一、编制原理: 因景观工程、房建和市政工程的曲线大多是圆曲线并且设计仅给两端点和半径而无曲线要素的前提下, 利用圆曲线两端点和半径,基于圆心点座标数学精确解析圆弧上任意点座标。 二、程序清单: Lbl 0:CLS:{ABCGR}:A"X1":B"Y1":C"X2":G"Y2":R Lbl 1:J=0:I=POL(C-A,G-B):J<0=>J=J+360△ F=J-sin[SUP]-1[/SUP](I÷2÷R):U=A+Rcos (F+90):V=B+Rsin (F+90) Lbl 2:Cls:{LD}:L"Lp":L<0=>Goto 0△ D"Dp":[color=Red]D=0=>D=1E-45△[/color] Q=Abs D÷D:T=F-90+(180L÷R÷π) N=U+Rcos T:E=V+Rsin T X=N+Dcos (T+180Q):Y=E+Dsin (T+180Q) [color=Red]O=0...

基于边角联合后方交会原理的自由设站程序 for 4850P

Posted on 2014-5-26 by HANNIU_1973

[center]基于边角联合后方交会原理的自由设站程序 for 4850P[/center]
一、程序编制原理:基于边角联合后方交会法,按最小二乘间接条件严密平差原理
二、源程序:
1、主程序:JIAOHUI-BJ1
Lbl 1:{XYABCDRGEFQ}:X"XA":Y"YA":A"XB":B"YB":C"D1":D"D2":R"a0":G"MR":E"MS1":F"MS2":Q"K(1,-1)"
K=F:F=R:Prog"DMS2":R=F:F=K:J=0:I=Pol(X-A,Y-B):J≤0=>J=J+360△Prog“COS”:V=O:K=C:C=D:D=K:
Prog"COS":W=O:K=C:C=D:D=K:Z=3600(180-W-V-R):H=CsinW:P=206265:K=H^2G^2Z÷(H^2G^2+
P^2((cosW)^2F^2)):N=KP÷G^2÷H:L=NE^2cosV:M=NF^2cosW:R=R+K÷3600:"a0=...

PC-E500道路竖曲线计算程序(精确算法版)

Posted on 2012-4-3 by HANNIU_1973

[center]PC-E500道路竖曲线计算程序(精确算法版)[/center]

   本人数月前曾发布过此程序的近似算法版,因为各设计院的设计理念各异,不同的线路有不同的算法.随着国内高等级公路的普及和要求越来越高,竖曲线的精确算法解算竖曲线高程的做法将是未来设计的主流.鉴于目前许多教科书上仍是近似算法,而许多线路解算软件中已含有此精确算法的解算功能,但软件不公开源代码,用户只会用,但不知为何如此.故此为了能让大家做到"知其然亦知其所以然",于此,我发布此精确算法PC-E500的源代码程序,以便大家相互交流.


一、源程序:
100 INPUT "NUM.=";N
120 DIM JN(N),ZY(N),YZ(N),JD(N),HD(N),I1(N),I2(N),R(N)
140 CLS:LOCATE 8,1:INPUT "ENTER FILENAME:";FNAME$
160 OPEN "E:"+FNAME$+".DAT...

曲线超高加宽计算程序(绕边轴和中轴旋转,直线和高次抛物线加宽)

Posted on 2009-3-6 by HANNIU_1973

[center]曲线超高加宽计算程序(绕边轴和中轴旋转,直线和高次抛物线加宽)[/center]

一、源程序:
100 INPUT "NUM.=";N
120 DIM JN(N),ZH(N),HZ(N),B(N),BW(N),BJ(N),IJ(N),IG(N),IH(N),LC(N)
140 CLS :LOCATE 8,1:INPUT "ENTER FILENAME:";FNAME$
160 OPEN "E:"+FNAME$+".DAT" FOR INPUT AS #4
180 FOR I=1 TO N
200 IF EOF (4) THEN 260
220 INPUT #4,JN(I),ZH(I),HZ(I),B(I),BW(I),BJ(I),IJ(I),IG(I),IH(I),LC(I)
240 NEXT I
...

原创:PC-E500道路竖曲线计算程序(近似算法版)

Posted on 2008-9-14 by HANNIU_1973

                  [center]PC-E500道路竖曲线计算程序(近似算法版)[/center]
[fly]这是原创程序,各位朋友如需转贴必须注明程序出处![/fly]
一、源程序:
100 INPUT "NUM.=";N
120 DIM JN(N),ZY(N),YZ(N),JD(N),HD(N),I1(N),I2(N),R(N)
140 CLS:LOCATE 8,1:INPUT "ENTER FILENAME:";FNAME$
160 OPEN "E:"+FNAME$+".DAT" FOR INPUT AS #3
180 FOR I=1 TO ...

PC-E500通讯参数设置程序

Posted on 2012-4-3 by HANNIU_1973

[center]PC-E500通讯参数设置程序[/center]
一、源程序:
10 REM E500 <=> PC COMMUNICATION
15 CLOSE :CLS
18 POKE &BFD33,&78
19 LOCATE 6,0 :POKE &BFCA1,&FF:PRINT " E500 <=> PC COMMUNICATION: "
20 LOCATE 6,1 :PRINT "   HANNIU_1973   VER.2008   "
30 LOCATE 1,3:POKE &BFCA1,&0:PRINT "[1200]  [2400]  [4800]  [9600]  [19200]"
32 RATE=ASC INKEY$
34 IF RATE=&HF1 THE...

PC-E500平面位置测设的新算法程序

Posted on 2017-7-10 by HANNIU_1973

100 REM THE COMPUTING PROGRAM OF HORIZONTAL ANGLE FOR LAYOUT OF PLANIMETRIC POSITION 200 CLS :INPUT "XA=";XA,"YA=";YA,"XB=";XB,"YB=";YB,"XP=";XP,"YP=";YP 300 XAB=XB-XA:YAB=YB-YA:XAP=XP-XA:YAP=YP-YA 400 C=SGN (XAB*YAP-YAB*XAP):DAB=SQR ((XB-XA)^2+(YB-YA)^2):DAP=SQR ((XP-XA)^2+(YP-YA)^2) 500 JAO=C*ACS ((XAB*XAP+YAB*YAP)/DAB/DAP) 550 USING "####.#####" 600 CLS :LOCATE 15,1:PRINT "JAO=";MDF (DMS JAO) 650 USING 700 LOCATE 0,3:POKE &BFCA1,&FF:PRINT "[NEXT]":POKE &BFCA1,&0:LOCATE 17,3:POKE &BFCA...

PC-E500 线路坐标正反算测量程序

Posted on 2012-11-3 by HANNIU_1973

[center][B]PC-E500 线路坐标正反算测量程序[/B][/center] 一、程序清单: 50 DEFDBL A-E,G,K,L,Q,U-Y 100 PAI#=3.1415926535897932385# 120 CLS :LOCATE 10,0:PRINT "ZFS-GAUSS FOR HAND" 200 INPUT "X0=";X0,"Y0=";Y0,"S0=";S0,"F0=";F0,"LS=";LS,"R0=";R0#,"RN=";RN# 250 F0=DEG (F0):C=1/R0#:D=(R0#-RN#)/(2*R0#*RN#*LS):E=180/PAI# 300 INPUT "1.SZ=>XY 2.XYPj=>SZ ?";CN1 400 ON CN1 GOTO 500,1500 500 INPUT "Sp=";S,"Dp=";DP,"PJ=";AE 600 AE=DEG (AE):W=ABS (S-S0) 700 GOSUB *ZS 800 USING "######.###" 900 CLS :LOCATE 1,1...

房产测绘面积计算分摊系数推导公式(For CASIO 4850P计算程序)

Posted on 2013-9-5 by HANNIU_1973

房产测绘面积计算分摊系数推导公式 编制者:hanniu_1973 编制原理:鉴于如今出现了许多房产测绘软件在计算精度和易用上的不足,本人根据《房产测量规范》(GB/T17986.1—2000)和CASIO fx—4850 P 程序说明书推导出房产测绘分摊系数计算公式并编制了此套4850P程序以方便各位朋友在计算多功能分摊的房产测绘面积起到抛砖引玉的作用,希望各位朋友对此程序加以扩展。 一、分摊系数推导公式: 1、公式: ①、一级分摊系数:K1=A1 / B1 ②、二级分摊系数:K2=(A1 / B1×B2+A2) / (B2-A2)=(K1×B2+A2) / (B2-A2) ③、三级分摊系数:K3=[(A1 / B1×B2+A2) / (B2-A2)×B3+A3] / (B3-A3)=(K2×B3+A3) / (B3-A3) ④、四级分摊系数:K4={[(A1 / B1×B2+A2) / (B2-A2)×B3+A3] / (B3-A3)×B4+A4} / (B4-A4) =(K3×B4+A4...


15篇┋页次1/2 分页: [1] [2]