Mis Programas

Programas para calculadoras Por: josé miguel tilguant

PROLOGO En este documento estoy incluyendo programas para varios modelos y marcas de calculadoras, algunos modelos para este tiempo a lo mejor están en desuso pero, si el poseedor de alguno de los nuevos modelos es muy hábil háb il para programar, sabrá cómo hacer h acer la conversión al lenguaje lenguaje del modelo que pueda estar usando actualmente. El contenido lo hice escaneado para evitar tener alguna equivocación al copiar. Como verán, aquí hay unos programas que fueron copiados a principios de los años 90 y los modelos eran los que se usaban en ese tiempo, especialmente los programas para Hp41cv y 41cx, también aparecen unos creados para la Casio fx-795P. Aquí podrán ver que algunos programas aparecen en diferentes lenguajes de acuerdo a la marca y modelo de la calculadora. Como recordarán los usuarios de calculadoras programables, un programa es una secuencia de cálculo, igual al que podemos realizar a mano o con una calculadora común, con la diferencia de que en la calculadora programable solo necesitamos ingresar las diferentes variables del cálculo, ya que el resto, se realiza internamente una vez que vamos ingresando los datos de importancia del programa. Aunque este no es un curso de programación, pienso que puede servir de base para aquellos o aquellas que empiezan a programar. Para programar lo importante es, conocer el lenguaje de la calculadora y por supuesto, conocer la secuencia del calculo que queremos introducir dentro de un programa. Una vez conocido esto, nos resultará fácil hacer cualquier programa, aunque a veces a medida que vamos haciendo uso de estos, vamos viendo que se pueden depurar o mejorar y hasta hacerlos más cortos, para que puedan ocupar menos espacio dentro de la memoria. Quiero contarles que mis primeros programas los realicé con una calculadora que, si mal lo recuerdo era la Sharp EL-512, que tenía apenas 38 pasos de programa, esto fue a principios de los años 80 y a pesar de ser tan pequeño el espacio, pude acomodarlos a mis exigencias, hoy en día, tenemos la ventaja de contar con calculadoras que tienen mucho espacio de memoria destinado a la programación y sin embargo, siempre estamos tratando de hacer que estos sean más pequeños. Esto es parte de mi tesoro y de mi historia. El autor

1


Este programa es muy bueno para ser usado en carreteras o para referencias de cualquier línea.

2


Este programa es muy bueno para ser usado en carreteras o para referencias de cualquier línea.

2


3


4


5


Copiado del módulo

6


7


8


9


10


11


12


13


14


15


16


17


18


19


20


21


22


23


24


25


26


27


Bueno para dosificar los agregados. 28


29


30


31


32


33


Con este programa encontramos la estación o abscisa, las distancias del centro hacia los lados y la deflexión respecto a la línea de tangente o del radio de la curva.

34


Distancia entre dos puntos con coordenadas conocidas

Casio fx-880P 20 INPUT “X PUNTO=”; X1: MODE 4 30 INPUT “Y PUNTO=”; Y1 50 INPUT “X ESTACION=”; X2 60 INPUT “Y ESTACION=”; Y2 70 SET F3 80 z=pol(( X2-x1), (y2-y1)): dist=x:Az=90-y:if az<0 then az=az+360 90 print “dist=”; x; “azimut=”; dms$(az) 100 goto 20

MODE 4 cuando usamos 360 grados.

35


Area por coordenadas ti 83,84 1 :Lbl 0 2 :0→I 3 :FIX 0 4 :Input "N. PUNTOS=",N 5 :Input "X1=",A:A→B 6 :Input "Y1=",C:C→D 7 :Input "X2=",E 8 :Input "Y2=",F 9 :2→K 10 :Lbl 1 11 :K+1→K 12 :If K>N 13 :Goto 2 14 :Disp K 15 :Input "X=",G 16 :Input "y=", H 17 :((B-E)*(H- D))+I→I 18 :F→D:G→E:H→F 19 :Goto 1 20 :Lbl 2 21 :C→H:(((B-E)*(H-D))+I)/2→J 22 :Fix 3 23 :Disp "AREA=", abs(J) 24 :Goto 0

N es el contador que determina la finalización del cálculo y K es el contador. Este programa es para un número infinito de puntos, los pontos pueden ser 3 o 1,000,000. Si se ingresa un dato equivocado, arrancar de nuevo el programa.

36


Área por rumbo y distancia TI-83 plus línea 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

:Name:polrum :Lbl 0 : Input "N. puntos=",Q :0→I:0→K:0→O :Input "pra.x=",A :Input "pra.y=",C :A→B:C→D :Input "Dist(1)=",S:O+S→O :Input "Rumbo(1)=",R :Input "cuadrante=",θ :If θ=1:Goto 1 :If θ=2:Goto 2 :If θ=3:Goto 3 :If θ=4:Goto 4 :Lbl 1 R→U:Goto 5 :Lbl 2 :180-R→U:Goto 5 :Lbl 3 :180+R→U:Goto 5 :Lbl 4 :360-R→U:Goto 5 :Lbl 5 :S*sin(U)→E:E→W :S*cos(U)→F:F→Z :A+E→X:C+F→Y:X→E :Y→F :Fix 3 :Disp"X=",X,"Y=",Y :Lbl 6 :K+1→K:If K>Q: Goto 12 37


32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

::Disp K :Input "Dist=",S :O+S→O:If T=A:O-S :Input "Rumbo=",R :If S=A and R=C:Goto 12 :Input "Cuadrante=",θ :If θ=1:Goto 7 :If θ=2:Goto 8 :If θ=3:Goto 9 :If θ=4:Goto 10 :Lbl 7 :R→U:Goto 11 :Lbl 8 :180-R→U:Goto 11 :Lbl 9 :180+R→U:Goto 11 :Lbl 10 :360-R→U:Goto 11 :Lbl 11 :S*sin(U)→G:G→M :S*cos(U)→H:H→N :X+G→X:Y+H→Y:Fix 3 :Disp"X=",X,"Y=",Y:X→G:Y→H :W+M→W:Z+N→Z :((B-E)*(H-D))+I→I :F→D:G→E:H→F :Goto 6 :Lbl 12:Fix 3 :C→H:(((B-E)*(H-D))+I)/2→I :√(W^2+Z→V:Disp "E/Dist=",V :Disp "AREA=",abs(I) :Pause :Disp "Prec=",1/(V/O) 38


65

:Goto 0 (cero)

Este programa es bueno para revisar datos de planos que aparecen con rumbo y distancia.

39


Programa sencillo para Texas Instruments ti-83,84 Distancia entre dos puntos con coordenadas conocidas 1: DISTAZIM 2: Degree 3: Input “x1=”, A 4: Input “y1=”, B 5: Input “x2=”, C 6: Input “y2=”, D 7: D-B→E:C-A→F 8: R ►Pr(E,F)→G 9: R ►Pө(E,F)→H 10: If H<0 11: H+360→H 12: Disp “Dist.=”,G 12: Disp “Azimut=”, H ►DMS NOTA: Los comandos “R ►Pr(,” “R ►Pө(“ y ►DMS, se encuentran en la tecla CATALOG El signo negativo en estas calculadoras es el que está encerrado en paréntesis y debe anotarse antes del valor numérico. El símbolo ►DMS se usa para que nos muestre el ángulo con símbolos de grado, minuto y segundo.

40


Calculo de densidades con el Sistema Ingles.

41


Área por ángulo interno y distancia TI-83 Plus Ángulos leidos en el sentido de las agujas del reloj. 1 :Name:AREAPAI 2 :Lbl 0 Nota: la calculadora no anota número de línea. 3 Input "N. PUNTOS=",Q Anotar aquí, el número de puntos o vértices del 4 :0→I:0→O polígono. 5 :Input "Pra x",A Este programa no compensa el error, si este f uera significativo, 6 :Input Pra y=",C se debe revisar el ingreso de los datos o revisar el trabajo de campo. 7 :A→B:C→D 8 :Input "Dist(1)=",R 9 :Input "AZIMUT(1)=",S:S→U 10 :R*sin(S)→E:E→W:R*cos(S)→F:F→Z 11 :A+E→X:C+F→Y:X→E:Y→F 12 :Disp "X1=",X,"Y1=",Y 13 :1→K 14 :Lbl 1 15 :K+1→K:Float Una vez anotado el último punto, el programa 16 :Disp K salta hasta las lineas 32 y 33, realiza el 17 If K>Q: Goto 2 cálculo y pide el último interno o sea el ángulo 18 :Input "Dist=",T que forman los puntos 1, penúltimo y e l segundo punto. 19 :Input "INT=",L A partir de aquí nos mostrará el error angular, 20 :O+L→O el error de distancia y el área. 21 :If L<180:-(180- L)→J 22 :If L>180:L- 180→J:U+J→U 23 :If U>360:U- 360→U 24 :T*sin(U)→G:G→M:T*cos(U)→H:H→N 25 :X+G→X:Y+H→Y:Fix 3 26 :Disp "X=",X,"Y=",Y:X→G:Y→H 27 :W+M→W:Z+N→Z 28 :((B-E)*(H-D))+I→I 29 :F→D:G→E:H→F 30 :Goto 1 31 :Lbl 2 42


32 33 34 35 36 37 38 39

:C→H:(((B-E)*(H-D))+I)/2→I :√(W^2+Z^2)→V :Input "ULT/INT=",P :Disp "E.ANG=",(180*(Q-2))-(O+P) ►DMS :Disp "E.DIST=".V :Disp" AREA=",abs(I) :Pause Se elaboró usando solamente las memorias del :Goto 0 abecedario. por: jose miguel tilguant [email protected]

43

Programas para calculadoras Por: josé miguel tilguant POLIGONAL CERRADA CON INTERNOS LEIDOS A LA DERECHA 1

Lbl 0←

2

Clr Text ←

3

Deg←

4

"N. PUNTOS="?→Q←

5

0→I:0→O←

6

"Pra. X="?→A←

7

"Pra. Y="?→C←

8

A→B:C→D

9

"DIST 1="?→R←

10

"ACIMUT 1="?→S:S→U←

11

Rsin S→E:E→W←

12

Rcos S→F:F→Z←

13

A+E→X:C+F→Y:X→E:Y→F←

14

"X1=":X▲

15

"Y1=":Y▲

16

1→K←

17

Lbl 1←

18

K+1→K←

19

Norm:K▲

20

K>Q ⇒Goto 2

21

"DIST ="?→T←

22

"INT="?→L←

23

O+L→O←

24

L<180⇒-(180-L)→J←

25

L>180⇒L-180→J:U+J→U←

26

U>360⇒U-360→U←

27

Tsin U→G:G→M:Tcos U→H:H→N←

28

X+G→X:Y+H→Y:Fix 3←

29

"X=":X▲

30

"Y=":Y▲

31

X→G:Y→H←

32

W+M→W:Z+N→Z←

33

((B-E)(H-D))+I→I←

34

F→D:G→E:H→F←

35

Goto 1←

36

Lbl 2←

44

Programas para calculadoras Por: josé miguel tilguant 37

C→H:(((B-E)(H- D))+I)÷2→I←

38

√(W²+Z²)→V←

39

Fix 4

40

"ULTIMO INTERNO="?→P←

41

"ERR ANGULAR=":(180x(Q-2))-(0+P)▲

42

"ERR DIST=":V▲

43

"AREA=":Abs(I)▲

Por: miguel tilguant [email protected]

NOTA: La calculadora no anota número de línea, se le puso número para ver mejor el programa.

←=EXE Puntos= vértices. → = guardar en memoria ⇒ =entonces ▲=mostrar dato √ =Raíz cuadrada

Este programa no compensa el error, si este fuera significativo, se debe revisar el ingreso de los datos o revisar el trabajo de campo. Para obtener el área, cuando ya se han ingresado los datos del último punto, el programa salta al nivel 2, realiza el cálculo de las líneas 37 y 38, luego pide el último interno, una vez anotado este, nos dará el error angular, el error de distancia y el área. El último interno es el ángulo formado por el punto 1, el penúltimo y el punto 2. Ver dibujo. El área que da el programa con los datos de l dibujo es: 2820.680, la que aparece adentro del dibujo es la que se obtuvo del dibujo de AutoCad

45

Programas para calculadoras Por: josé miguel tilguant 2820.680, la que aparece adentro del dibujo es la que se obtuvo del dibujo de AutoCad

Este es para un número infinito de puntos, solo se rige por el número de puntos de entrada.

46


Casio PB-700 Poligonal cerrada infinita con internos 10 PRINT "POL C/INTERNOS" 20 INPUT " N.PUNTOS=";Q

Anotar aquí, el número de puntos o vértices del polígono.

30 I=0:O=0 40 INPUT "PRA. X=";A 50 INPUT "PRA. Y=";C 60 B=A:D=C 70 INPUT "DIST(1)=";R 80 INPUT "AZIMUT(1)=";S:U=S 81 S1=FRAC(S)*100:S2=INT(S1)/60:S3=FRAC(S1)/36:S=INT(S)+S2+S3 82 U=S 90 E=R*sinS:W=E:F=R*cosS:Z=F 100 X=A+E:Y=C+F:E=X:F=Y 110 PRINT "X1=";X, "Y1=";Y

Este programa no compensa el error, si este f uera significativo,

120 K=1

se debe revisar el ingreso de los datos o revisar el trabajo de campo.

130 K=K+1 140 IF K>Q THEN 280 150 INPUT "DIST(";K;")=";T

Aquí la calculadora le pide los datos del punto 2

160 INPUT "INT(";K")=";L

o sea la distancia y el ángulo, (ver dibujo).

162 L1=FRAC(L)*100:L2=INT(L1)/60:L3=FRAC(L1)/36 164 L=INT(L)+L2+L3 170 O=O+L 180 IF L<180 THEN 182 181 IF L>180 THEN 184 182 J=-(180-L) 184 J=L-180:U=U+J 200 IF U>360 THEN U=U-360 210 G=T*sinU:M=G:H=T*cosU:N=H 220 X=X+G:Y=Y+H 230 PRINT " X=";X, "Y=";Y: G=X:H=Y

Una vez anotado el último p unto, el programa

240 W=W+M:Z=Z+N

salta hasta las lineas 280, realiza el

250 I=((B-E)*(H-D))+I

cálculo y pide el último interno o sea el ángulo

260 D=F:E=G:F=H

que forman los puntos 1, penúltimo y e l segundo punto.

270 GOTO 130

A partir de aquí nos mostrá el error angular,

280 H=C:I=(((B-E)*(H-D))+I)/2

el error de distancia y el área.

290 V=SQR(W^2+Z^2) 300 INPUT "ULT/INT=";P 302 P1=FRAC(P)*100:P2=INT(P1)/60:P3=FRAC(P1)/36

47


304 P=INT(P)+P2+P3 310 E1=(180*(Q-2))-(O+P)) 312 E2= INT(E1):E3=INT((E1-E2)*60): E4=((E1-E2)-(E3/60))*3600 314 E5=E2+(E3/100)+(E4/10000) 316 PRINT "ERROR ANG=";E5

Camo el programa no guarda la información, se deben ir anotando

320 PRINT "ERROR DIST=";V

las coordenadas.

330 PRINT "AREA=";ABS(I) 340 END

Las coordenadas las da en cada entrada de distancia y ángulo,

por: josé miguel tilguant

el error de distancia, de á ngulo y el área, lo da después de

[email protected]

ingresar el último ángulo interno, que está compuesto por los puntos: penúltimo, inicio y punto 2.

48


49


50

Mis Programas

Recommend Documents