Publicidad
0. 50. YRNG
ERASE
(5., 2.5) (95., 47.5) BOX
(50., 50.) 10. 0. 360. ARC
(50., 50.) 12. –180. 180. ARC
1 8 FOR j
(50., 50.) DUP
'12*COS(45*(j-1))'
'12*SIN(45*(j-1))'
R
C
+
LINE
NEXT
{ } PVIEW
»
Ejemplo 2 - Un programa para trazar una sección transversal natural del río
Este uso puede ser útil para determinar área y perímetros mojados de las
secciones transversales naturales del río. Típicamente, se examina una
sección transversal del río natural y se genera una serie de puntos,
representando coordenadas x y con respecto a un sistema arbitrario de ejes
coordenados. Estos puntos pueden ser trazados para producir un bosquejo
de la sección transversal para una elevación dada de la superficie del agua.
La figura abajo ilustra los términos presentados en este párrafo.
El programa, los disponibles en la ROM en el disquete o CD adjunto a su
calculadora, utiliza cuatro sub-programas FRAME, DXBED, GTIFS, y INTRP.
El programa principal, llamado XSECT, tomas como entrada una matriz de
valores de x y de y, y la elevación de la superficie del agua Y (ver la figura
abajo), en esa orden. El programa produce un gráfico de la sección
transversal que indica los datos de entrada con los puntos en el gráfico, y
demuestra la superficie libre en la sección representativa.
Establecer rango de y
Borrar figura
Trazar caja de (5,5) a (95,95)
Trazar círculo centro (50,50), r =10.
Trazar círculo centro (50,50), r= 12.
Trazar 8 líneas en círculo
Líneas centradas en (50,50)
NUM
Calcula x, otro extremo en 50 + x
NUM
Calcula y, otro extremo en 50 + y
Convertir x y a (x,y), núm. complejo
Sumar (50,50) a (x,y)
Dibujar la línea
Terminar lazo FOR
Mostrar figura
Página 22-24
Publicidad
