おこちゃんの測量プログラム

測量に役立つかもしれないBASICプログラムを公開

2017-05-01から1日間の記事一覧

4.路線線形計算 (F-BASIC)

lprint type"dc"'-----------曲線設置-------------defdbl A-H,L,M,P-Z:defstr N,K:defint I,JPI=3.141592653589793#:EE=0.0000000001#RA=206264.8062471#:RAA=180#/PI:RRA=PI/180#dim NN$(20),N2$(20),X(20),Y(20),T(20),L(20),S(20),L1(20),XP(20),YP(20),…

14.真北計算 (F-BASIC)

lprint type"dc"*TAIYOSUKANSOKU'太陽観測defdbl A-H,M,P,O,R,T-Z:defstr N,Q,S:defint I,JEET=1/100000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#XYAS=180#/PI:ASXY=PI/180#dim DS(17),A1(20),A2(20),XT(20),DD1(10),AAT(10),AS1(6)…

10.多角測量座標計算 (F-BASIC)

'***** トラバ-スの計算 *****lprint type"dc"'*TRAVERSdefstr N,Q:defint I,J:defdbl A-H,K-M,O,P,R-ZEET=1/10000000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#:RAA=180#/PI:RA=206264.8062471#dim NN$(30),XX(30),YY(30),BT(30),B…

7.偏心計算 (F-BASIC)

lprint type"dc"'------------- 偏心計算 ------------defdbl A-H,M,O,P,R-Z:defstr K,N,Q:defint I,JEET=1/10000000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#RAA=180#/PI:RRA=PI/180#dim S1(5),N1$(5),B1(5),N2$(5),B2(5),S2(5),BB…

12.度分秒の変換計算 (F-BASIC)

lprint type"dc"'-----------度分秒計算-------------defdbl A-H,L,P-Y:defstr N,K:defint I,J,CPI=3.141592653589793#:EE=0.0000000001#RA=206264.8062471#:RAA=180#/PI:RRA=PI/180#def fnRRA(T)=(T*10000#-40#*(fix(T*100#)+60#*fix(T)))/RAdef fnRAA(T)=(…

8.都既定の巾杭計算 (F-BASIC)

lprint type"dc"*TOHABAGUI'-----都規定巾杭計算defdbl D-H,L,P-Y:defstr N,K:defint a,I,J,cPI=3.141592653589793#RA=206264.806471#:RAA=180#/PI:RRA=PI/180#dim NN$(50),N2$(50),XR(50),YR(50),XL(50),YL(50),SS(20),S(20)def fnRAA(D)=(fix(D)+fix*1/36)…

13.三級水準測量の計算 (F-BASIC)

'-----三級水準測量計算-----lprint type"dc"defint I,J,P:defstr N,Q:defdbl A-Hdim BS(40),FS(40),HS(40),BSD(40),FSD(40),HSD(40),HKS(40),HKK(40),P(40),HA(40)N0$=" ---------------------------------------------------------"*KAISI:cls:locate 15,8…

5.座標面積計算 (F-BASIC)

'-----座標面積計算-----lprint type"dc"defint I,J:defstr N,Q:defdbl A-H,K,L,M,P,R-Zdim X(40),Y(40),XH(40),YH(40),FSD(40),HSD(40),HKS(40),HKK(40),P(40),HA(40),N$(40)EE=1/10000000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#…

3.座標による距離方向角の計算 (F-BASIC)

'***** 座標による距離方向角の計算 *****lprint type"dc"'*ZASTKEISANdefstr N,Q:defint I,J:defdbl A-H,K-M,O,P,R-ZEE=1/10000000000#PI=3.141592653589793#:RAA=180#/PI:RRA=PI/180#:RA=206264.8062471#dim N$(30),X(30),Y(30),BB(30),SS(30),BR(30),AT(3…

15.座標による交点計算 (F-BASIC)

lprint type"dc"'-----------交点計算-------------defdbl D-H,L,P-Y:defstr N,K:defint a,I,J,cPI=3.141592653589793#:EE=0.0000000001#RA=206264.806471#:RAA=180#/PI:RRA=PI/180#dim NN$(50),N2$(50),XR(50),YR(50),XL(50),YL(50),SS(20),S(20)def fnRAA(…

11.経緯度計算 (F-BASIC)

lprint type"dc"'--------経緯度とXY変換計算-------defdbl A-H,L,M,P,R,T-Z:defstr N,Q,S:defint K,I,JEET=1/100000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#XYAS=180#/PI:ASXY=PI/180#dim DS(17),DB(17),A2(20),XT(20),ST(20),B…

9.クロソイド曲線との交点計算 (F-BASIC)

lprint type"dc"'-----------クロソイドの交点計算-------------defdbl A,C,D,K-Z:defstr H,N:defint B,I,JPI=3.141592653589793#:EE=0.0000000001#RA=206264.806471#:RAA=180#/PI:RRA=PI/180#dim N1$(10),N$(10),TTT(10),TT(10),TTR(10),TS(10),TR(10),X(10…

目次

1. 三角形の計算 i. 二辺夾角による対辺の計算 ii. 三辺より三内角の計算 iii. 三角形の面積計算 iv. 三斜の底辺と高さ斜辺1より斜辺2の計算 2. 画地計算 i. 一辺と両角と分割の傾きによる計算 ii. 一筆地を座標で分割する計算 iii. 一筆地を3点固定と分…