CLS
' datos de entrada:
' coordenadas de A y B,  ngulos sexagesimales de A y B
CONST PI = 3.141592654#
PRINT "Interseccion directa"
INPUT "XA:", xa
INPUT "YA:", ya
INPUT "XB:", xb
INPUT "YB:", yb
INPUT "Angulo A (0 a 360): ", A
INPUT "Angulo B (0 a 360): ", B
C = 180 - A - B
AB = SQR((yb - ya) ^ 2 + (xb - xa) ^ 2)
AC = (AB / (SIN(C * PI / 180)) * SIN(B * PI / 180))
AzAB = ATN((xb - xa) / (yb - ya)) * 180 / PI
AzAC = AzAB - A
xc = xa + SIN(AzAC * PI / 180) * AC
yc = ya + COS(AzAC * PI / 180) * AC
PRINT
PRINT "CALCULOS: "
PRINT "__________________________"
PRINT "DISTANCIA AB = "; AB
PRINT "DISTANCIA AC = "; AC
PRINT "AZIMUT AB    = "; AzAB / 360 * 400; "g", AzAB; "§"
PRINT "AZIMUT AC    = "; AzAC / 360 * 400; "g", AzAC; "§"
PRINT
PRINT "COORDENADAS DEL PUNTO C : "
PRINT "__________________________"
PRINT "XC = "; xc
PRINT "YC = "; yc




END
INVERSA:


4020 PRINT "INTERSECCION INVERSA"
4040 INPUT "NOMBRE DE A"; A$
4050 INPUT "NOMBRE DE B"; B$
4060 INPUT "NOMBRE DE C"; C$
4070 INPUT "NOMBRE DE V"; Z$
4090 PRINT "X DE"; S$; " "; : INPUT D
4100 PRINT "Y DE"; S$; " "; : INPUT E
4110 PRINT "X DE"; T$; " "; : INPUT F
4120 PRINT "Y DE"; T$; " "; : INPUT g
4130 PRINT "X DE"; V$; " "; : INPUT H
4140 PRINT "Y DE"; V$; " "; : INPUT I
4150 M = SQR((D - F) ^ 2 + (E - g) ^ 2)
4160 PRINT "DISTANCIA"; A$; "a"; B$; "="; CINT(M)
4170 n = SQR((H - F) ^ 2 + (I - g) ^ 2)
4180 PRINT "DISTANCIA"; B$; "a"; C$; "="; CINT(n)
4201 O = (D - F)
4202 P = (E - g)
4203 VI = ATN(O / P)
4204 IF O > 0 AND P > 0 THEN VI = VI
4205 IF O > 0 AND P < 0 THEN VI = (200 + VI)
4206 IF O < 0 AND P < 0 THEN VI = (200 + VI)
4207 IF O < 0 AND P > 0 THEN VI = (400 - VI)
4208 IF P = 0 THEN VI = 300
4211 Q = (H - F)
4212 R = (I - g)
4213 DV = ATN(Q / R)
4214 IF Q > 0 AND R > 0 THEN DV = DV
4215 IF Q > 0 AND R < 0 THEN DV = (200 + DV)
4216 IF Q < 0 AND R < 0 THEN DV = (200 + DV)
4217 IF Q < 0 AND R > 0 THEN DV = (400 + DV)
4220 NI = (VI - DV)
4221 IF NI < 0 THEN NI = (400 + NI)
4230 PRINT "Ś"; B$; "a"; A$; "="; CINT(VI)
4240 PRINT "Ś"; B$; "a"; C$; "="; CINT(DV)
4250 PRINT "ANGULO EN"; T$; CINT(NI)
4260 PRINT "ALFA"; ""; : INPUT W
4270 PRINT "BETA"; ""; : INPUT L
4280 ENE = (400 - W - L - NI)
4290 EME = (M * SINL) / (n * SINW)
4300 ANG = ATN((SIN(ENE)) / (EME + COS(ENE)))
4301 IF ANG < 0 THEN ANG = (200 + ANG)
4302 IF ANG > 200 THEN ANG = (400 - ANG)
4310 LI = VI + 200
4311 IF LI > 400 THEN LI = (LI - 400)
4320 AZ = (LI + ANG)
4330 AP = ((M * SIN(ANG + W) / SIN(W)))
4340 PRINT "DISTANCIA DE"; A$; "a"; V$; "="; CINT(AP)
4350 PRINT "ACIMUT DE"; A$; "a"; V$; "="; CINT(AZ)
4360 X = (D + AP * SIN(AZ))
4370 y = (E + AP * COS(AZ))
4380 PRINT "X DE"; Z$; "="; CINT(X); "mts"
4390 PRINT "Y DE"; Z$; "="; CINT(y); "mts"
4400 PRINT "ENE"; CINT(ENE)
4410 PRINT "EME"; CINT(EME)
4420 PRINT
4430 PRINT "ANG"; CINT(ANG)
4440 PRINT "LI"; CINT(LI)
4450 CLS
4470 PRINT
4480 RETURN