• Author / Uploaded
• Carlos Alberto Aguilera Caceres

Citation preview

Progra ma en BASIC para el cálculo de parámetros y de deflexiones de espirales simétricas, (casio fx-702p)

ESPIRAL DE ENTRADA

ABSCISA

Kl+ 36.456 40,000

LONG. CUERDA

.0.000 .

DEFLEX.

CUERDA I..AIlfO •

COOIMwias

c.tesiIms

x

y

0.000 1.544 ·,544

0.000 0.003 0.039 0.156 0.401 0.819 1.459 2.364 3.578 5.142 7.089 9.449 12.242 13.132

DE

NURTE

'l

~2

\36 19

..,

~12. 964

ESTE

504.836 S02.798 500.434 497.717 494.627 491 .156 490082

426.410 429.9?0 434.887 439.790 444.665 449499 4S4.m 458.9'57 463.523 467.929 472.126 476.056 479.656 410.625

NORTE

ESTE

490.082 487.313 483.132

480.625

512.345 511.441 510.458 509.350

508073 506. ~82

482. 8~3

479. ~

485.596 487661

NORTE

ESTE

479.~

487.661 487.850 489.597 490.863 491.692 492. 134 492.243 492.074 491.685 491.132 490.472 489.829

478.670 ·473.985 ~. I48

'64.217 .237 • .238 1.241

.2S6 U6 '30 10

10 SET F3

20 INP "OELTA=",A,"R=", R,"

30 INP "C=",C,"L=",L

40 INP "ATE=",P

50 G=2*ASN(C/(2*R))

60 0=2*R*L:Z=SOR(R*L)

70 GSB 390

80 B=X:U=Y

90 S=90*U( 1l'*R):0=Y-R*(1-COS(S))

100 K=X-R*SIN(S)

110 T=(R+O)'"TAN(AI2)+K:V=X-Y/TAN(S):W=Y/SIN(S)

120 E=( (R+0)/COS(A/2))-R

130 PRT "G="; :OMS(G) 1"

140 PRT "0=";0, "'rE="; "E=";E

150 PRT "S=";:OMS(S): PRT "K=";Z: PRT "I="; :OMS(I)

160 H=A-2*S:J=H*ClG:M=P+L: N=M+J: PRT "AC=";:OMS (H)

170 O=N+L:IF H>OTHEN 200

180 H=O:S=AI2:L=S*R* 1l'19O:J=O:PRT "ESPIRAL-ESPI RAL";"LE=";L

r A : 0efteDci0n tdIJI en

190 GSB 390 200 PRT "LC=";J gratos MIC8CIeci .....

210 PRT "TL=";V,"TC=";W R : Radio

220 INP "CALCULAR OEFLEX. S/N",A$ C: CuerdIIWlÜriII

230 IF A$="N" THEN 20 L : la'Igitud ~

240 F=INT«P+C)/10):F=F*10 ATE : Abeciudel ET

250 IF PN THEN 340 S : DeftIIId6n de '- eepnI 310 I=(F-N )"G/(2*C):PRT F;:OMS(I) K : P•• ,1IIIro de eIpirII 320 F=F+C:IF F