Estás en: Problemas variopintos

QUIEN hay detrás

QUÉ hay detrás

INICIO


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     


ANTERIOR                                                                                              

PAG. 2 / 2