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