Pgs. 1 2
ProbGeometria2
REM Este fichero “segmento.bas” resuelve el siguiente problema: Sean las rectas 1 y 2 que forman un ángulo a con vértice V en el origen de coordenadas, siendo 2 la más próxima al eje de abscisas y formando con éste un ángulo b. P es un punto dado en dicho eje x, con abscisa d.
Trazar por P una recta 3 que corte a las rectas 1 y 2 de tal manera que el segmento FE determinado en 3 por 1 y 2 tenga un valor m dado.
El valor del ángulo VP3 será c en las distintas iteraciones que se vayan produciendo.
El resultado se puede comprobar en el dibujo del fichero “segmento.dwg” de AUTOCAD 14.
INPUT “Introduce el valor en grados del ángulo a=”,a
INPUT “Introduce el valor en grados del ángulo b=”,b
INPUT “Introduce la abscisa de P cuyo valor en mm es d=”,d
INPUT “Introduce la longitud del segmento m en mm, m=”,m
k =3.141592/180
a =a*k
b =b*k
10 REM Primeras pasadas para c con step s=10º (de 10 en 10 grados)
s =10*k
11 FOR c =0 TO 90*k STEP s
GOSUB 100
IF FE>m THEN 20
NEXT c
PRINT “Aumentar el límite superior de 90 grados en la sentencia 11, según múltiplos de 10”
STOP
20 REM Pasadas para c de grado en grado (step =1º) dentro de la horquilla determinada en 10
s =k
FOR c =((c/k)-10)*k TO c step s
GOSUB 100
IF FE>m THEN 30
NEXT c
30 REM Pasadas para c de minuto en minuto (step =1´) dentro de la horquilla determinada en 20
s =k/60
FOR c =((c/k)-1)*k TO c step s
GOSUB 100
IF FE>m THEN 40
NEXT c
40 REM Pasadas para c de segundo en segundo (step =1´´) dentro de la horquilla determinada en 30
s =k/3600
FOR c =((c/k)-1/60)*k TO c step s
GOSUB 100
IF FE>m THEN 50
NEXT c
50 PRINT c/k,FE
END
100 xF=d*TAN(c)/(TAN(c)- TAN(a+b))
yF=xF*TAN(a+b)
xE=d*TAN(c)/(TAN(c)- TAN(b))
yE=xE*TAN(b)
FE=SQR((xF-xE)^2+(yF-yE)^2)
RETURN
PAG. 2 / 2