escape$ = CHR$(27) PI = 3.1415926#: pis = PI / 180 REM n2$ = "TURBOx.rax" 'OPEN n2$ FOR OUTPUT AS #2 e = 1 rx2 = 100 rx1 = 15 r100 = rx - .00001 * rx fase = 90 * pis fi1 = 9 * pis dz10 = -10 SCREEN 9, 1 WINDOW (-320 / e, 240 / e)-(320 / e, -240 / e) CIRCLE (0, 0), rx2 + 3, 10 CIRCLE (0, 0), rx1, 11 OPEN "1.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, " Alaves " GOSUB ALAVES CLOSE 2 OPEN "2.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Anillos Alaves2 " GOSUB ALAVES2 CLOSE 2 OPEN "3.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Housing Alaves3 " GOSUB ALAVES3 CLOSE 2 OPEN "4.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Arillo Cero ACERVITO 01 " GOSUB acervito CLOSE 2 OPEN "5.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Axis Tanke " GOSUB tanke CLOSE 2 FLAGELO = 1 OPEN "6.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Carcaza Exterior Tanke2 " GOSUB tanke2 FLAGELO = 0 CLOSE 2 OPEN "7.RAX" FOR OUTPUT AS #2 PRINT #2, " " PRINT #2, "Tubote Interior ACERVO 01 " GOSUB acervo CLOSE 2 END ALAVES: 'PRINT #2, "1 Tfan " GOSUB Perfil FOR J = 0 TO 10 PRINT #2, J, " Tfan " rx2 = rx2(J) rx1 = rx1(J) r100 = r100(J) fase = fase(J) fi1 = fi1(J) dz0 = dz0(J) dz10 = dz10(J) FOR i = 360 TO 0 + 10 STEP -10 ar = i * pis x1 = rx1 * COS(ar + fase): y1 = rx1 * SIN(ar + fase): z1 = dz0 x2 = rx2 * COS(ar + fase): y2 = rx2 * SIN(ar + fase): z2 = dz0 x3 = rx2 * COS(ar + fase + fi1): y3 = rx2 * SIN(ar + fase + fi1): z3 = dz10 x4 = rx1 * COS(ar + fase + fi1): y4 = rx1 * SIN(ar + fase + fi1): z4 = dz10 x5 = rx1 * COS(ar + fase): y5 = rx1 * SIN(ar + fase): z5 = dz0 x6 = rx2 * COS(ar + fase): y6 = rx2 * SIN(ar + fase): z6 = dz0 x7 = rx2 * COS(ar + fase + fi1): y7 = rx2 * SIN(ar + fase + fi1): z7 = dz10 x8 = rx1 * COS(ar + fase + fi1): y8 = rx1 * SIN(ar + fase + fi1): z8 = dz10 LINE (x1, y1)-(x2, y2), 11 LINE (x2, y2)-(x3, y3), 11 LINE (x3, y3)-(x4, y4), 10 LINE (x4, y4)-(x1, y1), 14 LINE (x5, y5)-(x6, y6), 11 LINE (x6, y6)-(x7, y7), 11 LINE (x7, y7)-(x8, y8), 10 LINE (x8, y8)-(x1, y1), 14 'PRINT #2, "1 Tfan " PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x2; y2; z2 PRINT #2, USING " ##########.####### "; x1; y1; z1; x4; y4; z4; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 PRINT #2, USING " ##########.####### "; x1; y1; z1; x5; y5; z5; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x5; y5; z5 PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x2; y2; z2 PRINT #2, USING " ##########.####### "; x2; y2; z2; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x2; y2; z2; x3; y3; z3; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x3; y3; z3 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x7; y7; z7; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x8; y8; z8; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x8; y8; z8 PRINT #2, USING " ##########.####### "; x4; y4; z4; x8; y8; z8; x3; y3; z3 PRINT #2, USING " ##########.####### "; x4; y4; z4; x3; y3; z3; x8; y8; z8 PRINT #2, USING " ##########.####### "; x5; y5; z5; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x5; y5; z5; x8; y8; z8; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x8; y8; z8 GOSUB para NEXT i NEXT J RETURN ALAVES2: 'PRINT #2, "1 Tfan " GOSUB Perfil2 FOR J = 0 TO 10 'PRINT #2, j, " Tfan " rx2 = Prx2(J) rx1 = Prx1(J) r100 = Pr100(J) fase = Pfase(J) fi1 = Pfi1(J) dz0 = Pdz0(J) dz10 = Pdz10(J) FOR i = 360 TO 0 + 10 STEP -10 fI1X = 10 * pis ar = i * pis x1 = rx1 * COS(ar + fase): y1 = rx1 * SIN(ar + fase): z1 = dz0 x2 = rx2 * COS(ar + fase): y2 = rx2 * SIN(ar + fase): z2 = dz0 x3 = rx2 * COS(ar + fase + fI1X): y3 = rx2 * SIN(ar + fase + fI1X): z3 = dz0 x4 = rx1 * COS(ar + fase + fI1X): y4 = rx1 * SIN(ar + fase + fI1X): z4 = dz0 x5 = rx1 * COS(ar + fase): y5 = rx1 * SIN(ar + fase): z5 = dz10 x6 = rx2 * COS(ar + fase): y6 = rx2 * SIN(ar + fase): z6 = dz10 x7 = rx2 * COS(ar + fase + fI1X): y7 = rx2 * SIN(ar + fase + fI1X): z7 = dz10 x8 = rx1 * COS(ar + fase + fI1X): y8 = rx1 * SIN(ar + fase + fI1X): z8 = dz10 LINE (x1, y1)-(x2, y2), 11 LINE (x2, y2)-(x3, y3), 11 LINE (x3, y3)-(x4, y4), 10 LINE (x4, y4)-(x1, y1), 14 LINE (x5, y5)-(x6, y6), 11 LINE (x6, y6)-(x7, y7), 11 LINE (x7, y7)-(x8, y8), 10 LINE (x8, y8)-(x1, y1), 14 'PRINT #2, "1 Tfan " 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x2; y2; z2 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x4; y4; z4; x3; y3; z3 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x6; y6; z6; x7; y7; z7 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x8; y8; z8; x7; y7; z7 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x8; y8; z8 PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x2; y2; z2 PRINT #2, USING " ##########.####### "; x1; y1; z1; x4; y4; z4; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 PRINT #2, USING " ##########.####### "; x1; y1; z1; x5; y5; z5; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x5; y5; z5 PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x2; y2; z2 PRINT #2, USING " ##########.####### "; x2; y2; z2; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x2; y2; z2; x3; y3; z3; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x3; y3; z3 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x7; y7; z7; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x8; y8; z8; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x8; y8; z8 PRINT #2, USING " ##########.####### "; x4; y4; z4; x8; y8; z8; x3; y3; z3 PRINT #2, USING " ##########.####### "; x4; y4; z4; x3; y3; z3; x8; y8; z8 PRINT #2, USING " ##########.####### "; x5; y5; z5; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x5; y5; z5; x8; y8; z8; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x8; y8; z8 GOSUB para NEXT i NEXT J RETURN ALAVES3: 'PRINT #2, "1 Tfan " GOSUB Perfil2 FOR J = 1 TO 10 - 1 'PRINT #2, j, " TUBOFan " rx2 = Prx2(J) rx1 = Prx1(J) r100 = Pr100(J) fase = Pfase(J) fi1 = Pfi1(J) dz0 = Pdz0(J) dz10 = Pdz10(J) Mrx2 = Prx2(J + 1) Mrx1 = Prx1(J + 1) Mr100 = Pr100(J + 1) Mfase = Pfase(J + 1) Mfi1 = Pfi1(J + 1) Mdz0 = Pdz0(J + 1) Mdz10 = Pdz10(J + 1) FOR i = 360 TO 0 + 10 STEP -10 fI1X = 10 * pis ar = i * pis x1 = rx1 * COS(ar + fase): y1 = rx1 * SIN(ar + fase): z1 = dz0 x2 = rx2 * COS(ar + fase): y2 = rx2 * SIN(ar + fase): z2 = dz0 x3 = rx2 * COS(ar + fase + fI1X): y3 = rx2 * SIN(ar + fase + fI1X): z3 = dz0 x4 = rx1 * COS(ar + fase + fI1X): y4 = rx1 * SIN(ar + fase + fI1X): z4 = dz0 x5 = Mrx1 * COS(ar + fase): y5 = Mrx1 * SIN(ar + fase): z5 = Mdz10 x6 = Mrx2 * COS(ar + fase): y6 = Mrx2 * SIN(ar + fase): z6 = Mdz10 x7 = Mrx2 * COS(ar + fase + fI1X): y7 = Mrx2 * SIN(ar + fase + fI1X): z7 = Mdz10 x8 = Mrx1 * COS(ar + fase + fI1X): y8 = Mrx1 * SIN(ar + fase + fI1X): z8 = Mdz10 LINE (x1, y1)-(x2, y2), 11 LINE (x2, y2)-(x3, y3), 11 LINE (x3, y3)-(x4, y4), 10 LINE (x4, y4)-(x1, y1), 14 LINE (x5, y5)-(x6, y6), 11 LINE (x6, y6)-(x7, y7), 11 LINE (x7, y7)-(x8, y8), 10 LINE (x8, y8)-(x1, y1), 14 'PRINT #2, "1 Tfan " 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x2; y2; z2 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x4; y4; z4; x3; y3; z3 'PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x6; y6; z6; x7; y7; z7 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x8; y8; z8; x7; y7; z7 'PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x8; y8; z8 PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x2; y2; z2 PRINT #2, USING " ##########.####### "; x1; y1; z1; x4; y4; z4; x3; y3; z3 PRINT #2, USING " ##########.####### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 PRINT #2, USING " ##########.####### "; x1; y1; z1; x5; y5; z5; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x5; y5; z5 PRINT #2, USING " ##########.####### "; x1; y1; z1; x2; y2; z2; x6; y6; z6 PRINT #2, USING " ##########.####### "; x1; y1; z1; x6; y6; z6; x2; y2; z2 PRINT #2, USING " ##########.####### "; x2; y2; z2; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x2; y2; z2; x3; y3; z3; x7; y7; z7 PRINT #2, USING " ##########.####### "; x2; y2; z2; x7; y7; z7; x3; y3; z3 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x7; y7; z7; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x7; y7; z7 PRINT #2, USING " ##########.####### "; x3; y3; z3; x8; y8; z8; x4; y4; z4 PRINT #2, USING " ##########.####### "; x3; y3; z3; x4; y4; z4; x8; y8; z8 PRINT #2, USING " ##########.####### "; x4; y4; z4; x8; y8; z8; x3; y3; z3 PRINT #2, USING " ##########.####### "; x4; y4; z4; x3; y3; z3; x8; y8; z8 PRINT #2, USING " ##########.####### "; x5; y5; z5; x6; y6; z6; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 PRINT #2, USING " ##########.####### "; x5; y5; z5; x8; y8; z8; x7; y7; z7 PRINT #2, USING " ##########.####### "; x5; y5; z5; x7; y7; z7; x8; y8; z8 GOSUB para NEXT i NEXT J RETURN Perfil: rx2(0) = 100 rx1(0) = 15 r100(0) = rx - .00001 * rx fase(0) = 90 * pis fi1(0) = 9 * pis dz0(0) = 0 dz10(0) = -10 rx2(1) = 100 * .8 rx1(1) = 15 r100(1) = rx - .00001 * rx fase(1) = 90 * pis fi1(1) = 9 * pis dz0(1) = -40 dz10(1) = -50 rx2(2) = 100 * .8 rx1(2) = 15 r100(2) = rx - .00001 * rx fase(2) = 90 * pis fi1(2) = 9 * pis dz0(2) = -70 dz10(2) = -80 rx2(3) = 100 * .8 rx1(3) = 15 r100(3) = rx - .00001 * rx fase(3) = 90 * pis fi1(3) = 9 * pis dz0(3) = -100 dz10(3) = -110 rx2(4) = 100 * .6 rx1(4) = 15 r100(4) = rx - .00001 * rx fase(4) = 90 * pis fi1(4) = 9 * pis dz0(4) = -130 dz10(4) = -140 rx2(5) = 100 * .6 rx1(5) = 15 r100(5) = rx - .00001 * rx fase(5) = 90 * pis fi1(5) = 9 * pis dz0(5) = -160 dz10(5) = -170 rx2(6) = 100 * .6 rx1(6) = 15 r100(6) = rx - .00001 * rx fase(6) = 90 * pis fi1(6) = 9 * pis dz0(6) = -190 dz10(6) = -200 rx2(7) = 100 * .8 rx1(7) = 15 r100(7) = rx - .00001 * rx fase(7) = 90 * pis fi1(7) = 9 * pis dz0(7) = -240 dz10(7) = -250 rx2(8) = 100 * .8 rx1(8) = 15 r100(8) = rx - .00001 * rx fase(8) = 90 * pis fi1(8) = 9 * pis dz0(8) = -270 dz10(8) = -280 rx2(9) = 100 * .8 rx1(9) = 15 r100(9) = rx - .00001 * rx fase(9) = 90 * pis fi1(9) = 9 * pis dz0(9) = -300 dz10(9) = -310 rx2(10) = 100 * .8 rx1(10) = 15 r100(10) = rx - .00001 * rx fase(10) = 90 * pis fi1(10) = 9 * pis dz0(10) = -330 dz10(10) = -340 RETURN Perfil2: w96 = 96 w90 = 90 Prx2(0) = w96 Prx1(0) = w90 Pr100(0) = rx - .00001 * rx Pfase(0) = 90 * pis Pfi1(0) = 9 * pis Pdz0(0) = 0 Pdz10(0) = -10 Prx2(1) = w96 * .8 Prx1(1) = w90 * .8 Pr100(1) = rx - .00001 * rx Pfase(1) = 90 * pis Pfi1(1) = 9 * pis Pdz0(1) = -40 Pdz10(1) = -50 Prx2(2) = w96 * .8 Prx1(2) = w90 * .8 Pr100(2) = rx - .00001 * rx Pfase(2) = 90 * pis Pfi1(2) = 9 * pis Pdz0(2) = -70 Pdz10(2) = -80 Prx2(3) = w96 * .8 Prx1(3) = w90 * .8 Pr100(3) = rx - .00001 * rx Pfase(3) = 90 * pis Pfi1(3) = 9 * pis Pdz0(3) = -100 Pdz10(3) = -110 Prx2(4) = w96 * .6 Prx1(4) = w90 * .6 Pr100(4) = rx - .00001 * rx Pfase(4) = 90 * pis Pfi1(4) = 9 * pis Pdz0(4) = -130 Pdz10(4) = -140 Prx2(5) = w96 * .6 Prx1(5) = w90 * .6 Pr100(5) = rx - .00001 * rx Pfase(5) = 90 * pis Pfi1(5) = 9 * pis Pdz0(5) = -160 Pdz10(5) = -170 Prx2(6) = w96 * .6 Prx1(6) = w90 * .6 Pr100(6) = rx - .00001 * rx Pfase(6) = 90 * pis Pfi1(6) = 9 * pis Pdz0(6) = -190 Pdz10(6) = -200 Prx2(7) = w96 * .8 Prx1(7) = w90 * .8 Pr100(7) = rx - .00001 * rx Pfase(7) = 90 * pis Pfi1(7) = 9 * pis Pdz0(7) = -240 Pdz10(7) = -250 Prx2(8) = w96 * .8 Prx1(8) = w90 * .8 Pr100(8) = rx - .00001 * rx Pfase(8) = 90 * pis Pfi1(8) = 9 * pis Pdz0(8) = -270 Pdz10(8) = -280 Prx2(9) = w96 * .8 Prx1(9) = w90 * .8 Pr100(9) = rx - .00001 * rx Pfase(9) = 90 * pis Pfi1(9) = 9 * pis Pdz0(9) = -300 Pdz10(9) = -310 Prx2(10) = w96 * .8 Prx1(10) = w90 * .8 Pr100(10) = rx - .00001 * rx Pfase(10) = 90 * pis Pfi1(10) = 9 * pis Pdz0(10) = -330 Pdz10(10) = -340 RETURN para: 1 : kk$ = INKEY$ IF kk$ = "P" THEN PBAN = PBAN + 1: pFlag = PBAN MOD 2 IF kk$ = "p" THEN PBAN = PBAN + 1: pFlag = PBAN MOD 2 IF pFlag = 1 THEN GOTO 2 IF kk$ = escape$ THEN CLEAR : END IF kk$ = "" THEN GOTO 1 2 : RETURN tanke: PI = 3.1415926#: pis = PI / 180 ar = 90 * pis 'zd10 = 1 zd10 = 200 + 170: REM Zd10= Largo tubo LargoTubo = zd10 PI = 3.141516: pis = PI / 180 'n2$ = "TANKE03.raw" 'n2$ = "cabeza.raw" 'n2$ = "Kcabeza.raw" 'n2$ = "Kcabeza2.raw" 'n2$ = "Mexcla02.raw" 'n2$ = "TM011r.rax" FactorPuntoOchoDelgadez = .9 FaktorPuntoOchoExcentricidad = 1 r = 5 - 4 r = 20 + 1 r2 = FactorPuntoOchoDelgadez * r rr = r rr2 = r2 rry = FaktorPuntoOchoExcentricidad * r rry2 = FaktorPuntoOchoExcentricidad * r2 d10 = 10 CLS 'OPEN n2$ FOR OUTPUT AS #2 'open n2$ FOR APPEND AS #2 COLOR 7 GOSUB HemisferioNorte 'Close 2 GOSUB TuboEliptico GOSUB HemisferioSur 'Close 2 n30$ = "ZZ123.RAX" RETURN tanke2: PI = 3.1415926#: pis = PI / 180 ar = 90 * pis 'zd10 = 1 zd10 = 200 + 170: REM Zd10= Largo tubo LargoTubo = zd10 PI = 3.141516: pis = PI / 180 'n2$ = "TANKE03.raw" 'n2$ = "cabeza.raw" 'n2$ = "Kcabeza.raw" 'n2$ = "Kcabeza2.raw" 'n2$ = "Mexcla02.raw" 'n2$ = "TM011r.rax" FactorPuntoOchoDelgadez = .9 FaktorPuntoOchoExcentricidad = 1 r = 5 - 4 r = 20 + 1 r = 108 r2 = FactorPuntoOchoDelgadez * r rr = r rr2 = r2 rry = FaktorPuntoOchoExcentricidad * r rry2 = FaktorPuntoOchoExcentricidad * r2 d10 = 10 CLS 'OPEN n2$ FOR OUTPUT AS #2 'open n2$ FOR APPEND AS #2 COLOR 7 GOSUB HemisferioNorte 'Close 2 GOSUB TuboEliptico GOSUB HemisferioSur 'Close 2 n30$ = "ZZ123.RAX" RETURN HemisferioNorte: PRINT #2, " TAPA NORTE " COLOR 13 'FOR j = 90 - d10 TO (-90) STEP -d10 zz90 = 90 IF FLAGELO = 1 THEN zz90 = 40 FOR J = zz90 - d10 TO (0) STEP -d10 NL = NL + 1 PRINT USING " ### "; NL; J + d10; J; i ''''''''PRINT #2, USING " ### "; NL; j + d10; j; I FOR i = -180 TO (180 - d10) STEP d10 lo1 = i: lo2 = i + d10 la1 = J: la2 = J GOSUB GeneraHemisferioNorte NEXT i NEXT J RETURN GeneraHemisferioNorte: '*************UNO te1 = (lo1 + z) * pis fi1 = la1 * pis x1 = r * SIN(te1) * COS(fi1) y1 = rry * SIN(fi1) z1 = rry * COS(te1) * COS(fi1) '*************DOS te2 = (lo2 + z) * pis fi2 = la2 * pis x2 = r * SIN(te2) * COS(fi2) y2 = rry * SIN(fi2) z2 = rry * COS(te2) * COS(fi2) '*************TRES te3 = (lo2 + z) * pis fi3 = (la2 + d10) * pis x3 = r * SIN(te3) * COS(fi3) y3 = rry * SIN(fi3) z3 = rry * COS(te3) * COS(fi3) '*************CUATRO te4 = (lo1 + z) * pis fi4 = (la1 + d10) * pis x4 = r * SIN(te4) * COS(fi4) y4 = rry * SIN(fi4) z4 = rry * COS(te4) * COS(fi4) '*************CINCO te1 = (lo1 + z) * pis fi1 = la1 * pis x5 = r2 * SIN(te1) * COS(fi1) y5 = rry2 * SIN(fi1) z5 = rry2 * COS(te1) * COS(fi1) '*************SEIS te2 = (lo2 + z) * pis fi2 = la2 * pis x6 = r2 * SIN(te2) * COS(fi2) y6 = rry2 * SIN(fi2) z6 = rry2 * COS(te2) * COS(fi2) '*************SIETE te3 = (lo2 + z) * pis fi3 = (la2 + d10) * pis x7 = r2 * SIN(te3) * COS(fi3) y7 = rry2 * SIN(fi3) z7 = rry2 * COS(te3) * COS(fi3) '*************OCHO te4 = (lo1 + z) * pis fi4 = (la1 + d10) * pis x8 = r2 * SIN(te4) * COS(fi4) y8 = rry2 * SIN(fi4) z8 = rry2 * COS(te4) * COS(fi4) REM PRINT #2, J, I PRINT #2, USING "#######.### "; x1; z1; y1; x2; z2; y2; x3; z3; y3 PRINT #2, USING "#######.### "; x1; z1; y1; x3; z3; y3; x4; z4; y4 PRINT #2, USING "#######.### "; x5; z5; y5; x7; z7; y7; x6; z6; y6 PRINT #2, USING "#######.### "; x7; z7; y7; x5; z5; y5; x8; z8; y8 PRINT #2, USING "#######.### "; x1; z1; y1; x6; z6; y6; x2; z2; y2 PRINT #2, USING "########.### "; x6; z6; y6; x1; z1; y1; x5; z5; y5 PRINT #2, USING "########.### "; x5; z5; y5; x1; z1; y1; x4; z4; y4 PRINT #2, USING "########.### "; x5; z5; y5; x4; z4; y4; x8; z8; y8 PRINT #2, USING "########.### "; x2; z2; y2; x6; z6; y6; x7; z7; y7 PRINT #2, USING "########.### "; x2; z2; y2; x7; z7; y7; x3; z3; y3 PRINT #2, USING "########.### "; x4; z4; y4; x3; z3; y3; x7; z7; y7 PRINT #2, USING "########.### "; x4; z4; y4; x7; z7; y7; x8; z8; y8 RETURN TuboEliptico: EX = 25: EY = EX SCREEN 9, 1 WINDOW (-320 / EX, 240 / EY)-(320 / EX, -240 / EY) PI = 3.1415926#: pis = PI / 180 'N2$ = "TANKE08T.raw" 'N2$ = "Kilindro.raw" 'N2$ = "Kx001.raw" 'N2$ = "KZobre33.raw" 'r = 5 'r2 = 4 'd10 = 10 ''CLS ''OPEN n2$ FOR APPEND AS #2 '''PRINT #2, "TANKE08T" COLOR 7 GOSUB Tubo RETURN Tubo: 'zd10 = 1 'zd10 = 20 COLOR 13 'z1 = 0: z2 = 0: z3 = 0: z4 = 0 'z5 = -d10: z6 = -d10: z7 = -d10: z7 = -d10 z1 = 0: z2 = 0: z3 = 0: z4 = 0 z5 = -zd10: z6 = -zd10: z7 = -zd10: z8 = -zd10 'FOR j = 90 - d10 TO (-90) STEP -d10 d10 = 10 EEmpiezaZZ = 20 EEmpiezaZZ = LargoTubo 'FOR J = 200 TO 200 STEP 10 + 190 FOR J = EEmpiezaZZ TO EEmpiezaZZ STEP 5 NL = NL + 1 PRINT USING " ### "; NL; J + d10; J; i '''PRINT #2, USING " ### "; NL; j + d10; j; I '''PRINT #2, USING " ### "; j 'FOR I = -180 TO (180 - d10) STEP d10 FOR i = 0 TO 360 STEP d10 lo1 = i: lo2 = i + d10 'lo2 = I + d10 la1 = J: la2 = J GOSUB TGeneraHemisferioNorte NEXT i z1 = z1 - zd10: z2 = z2 - zd10: z3 = z3 - zd10: z4 = z4 - zd10 z5 = z5 - zd10: z6 = z6 - zd10: z7 = z7 - zd10: z8 = z8 - zd10 NEXT J RETURN TGeneraHemisferioNorte: '*************UNO 'rr = r 'rr2 = r2 'rry = .8 * r 'RRy2 = .8 * r2 te1 = (lo1) * pis fi1 = la1 * pis x1 = rr * COS(te1) z1 = z1 y1 = rry * SIN(te1) '*************DOS te2 = (lo2) * pis fi2 = la2 * pis x2 = rr * COS(te2) z2 = z2 y2 = rry * SIN(te2) '*************TRES te3 = (lo2) * pis fi3 = (la2 + d10) * pis x3 = rr2 * COS(te3) z3 = z3 y3 = rry2 * SIN(te3) '*************CUATRO te4 = (lo1) * pis fi4 = (la1 + d10) * pis x4 = rr2 * COS(te4) z4 = z4 y4 = rry2 * SIN(te4) '*************CINCO te1 = (lo1) * pis fi1 = la1 * pis x5 = rr * COS(te1) z5 = z5 y5 = rry * SIN(te1) '*************SEIS te2 = (lo2) * pis fi2 = la2 * pis x6 = rr * COS(te2) z6 = z6 y6 = rry * SIN(te2) '*************SIETE te3 = (lo2) * pis fi3 = (la2 + d10) * pis x7 = rr2 * COS(te3) z7 = z7 y7 = rry2 * SIN(te3) '*************OCHO te4 = (lo1) * pis fi4 = (la1 + d10) * pis x8 = rr2 * COS(te4) z8 = z8 y8 = rry2 * SIN(te4) LINE (x1, y1)-(x2, y2), 10 LINE (x3, y3)-(x4, y4), 13 REM PRINT #2, J, I SELECT CASE J CASE IS = 0 PRINT #2, USING "########.### "; x1; y1; z1; x5; y5; z5; x1; y1; z1 CASE IS > 0 PRINT #2, USING "########.### "; x1; y1; z1; x2; y2; z2; x3; y3; z3 PRINT #2, USING "########.### "; x1; y1; z1; x3; y3; z3; x4; y4; z4 PRINT #2, USING "########.### "; x5; y5; z5; x7; y7; z7; x6; y6; z6 PRINT #2, USING "########.### "; x7; y7; z7; x5; y5; z5; x8; y8; z8 PRINT #2, USING "########.### "; x1; y1; z1; x6; y6; z6; x2; y2; z2 PRINT #2, USING "########.### "; x6; y6; z6; x1; y1; z1; x5; y5; z5 PRINT #2, USING "########.### "; x5; y5; z5; x1; y1; z1; x4; y4; z4 PRINT #2, USING "########.### "; x5; y5; z5; x4; y4; z4; x8; y8; z8 PRINT #2, USING "########.### "; x2; y2; z2; x6; y6; z6; x7; y7; z7 PRINT #2, USING "########.### "; x2; y2; z2; x7; y7; z7; x3; y3; z3 PRINT #2, USING "########.### "; x4; y4; z4; x3; y3; z3; x7; y7; z7 PRINT #2, USING "########.### "; x4; y4; z4; x7; y7; z7; x8; y8; z8 END SELECT RETURN RETURN HemisferioSur: PRINT #2, " TAPA SUR " COLOR 13 ZZZ0 = 0 FIN90 = -90 IF FLAGELO = 1 THEN FIN90 = -70 FOR J = ZZZ0 - d10 TO (FIN90) STEP -d10 NL = NL + 1 PRINT USING " ### "; NL; J + d10; J; i ''''''PRINT #2, USING " ### "; NL; j + d10; j; I FOR i = -180 TO (180 - d10) STEP d10 lo1 = i: lo2 = i + d10 la1 = J: la2 = J GOSUB GeneraHemisferioSur NEXT i NEXT J RETURN GeneraHemisferioSur: '*************UNO te1 = (lo1 + z) * pis fi1 = la1 * pis x1 = r * SIN(te1) * COS(fi1) y1 = rry * SIN(fi1) - EEmpiezaZZ - d1 z1 = rry * COS(te1) * COS(fi1) '*************DOS te2 = (lo2 + z) * pis fi2 = la2 * pis x2 = r * SIN(te2) * COS(fi2) y2 = rry * SIN(fi2) - EEmpiezaZZ - d1 z2 = rry * COS(te2) * COS(fi2) '*************TRES te3 = (lo2 + z) * pis fi3 = (la2 + d10) * pis x3 = r * SIN(te3) * COS(fi3) y3 = rry * SIN(fi3) - EEmpiezaZZ - d2 z3 = rry * COS(te3) * COS(fi3) '*************CUATRO te4 = (lo1 + z) * pis fi4 = (la1 + d10) * pis x4 = r * SIN(te4) * COS(fi4) y4 = rry * SIN(fi4) - EEmpiezaZZ - d2 z4 = rry * COS(te4) * COS(fi4) '*************CINCO te1 = (lo1 + z) * pis fi1 = la1 * pis x5 = r2 * SIN(te1) * COS(fi1) y5 = rry2 * SIN(fi1) - EEmpiezaZZ - d1 z5 = rry2 * COS(te1) * COS(fi1) '*************SEIS te2 = (lo2 + z) * pis fi2 = la2 * pis x6 = r2 * SIN(te2) * COS(fi2) y6 = rry2 * SIN(fi2) - EEmpiezaZZ - d1 z6 = rry2 * COS(te2) * COS(fi2) '*************SIETE te3 = (lo2 + z) * pis fi3 = (la2 + d10) * pis x7 = r2 * SIN(te3) * COS(fi3) y7 = rry2 * SIN(fi3) - EEmpiezaZZ - d2 z7 = rry2 * COS(te3) * COS(fi3) '*************OCHO te4 = (lo1 + z) * pis fi4 = (la1 + d10) * pis x8 = r2 * SIN(te4) * COS(fi4) y8 = rry2 * SIN(fi4) - EEmpiezaZZ - d2 z8 = rry2 * COS(te4) * COS(fi4) REM PRINT #2, J, I PRINT #2, USING "########.### "; x1; z1; y1; x2; z2; y2; x3; z3; y3 PRINT #2, USING "########.### "; x1; z1; y1; x3; z3; y3; x4; z4; y4 PRINT #2, USING "########.### "; x5; z5; y5; x7; z7; y7; x6; z6; y6 PRINT #2, USING "########.### "; x7; z7; y7; x5; z5; y5; x8; z8; y8 PRINT #2, USING "########.### "; x1; z1; y1; x6; z6; y6; x2; z2; y2 PRINT #2, USING "########.### "; x6; z6; y6; x1; z1; y1; x5; z5; y5 PRINT #2, USING "########.### "; x5; z5; y5; x1; z1; y1; x4; z4; y4 PRINT #2, USING "########.### "; x5; z5; y5; x4; z4; y4; x8; z8; y8 PRINT #2, USING "########.### "; x2; z2; y2; x6; z6; y6; x7; z7; y7 PRINT #2, USING "########.### "; x2; z2; y2; x7; z7; y7; x3; z3; y3 PRINT #2, USING "########.### "; x4; z4; y4; x3; z3; y3; x7; z7; y7 PRINT #2, USING "########.### "; x4; z4; y4; x7; z7; y7; x8; z8; y8 'd1 = d2 'd2 = d1 + .01 RETURN acervo: PI = 3.1415926#: pis = PI / 180 ar = 90 * pis 'zd10 = 1 'Zd10 = 10: REM Zd10= Largo tubo zd10 = 360: REM Zd10= Largo tubo LargoTubo = zd10 PI = 3.141516: pis = PI / 180 'n2$ = "TANKE03.raw" 'n2$ = "cabeza.raw" 'n2$ = "Kcabeza.raw" 'n2$ = "Kcabeza2.raw" 'n2$ = "Mexcla02.raw" 'n2$ = "TM011r.rax" 'n2$ = "TM014r.rax" FactorPuntoOchoDelgadez = .97 FaktorPuntoOchoExcentricidad = 1 r = 5 - 4 r = 106 r2 = FactorPuntoOchoDelgadez * r rr = r rr2 = r2 rry = FaktorPuntoOchoExcentricidad * r rry2 = FaktorPuntoOchoExcentricidad * r2 d10 = 10 CLS 'OPEN n2$ FOR OUTPUT AS #2 'COLOR 7 'GOSUB HemisferioNorte 'CLOSE 2 GOSUB TuboEliptico 'GOSUB HemisferioSur 'Close 2 'GOSUB TransladaAOrigen 'n30$ = "ZZ123.RAX" RETURN acervito: PI = 3.1415926#: pis = PI / 180 ar = 90 * pis 'zd10 = 1 'Zd10 = 10: REM Zd10= Largo tubo zd10 = 360: REM Zd10= Largo tubo zd10 = 10: REM Zd10= Largo tubo LargoTubo = zd10 PI = 3.141516: pis = PI / 180 'n2$ = "TANKE03.raw" 'n2$ = "cabeza.raw" 'n2$ = "Kcabeza.raw" 'n2$ = "Kcabeza2.raw" 'n2$ = "Mexcla02.raw" 'n2$ = "TM011r.rax" 'n2$ = "TM014r.rax" FactorPuntoOchoDelgadez = .97 FaktorPuntoOchoExcentricidad = 1 r = 5 - 4 r = 106 r = 100 r2 = FactorPuntoOchoDelgadez * r rr = r rr2 = r2 rry = FaktorPuntoOchoExcentricidad * r rry2 = FaktorPuntoOchoExcentricidad * r2 d10 = 10 CLS 'OPEN n2$ FOR OUTPUT AS #2 'COLOR 7 'GOSUB HemisferioNorte 'CLOSE 2 GOSUB TuboEliptico 'GOSUB HemisferioSur 'Close 2 'GOSUB TransladaAOrigen 'n30$ = "ZZ123.RAX" RETURN 'HemisferioNorte: ''GeneraHemisferioNorte: RETURN RETURN p5 = .97 FFAAKKTTOORR = 10 DIM Faktor(1000) DIM FX1(200), FY1(200), FX2(200), FY2(200) GOSUB DATOX24 ''GOSUB kuentax PI = 3.1415926#: pis = PI / 180 n2$ = "Perfix17.rax" CLS GOSUB TuboEliptico END TuboEliptico2: FactorPuntoOchoDelgadez = p5 FaktorPuntoOchoExcentricidad = 1 r = 100 - 50 r = 10 r2 = FactorPuntoOchoDelgadez * r rr = r rr2 = r2 rry = FaktorPuntoOchoExcentricidad * r rry2 = FaktorPuntoOchoExcentricidad * r2 Drr = rr * 1 Drr2 = rr2 * 1 Drry = rry * 1 Drry2 = rry2 * 1 EX = 1: EY = EX SCREEN 9, 1 WINDOW (-320 / EX, 240 / EY)-(320 / EX, -240 / EY) PI = 3.1415926#: pis = PI / 180 OPEN n2$ FOR OUTPUT AS #2 PRINT #2, "TANKE08T" COLOR 7 GOSUB Tubo RETURN Tubo2: kuentax = 0 NL = 0 ''zd10 = 1 * FFAAKKTTOORR zd10 = 10 zd10 = (FX2(1) - FX1(1)) COLOR 13 z1 = -FX2(kuentax): z2 = -FX2(kuentax): : z3 = -FX2(kuentax): : z4 = -FX2(kuentax) z5 = -FX1(kuentax): z6 = -FX1(kuentax): z7 = -FX1(kuentax): z8 = -FX1(kuentax) rr = FY1(kuentax) rry = FY1(kuentax) Drr = FY2(kuentax) Drr2 = p5 * FY2(kuentax) Drry = FY2(kuentax) Drry2 = p5 * FY2(kuentax) rr = FY1(kuentax) rr2 = p5 * FY1(kuentax) rry = FY1(kuentax) rry2 = p5 * FY1(kuentax) d10 = 10 rr = FY1(1) rry = FY1(1) Drr = rr Drr2 = rr2 Drry = rry Drry2 = rry2 Faktor = 1.01 rr = FY1(1) rr2 = p5 * FY1(1) rry = FY1(1) rry2 = p5 * FY1(1) 'FOR J = 0 TO 490 STEP 10 '''PRINT USING " ### "; NL; J + d10; J; i '''PRINT #2, USING "Faktor ( ###### )="; kuentax; '''PRINT #2, USING " #####.### "; Faktor(kuentax) 'FOR J = 0 TO 400 STEP 10 FOR J = 1 TO 14 STEP 1 kuentax = kuentax + 1 z1 = -FX2(kuentax): z2 = -FX2(kuentax): : z3 = -FX2(kuentax): : z4 = -FX2(kuentax) z5 = -FX1(kuentax): z6 = -FX1(kuentax): z7 = -FX1(kuentax): z8 = -FX1(kuentax) rr = FY1(kuentax) rry = FY1(kuentax) Drr = FY2(kuentax) Drr2 = p5 * FY2(kuentax) Drry = FY2(kuentax) Drry2 = p5 * FY2(kuentax) rr = FY1(kuentax) rr2 = p5 * FY1(kuentax) rry = FY1(kuentax) rry2 = p5 * FY1(kuentax) COLOR 3 LOCATE 3, 1 PRINT USING "#####"; kuentax NL = NL + 1 LOCATE 1, 1 PRINT USING " ### "; NL; J + d10; J; i PRINT #2, USING "Faktor ( ###### )="; kuentax; PRINT #2, USING " #####.### "; Faktor(kuentax) '''PRINT #2, USING " ### "; J FOR i = 0 TO 360 STEP d10 lo1 = i: lo2 = i + d10 la1 = J: la2 = J GOSUB TGeneraHemisferioNorte NEXT i 'z1 = z1 - zd10: z2 = z2 - zd10: z3 = z3 - zd10: z4 = z4 - zd10 'z5 = z5 - zd10: z6 = z6 - zd10: z7 = z7 - zd10: z8 = z8 - zd10 z1 = -FX1(kuentax): z2 = -FX1(kuentax): : z3 = -FX1(kuentax): : z4 = -FX1(kuentax) z5 = -FX2(kuentax): z6 = -FX2(kuentax): z7 = -FX2(kuentax): z8 = -FX2(kuentax) rr = FY1(kuentax) rry = FY1(kuentax) Drr = FY2(kuentax) Drr2 = p5 * FY2(kuentax) Drry = FY2(kuentax) Drry2 = p5 * FY2(kuentax) rr = FY1(kuentax) rr2 = p5 * FY1(kuentax) rry = FY1(kuentax) rry2 = p5 * FY1(kuentax) NEXT J RETURN TGeneraHemisferioNorte2: '*************UNO te1 = (lo1) * pis fi1 = la1 * pis x11 = Drr * COS(te1) z11 = z1 y11 = Drry * SIN(te1) '*************DOS te2 = (lo2) * pis fi2 = la2 * pis x22 = Drr * COS(te2) z22 = z2 y22 = Drry * SIN(te2) '*************TRES te3 = (lo2) * pis fi3 = (la2 + d10) * pis x33 = Drr2 * COS(te3) z33 = z3 y33 = Drry2 * SIN(te3) '*************CUATRO te4 = (lo1) * pis fi4 = (la1 + d10) * pis x44 = Drr2 * COS(te4) z44 = z4 y44 = Drry2 * SIN(te4) '*************CINCO te1 = (lo1) * pis fi1 = la1 * pis x5 = rr * COS(te1) z5 = z5 y5 = rry * SIN(te1) '*************SEIS te2 = (lo2) * pis fi2 = la2 * pis x6 = rr * COS(te2) z6 = z6 y6 = rry * SIN(te2) '*************SIETE te3 = (lo2) * pis fi3 = (la2 + d10) * pis x7 = rr2 * COS(te3) z7 = z7 y7 = rry2 * SIN(te3) '*************OCHO te4 = (lo1) * pis fi4 = (la1 + d10) * pis x8 = rr2 * COS(te4) z8 = z8 y8 = rry2 * SIN(te4) LINE (x11, y11)-(x22, y22), 10 LINE (x33, y33)-(x44, y44), 13 REM PRINT #2, J, I x55 = x5: y55 = y5: z55 = z5 x66 = x6: y66 = y6: z66 = z6 x77 = x7: y77 = y7: z77 = z7 x88 = x8: y88 = y8: z88 = z8 PRINT #2, USING "#####.### "; x11; y11; z11; x22; y22; z22; x33; y33; z33 PRINT #2, USING "#####.### "; x11; y11; z11; x33; y33; z33; x44; y44; z44 PRINT #2, USING "#####.### "; x55; y55; z55; x77; y77; z77; x66; y66; z66 PRINT #2, USING "#####.### "; x77; y77; z77; x55; y55; z55; x88; y88; z88 PRINT #2, USING "#####.### "; x11; y11; z11; x66; y66; z66; x22; y22; z22 PRINT #2, USING "#####.### "; x66; y66; z66; x11; y11; z11; x55; y55; z55 PRINT #2, USING "#####.### "; x55; y55; z55; x11; y11; z11; x44; y44; z44 PRINT #2, USING "#####.### "; x55; y55; z55; x44; y44; z44; x88; y88; z88 PRINT #2, USING "#####.### "; x22; y22; z22; x66; y66; z66; x77; y77; z77 PRINT #2, USING "#####.### "; x22; y22; z22; x77; y77; z77; x33; y33; z33 PRINT #2, USING "#####.### "; x44; y44; z44; x33; y33; z33; x77; y77; z77 PRINT #2, USING "#####.### "; x44; y44; z44; x77; y77; z77; x88; y88; z88 x11 = x1: y11 = y1: z11 = z1 x22 = x2: y22 = y2: z22 = z2 x33 = x3: y33 = y3: z33 = z3 x44 = x4: y44 = y4: z44 = z4 RETURN 'RETURN REM <html><pre><b> REM <html><pre><b> REM <html><pre><b> DATOX22: FX1(1) = 0: FY1(1) = 0 FX2(1) = 152.9412: FY2(1) = 100 FX1(2) = 152.9412: FY1(2) = 100 FX2(2) = 152.9412: FY2(2) = 37.2549 FX1(3) = 152.9412: FY1(3) = 37.2549 FX2(3) = 1127.4509#: FY2(3) = 37.2549 FX1(4) = 1127.4509#: FY1(4) = 37.2549 FX2(4) = 1127.4509#: FY2(4) = 0 FX1(5) = 143.1373: FY1(5) = 280.3922 FX2(5) = 143.1373: FY2(5) = 333.3333 FX1(6) = 143.1373: FY1(6) = 333.3333 FX2(6) = 180.3922: FY2(6) = 315.6863 FX1(7) = 180.3922: FY1(7) = 315.6863 FX2(7) = 254.902: FY2(7) = 294.1176 FX1(8) = 254.902: FY1(8) = 294.1176 FX2(8) = 341.1765: FY2(8) = 292.1569 FX1(9) = 341.1765: FY1(9) = 292.1569 FX2(9) = 413.7255: FY2(9) = 305.8824 FX1(10) = 413.7255: FY1(10) = 305.8824 FX2(10) = 509.8039: FY2(10) = 307.8431 FX1(11) = 509.8039: FY1(11) = 307.8431 FX2(11) = 549.0196: FY2(11) = 286.2745 FX1(12) = 549.0196: FY1(12) = 286.2745 FX2(12) = 813.7255: FY2(12) = 313.7255 FX1(13) = 813.7255: FY1(13) = 313.7255 FX2(13) = 1027.4509#: FY2(13) = 347.0588 FX1(14) = 1027.4509#: FY1(14) = 347.0588 FX2(14) = 1215.6863#: FY2(14) = 323.5294 RETURN REM <html><pre><b> DATOX24: FX1(1) = 0: FY1(1) = 0 FX2(1) = 41.0526: FY2(1) = 26.8421 FX1(2) = 41.0526: FY1(2) = 26.8421 FX2(2) = 41.0526: FY2(2) = 10 FX1(3) = 41.0526: FY1(3) = 10 FX2(3) = 302.6316: FY2(3) = 10 FX1(4) = 302.6316: FY1(4) = 10 FX2(4) = 302.6316: FY2(4) = 0 FX1(5) = 38.4211: FY1(5) = 75.2632 FX2(5) = 38.4211: FY2(5) = 89.4737 FX1(6) = 38.4211: FY1(6) = 89.4737 FX2(6) = 48.4211: FY2(6) = 84.7368 FX1(7) = 48.4211: FY1(7) = 84.7368 FX2(7) = 68.4211: FY2(7) = 78.9474 FX1(8) = 68.4211: FY1(8) = 78.9474 FX2(8) = 91.5789: FY2(8) = 78.4211 FX1(9) = 91.5789: FY1(9) = 78.4211 FX2(9) = 111.0526: FY2(9) = 82.1053 FX1(10) = 111.0526: FY1(10) = 82.1053 FX2(10) = 136.8421: FY2(10) = 82.6316 FX1(11) = 136.8421: FY1(11) = 82.6316 FX2(11) = 147.3684: FY2(11) = 76.8421 FX1(12) = 147.3684: FY1(12) = 76.8421 FX2(12) = 218.4211: FY2(12) = 84.2105 FX1(13) = 218.4211: FY1(13) = 84.2105 FX2(13) = 275.7895: FY2(13) = 93.1579 FX1(14) = 275.7895: FY1(14) = 93.1579 FX2(14) = 326.3158: FY2(14) = 86.8421 RETURN n2$ = "misdat24.bas" h$ = "rem <html><pre><b>" OPEN n2$ FOR OUTPUT AS #2 PRINT #2, h$ PRINT #2, "DATOX24: " 'RINT #2, "DIM FX1(200), FY1(200), FX2(200), FY2(200) " max = 1000 EX = 100 / 51: EY = EX EX = 10 / 19: EY = EX DIM x(max), Y(max) n4 = 5 CLS SCREEN 9, 1 kien = -200 e = 1 / 4 WINDOW ((-320 - kien) / e, (240 - cien) / e)-((320 - kien) / e, (-240 - cien) / e) REM DATA 005,197 DATA 083,146 DATA 083,178 DATA 580,178 DATA 580,197 FOR i = 1 TO n4 READ x(i), Y(i) NEXT i FOR i = 1 TO n4 x(i) = x(i) - 5 Y(i) = -(Y(i) - 197) x(i) = EX * x(i) Y(i) = EY * Y(i) NEXT i FOR i = 1 TO n4 - 1 LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), 10 m = m + 1 PRINT #2, USING " FX1( #####.#### "; m; PRINT #2, USING " )=#####.####: "; x(i); PRINT #2, USING " FY1( #####.#### "; m; PRINT #2, USING " )=#####.#### "; Y(i) PRINT #2, USING " FX2( #####.#### "; m; PRINT #2, USING " )=#####.####: "; x(i + 1); PRINT #2, USING " FY2( #####.#### "; m; PRINT #2, USING " )=#####.#### "; Y(i + 1) NEXT i DATA 078,054 DATA 078,027 DATA 097,036 DATA 135,047 DATA 179,048 DATA 216,041 DATA 265,040 DATA 285,051 DATA 420,037 DATA 529,020 DATA 625,032 n4 = 11 FOR i = 1 TO n4 READ x(i), Y(i) NEXT i FOR i = 1 TO n4 x(i) = x(i) - 5 Y(i) = -(Y(i) - 197) x(i) = EX * x(i) Y(i) = EY * Y(i) NEXT i FOR i = 1 TO n4 - 1 LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), 11 m = m + 1 PRINT #2, USING " FX1( #####.#### "; m; PRINT #2, USING " )=#####.####: "; x(i); PRINT #2, USING " FY1( #####.#### "; m; PRINT #2, USING " )=#####.#### "; Y(i) PRINT #2, USING " FX2( #####.#### "; m; PRINT #2, USING " )=#####.####: "; x(i + 1); PRINT #2, USING " FY2( #####.#### "; m; PRINT #2, USING " )=#####.#### "; Y(i + 1) NEXT i PRINT #2, "RETURN" END