Pgs.  1    2   

La figura (a escala) que sigue muestra, como ejemplo, los datos a introducir en el programa de Quick Basic y el resultado que se obtiene.

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^o (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^o) 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((xE-xF)^2+(yE-yF)^2)
RETURN

ANTERIOR

COMIENZO