🌐 Show Forums for All Locations
Show the latest social shares
USA Surveying Forums
United States Surveyors
- Arizona
- Alabama
- Alaska
- Arkansas
- California
- Connecticut
- Delaware
- Florida
- Georgia
- Hawaii
- Illinois
- Indiana
- Iowa
- Kansas
- Kentucky
- Maine
- Maryland
- Massachusetts
- Michigan
- Minnesota
- Missouri
- Montana
- Nebraska
- Nevada
- New Hampshire
- New York
- North Carolina
- North Dakota
- New Mexico
- Oklahoma
- Ohio
- Oregon
- Pennsylvania
- Rhode Island
- South Carolina
- South Dakota
- Texas
- Utah
- Vermont
- Virginia
- Washington
- Wyoming
- Wisconsin
- West Virginia
- USA Surveying Events
Asia Surveying Forums
Africa Surveying Forums
Middle East Surveying Forums
European Surveying Forums
South American Surveying Forums
Oceania Surveying Forums
Oceania Land Surveyors
Surveying Equipment Support Forums
Choose Your Equipment Type
Search Survey Photos
Search Surveying Photos by Tag
Add Posts, Surveying Photos, Videos and Articles to the Surveyor Community
Add Stuff to Community
Replies
for input in latitude and longitude
5 'ixlalo.ub adapted from code at
6 'https://rosettacode.org/wiki/Find_the_intersection_of_two_linesSinclair _ZX81_BASIC
7 'In U Basic by yuji kida https://en.wikipedia.org/wiki/UBASIC
10 XA=48.7815144526:YA=-117.2847245001 'XA=669595.708:XB=2495736.332
30 XB=48.7815093807:YB=-117.2901673467 'XB:669533.412:YB=2494425.45
50 XC=48.7824947147:YC=-117.28751374:'XC=669595.708:YC = 2495736.332:
60 XD=48.77996737:YD=-117.2922957:'XC= 669331.214:Yc=2494260.804
90 print "THE TWO LINES ARE:"
100 print "YAB=";YA-XA*((YB-YA)/(XB-XA));"+X*";((YB-YA)/(XB-XA))
110 print "YCD=";YC-XC*((YD-YC)/(XD-XC));"+X*";((YD-YC)/(XD-XC))
120 X=((YC-XC*((YD-YC)/(XD-XC)))-(YA-XA*((YB-YA)/(XB-XA))))/(((YB-YA)/(XB-XA))-((YD-YC)/(XD-XC)))
130 print "Lat = ";X
140 Y=YA-XA*((YB-YA)/(XB-XA))+X*((YB-YA)/(XB-XA))
150 print "Lon = ";Y
160 'print "YCD=";YC-XC*((YD-YC)/(XD-XC))+X*((YD-YC)/(XD-XC))
for input in northing and easting (survey feet / meters)
5 'ixspc.ub adapted from code at
6 'https://rosettacode.org/wiki/Find_the_intersection_of_two_linesSinclair _ZX81_BASIC
7 'In U Basic by yuji kida https://en.wikipedia.org/wiki/UBASIC
10 XA=669595.708:XB=2495736.332 'XA=48.7815144526:YA=-117.2847245001
30 XB=669533.412:YB=2494425.45:'XB=48.7815093807:YB=-117.2901673467
50 XC=669595.708:YC=2495736.332:'XC=48.7824947147:YC=-117.28751374
60 XC=669331.214:YC=2494260.804:'XD=48.77996737:YD=-117.2922957:
90 print "THE TWO LINES ARE:"
100 print "YAB=";YA-XA*((YB-YA)/(XB-XA));"+X*";((YB-YA)/(XB-XA))
110 print "YCD=";YC-XC*((YD-YC)/(XD-XC));"+X*";((YD-YC)/(XD-XC))
120 X=((YC-XC*((YD-YC)/(XD-XC)))-(YA-XA*((YB-YA)/(XB-XA))))/(((YB-YA)/(XB-XA))-((YD-YC)/(XD-XC)))
130 print "Lat = ";X
140 Y=YA-XA*((YB-YA)/(XB-XA))+X*((YB-YA)/(XB-XA))
150 print "Lon = ";Y
160 'print "YCD=";YC-XC*((YD-YC)/(XD-XC))+X*((YD-YC)/(XD-XC))
Hi Jetro,
It can be done by the geometry in this way...see below;
1. take Y2-Y1/X2-X1 = H
2. take X3-X4/Y3-Y4 = G
Cal for X:
(Y3-1/GxX3-Y1+HxX1) / (H-1/G) = L
Cal for Y:
Y1+Hx(L-X1)
Cheers,
Geospatial JS
You can simply go back to your Analytic Geometry in college days. The idea is to get the equations of the two intersecting lines then equate variables.
Please give me example friend.Thank you