#pragma mode( separator(.

,;) integer(h32) ) ANESH();VIEW "ANESH

v2",START()BEGIN startview(6,1);ANESH();END;
#cas
Raices(fc,li,lf):=BEGIN rcs:=solve(fc,x,li..lf);RETURN rcs;END;
#end
Gp:=G1;Accion;j;Gs:=G2;rtyh1:=CHAR({50,32,80,105,115,111,115});rtyh2:=2;rtyh3:
=3;rtyh4:=3;rtyh5:=1;rtyh6:=1;rtyh7:=2;rtyh8:=2;rtyh9:=3;rtyh10:={3,3,3};tgh1:=9;var
s:=CHAR([57,67,74,55,51,53,48,55,74,76]);tgh2:=0.25;tgh3:=1.40;tgh4:=1.5;tgh5:=35;
tgh6:=35;tgh7:=8;tgh8:=3;tgh9:=1;tgh10:=1;xpe1:=0.6;xpe2:=2;xpe3:=3;xpe4:=0.5;xpe
5:=0.5;xpe6:=0.05;xpe7:=0.05;xpe8:=2.5;xpe9:=2.5;xpe10:=1;pft1:=0.171;pft2:=0.171;
pft3:=9.806;pft4:=0.05;pft5:=0.05;pft6:=2;pft7:=2;pft8:=3;pft9:=2;pft10:=CHAR({90,1
11,110,97,32,50});fld1:=CHAR({80,101,114,102,105,108,32,83,50});fld2:=CHAR({67
,97,116,101,103,111,114,105,97,32,65,50});fld3:={0.1,0.25,0.35,0.45};fld4:={1.5,1.5,1
.3,1.0,0.8};fld5:=[[0.8,1.0,1.6,2,1],[0.8,1,1.2,1.4,5.0],[0.8,1,1.15,1.2,4.0],[0.8,1,1.05,1.1,
3.0]];fld6:={8,7,6,4,3};fld7:={35,45,60};fld8:=[[0.3,0.4,0.6,1.0,1.2],[3,2.5,2,1.6,1.4]];fl
d9:=210;fld10:=210;hfjq1:=45;hfjq2:=21737065;hfjq3:=22500;hfjq4:=2400;hfjq5:=180
0;hfjq6:=0.4*hfjq2;hfjq7:=0.4*hfjq3;hfjq8:=1.2;hfjq9:=1;hfjq10:=1;werf1:=1;werf2:=0.
3;werf3:=0.20;werf4:=210;werf5:=2400;werf6:=173896.521;werf7:=90571.1;werf8:=0.
20;werf9:=0.25;werf10:=0.25;werf11:=210;bhy1:=2400;bhy2:=173896.521;bhy3:=905
71.1;bhy4:=0.20;bhy5:=0.15;bhy6:=2.5;bhy7:=65;bhy8:=2400;bhy9:=217370.7;bhy10:
=90571.1;gpk1:=0.25;gpk2:=456;gpk3:=[[4,4],[5,0]];gpk4:=0;gpk5:=[[0.3,0.2,210,2400
,0.2,217370.7,90571.1]];gpk6:=1;gpk7:=[[0.25,0.25,210,2400,0.2,217370.7,90571.1]];g
pk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500,90571.1]];gpk10:=1;qwr1:=0;qwr2:=5;qw
r3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={};qwr10:={};dfg1:=0;dfg2:=0;dfg
3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:={0,0,0,0,0};dfg8:={280,3
00,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:={2500,2000,150
0,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5:={};fjl
t6:=0;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd2:=246;abd3:=1000;abd4:=500;abd
5:={{11.0023},{11.0023},{10.22}};abd6:=1250;abd7:=0;abd8:=0;abd9:=1;abd10:=[[0,
0,0,1E-19,1E-
23,0]];bdc1:={};bdc2:=[[0]];bdc3={};bdc4:=0;bdc5:=0;bdc6:=1;bdc7:=0;bdc8:=0;bdc9:
=0;bdc10:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E-
23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11
:=0;expr12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E-
23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:
=[[0]];xpre4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpr
e11:={};xpre12:={};xpre13:={};xpre14:={[[0.0254,0.0254,1.2546,01.245,-
4.5245,0],[0.4523,0.457,0.4567,1.45,0,-4.5]],[[0.12,0.65,1,0,-0.5,0],[0,0,0,1,0,-
0.5]],[[0,0,1,0,4.5,0],[0,0,0,1,0,4.5]]};xpre15:={[[1,0.025456,0,0,2,0],[0,1,0,0,0,2]],[[1,
0,0,0,-2,0],[0,1,0,0,0,-
2]]};zsc1:={};zsc2:={};zsc3:=479;zsc4:=[[0]];zsc5:=[[0]];zsc6:=[[0]];zsc7:=[[0]];zsc8:
=[[0]];zsc9:={};zsc10:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zx
p1:={};zxp2:={};zxp3:=0;zxp4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp
9:=[[0]];zxp10:=[[0]];zxp11:=[[0]];zxp12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=
0;zxp17:={};zxp18:={};zxp19:={};zxp20:={};ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixp
r4:=[[0]];ixpr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr7:=[[0]];ixpr8:=[[0]];ixpr9:=[[0]];ixpr10:
={0};ixpr11:=[[0]];ixpr12:=[[0]];ixpr13:=[[0]];ixpr14:=[[0]];ixpr15:=[[0]];ixpr16:=[[0]]
;ixpr17:=[[0]];ixpr18:=[[0]];ixpr19:=[0];ixpr20:=[0];jksd1:=[[0]];jksd2:=[[0]];jksd3:=[[
0]];jksd4:=[[0]];jksd5:=[[0]];jksd6:=[[0]];jksd7:=[[0]];jksd8:=[[0]];jksd9:=[[0]];jksd10:
=[[0]];jksd11:=[[0]];jksd12:=[[0]];jksd13:=[[0]];jksd14:=[[0]];jksd15:=[[0]];jksd16:=[[
0]];jksd17:=[[0]];jksd18:=[[0]];jksd19:=[[0]];jksd20:=[[0]];jliu1:=0;jliu2:=0;jliu3:=[[0]]
;jliu4:=0;jliu5:=0;jliu6:=0;jliu7:=0;jliu8:=[0];jliu9:=[0];jliu10:=[0];jliu11:=[0];jliu12:=[[
0]];jliu13:=[[0]];jliu14:=0.981*4;jliu15:={};jliu16:=0;jliu17:=4;jliu18:=2;jliu19:=3.756;
jliu20:=0.981;dshy1:=0.1;dshy2:={};dshy3:={};dshy4:={};dshy5:={};dshy6:={};dshy7
:={};dshy8:=[[0]];dshy9:=[[0]];dshy10:=[[0]];dshy11:=[[0]];dshy12:=[[0]];dshy13:={0
};dshy14:=[[0]];dshy15:=[[0]];dshy16:=[[0]];dshy17:=[[0]];dshy18:=[[0]];dshy19:=[[0]
];dshy20:=[[0]];lagr1:=[[0]];lagr2:=[[0]];lagr3:=0;lagr4:=0;lagr5:=1;lagr6:=0;lagr7:=0;l
agr8:=0;lagr9:=0;lagr10:=0;qwr4:="Calculadora gráfica HP Prime\n\nVersión de
software: 2018 02 12 (10637)\nVersión del hardware: C\nVersión de CAS: 1.1.2-
11\nNúmero de serie: 9CJ73507JL\nSistema operativo: V0.048.635\n\n© 2015 HP
Development Company,
L.P.\n";DHTo:=0;DHTf:=1;DHRig:=100000;DHMas:=100;DHInt:=0.2;DHFun:=[[0]];
DHDec:=4;xpre1:=CAS(CAS(CHAR({86,69,82,83,73,79,78})));vVARC:=0;NP_A();E
XPORT
DB:={};nomA:={CHAR({77,111,100,101,108,111,32,49})};tamA:=0;Name:=CHAR({
32});MenP:={CHAR({68,69}),CHAR({68,73,66}),CHAR({32}),CHAR({82,85,78}),C
HAR({82,69,83,85,76,84}),CHAR({73,78})};Aqua:=RGB(157,198,216);BlueScuba:=
RGB(0,178,202);GreenLucite:=RGB(125,207,182);BlueClasic:=RGB(29,79,137);Straw
Red:=RGB(227,134,144);Tangerine:=RGB(246,146,86);CusYellow:=RGB(234,217,13
9);MarsaRed:=RGB(150,82,81);ToasRed:=RGB(210,178,154);Glaciar:=RGB(230,230,
250);PlomoA:=RGB(220,220,220);Blue:=RGB(0,0,#CDh);Green:=RGB(0,#CDh,0);Re
d:=RGB(#CDh,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=RGB(150,177,21
0);DarkBlue:=RGB(33,115,231);White:=RGB(250,255,255);Fondo:=RGB(239,247,247
);AzulA:=RGB(53,117,211);AzulB:=RGB(0,28,84);AzulTit:=BlueClasic;MCuad:=Mar
saRed;FCuad:=RGB(220,220,220);RedA:=RGB(195,56,56);RedB:=RGB(255,181,181)
;CTexto:=RGB(33,115,231);CTexto2:=RGB(195,56,56);CoVig:=RGB(0,126,253);Co
Mur:=RGB(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,27,30);liev1:=0;
liev2:=0;liev3:=0;liev4:=0;liev5:=0;liev6:=0;liev7:=0;liev8:=0;liev9:=0;liev10:=0;liev1
1:=0;liev12:=0;liev13:=0;liev14:=1;liev15:=1;liev16:=1;liev17:=1;liev18:=0;fldth1();fty
ul1();qljgt1();pxtrf1();zvfgk1();yyhte1();ffllq1();llfft1();jjrtg1();tlitg1();hdljt1();ldljtr1();
tdljt1();ldljt1();fldth2();ftyul2();qljgt2();pxtrf2();zvfgk2();yyhte2();ffllq2();llfft2();jjrtg2
();tlitg2();hdljt2();ldljtr2();tdljt2();ldljt2();fldth3();ftyul3();qljgt3();pxtrf3();zvfgk3();yyh
te3();ffllq3();llfft3();jjrtg3();tlitg3();hdljt3();ldljtr3();tdljt3();ldljt3();fldth4();ftyul4();qlj
gt4();pxtrf4();zvfgk4();yyhte4();ffllq4();llfft4();jjrtg4();tlitg4();hdljt4();ldljtr4();tdljt4();l
dljt4();fldth5();ftyul5();qljgt5();pxtrf5();zvfgk5();yyhte5();ffllq5();llfft5();jjrtg5();tlitg5(
);hdljt5();ldljtr5();tdljt5();ldljt5();fldth6();ftyul6();qljgt6();pxtrf6();zvfgk6();yyhte6();ffll
q6();llfft6();jjrtg6();tlitg6();hdljt6();ldljtr6();tdljt6();llfft12();ldljt6();fldth7();ftyul7();qlj
gt7();pxtrf7();zvfgk7();yyhte7();ffllq7(xpe3);llfft11();llfft7();jjrtg7();tlitg7();hdljt7();ldlj
tr7();tdljt7();ldljt7();fldth8();ftyul8();qljgt8();pxtrf8();zvfgk8();yyhte8();ffllq8();llfft8();j
jrtg8();tlitg8();hdljt8();ldljtr8();tdljt8();ldljt8();fldth9();ftyul9();qljgt9();pxtrf9();zvfgk9(
);yyhte9();ffllq9();llfft9();jjrtg9();tlitg9();hdljt9();ldljtr9();tdljt9();ldljt9();fldth10();ftyul
10();qljgt10();pxtrf10();zvfgk10();yyhte10();ffllq10();llfft10();jjrtg10();tlitg10();hdljt10
();ldljtr10();tdljt10();ldljt10();fldth11();ftyul11();qljgt11();pxtrf11();zvfgk11();yyhte11()
;ffllq11();MenQR12()BEGIN IF 1==1 THEN END;IF vars=SERIAL THEN
fldth1();yyhte7;ELSE
hdljt7(""+CHAR({80,82,79,71,82,65,77,65,32,80,73,82,65,84,65}),CHAR({32,32,32,6
7,79,77,80,82,69,32,101,115,116,97,32,97,112,108,105,99,97,99,105,243,110,32}),90,1
00,130,35,0.5);WAIT(2);END;END;fldth1()BEGIN LOCAL
SALIR,mx,my,v,t,aaa1;DIMGROB_P(Gp,320,240,White);LOCAL
touch,op;qljgt1();yyhte7;jjrtg1();yyhte7;IFERR yyhte5(Gp,0,qwr8(1),qwr7(1));THEN
END;aaa1:=CAS(CAS(CHAR({83,69,82,73,65,76})));REPEAT
DIMGROB(G8,0,0);DIMGROB(G2,0,0);IF liev18==3 THEN
jjrtg1();pxtrf4(Gp,0,0,0);IFERR yyhte5(Gp,0,0,0);THEN
END;yyhte2();liev18:=0;END;BLIT_P(G0,Gp);LOCAL k;t:=B→R(WAIT(-1));IF
TYPE(t)==6 THEN IF t(1)==3 THEN mx:=t(2);my:=t(3);IF 0<mx<35 AND 0≤my≤30
THEN ftyul1();END;IF 35<mx<92 AND 0≤my≤19 AND
aaa1==CHAR({57,67,74,55,51,53,48,55,74,76})THEN tlitg1();IFERR
yyhte5(Gp,0,qwr8(1),qwr7(1));THEN END;END;IF 92<mx<149 AND 0≤my≤19
THEN qljgt4(mx,my);liev18:=1;END;IF liev18==0 THEN jjrtg1();IF 149<mx<206
AND 0≤my≤19 THEN zvfgk9();yyhte7;END;IF 206<mx<263 AND 0≤my≤19 THEN
pxtrf9();yyhte7;END;IF 263<mx<320 AND 0≤my≤19 THEN zvfgk11();yyhte7;END;IF
0<=mx<=35 AND 225≤my≤240 AND
aaa1==CHAR({57,67,74,55,51,53,48,55,74,76})THEN
RECT_P(124,100,196,112,DarkBlue,White);FOR k:=1 TO 3 DO
RECT_P(125,100+1,125+10*k,112-
1,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),13
3,102,1,DarkBlue);WAIT(0.2);END;purge(G1,G2,G3,G4,G5,G6,G7,G8,G9);IFERR
yyhte5(Gp,0,qwr8(1),qwr7(1));THEN END;FOR k:=1 TO 4 DO
RECT_P(155,100+1,155+10*k,112-
1,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),13
3,102,1,DarkBlue);WAIT(0.2);yyhte7;END;END;zvfgk5(mx,my);IFERR
hdljt5(mx,my);THEN END;END;IF liev18==1 THEN qljgt4(mx,my);IF abd7==1
THEN ffllq4(mx,my);yyhte7;END;IF bdc4==1 THEN ldljtr4(mx,my);yyhte7;END;IF
expr7==1 THEN fldth5(mx,my);yyhte7;END;END;END;END;IF TYPE(t)==0 THEN
SALIR:=t;END;UNTIL SALIR==4;END;qljgt1()BEGIN
RECT_P(Gp,0,0,320,240,White,White);RECT_P(Gp,0,17,320,228,Blue,White);RECT_
P(Gp,0,228,31,240,PlomoA);TEXTOUT_P("",Gp,8,225.5,3,Black);TEXTOUT_P(CHA
R({88,58}),Gp,35,230,1,Black);TEXTOUT_P(CHAR({89,58}),Gp,70,230,1,Black);LI
NE_P(Gp,104,228,104,240,Plomo);TEXTOUT_P(CHAR({67,32})+"┅
"+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHA
R({86,32})+"┅
"+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHA
R({65,32})+"┅
"+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,2
28,360,240,PlomoA);TEXTOUT_P("",Gp,260,229,1,AzulTit);LOCAL
xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi-
30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi-
11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf-
4,2,PlomoA);RECT_P(Gp,0,227,320,228,AzulB);END;fsrvtha();axsdcerf();PRes(Tipp);
qaswe1();axsdcerfR();axsdcerfOpc1(cx,cy,anc,posf,pst,Lm,cont);Mnbvxqubg(w,h,sw,sh
);hclq(Tip);axsdcerfOpc2(cx,cy,anc,posf,pst,Lm,cont,Mnu1,Mnu2);toq(Tip);MTanx(M
nu1,Mnu2);Inicio();Nudos();Barras();Atytzad23();Atytzad22();Atytzad20(Sig);Atytzad
21(Tip,Sig);Atytz13();LMax:={};Titu7:={{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺
䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞
䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"
䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","
䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤
䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤
䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧
䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤
䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙
䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁
䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇
䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁
䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖
","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖
䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䳕
䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};Titl={{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴩䴤
䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴧䴚䴘䴧䴚䴨"},{"䴁
䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴙
䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡""䴁䴤䴘䴖䴡","䳼䴡䴤
䴗䴖䴡","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚
䴯䴖䳕䳶䴭䴞","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䳻䴡䴚䴘䴩䴤䴧","
䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨
䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳥䳬䳿䴁","䴉䴧䴖䴣䴛䴤䴘
䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴤䴨","䳺
䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞
䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣","
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴢䴥䴡䴚䴩䴖
","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","
䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉
䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪
䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺
䴇䳾䳶䴁"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞","䳻䴪䴚䴧䴯
䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"
䳸䴖䴧䴜䴖䴨","䳼䴧䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤
䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡
䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙
䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","
䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼
䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧
䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘
䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚
䴣䴩䴤䴨","䳺䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁䴤䴘
䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩
䴚","䴂䴤䴢䴚䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧
䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘
䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤
䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴁䴤䴘䴖䴡","
䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡
䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨
䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛
䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣
","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚
䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴙䴖"},{"䴁
䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"
䳻䴪䴚䴯䴖䳕䳶䴭䴞","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䳻䴡䴚䴘䴩
䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"
䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧
䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","
䳺䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣
䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧
䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴢
䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨
䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩
䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䶨䴣","䴁䴤䴘䴖䴡","䳬䳨䳪","䴉
䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣","䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖
䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢
䴚䴣䴩䴤䴨","䳺䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁䴤
䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴖䴣䴩䴚","䴡䴚
䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};pxtrf1()BEGIN
RECT_P(Gp,0,228,360,240,White);RECT_P(Gp,0,228,31,240,PlomoA);TEXTOUT_P(
"",Gp,8,225.5,3,Black);TEXTOUT_P(CHAR({88,58,32}),Gp,35,230,1,Black);TEXTO
UT_P(CHAR({89,58,32}),Gp,70,230,1,Black);LINE_P(Gp,104,228,104,240,Plomo);T
EXTOUT_P(CHAR({67,32})+"┅
"+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHA
R({86,32})+"┅
"+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHA
R({65,32})+"┅
"+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,2
28,360,240,PlomoA);LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi-
30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi-
11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf-
4,2,PlomoA);RECT_P(Gp,36,16,320,19,AzulTit);RECT_P(Gp,0,227,320,228,AzulB);E
ND;jjrtg1()BEGIN LOCAL
R_DE,R_DI,R_CA,R_RE,R_OT;RECT_P(Gp,0,16,320,19,AzulTit);RECT_P(Gp,0,0,3
5,30,AzulTit);R_DE:={{36,0},{92,16}};RECT_P(Gp,R_DE(1),R_DE(2),Fondo);zvfgk
1(R_DE(1,1)+5,12.5,AzulTit,1);TEXTOUT_P(CHAR({68,69,70,73,78}),Gp,R_DE(1,1
)+20,2,2,AzulTit);R_DI:={{92,0},{149,16}};RECT_P(Gp,R_DI(1),R_DI(2),Fondo);yy
hte1(R_DI(1,1)+5,8.5,AzulTit);TEXTOUT_P(CHAR({68,82,65,87}),Gp,R_DI(1,1)+20
,2,2,AzulTit);RECT_P(Gp,R_DI(1,1),0,R_DI(1,1)+1,16,AzulTit);R_CA:={{149,0},{20
6,16}};RECT_P(Gp,R_CA(1),R_CA(2),Fondo);TEXTOUT_P("",Gp,R_CA(1,1)+9,-
3,5,RedA);TEXTOUT_P(CHAR({82,85,78}),Gp,R_CA(1,1)+23,2,2,AzulTit);RECT_P
(Gp,R_CA(1,1),0,R_CA(1,1)+1,16,AzulTit);R_RE:={{206,0},{263,16}};RECT_P(Gp,
R_RE(1),R_RE(2),Fondo);llfft1(R_RE(1,1)+5,12.5,AzulTit,1);TEXTOUT_P(CHAR({
82,69,83,85,76}),Gp,R_RE(1,1)+20,2,2,AzulTit);RECT_P(Gp,R_RE(1,1),0,R_RE(1,1)
+1,16,AzulTit);R_OT:={{263,0},{320,16}};RECT_P(Gp,R_OT(1),R_OT(2),Fondo);T
EXTOUT_P("",Gp,R_OT(1,1)+9,-
3,4,AzulTit);TEXTOUT_P(CHAR({84,79,79,76}),Gp,R_OT(1,1)+22,2,2,AzulTit);RE
CT_P(Gp,R_OT(1,1),0,R_OT(1,1)+1,16,AzulTit);BLIT_P(Gp,CHAR({82,65,66,97}),0
,0);END;ftyul1()BEGIN liev18:=2;LOCAL
R_Op,R_pro,R_Gu,R_Nu,R_Ay,R_De,R_Es;FILLPOLY_P({(0,31),(36,31),(36,0),(320
,0),(320,240),(0,240)},Plomo,150);FILLPOLY_P({(0,32),(37,32),(37,20),(94,20),(94,2
22),(0,222)},Fondo);R_Op:={{0,30},{91,55}};RECT_P(R_Op(1),R_Op(2),16,Fondo);
TEXTOUT_P("
"+CHAR({65,66,82,73,82}),R_Op(1,1)+5,R_Op(1,2)+7,2,AzulB);R_Gu:={{0,55},{91,
80}};RECT_P(R_Gu(1),R_Gu(2),16,Fondo);TEXTOUT_P("
"+CHAR({71,85,65,82,68,65,82}),R_Gu(1,1)+5,R_Gu(1,2)+7,2,AzulB);R_Nu:={{0,80
},{91,105}};RECT_P(R_Nu(1),R_Nu(2),16,Fondo);TEXTOUT_P("
"+CHAR({78,85,69,86,79}),R_Nu(1,1)+5,R_Nu(1,2)+7,2,AzulB);R_Ay:={{0,105},{9
1,130}};RECT_P(R_Ay(1),R_Ay(2),16,Fondo);TEXTOUT_P("
"+CHAR({65,89,85,68,65}),R_Ay(1,1)+5,R_Ay(1,2)+7,2,AzulB);R_De:={{0,130},{91
,155}};RECT_P(R_De(1),R_De(2),16,Fondo);TEXTOUT_P("
"+CHAR({68,69,67,73,77,65,76,69,83}),R_De(1,1)+5,R_De(1,2)+7,2,AzulB);R_Es:={
{0,155},{91,180}};RECT_P(R_Es(1),R_Es(2),16,Fondo);TEXTOUT_P("
"+CHAR({69,83,84,73,76,79,83}),R_Es(1,1)+5,R_Es(1,2)+7,2,AzulB);R_pro:={{0,18
0},{91,220}};RECT_P(R_pro(1,1),R_pro(1,2),R_pro(2,1),R_pro(2,2),AzulB,AzulB);T
EXTOUT_P(CHAR({68,89,83,65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);TEX
TOUT_P(CHAR({68,89,83,65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);FILLPO
LY_P({(36,30),(36,20),(94,20),(94,220),(91,220),(91,30),(36,30)},AzulB);LOCAL
mx,my;REPEAT Accion:=B→R(WAIT(-1));IF TYPE(Accion)==6 THEN
R_pro:={{0,180},{200,220}};IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF R_Op(1,1)<mx<R_Op(2,1)AND
R_Op(1,2)<my<R_Op(2,2)THEN
fldth11();DIMGROB_P(Gp,320,240,White);liev18:=3;BREAK;END;IF
R_Gu(1,1)<mx<R_Gu(2,1)AND R_Gu(1,2)<my<R_Gu(2,2)THEN
liev18:=0;ldljt10(1);yyhte7;BREAK;END;IF R_Nu(1,1)<mx<R_Nu(2,1)AND
R_Nu(1,2)<my<R_Nu(2,2)THEN LOCAL
vv:=0;vv:=tdljt7(CHAR({32,191,68,101,115,101,97,32,32,32,114,101,115,116,97,117,
114,97,114,32,32,32,108,111,115}),CHAR({32,100,97,116,111,115,32,100,101,108,32,
112,114,111,103,114,97,109,97,63}),100,100,165,65,0.05);IF vv==1 THEN
purge(G1,G2,G3,G4,G5,G6,G7,G8,G9);hdljt10();ldljt7(CHAR({80,114,111,103,114,97
,109,97,32,114,101,115,116,97,98,108,101,99,105,100,111}),CHAR({32,32,32,32,32,3
2,32,32,99,111,114,114,101,99,116,97,109,101,110,116,101}),80,100,140,40,1);jjrtg1()
;qljgt1();yyhte7;BREAK;END;liev18:=0;ftyul1();BREAK;END;IF
R_Ay(1,1)<mx<R_Ay(2,1)AND R_Ay(1,2)<my<R_Ay(2,2)THEN
liev18:=0;tdljt10();yyhte7;END;IF R_De(1,1)<mx<R_De(2,1)AND
R_De(1,2)<my<R_De(2,2)THEN liev18:=0;ftyul11();yyhte7;END;IF
R_Es(1,1)<mx<R_Es(2,1)AND R_Es(1,2)<my<R_Es(2,2)THEN
liev18:=0;ldljtr10();yyhte7;END;IF R_pro(1,1)<mx<R_pro(2,1)AND
R_pro(1,2)<my<R_pro(2,2)THEN liev18:=0;qljgt11();yyhte7;END;IF 94<mx<320
THEN liev18:=0;BREAK;END;END;END;END;UNTIL
ISKEYDOWN(4);END;zvfgk1(xi,yi,ColorA,c)BEGIN LOCAL e:=0.2,g:=0.5;LOCAL
H:=50*e,V:=65*e;IF c==1 AND qwr4==xpre1 THEN
RECT_P(Gp,xi,yi,xi+H,yi+4*g,ColorA);RECT_P(Gp,xi,yi,xi+3*g,yi-
V,ColorA);RECT_P(Gp,xi,yi-V,xi+H-20*e,yi-V+g,ColorA);FILLPOLY_P(Gp,{(xi+H-
20*e,yi-V+25*e),(xi+H-20*e,yi-V),(xi+H,yi-V+25*e)},ColorA);LINE_P(Gp,xi+H-
20*e,yi-V,xi+H,yi-V+25*e,ColorA);LINE_P(Gp,xi+H,yi,xi+H,yi-
V+25*e,ColorA);LINE_P(Gp,xi,yi-25*e,xi+H,yi-25*e,ColorA);LINE_P(Gp,xi,yi-
35*e,xi+H,yi-35*e,ColorA);TEXTOUT_P("✎",Gp,xi-25*e,yi-50*e,2,ColorA);ELSE
RECT_P(xi,yi,xi+H,yi+4*g,ColorA);RECT_P(xi,yi,xi+3*g,yi-
V,ColorA);RECT_P(xi,yi-V,xi+H-20*e,yi-V+g,ColorA);FILLPOLY_P({(xi+H-
20*e,yi-V+25*e),(xi+H-20*e,yi-V),(xi+H,yi-V+25*e)},ColorA);LINE_P(xi+H-
20*e,yi-V,xi+H,yi-V+25*e,ColorA);LINE_P(xi+H,yi,xi+H,yi-
V+25*e,ColorA);LINE_P(xi,yi-25*e,xi+H,yi-25*e,ColorA);LINE_P(xi,yi-
35*e,xi+H,yi-35*e,ColorA);TEXTOUT_P("✎",xi-25*e,yi-
50*e,2,ColorA);END;END;yyhte1(x,y,ColorA)BEGIN LOCAL e:=0.18,g:=3;LOCAL
H:=25*e,V:=25*e,h:=18*e,v:=18*e;RECT_P(Gp,x,y,x+H,y+H,ColorA);FILLPOLY_P(
Gp,{(x+H,y),(x+H,y-g),(x+H+18.33*e,y-50.35*e-g+H),(x+H+18.33*e,y-
50.35*e+H)},ColorA);FILLPOLY_P(Gp,{(x+H,y+H),(x+H-g,y+H),(x+H+27*e-
g,y+H+10*e),(x+H+27*e,y+H+10*e)},ColorA);RECT_P(Gp,x+H+18.33*e,y-
50.35*e+H,x+H+18.33*e-h,y-50.35*e-
v+H,ColorA);RECT_P(Gp,x+H+27*e,y+H+10*e,x+H-
h+27*e,y+H+v+10*e,ColorA);END;llfft1(xi,yi,ColorA,c)BEGIN LOCAL
e:=0.2,g:=0.5;LOCAL H:=50*e,V:=65*e;IF c==1 AND qwr4==xpre1 THEN
RECT_P(Gp,xi,yi,xi+H,yi+4*g,ColorA);RECT_P(Gp,xi,yi,xi+3*g,yi-
V,ColorA);RECT_P(Gp,xi,yi-V,xi+H-20*e,yi-V+g,ColorA);FILLPOLY_P(Gp,{(xi+H-
20*e,yi-V+25*e),(xi+H-20*e,yi-V),(xi+H,yi-V+25*e)},ColorA);LINE_P(Gp,xi+H-
20*e,yi-V,xi+H,yi-V+25*e,ColorA);LINE_P(Gp,xi+H,yi,xi+H,yi-
V+25*e,ColorA);LINE_P(Gp,xi,yi-25*e,xi+H,yi-25*e,ColorA);LINE_P(Gp,xi,yi-
35*e,xi+H,yi-35*e,ColorA);TEXTOUT_P("",Gp,xi-25*e,yi-50*e,2,ColorA);ELSE
RECT_P(xi,yi,xi+H,yi+4*g,ColorA);RECT_P(xi,yi,xi+3*g,yi-
V,ColorA);RECT_P(xi,yi-V,xi+H-20*e,yi-V+g,ColorA);FILLPOLY_P({(xi+H-
20*e,yi-V+25*e),(xi+H-20*e,yi-V),(xi+H,yi-V+25*e)},ColorA);LINE_P(xi+H-
20*e,yi-V,xi+H,yi-V+25*e,ColorA);LINE_P(xi+H,yi,xi+H,yi-
V+25*e,ColorA);LINE_P(xi,yi-25*e,xi+H,yi-25*e,ColorA);LINE_P(xi,yi-
35*e,xi+H,yi-35*e,ColorA);TEXTOUT_P("",xi-25*e,yi-
50*e,2,ColorA);END;END;zvfgk5(mx,my)BEGIN IF 104≤mx≤140 AND 225≤my≤240
THEN LOCAL DimH,j;IF abd10(1,1)==0 THEN
RECT_P(105,100,215,130,RedA,PlomoA);TEXTOUT_P("✘
"+CHAR({78,111,32,101,120,105,115,116,101,32,110,105,110,103,117,110,97}),110,1
04,1,RedA);TEXTOUT_P(CHAR({32,32,32,99,111,108,117,109,110,97,32,100,105,98
,117,106,97,100,97}),114.5,116,1,RedA);WAIT(1);ELSE
DimH:={CHAR({84,105,112,111}),CHAR({76,88}),CHAR({76,89}),CHAR({88,32,4
0,67,71,41}),CHAR({89,32,40,67,71,41}),CHAR({80,46,69,46}),CHAR({80,111,105,
115,115,111,110}),CHAR({69,108,97,115,116,32,40,69,41}),CHAR({67,111,114,116,
101,32,40,71,41}),CHAR({65,114,101,97}),CHAR({73,110,101,114,99,105,97}),CHA
R({73,68}),""};
LOCAL Col,DimV:={};FOR j:=1 TO colDim(abd10)DO
Col:={""};DimV:=CONCAT(DimV,Col);END;DimV:=CONCAT(DimV);IF liev13==0
THEN
abd10:=EDITMAT(abd10,{CHAR({68,97,116,111,115,45,67,111,108,117,109,110,97,
115}),DimV,DimH});ELSE
bdc2:=EDITMAT(bdc2,{CHAR({68,97,116,111,115,45,67,111,108,117,109,110,97,11
5}),DimV,DimH});END;yyhte5(Gp,0,0,0);END;END;IF 140≤mx≤176 AND
225≤my≤240 THEN LOCAL DimH,DimV,j;IF expr3(1,1)==0 THEN
RECT_P(105,100,215,130,RedA,PlomoA);TEXTOUT_P("✘"+CHAR({78,111,32,101,
120,105,115,116,101,32,110,105,110,103,117,110,97}),110,104,1,RedA);TEXTOUT_P
(CHAR({32,32,32,118,105,103,97,32,100,105,98,117,106,97,100,97}),114.5,116,1,Red
A);WAIT(1);ELSE
DimH:={CHAR({84,105,112,111}),CHAR({66,97,115,101}),CHAR({80,101,114,97,1
08,116,101}),CHAR({88,49,32,40,67,71,41}),CHAR({89,49,32,40,67,71,41}),CHAR(
{88,50,32,40,67,71,41}),CHAR({89,50,32,40,67,71,41}),CHAR({76,79,78,71,46}),CH
AR({80,46,69,46}),CHAR({80,111,105,115,115,111,110}),CHAR({69,108,97,115,116
,105,99,105,100,97,100,32,40,69,41}),CHAR({67,111,114,116,101,32,40,71,41}),CHA
R({65,114,101,97}),CHAR({73,110,101,114,99,105,97}),CHAR({73,68}),""};LOCAL
Col,DimV:={};FOR j:=1 TO colDim(expr3)DO
Col:={""};DimV:=CONCAT(DimV,Col);END;DimV:=CONCAT(DimV);IF liev13==0
THEN
expr3:=EDITMAT(expr3,{CHAR({68,97,116,111,115,45,86,105,103,97,115}),DimV,
DimH});ELSE
expr5:=EDITMAT(expr5,{CHAR({68,97,116,111,115,45,86,105,103,97,115}),DimV,
DimH});END;yyhte5(Gp,0,0,0);END;END;IF 176≤mx≤210 AND 225≤my≤240 THEN
LOCAL DimH,DimV,j;IF expr15(1,1)==0 AND qwr4==xpre1 THEN
RECT_P(105,100,215,130,RedA,PlomoA);TEXTOUT_P("✘
"+CHAR({78,111,32,101,120,105,115,116,101,32,110,105,110,103,117,110,97}),110,1
04,1,RedA);TEXTOUT_P("
"+CHAR({32,32,32,109,117,114,111,32,100,105,98,117,106,97,100,111}),114.5,116,1,
RedA);WAIT(1);ELSE
DimH:={CHAR({84,105,112,111}),CHAR({69,115,112,101,115,111,114}),CHAR({4
5,45,45,46}),CHAR({76,79,78,71,46}),CHAR({88,49,32,40,67,71,41}),CHAR({89,49,
32,40,67,71,41}),CHAR({88,50,32,40,67,71,41}),CHAR({89,50,32,40,67,71,41}),CH
AR({72,32,40,109,41}),CHAR({80,46,69,46}),CHAR({80,111,105,115,115,111,110}),
CHAR({69,108,97,115,116,105,99,105,100,97,100,32,40,69,41}),CHAR({67,111,114,
116,101,32,40,71,41}),CHAR({73,68}),""};LOCAL Col,DimV:={};FOR j:=1 TO
colDim(expr15)DO
Col:={""};DimV:=CONCAT(DimV,Col);END;DimV:=CONCAT(DimV);IF liev13==0
AND qwr4==xpre1 THEN
expr15:=EDITMAT(expr15,{CHAR({68,97,116,111,115,45,77,117,114,111,115,32,10
0,101,32,65,108,98,97,241,105,108,101,114,105,97}),DimV,DimH});ELSE
expr17:=EDITMAT(expr17,{CHAR({68,97,116,111,115,45,77,117,114,111,115,32,10
0,101,32,65,108,98,97,241,105,108,101,114,105,97}),DimV,DimH});END;yyhte5(Gp,
0,0,0);END;END;END;zvfgk11()BEGIN LOCAL
vv;vv:=ffllq3(1,{CHAR({68,117,104,97,109,101,108})},206,19,105,2,PlomoA,AzulTit
,Fondo,AzulTit);CASE IF vv==1 THEN
yyhte11();yyhte7;END;END;END;yyhte11()BEGIN LOCAL
bx,by,nx,R_Mas:={},R_Rig:={},R_Int:={},R_To:={},R_Tf:={};LOCAL
ax,ay,rx,ry,R_Ok:={},R_Repor:={},R_Func:={},R_Dec:={};LOCAL
dx,dy,mx,my,i,j,sx,sy;LOCAL
dist;RECT(Fondo);RECT_P({0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR(
{73,78,84,69,71,82,65,76,32,68,69,32,68,85,72,65,77,69,76}),95,3,2,White);dx:=0;dy:=
10;sx:=CHAR({108});RECT_P({10,25+dy},{300,180},DarkBlue,Fondo);TEXTOUT_
P("",15+dx,20+dy,2,Black,180,Fondo);dx:=60;dy:=dy+40;R_Mas:={{dx,dy},{dx+100,
dy+18}};TEXTOUT_P(CHAR({87,61,32}),dx-
22,R_Mas(1,2)+3,2);ftyul3(STRING(DHMas,1),R_Mas,CHAR({107,103,45,115,50,47,
99,109}),AzulTit,White);dx:=200;sy:=CHAR({97});dy:=dy;R_Rig:={{dx,dy},{dx+90,
dy+18}};TEXTOUT_P(CHAR({75,61,32}),dx-
22,R_Rig(1,2)+3,2);ftyul3(STRING(DHRig,1),R_Rig,CHAR({107,103,102,47,99,109,
50}),AzulTit,White);dx:=60;rx:=CHAR({115});dy:=dy+30;R_Int:={{dx,dy},{dx+70,d
y+18}};TEXTOUT_P("∆T= ",dx-
22,R_Int(1,2)+3,2);ftyul3(STRING(DHInt,1),R_Int,rx,AzulTit,White);dx:=60;bx:=sy+s
x;dy:=dy+30;R_To:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,111,61,32})
,dx-
22,R_To(1,2)+3,2);ftyul3(STRING(DHTo,1),R_To,rx,AzulTit,White);dx:=200;ax:=CH
AR({114});dy:=dy;R_Tf:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,102,6
1,32}),dx-
22,R_Tf(1,2)+3,2);ftyul3(STRING(DHTf,1),R_Tf,rx,AzulTit,White);dx:=60;nx:=CHA
R({101});dy:=dy+40;R_Dec:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P("rtyh9= ",dx-
27,R_Dec(1,2)+3,2);ftyul3(STRING(DHDec,1),R_Dec,"",AzulTit,White);dx:=180;dy:=
dy;R_Func:={{dx,dy},{dx+90,dy+18}};RECT_P({R_Func(1,1),R_Func(1,2)},{R_Fun
c(2,1),R_Func(2,2)},DarkBlue,Plomo);TEXTOUT_P(CHAR({70,117,110,99,105,111,1
10}),R_Func(1,1)+25,R_Func(1,2)+3,2);dx:=220;ay:=CHAR({105});by:=ax+ay;dy:=d
y+55;R_Ok:={{dx,dy},{dx+70,dy+18}};RECT_P({R_Ok(1,1),R_Ok(1,2)},{R_Ok(2,1)
,R_Ok(2,2)},DarkBlue,Plomo);TEXTOUT_P(CHAR({79,107}),R_Ok(1,1)+28,R_Ok(1
,2)+3,2);dx:=30;ry:=by+bx;dy:=dy;R_Repor:={{dx,dy},{dx+70,dy+18}};RECT_P({R_
Repor(1,1),R_Repor(1,2)},{R_Repor(2,1),R_Repor(2,2)},DarkBlue,Plomo);TEXTOUT
_P(CHAR({82,101,112,111,114,116,101}),R_Repor(1,1)+15,R_Repor(1,2)+3,2);REPE
AT Accion:=WAIT(-1);dist:=rx+nx+ry;IF TYPE(Accion)==6 AND qwr4==xpre1
THEN IF Accion(1)==0 AND qwr4==xpre1 THEN
mx:=Accion(2);my:=Accion(3);CASE IF R_Mas(1,1)<mx<R_Mas(2,1)AND
R_Mas(1,2)<my<R_Mas(2,2)THEN
DHMas:=zvfgk3(DHMas,R_Mas,CHAR({73,110,103,114,101,115,101,32,108,97,32,1
09,97,115,97,32,100,101,108,32,115,105,115,116,101,109,97}),dist);yyhte11();BREAK
;END;IF R_Rig(1,1)<mx<R_Rig(2,1)AND R_Rig(1,2)<my<R_Rig(2,2)THEN
DHRig:=zvfgk3(DHRig,R_Rig,CHAR({73,110,103,114,101,115,101,32,108,97,32,114,
105,103,105,100,101,122,32,100,101,108,32,115,105,115,116,101,109,97}),dist);yyhte
11();BREAK;END;IF R_Int(1,1)<mx<R_Int(2,1)AND
R_Int(1,2)<my<R_Int(2,2)THEN
DHInt:=zvfgk3(DHInt,R_Int,CHAR({73,110,103,114,101,115,101,32,101,108,32,105,1
10,116,101,114,118,97,108,111,32,100,101,32,116,105,101,109,112,111}),dist);DHFun
:=MAKEMAT(0,1,2);yyhte11();BREAK;END;IF R_To(1,1)<mx<R_To(2,1)AND
R_To(1,2)<my<R_To(2,2)THEN
DHTo:=zvfgk3(DHTo,R_To,CHAR({73,110,103,114,101,115,101,32,101,108,32,116,1
05,101,109,112,111,32,105,110,105,99,105,97,108}),dist);DHFun:=MAKEMAT(0,1,2)
;yyhte11();BREAK;END;IF R_Tf(1,1)<mx<R_Tf(2,1)AND
R_Tf(1,2)<my<R_Tf(2,2)THEN
DHTf:=zvfgk3(DHTf,R_Tf,CHAR({73,110,103,114,101,115,101,32,101,108,32,116,10
5,101,109,112,111,32,102,105,110,97,108}),dist);DHFun:=MAKEMAT(0,1,2);yyhte11
();BREAK;END;IF R_Dec(1,1)<mx<R_Dec(2,1)AND
R_Dec(1,2)<my<R_Dec(2,2)THEN
DHDec:=zvfgk3(DHDec,R_Dec,CHAR({78,117,109,101,114,111,32,100,101,32,100,1
01,99,105,109,97,108,101,115,32,112,97,114,97,32,101,108,32,99,97,108,99,117,108,1
11}),dist);yyhte11();BREAK;END;IF R_Func(1,1)<mx<R_Func(2,1)AND
R_Func(1,2)<my<R_Func(2,2)THEN LOCAL It;It:=abs((DHTf-DHTo)/DHInt);FOR
i:=DHTo TO It DO
j:=j+1;DHFun(j,1):=i*DHInt;END;DHFun:=EDITMAT(DHFun,{CHAR({116,32,118,
115,32,70,40,116,41}),{},{CHAR({116,32,40,115,41}),CHAR({70,40,116,41}),""}});
yyhte11();BREAK;END;IF R_Repor(1,1)<mx<R_Repor(2,1)AND
R_Repor(1,2)<my<R_Repor(2,2)THEN ffllq11();yyhte11();BREAK;END;IF
R_Ok(1,1)<mx<R_Ok(2,1)AND R_Ok(1,2)<my<R_Ok(2,2)THEN
BREAK;END;END;END;END;IF TYPE(Accion)==0 THEN IF Accion==4 THEN
BREAK;END;END;UNTIL 0;END;FDHAINT(m,a,t,w)BEGIN LOCAL
fac1,fac2,valor;fac1:=m*cos(w*t);fac2:=(w*a)*sin(w*t);valor:=(fac1+fac2)/(w*w);EN
D;FDHBINT(m,a,t,w)BEGIN LOCAL
fac1,fac2,valor2;fac1:=m*sin(w*t);fac2:=(w*a)*cos(w*t);valor2:=(fac1+fac2)/(w*w);R
ETURN valor2;END;ffllq11()BEGIN LOCAL i,x,y,k,V,H,Gi:=G2;LOCAL
ax,ay,sa;LOCAL
MEle:=[[0]],TxTb;V:=2400;H:=1000;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,
{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({73,78,84,69,71,82,65,76,32,
68,69,32,68,85,72,65,77,69,76}),G2,70,1.5,3,White);LOCAL
dx,dy;dx:=5;dy:=30;ay:=CHAR({115,105});TEXTOUT_P(CHAR({49,45,70,114,101,9
9,117,101,110,99,105,97,32,78,97,116,117,114,97,108}),G2,dx,dy,3,RedA);ffllq10(G2,
"",120,dy+20,75,23,AzulTit);dy:=dy+55;dx:=10;LOCAL
DHW;DHW:=SQRT(DHRig/DHMas);TEXTOUT_P(CHAR({87,32,61,32})+tlitg2(DH
W,3)+CHAR({32,114,97,100,47,115,101,103,32}),G2,dx+5,dy,2,AzulTit);dy:=dy+25;
dx:=5;TEXTOUT_P(CHAR({50,45,82,101,115,112,117,101,115,116,97,32,101,110,32
,101,108,32,116,105,101,109,112,111}),G2,dx,dy,3,RedA);dy:=dy+25;ffllq10(G2,"",90
,dy,130,23,AzulTit);dy:=dy+30;ax:=CHAR({118,101,114});ffllq10(G2,"",90,dy,130,23
,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+40;LOCAL
Mat:=[[0]],Fil;Fil:=rowDim(DHFun);TEXTOUT_P("",G2,dx+5,dy,2,AzulTit);LOCAL
Fe_X,Fe_Y,dhT,dhF,xa,ya;dhT:=SUB(DHFun,{1,1},{Fil,1});dhF:=SUB(DHFun,{1,2},
{Fil,2});IFERR Fe_X:=210/(MAX(dhT));Fe_Y:=120/(MAX(dhF));THEN
Fe_X:=210;Fe_Y:=120;END;xa:=210+10;ya:=120+10;dx:=50;dy:=dy+50;LOCAL
x1,y1,x2,y2;FOR i:=1 TO Fil DO x1:=dhT(i,1)*Fe_X;y1:=120-
dhF(i,1)*Fe_Y;TEXTOUT_P(tlitg2(dhT(i,1),1),G2,dx+x1-
3,dy+ya+3,1,Plomo);LINE_P(G2,dx+x1,dy,dx+x1,dy+ya,Plomo);TEXTOUT_P(tlitg2(
dhF(i,1),1),G2,dx-18,dy+y1+2,1,Plomo);LINE_P(G2,dx,dy+y1+10,dx+xa-
10,dy+y1+10,Plomo);END;LINE_P(G2,dx,dy+ya+1,dx+xa,dy+ya+1,Red);LINE_P(G2,
dx,dy+ya,dx+xa,dy+ya,Red);TEXTOUT_P(CHAR({116}),G2,dx+xa+8,dy+ya-
5,2,Red);LINE_P(G2,dx-1,dy,dx-
1,dy+ya,Red);LINE_P(G2,dx,dy,dx,dy+ya,Red);TEXTOUT_P(CHAR({70,40,116,41})
,G2,dx-10,dy-16,2,Red);FOR i:=1 TO Fil-1 DO x1:=dhT(i,1)*Fe_X;y1:=120-
dhF(i,1)*Fe_Y;x2:=dhT(i+1,1)*Fe_X;y2:=120-
dhF(i+1,1)*Fe_Y;LINE_P(G2,dx+x1,dy+y1+10,dx+x2,dy+y2+10,Blue);LINE_P(G2,d
x+x1+0.5,dy+y1+10+0.5,dx+x2+0.5,dy+y2+10+0.5,Blue);LINE_P(G2,dx+x1+1,dy+y1
+10+1,dx+x2+1,dy+y2+10+1,Blue);END;dy:=dy+160;dx:=5;sa:=ax+ay;TEXTOUT_P(
"",G2,dx+5,dy,2,AzulTit);dy:=dy+40;LOCAL a1,t1,a2,t2,ss;LOCAL
delA,delB,Asum,Bsum,h;LOCAL
yy:={},vv:={},aa:={};Mat(1,1):=DHFun(1,1);Mat(1,2):=DHFun(1,2);Mat(1,3):=DHFu
n(1,1)*DHW;Mat(1,4):=0;Mat(1,5):=0;Mat(1,6):=0;Mat(1,7):=0;Mat(1,8):=0;FOR i:=2
TO Fil DO
Mat(i,1):=DHFun(i,1);Mat(i,2):=DHFun(i,2);Mat(i,3):=DHFun(i,1)*DHW;a1:=DHFun(
i-1,2);t1:=DHFun(i-1,1);a2:=DHFun(i,2);t2:=DHFun(i,1);ss:=(a2-a1)/(t2-t1);h:=(t2-
t1)/2;delA:=(h/3)*(a1*cos(DHW*t1)+4*(((a1+a2)/2)*cos(DHW*(t1+t2)/2))+a2*cos(D
HW*t2));Asum:=Asum+delA;Mat(i,4):=delA;Mat(i,5):=Asum;delB:=(h/3)*(a1*sin(DH
W*t1)+4*(((a1+a2)/2)*sin(DHW*(t1+t2)/2))+a2*sin(DHW*t2));Bsum:=Bsum+delB;M
at(i,6):=delB;Mat(i,7):=Bsum;yy(i):=(Asum*sin(DHW*t2)-
Bsum*cos(DHW*t2))/(DHW*DHMas);vv(i):=(Asum*cos(DHW*t2)+Bsum*sin(DHW
*t2));aa(i):=-
DHW*DHW*yy(i);Mat(i,8):=yy(i);Mat(i,9):=vv(i);Mat(i,10):=aa(i);END;Mat:=hdljt2(
Mat,DHDec);yyhte7;tlitg10(G2,Mat,40,dy,3,AzulTit,2,CHAR({116,110,102}),0,"",{C
HAR({116,32,40,115,41}),CHAR({70,40,116,41}),CHAR({87,116}),"∆A(t)","A(t)","∆
B(t)",CHAR({66,40,116,41}),CHAR({121,40,116,41,32,99,109}),CHAR({118,40,99,1
09,47,115,41}),CHAR({97,40,99,109,47,115,50,41})},Blue,0,"");dy:=dy+20*Fil;TEXT
OUT_P("",G2,dx+5,dy,2,AzulTit);IFERR
Fe_X:=210/(MAX(dhT));Fe_Y:=120/(MAX(yy));
THEN LOCAL Fv:={},Fh:={};FOR i:=1 TO Fil DO
Fv(i):=ABS(yy(i));Fh(i):=ABS(dhT(i,1));END;Fe_X:=210/(MAX(Fh));Fe_Y:=120/(M
AX(Fv));END;xa:=210+10;ya:=120+10;dx:=50;dy:=dy+50;LOCAL x1,y1,x2,y2;FOR
i:=1 TO Fil DO x1:=dhT(i,1)*Fe_X;y1:=120-
yy(i)*Fe_Y;TEXTOUT_P(tlitg2(dhT(i,1),1),G2,dx+x1-
3,dy+ya+3,1,Plomo);LINE_P(G2,dx+x1,dy,dx+x1,dy+ya,Plomo);TEXTOUT_P(tlitg2(
yy(i),1),G2,dx-18,dy+y1+2,1,Plomo);LINE_P(G2,dx,dy+y1+10,dx+xa-
10,dy+y1+10,Plomo);END;LINE_P(G2,dx,dy+ya+1,dx+xa,dy+ya+1,Red);LINE_P(G2,
dx,dy+ya,dx+xa,dy+ya,Red);TEXTOUT_P(CHAR({116,40,115,41}),G2,dx+xa+8,dy+
ya-5,2,Red);LINE_P(G2,dx-1,dy,dx-
1,dy+ya,Red);LINE_P(G2,dx,dy,dx,dy+ya,Red);TEXTOUT_P(CHAR({100,40,99,109,
41}),G2,dx-10,dy-16,2,Red);FOR i:=1 TO Fil-1 DO x1:=dhT(i,1)*Fe_X;y1:=120-
yy(i)*Fe_Y;x2:=dhT(i+1,1)*Fe_X;y2:=120-
yy(i+1)*Fe_Y;LINE_P(G2,dx+x1,dy+y1+10,dx+x2,dy+y2+10,Blue);LINE_P(G2,dx+x
1+0.5,dy+y1+10+0.5,dx+x2+0.5,dy+y2+10+0.5,Blue);LINE_P(G2,dx+x1+1,dy+y1+10
+1,dx+x2+1,dy+y2+10+1,Blue);END;x:=0;y:=0;ffllq9(dy,H,x,y,Gi,sa,TxTb);END;pxtrf
9()BEGIN LOCAL
vv,R_RE,vvb;R_RE:={{208,0},{262,16}};RECT_P(R_RE(1),R_RE(2),PlomoA);llfft1(
R_RE(1,1)+3,12.5,AzulTit,2);TEXTOUT_P(CHAR({82,69,83,85,76}),R_RE(1,1)+18,
2,2,AzulTit);vv:=ffllq3(1,{CHAR({77,101,116,114,97,100,111,45,67,97,114,103,97,11
5}),CHAR({77,111,100,97,108,32,51,68,45,88}),CHAR({77,111,100,97,108,32,51,68,
45,89}),CHAR({77,111,100,97,108,32,50,68,45,88}),CHAR({77,111,100,97,108,32,50
,68,45,89}),CHAR({65,105,108,97,100,111,114,101,115})},206,19,105,2,PlomoA,Azu
lTit,Fondo,AzulTit);CASE IF vv==1 THEN yyhte9();END;IF vv==2 THEN
vvb:=ffllq3(1,{CHAR({82,105,103,105,100,101,122}),CHAR({77,97,115,97}),CHAR(
{65,99,101,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),C
HAR({68,101,114,105,118,97})},101,40,105,2,PlomoA,AzulTit,Fondo,AzulTit);IF
vvb==1 AND qwr4==xpre1 THEN IFERR ftyul9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==2 AND
qwr4==xpre1 THEN IFERR llfft9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==3 AND
qwr4==xpre1 THEN IFERR jjrtg9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==4 AND
qwr4==xpre1 THEN IFERR tlitg9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==5 AND
qwr4==xpre1 THEN IFERR hdljt9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;END;IF vv==3 THEN
vvb:=ffllq3(1,{CHAR({82,105,103,105,100,101,122}),CHAR({77,97,115,97}),CHAR(
{65,99,101,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),C
HAR({68,101,114,105,118,97})},101,60-1,105,2,PlomoA,AzulTit,Fondo,AzulTit);IF
vvb==1 THEN IFERR ftyul9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==2 AND
qwr4==xpre1 THEN IFERR llfft9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==3 AND
qwr4==xpre1 THEN IFERR jjrtg9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==4 AND
qwr4==xpre1 THEN IFERR tlitg9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);
WAIT(0.1);END;END;IF vvb==5 AND qwr4==xpre1 THEN IFERR hdljt9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,51,68}),100,100,120,25,0.5);WAIT(0.1);END;END;END;IF vv==4 THEN
vvb:=ffllq3(1,{CHAR({82,105,103,105,100,101,122}),CHAR({77,97,115,97}),CHAR(
{68,101,114,105,118,97})},101,80-1,105,2,PlomoA,AzulTit,Fondo,AzulTit);IF vvb==1
AND qwr4==xpre1 THEN IFERR qljgt9(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==2 AND
qwr4==xpre1 THEN IFERR fldth10(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==3 AND
qwr4==xpre1 THEN IFERR ftyul10(1);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;END;IF vv==5 THEN
vvb:=ffllq3(1,{CHAR({82,105,103,105,100,101,122}),CHAR({77,97,115,97}),CHAR(
{68,101,114,105,118,97})},101,100-1,105,2,PlomoA,AzulTit,Fondo,AzulTit);IF
vvb==1 AND qwr4==xpre1 THEN IFERR qljgt9(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==2 AND
qwr4==xpre1 THEN IFERR fldth10(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;IF vvb==3 AND
qwr4==xpre1 THEN IFERR ftyul10(2);THEN
hdljt7("✘"+CHAR({32,69,82,82,79,82}),CHAR({32,32,32,65,110,97,108,105,115,105,
115,32,50,68}),100,100,120,25,0.5);WAIT(0.1);END;END;END;IF vv==6 THEN
tlitg8();END;END;END;yyhte9()BEGIN LOCAL i,x,y,k,V,H,Gi:=G2;LOCAL
nx,ny,dt;LOCAL
MEle:=[[0]],TxTb;V:=1000;H:=640;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,{
0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({77,69,84,82,65,68,79,32,68,6
9,32,67,65,82,71,65,83}),G2,70,1.5,3,White);LOCAL
dx,dy,suma,dz;dx:=5;dy:=30;TEXTOUT_P(CHAR({49,45,67,97,114,103,97,32,77,117,
101,114,116,97,32,40,67,77,41}),G2,dx,dy,3,RedA);dx:=10;dz:=CAS(CAS(CHAR({83
,69,82,73,65,76})));IF dfg5==1 AND dz=="9CJ73507JL" THEN FOR i:=1 TO rtyh2
DO
MEle(i,1):=i;MEle(i,2):=fjlt3(i);MEle(i,3):=fjlt4(i);MEle(i,4):=fjlt2(i);MEle(i,5):=fjlt5(i
);MEle(i,6):=dfg7(i);END;dy:=dy+20;TEXTOUT_P(CHAR({49,46,49,45,80,101,115,1
11,32,80,114,111,112,105,111,32,121,32,67,97,114,103,97,115,32,112,101,114,109,97,
110,101,110,116,101,115,32,40,107,103,102,41}),G2,dx,dy,2,Blue);dy:=dy+40;zvfgk1
0(G2,MEle,dx+10,dy,3,{CHAR({80,105,115,111}),CHAR({67,111,108}),CHAR({86,
105,103}),CHAR({76,111,115,97}),CHAR({65,108,98}),CHAR({80,101,114,109})},
AzulTit);dy:=dy+(18*(rtyh2+1));LOCAL CMT:=[[0]];FOR i:=1 TO rtyh2 DO
CMT(i,1):=i;CMT(i,2):=fjlt3(i)+fjlt4(i)+fjlt2(i)+fjlt5(i)+dfg7(i);suma:=suma+CMT(i,2)
;END;TEXTOUT_P(CHAR({49,46,50,45,67,97,114,103,97,32,77,117,101,114,116,97,
32,84,111,116,97,108,32,112,111,114,32,80,105,115,111,32,40,107,103,102,41}),G2,d
x,dy,2,Blue);zvfgk10(G2,CMT,dx+5,dy+35,3,{CHAR({80,105,115,111}),CHAR({67,7
7})},AzulTit);dy:=dy+(18*(rtyh2+1));ELSE dy:=dy+20;LOCAL CMT:=[[0]];FOR i:=1
TO rtyh2 DO
CMT(i,1):=i;CMT(i,2):=dfg10(i);suma:=suma+dfg10(i);END;TEXTOUT_P(CHAR({4
9,46,49,45,67,97,114,103,97,32,77,117,101,114,116,97,32,84,111,116,97,108,32,112,1
11,114,32,80,105,115,111,32,40,107,103,102,41}),G2,dx,dy,2,Blue);zvfgk10(G2,CMT,
dx+5,dy+35,3,{CHAR({80,105,115,111}),CHAR({67,77})},AzulTit);dy:=dy+(18*(rty
h2+1));END;dy:=dy+40;nx:=CHAR({118,101,114});TEXTOUT_P(""+suma+CHAR({
32,107,103,102}),G2,dx+5,dy,2,AzulTit);dy:=dy+20;dx:=5;TEXTOUT_P(CHAR({50,
45,67,97,114,103,97,32,86,105,118,97,32,40,67,86,41}),G2,dx,dy,3,RedA);dx:=10;dy:
=dy+20;LOCAL CVS:=[[0]],CVT,suma;IF dfg5==1 THEN
TEXTOUT_P(CHAR({50,46,49,45,67,97,114,103,97,32,86,105,118,97,32,112,111,114
,32,115,111,98,114,101,99,97,114,103,97,32,40,107,103,102,41}),G2,dx,dy,2,Blue);dy:
=dy+40;FOR i:=1 TO rtyh2 DO
CVS(i,1):=i;CVS(i,2):=cba1(i);suma:=suma+cba1(i);END;CVT:=suma;ELSE
TEXTOUT_P(CHAR({50,46,49,45,67,97,114,103,97,32,86,105,118,97,32,40,107,103,
102,41}),G2,dx,dy,2,Blue);dy:=dy+40;FOR i:=1 TO rtyh2 DO
CVS(i,1):=i;CVS(i,2):=cba1(i);suma:=suma+cba1(i);END;CVT:=suma;END;zvfgk10(
G2,CVS,dx+5,dy,3,{CHAR({80,105,115,111}),CHAR({67,86})},AzulTit);dy:=dy+(18
*(rtyh2+1));ny:=CHAR({115,105});TEXTOUT_P(""+CVT+CHAR({32,107,103,102})
,G2,dx+5,dy-
20,2,AzulTit);dy:=dy+20;dx:=5;TEXTOUT_P(CHAR({51,45,80,101,115,111,32,112,9
7,114,97,32,101,108,32,97,110,97,108,105,115,105,115,32,83,105,115,109,105,99,111,
32,40,107,103,102,41}),G2,dx,dy,3,RedA);dx:=10;LOCAL CT:=[[0]];FOR i:=1 TO
rtyh2 DO
CT(i,1):=i;CT(i,2):=dfg10(i);CT(i,3):=fjlt1(i);END;dy:=dy+40;zvfgk10(G2,CT,dx+5,dy
,3,{CHAR({80,105,115,111}),CHAR({67,77}),CHAR({37,32,67,86})},AzulTit);TxTb:
=CHAR({74,55,51,53,48,51,81});dy:=dy+(18*(rtyh2+1));x:=0;y:=0;dt:=nx+ny;dy:=dy-
240;yyhte7;ffllq9(dy,320,x,y,Gi,dt,TxTb);END;qljgt9(dfg4)BEGIN LOCAL
CNG,dir,DIR,BB,TAS,FMo;LOCAL MTA,qTA,qPor,FPTA,FTA,FT;LOCAL
VB,qe,qi,DP3D,VMo,Modd;LOCAL
RL2D,Mo2,PD2,Sa2D,FMo2D,VMo2D,VFR;LOCAL
VB2D,VBmin,rx,ry,sx,sy,TxTb;IF dfg4==1 THEN
RL2D:=zsc5;CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ry:=CHAR({115,10
5});Mo2:=zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;
VBmin:=zxp15;VB2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE
RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,10
5});Mo2:=zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12
;VBmin:=zxp15;VB2D:=zxp14;qe:=zxp18;qi:=zxp20;DP3D:=ixpr2;END;LOCAL
x,y,k,V,H,Gi:=G2;V:=2800;H:=1300;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,
{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,79,
83,32,65,78,65,76,73,83,73,83,32,77,79,68,65,76,32,80,76,65,78,79}),G2,45,1.5,3,Whit
e);TEXTOUT_P(CHAR({40,49,47,51,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,45,67,97,108,99,117,108,111,32,100,1
01,32,114,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);dy:=dy+30;TEXTOU
T_P(CHAR({49,46,49,45,82,105,103,105,100,101,122,32,76,97,116,101,114,97,108}),
G2,dx,dy,2,Blue);dx:=dx+70;rx:=CHAR({118,101,114});ffllq10(G2,""+CHAR({32}),d
x+20,dy+14,140,27,AzulTit);llfft10(G2,CHAR({75}),CHAR({65,65}),dx+50,dy+15+5,
AzulTit);TEXTOUT_P(CHAR({45}),G2,dx+75,dy+25,2,AzulTit);llfft10(G2,CHAR({7
5}),CHAR({65,66}),dx+85,dy+15+5,AzulTit);llfft10(G2,CHAR({75}),CHAR({66,66}
),dx+110,dy+15+5,AzulTit);jjrtg10(G2,CHAR({32}),CHAR({45,49}),dx+110,dy+15+
5,AzulTit);llfft10(G2,CHAR({75}),CHAR({66,65}),dx+135,dy+15+5,AzulTit);TxTb:=
CHAR({74,55,51,53,48,51,81});dx:=dx-70;dy:=dy+35;IF dfg4==1 THEN
TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32,88}),G2,dx+5,dy+1
5,2,AzulTit);dy:=dy+15;FOR k:=1 TO rtyh7 DO
TEXTOUT_P(CHAR({45,82,76,32,80,111,114,116,105,99,111,32})+k,G2,dx+15,dy+1
5+dyy,2,Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,4
5,109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;ELSE
TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32,88}),G2,dx+5,dy+1
5,2,AzulTit);dy:=dy+15;FOR k:=1 TO rtyh8 DO
TEXTOUT_P(CHAR({45,82,76,32,80,111,114,116,105,99,111,32})+char(64+k),G2,dx
+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre10(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,
110,102,45,109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;END;dy:=dy+dyy+15;sx:=rx+ry;
TEXTOUT_P(CHAR({49,46,50,45,82,105,103,105,100,101,122,32,101,110,32,108,97,
32,100,105,114,101,99,99,105,111,110,32})+DIR,G2,dx,dy,2,Blue);ffllq10(G2,"",110,d
y+15,70,23,AzulTit);dy:=dy+25;pxtrf10(G2,RL2D,50,dy+35,2,AzulTit,1,CHAR({116,
110,45,109}),0,"");x:=0;y:=0;yyhte7;ffllq9(dy,1000,x,y,Gi,sx,TxTb);END;fldth10(dfg4
)BEGIN LOCAL CNG,dir,DIR,BB,TAS,FMo;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT;LOCAL VB,qe,qi,DP3D,VMo,Modd;LOCAL
RL2D,Mo2,PD2,Sa2D,FMo2D,VMo2D,VFR;LOCAL
VB2D,VBmin,rx,ry,sx,sy,TxTb;IF dfg4==1 THEN
RL2D:=zsc5;CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ry:=CHAR({115,10
5});Mo2:=zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;
VBmin:=zxp15;VB2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE
RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,10
5});Mo2:=zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12
;VBmin:=zxp15;VB2D:=zxp14;qe:=zxp18;qi:=zxp20;DP3D:=ixpr2;END;LOCAL
x,y,k,V,H,Gi:=G2;V:=2800;H:=1300;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,
{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,79,
83,32,65,78,65,76,73,83,73,83,32,77,79,68,65,76,32,80,76,65,78,79}),G2,45,1.5,3,Whit
e);TEXTOUT_P(CHAR({40,50,47,51,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({50,45,77,97,116,114,105,122,32,100,101,
32,77,97,115,97}),G2,dx,dy+15,3,RedA);pxtrf10(G2,zsc6,50,dy+40,2,AzulTit,1,CHAR
({116,110,102,45,115,50,47,109}),0,"");TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy
+15*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,45,80,114,111,112,105,101,100,97,100,1
01,115,32,68,105,110,97,109,105,99,97,115}),G2,dx,dy+30,3,RedA);dy:=dy+30;rx:=C
HAR({118,101,114});TEXTOUT_P(CHAR({51,46,49,45,77,111,100,111,115,32,100,1
01,32,118,105,98,114,97,99,105,111,110}),G2,dx,dy+15,2,Blue);ffllq10(G2,"",100,dy+
35,100,23,AzulTit);dy:=dy+35;LOCAL Col,Con:={};FOR j:=1 TO colDim(Mo2)DO
Col:={"ixpr9
"+j};Con:=CONCAT(Con,Col);END;tlitg10(G2,Mo2,60,dy+40,2,AzulTit,0,CHAR({32
}),1,"",Con,Blue,0,"");dy:=dy+15*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,46,50,45,70
,114,101,99,117,101,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),
G2,dx,dy+15,2,Blue);ffllq10(G2,"",100,dy+35,130,23,AzulTit);dy:=dy+35;zvfgk10(G2,
PD2,50,dy+55,3,{CHAR({69,105,103,101,110,32,86,97,108,111,114,101,115}),"",CH
AR({32,84,32,40,115,41})},AzulTit);dy:=dy+(15*(rtyh2+1))+15;TEXTOUT_P(CHAR
({52,45,70,97,99,116,111,114,32,100,101,32,112,97,114,116,105,99,105,112,97,99,105
,111,110,32,109,111,100,97,108}),G2,dx,dy+30,3,RedA);dy:=dy+30;ffllq10(G2,CHAR
({32}),120,dy+20,60,43,AzulTit);yyhte10(G2,CHAR({114,61,32}),"",100,dy+26,52,Az
ulTit);dy:=dy+50;LOCAL FPMx;IF dfg4==1 THEN
FPMx:=SUB(zsc13,{1,1},{rtyh2,1});ELSE
FPMx:=SUB(zsc13,{1,2},{rtyh2,2});END;pxtrf10(G2,FPMx,50,dy+30,2,AzulTit,0,CH
AR({32}),1,"г"+dir);dy:=dy+(15*(rtyh2+1))+20;TEXTOUT_P(CHAR({53,45,65,99,10
1,108,101,114,97,99,105,111,110,32,101,115,112,101,99,116,114,97,108}),G2,dx,dy+1
5,3,RedA);dy:=dy+15;ffllq10(G2,CHAR({32}),100,dy+20,90,43,AzulTit);yyhte10(G2,
"Sa=g
✕",CHAR({90,85,67,83,32}),CHAR({82}),100,dy+26,40,AzulTit);dy:=dy+65;sx:=rx+
ry;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,
dy+15,2,AzulTit);zvfgk10(G2,zxp5,50,dy+55,3,{"ixpr9",CHAR({84,32,40,115,41}),C
HAR({32,67,32}),CHAR({83,97,32,40,109,47,115,50,41}),CHAR({67,47,82})},AzulT
it);x:=0;y:=0;yyhte7;
ffllq9(dy,H,x,y,Gi,sx,TxTb);END;Datsbmq(nb,Caso);ncap:=Titl(79);cfervsd(nb,Caso);
CortaElem();Dxxw(TD,anchoG4,altoG4);varcaq(Tipp);oligft116(nb);Atytz12(Tip);Atyt
z17(Tip);Atytz16();Atytz(Tip);Atytz14(Tip,MC,esc);Atytz15();TactilAtytzad20();Tactil
Atytzad21();oligftq10(Rg);TactilR2(Rg);ejx:=Titl(12);Tactilaxsdcerf(Tip);mvre(w,h);A
tytzad25();TactilMR();DxxwElem(TD,NBa);oligft125(cxi,cyi,TipC,nf,nc,alf,anc,Colr1,
Colr2,mat,Tfu,Tc,Tf);DatsIn:=Titu7(26);Col1:=RGB(0,51,102);Col2:=RGB(51,102,153
);Col3:=RGB(51,102,204);Col4:=RGB(0,51,153);Col5:=RGB(0,0,153);hcP(Tip);Col6:
=RGB(0,0,204);Col7:=RGB(0,0,10);Col8:=RGB(0,102,102);Col9:=RGB(0,102,153);C
ol10:=RGB(0,153,204);Col11:=RGB(0,102,204);Col12:=RGB(0,51,204);Col13:=RGB(
0,0,255);Col14:=RGB(51,51,255);Col15:=RGB(51,51,153);Col16:=RGB(102,153,153)
;Col17:=RGB(0,153,153);hcl(Tip);hc1();ads();DatsbmqCargas(nb,Caso);Col18:=RGB(
51,204,204);Col19:=RGB(0,204,255);Col20:=RGB(0,153,255);Col21:=RGB(0,102,255
);Col22:=RGB(51,102,255);Col23:=RGB(51,51,204);Col24:=RGB(102,102,153);Col25
:=RGB(51,153,102);Col26:=RGB(0,204,153);Col27:=RGB(0,255,204);Col28:=RGB(0,
255,255);Col29:=RGB(51,204,255);Col30:=RGB(51,153,255);Col31:=RGB(102,153,2
55);Col32:=RGB(102,102,255);Col33:=RGB(102,0,255);Col34:=RGB(102,0,204);Col3
5:=RGB(51,153,51);Col36:=RGB(0,204,102);Col37:=RGB(0,255,153);Col38:=RGB(1
02,255,204);Col39:=RGB(102,255,255);Col40:=RGB(102,204,255);Col41:=RGB(153,
204,255);Col42:=RGB(153,153,255);Col43:=RGB(153,102,255);Col44:=RGB(153,51,
255);Col45:=RGB(153,0,255);Col46:=RGB(0,102,0);Col47:=RGB(0,204,0);Col48:=R
GB(0,255,0);Col49:=RGB(102,255,153);Col50:=RGB(153,255,204);Col51:=RGB(204,
255,255);Col52:=RGB(204,204,255);Col53:=RGB(204,153,255);Col54:=RGB(204,102
,255);Col55:=RGB(204,51,255);Col56:=RGB(204,0,255);Col57:=RGB(153,0,204);Col
58:=RGB(0,51,0);Col59:=RGB(0,153,51);Col60:=RGB(51,204,51);Col61:=RGB(102,2
55,102);Col62:=RGB(153,255,153);dan:=EXPR(hclq({"%-
*'+"}));cant:=dan;ftyul10(dfg4)BEGIN LOCAL CNG,dir,DIR,BB,TAS,FMo;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT;LOCAL VB,qe,qi,DP3D,VMo,Modd;LOCAL
RL2D,Mo2,PD2,Sa2D,FMo2D,VMo2D,VFR;LOCAL
VB2D,VBmin,rx,ry,sx,sy,TxTb;IF dfg4==1 THEN
RL2D:=zsc5;CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ry:=CHAR({115,10
5});Mo2:=zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;
VBmin:=zxp15;VB2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE
RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,10
5});Mo2:=zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12
;VBmin:=zxp15;VB2D:=zxp14;qe:=zxp18;qi:=zxp20;DP3D:=ixpr2;END;LOCAL
x,y,k,V,H,Gi:=G2;V:=5000;H:=640;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,{
0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,79,8
3,32,65,78,65,76,73,83,73,83,32,77,79,68,65,76,32,80,76,65,78,79}),G2,45,1.5,3,White
);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({40,51,47,51,41}),G2,292,19,2,AzulTit);L
OCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({54,45,70,117,101,114,122,97,115,32,76,9
7,116,101,114,97,108,101,115,32,101,110,32,101,108,32,67,46,77,46,32,70,120,44,70,
121,44,77,122,32,40,116,110,102,41}),G2,dx,dy,3,RedA);dy:=dy;ffllq10(G2,"",100,dy
+20,85,23,AzulTit);dy:=dy+35;LOCAL Col,Con:={};FOR j:=1 TO
colDim(FMo2D)DO Col:={"ixpr9
"+j};Con:=CONCAT(Con,Col);END;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,9
9,105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tlitg10(G2,FMo2D,50,dy+50,2,Az
ulTit,1,CHAR({116,110,102}),0,"",Con,Blue,0,"");TxTb:=CHAR({74,55,51,53,48,51,8
1});dy:=dy+30+(15*(rtyh2+1));TEXTOUT_P(CHAR({55,45,67,111,114,116,97,110,1
16,101,32,101,110,32,67,46,77,46,32,112,97,114,97,32,99,97,100,97,32,109,111,100,1
11,32,40,116,110,102,41}),G2,dx,dy+25,3,RedA);dy:=dy+25;rx:=CHAR({118,101,114
});ffllq10(G2,"",100,dy+20,65,23,AzulTit);dy:=dy+35;TEXTOUT_P("➧"+CHAR({68,
105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);LOCAL
Fil,CoF:={},aa:=rtyh2;FOR j:=1 TO rtyh2 DO
Fil:={CHAR({80,105,115,111,32})+aa};CoF:=CONCAT(Fil,CoF);aa:=aa-
1;END;tlitg10(G2,VMo2D,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,D
arkBlue,1,CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,
117,108,111,32,100,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,1
17,101,114,122,97,32,114,101,115,117,108,116,97,110,116,101,32,40,67,81,67,41,46})
,G2,dx,dy,3,RedA);ffllq10(G2,"",70,dy+20,175,23,AzulTit);dy:=dy+35;TEXTOUT_P("
➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tl
itg10(G2,VFR,50,dy+50,3,AzulTit,0,CHAR({116,110,102}),0,"",{CHAR({67,111,114,
116,97,110,116,101,32,86,32,40,116,110,102,41}),CHAR({70,117,101,114,122,97,32,7
0,32,40,116,110,102,41})},DarkBlue,1,CoF);dy:=dy+15*(rtyh2+2)+45;dx:=dx+25;LO
CAL hg:=100,vg:=40*rtyh2;LOCAL
ecx:=hg/VFR(1,1),ecy:=vg/tgh1,aa:=rtyh2,HH:=0,HHH:=0;FOR j:=1 TO rtyh2 DO
HHH:=HHH+rtyh10(aa);RECT_P(G2,{dx+2,dy+ecy*HH},{dx+2+ecx*VFR(aa,1),dy+
ecy*HHH},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,d
x+5,dy+ecy*HH+1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,
116,97,110,116,101,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dx:=dx+150;aa:=rtyh2;HH:
=0;FOR j:=1 TO rtyh2 DO
RECT_P(G2,{dx,dy+ecy*HH},{dx+2+ecx*VFR(aa,2)+1,dy+ecy*HH},RedA);TEXTO
UT_P("▶",G2,dx+ecx*VFR(aa,2),dy+ecy*HH-
11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH
+1-18,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,
114,122,97,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dy:=dy+vg+25;sx:=rx+ry;dx:=5;TE
XTOUT_P(CHAR({57,45,67,111,110,116,114,111,108,32,100,101,32,99,111,114,116,
97,110,116,101,32,109,105,110,105,109,111,32,40,116,110,102,41}),G2,dx,dy,3,RedA
);TEXTOUT_P(CHAR({57,46,49,32,67,111,114,116,97,110,116,101,32,77,105,110,10
5,109,111}),G2,dx,dy+15,2,Blue);dy:=dy+15;ffllq10(G2,CHAR({32}),100,dy+20,102,
43,AzulTit);yyhte10(G2,CHAR({86,109,105,110,61,32,80,120,32}),CHAR({90,85,67,
83,32}),CHAR({82}),100,dy+26,35,AzulTit);dy:=dy+30;TEXTOUT_P(CHAR({86,10
9,105,110,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,110,102}),G2,100,dy+45,3,A
zulTit);dy:=dy+45;TEXTOUT_P(CHAR({57,46,50,32,86,101,114,105,102,105,99,97,9
9,105,111,110}),G2,dx,dy+15,2,Blue);jliu1:=tlitg2(VB2D,3);LOCAL
Fesc:=tlitg2(0.8*VBmin/VB2D,3),Vm80:=tlitg2(0.8*VBmin,3);IF jliu1>=Vm80 THEN
TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(jliu1+CHAR({32,32,62,32
,32})+Vm80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_P(
CHAR({67,117,109,112,108,101,32,99,111,110,32,108,97,32,99,111,110,100,105,99,1
05,111,110,32,100,101,108,32,67,111,114,116,97,110,116,101,32,77,105,110,105,109,
111}),G2,dx+30,dy+60,3,AzulTit);ELSE
TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(jliu1+CHAR({32,32,60,32
,32})+Vm80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXT
OUT_P(CHAR({70,97,99,116,111,114,32,97,32,101,115,99,97,108,97,114,58,32})+Fe
sc,G2,dx+30,dy+60,3,AzulTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,48,45,68,10
1,115,112,108,97,122,97,109,105,101,110,116,111,32,101,108,97,115,116,105,99,111,
32,101,110,32,101,108,32,67,77,32,40,99,109,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",12
5,dy+20,70,23,AzulTit);dy:=dy+20;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,
105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,qe,50,dy+60,2,AzulTit,0
,CHAR({32}),1,CHAR({113,101})+dir);dy:=dy+30+(15*(rtyh2+1))+30;TEXTOUT_P(
CHAR({49,49,45,68,101,115,112,108,97,122,97,109,105,101,110,116,111,32,105,110,
101,108,97,115,116,105,99,111,115,32,40,99,109,41}),G2,dx,dy,3,RedA);ffllq10(G2,""
,110,dy+20,85,23,AzulTit);dy:=dy+20;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,
99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,qi,50,dy+60,2,AzulTi
t,0,CHAR({32}),1,CHAR({113,105})+dir);dy:=dy+30+(15*(rtyh2+1))+30;TEXTOUT
_P(CHAR({49,50,45,67,111,110,116,114,111,108,32,100,101,32,68,101,114,105,118,9
7,115,32,100,101,32,112,105,115,111}),G2,dx,dy,3,RedA);ffllq10(G2,CHAR({32}),10
0,dy+20,90,43,AzulTit);yyhte10(G2,"Δ=
",CHAR({113,105,40,105,45,49,41,45,113,105,40,105,41}),CHAR({32,32,72,95,112,1
05,115,111}),100,dy+26,55,AzulTit);dy:=dy+50;TEXTOUT_P("➧"+CHAR({68,105,11
4,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G2,DP3D,50,dy
+60,3,AzulTit,0,CHAR({32}),1,"Δ"+dir,{CHAR({113,105,45,49,45,113,105}),"",CHA
R({76,105,109,105,116}),CHAR({86,101,114,105,102})},DarkBlue,1,CoF);dy:=dy+55
+(15*(rtyh2+2));LOCAL
MaxDer:=SUB(DP3D,{1,2},{rtyh2,2}),Mmm,dist;Mmm:=MAX(MAX(MaxDer),DP3
D(1,3))*100;dx:=dx+40;LOCAL hg:=205,vg:=rtyh2*40,ccx,ccy;LOCAL
ecx:=hg/Mmm,ecy:=vg/tgh1,aa:=rtyh2,HH:=0;FOR j:=1 TO hg/(0.4*ecx)+1 DO
LINE_P(G2,dx+0.4*ecx*j,dy,dx+0.4*ecx*j,dy+vg+3,Plomo);TEXTOUT_P(0.4*j,G2,d
x+0.4*ecx*j-2,dy+vg+5,1,PlomoA);dist:=ecx*0.4*j;END;FOR j:=1 TO rtyh2 DO
LINE_P(G2,dx,dy+ccy*ecy,dx+dist,dy+ccy*ecy,Plomo);TEXTOUT_P(CHAR({80,105
,115,111,32})+aa,G2,dx+dist+8,dy+ccy*ecy-4,1,PlomoA);ccy:=ccy+rtyh10(aa);aa:=aa-
1;END;LOCAL
tdvl,dvl;tdvl:=tlitg2(DP3D(1,3)*100,2);dvl:=tdvl*ecx;aa:=rtyh2;ccy:=0;RECT_P(G2,dx
+dvl,dy+2,dx+dvl,dy+vg,RedA);TEXTOUT_P(tdvl,G2,dx+dvl-5,dy-
10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,1
15,111,115}),G2,dx-
35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR(
{48}),G2,dx,dy+vg+5,1,PlomoA);TEXTOUT_P(CHAR({37,32,68,101,114,105,118,97
}),G2,dx,dy+vg+18,2,Blue);ccy:=0;LOCAL xx0:=dx,yy0:=dy+vg,ttt;FOR j:=1 TO
rtyh2 DO
ccx:=100*DP3D(j,2)*ecx;ccy:=ccy+rtyh10(j)*ecy;LINE_P(G2,{xx0,yy0},{dx+ccx,dy+
vg-ccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-
ccy-1.5},{dx+ccx+1.5,dy+vg-
ccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+v
g-
ccy+2,1,DarkBlue);END;x:=0;y:=0;yyhte7;ffllq9(dy,1000,x,y,Gi,sx,TxTb);END;dsawr(
);awsde(px,py,bdx,bdy,anchoG4,altoG4);oligft120(TD);DibElemF(Tod,Esp,MC,NomEl
em,Gr,Colr);WN;WB;NBarra:=1;NNudo:=1;Long;bdx:=25;bdy:=25;VecC:={};Datsbm
q111:={};DAp:={};DCgB:={};DCgN:={};Eqx:=toq({ncap(5)});L0G;L1G;L2G;L3G;L
4G;L5G;L6G;L7G;L8G;L9G;L10G;L11G;M0G;M1G;M2G;M3G;M4G;M5G;M6G;M7
G;M8G;M9G;NG;BG;Datsbmq111G;MC;Eqy:=toq({ejx(2)});Col63:=RGB(204,255,20
4);Col64:=RGB(255,255,255);Col65:=RGB(255,204,255);Col66:=RGB(255,153,255);
Col67:=RGB(255,102,255);Col68:=RGB(255,0,255);Col69:=RGB(204,0,204);Col70:=
RGB(102,0,102);Col71:=RGB(51,102,0);Col72:=RGB(0,153,0);Col73:=RGB(102,255,
51);Col74:=RGB(153,255,102);Col75:=RGB(204,255,153);Col76:=RGB(255,255,204)
;Col77:=RGB(255,204,204);Col78:=RGB(255,153,204);Col79:=RGB(255,102,204);Co
l80:=RGB(255,51,204);Col81:=RGB(204,0,153);Col82:=RGB(153,51,153);Col83:=RG
B(51,51,0);Col84:=RGB(102,153,0);Col85:=RGB(153,255,51);Col86:=RGB(204,255,1
02);Col87:=RGB(255,255,153);
Col88:=RGB(255,204,153);Col89:=RGB(255,153,153);Col90:=RGB(255,102,153);Col
91:=RGB(255,51,153);Col92:=RGB(204,51,153);Col93:=RGB(153,0,153);Col94:=RG
B(102,102,51);Col95:=RGB(153,204,0);Col96:=RGB(204,255,51);Col97:=RGB(255,2
55,102);Col98:=RGB(255,204,102);Col99:=RGB(255,153,102);Col100:=RGB(255,102
,102);Col101:=RGB(255,0,102);Col102:=RGB(204,102,153);Col103:=RGB(153,51,10
2);Col104:=RGB(153,153,102);Col105:=RGB(204,204,0);Col106:=RGB(255,255,0);C
ol107:=RGB(255,204,0);Col108:=RGB(255,153,51);Col109:=RGB(255,102,0);Col110:
=RGB(255,80,80);Col111:=RGB(204,0,102);Col112:=RGB(102,0,51);Col113:=RGB(1
53,102,51);Col114:=RGB(204,153,0);Col115:=RGB(255,153,0);Col116:=RGB(204,10
2,0);Col117:=RGB(255,51,0);Col118:=RGB(255,0,0);Col119:=RGB(204,0,0);Col120:
=RGB(153,0,51);Col121:=RGB(102,51,0);Col122:=RGB(153,102,0);Col123:=RGB(20
4,51,0);Col124:=RGB(153,51,0);Col125:=RGB(153,0,0);Col126:=RGB(128,0,0);Col12
7:=RGB(153,51,51);Col128:=RGB(255,255,255);Col129:=RGB(242,242,242);Col130:
=RGB(230,230,230);Col131:=RGB(217,217,217);Col132:=RGB(204,204,204);Col133:
=RGB(191,191,191);Col134:=RGB(179,179,179);Col135:=RGB(166,166,166);Col136:
=RGB(153,153,153);Col137:=RGB(140,140,140);Col138:=RGB(128,128,128);Col139:
=RGB(115,115,115);Col140:=RGB(102,102,102);Col141:=RGB(89,89,89);Col142:=R
GB(77,77,77);Col143:=RGB(64,64,64);Col144:=RGB(51,51,51);Col145:=RGB(38,38,
38);Col146:=RGB(26,26,26);Col147:=RGB(13,13,13);Col148:=RGB(0,0,0);ICON
Apoyo
89504E470D0A1A0A0000000D494844520000001A000000960803000000F7E6685F0
0000054504C5445FFFFFFC0DCC0A0A0A4808080C0C0C0FFFBF0606080A0C0C08
0A080806080A0A080A6CAF00000008080C04020006060C0404080A0A0C04020806
06040202040000040200040A080C08060C080A0C0E020404040409A5A7DA200000
01C74524E53000000000000000000000000000000000000000000000000000000003A
2359AE000001DB494441547801ED958B6EC3200C4563B0B307F4B526DDD6FDFF
7FCE26A140822B358BB6A9DB95A2A29E181CB836CD0F09001462ACB5A8126B
41477823222186AAF985A81AC2406A6C5889D54ED9834D229594CC142467654C
CEE62432B066A6FAF7DDA174B3C9619A7A8C6E9BC101E646448F82AEAC052A
A931BA1C302831AC27D0C8248E26A6012526677312D9305B32705EB804C50661B
6C9C30E99622B215FEB794445498F69D4D0300716F946CB131A934E17B81CB262
28EBE28F54495D0438D3B821A41AA021B336AAAC958E0FD9347C9AF4086C001
EE6FE0A04789EF0524188A7006ED61293172DA4270EFFF52DC2F92D1577DFE80
6581F99D4B6C6E1A58B8885D8A82159CE0D4DDEBE30CC1AFA0E519AB044A6
A136B5510A9D07A5B7A18C28B525BDF4B82CA1454E83DBA9E11FA0FC6A115
B73A3E3F4E4071311C347DFCB0B99E749CC4EDC16E5BAE454EEADE939BF51D
17621A22568A7DD27CEFABDA32A247768B72F9B123AA90E76133FC7AEDBE5
D7D7C1FBFED4F57DDF89F679987BDD9FDE1CB941E58CBC8CEF5C3D3D2277F
4AD533E8B36DBF5B777FAD7A508FC7B1C45E4E78AA8727134BF52A8D75C155
110A34139BAF2BD937EB25AF6E775D159A4B3256B2D11F90F7B0B1ACF82D1E
C5048F1A720DBE6FA9A3F3F01D2051491028558CB0000000049454E44AE426082;
ICON ApEm2
89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060
000000F504C5445848484FFFFFFB5B5B5373737B6B6B664F85B5E0000000574524
E530000000000C26B06B10000009D494441547801CD93DB0D80200C459109282E0
0372E60D8C0B8FF4C3E906AA1463EED4D881FC77272A366F0C04C5F3302914CE
86541C6DB4E364443E875B0956FE2473F9414D655BE371B386FBECCCAB5AA2F
B3E0898AEF98781476B97CA774ACDBDF01D6F5386B765FB35CBE0F368FCA66
DF37365F52D8EC3B9DBE92BDE567A55FC9CAB29B7E5D2C5159D1AFE5A8EC
B3DF666DCDBA5F7CBFD4FDBFB90D8A7F543628B8E12D0000000049454E44AE
426082;ICON Resorte
89504E470D0A1A0A0000000D4948445200000029000000490803000000974AFF9E0
0000156504C5445FFFFFFC3BEEA1416047E77BE7F7F7FC3BEF22122137D75D000
0000C2BEF17D76D6C3C3C37092BEC8BFE7C1BFF17C77D4F1EFFF7A7CD22221
13BEBEF1C1C0F17C78D6F2EFFF7B7DD1BCBEF1C1C2EF1C1C076E69DCF6F1F
FF1EEFF7A79D2222212C0C0F7C0C2FB72739D0C0C0C434168ADA8EFE8E1FFF4
EFFF8787D62020137B7BBEDEDFFFE4E8FFB5B6FFA2A0D657567A1C1C10312D
6E8881D9D9D4FFE5E3FFCED1FF53539D00001D585859A8A7EEE4E4FFEEEEFF
B4B0ED8C8A9F93929F9292999090958E8F959394978D8D9F8382948B8B84616254
1B1A2815143B6B67B2E3E1F7EFF4FFE0E4FF9FA0FF2C2A5B9493B2BBB9FFEEE
BFF9792C0171711000028100D3E12113C0F0F370D0D310F0F301111341212371D1
B3F1311294F4C71EBE7FFEAE7F7D9D3FBD0CBFFD4D0FFCECCFFCDCDFFCC
CEFFCBCFFFCDD1FFDCDDFFC5C0FF726AFF100E31353361918DD6CCC7FC575
7573F48CC47ED5ED90000007274524E5300000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000CD073F7D00000304
494441547801ED955757EA401485A317E3D044020A0252A448B18152941A9A3445
AA284A55B0502EFFFFE52601B2920C02BEDFFDC2CCCEB7C864CE9E33C85C1
B9B7FE83182F060D1CFB6D06D060960D1CFF8A880410A671201F17C483FDB412
5BB08242926833C39BAB70F930A4C0979072AB5E61072B53A3DE4198E8C26B3E
598E35A6D7607973C393D3BBF70BA2EAF58AEDBE3F55DDFF867B34030148EE
07834164F246F53E90C93CCE6EEEE41FEA1404D0AC5122857AA8FB5A7E77AEA
E5B5D1A4DC56BBD37D7BEFF53F3EBFBE07C3D19832C7A3E1E0FBEBF3A3DF
7B7FEB76DA2DCA6C365E5F52F5E7A7DA63B55206A5E2EC5F1FF2E0FE2E9765
BE36934EDD2613F15814C723E1503030B3FD37D73EAFC7CDFA96AB4B97F3E2F
CECF484FBE90EBBCDCAB18E2D6693F1C800EDA75EA785BC438D5A7500B94A
4C0117737F0F9543A60C93C2E4AE04DDA127F350898108CA178208503E3D5E965
904D946B7E8F1B27380207F363790FFFA8D7840B80625043C065980814CB3B5801
C17035CF02ADD68C36461540A72C9CBD46B0722FD0F4310E280C7AEDB972E44
DEE407E53087B43893A93788BC06DF95081B3C345F24EAEF5CD2E1BBFFAAE2
4C6E775F633A8F3FF798A458A6D4DBBD779F8FF889E140BEC327B3BB2D90EC
A98D67B1A77ED66DD52AA4228A0418A6B379721FB5E8E9910A254490E48FEA
E8345AFBC8796C3A0C031429922AB45677B6FF143B33AAF72402B2DF6FF177E4
078613FCF1F3CE6BD72B6562E6CEF79EE3E726CD3EAB85E3D5AF7B9F835BA3
F77AE2C2CCE9CA91CA37B886AAF9964A3A2D9C1D0D9707F91B88ECBEDCBA
B8CD3B04860F7E88ECBCA62EB9850F964605384BED46FA8A4B068AE305A96B
35337040E7996527799948F2BF7EADBFA4D6E244A456B2243721B58A25C0C9841
AAD4209905EE744F4772548DC5B2B50F2DD08C111CB24D8A5E40C2497C942A1
B84DC909793712E85A24D15200838413CC783B75C92E21595F44B2BCC520B44B
B3DB7BE1F161ED3CB15272C160E139A3CA3EADE6645A4DDE0FE48284FC7C7
4A7A913D2F15876C859495EBF1BAC4D72C17FBEF3A96B92EE72B500000000494
54E44AE426082;ICON ApSe
89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060
000001E504C5445C3C3C3FFFFFFFFFBF07F7F7F000000C0C0C0C0DCC0808080A
0A0A4A0A0807DC215480000000A74524E530000000000000000000073A018680000
014B4944415478018DD3CF6AC2401006F04D43C1A3A3A6F6E826081EB5035DAF
85BC402CDBA44791D25ED3C54E8EFE21CD5E7BF07DBBD14D14096DE634AB3
F86F9960D73FC3E3EC17F35C0D94B97DDB8AB3696D64AB28ED888365663CE12
B1A7567371CC16B27F6107A16D6EA52DE69C6CEA7B2C8246EBED6012C101263
B3B37E5C6EA4034D815F2FD7A48DBE7293FD9AF6CCC24E9261BA3AF4A1B2B
7ECEF64A647708EB32672F878F08327EFF5D6523C9221AD2F15F40AA6A06200A
CA883244D71C066148A92CB3D556109EEDB151E6A7CA82B1B2B62ECECD28A2
A2B625AF2C79265B6CF7BDD3304921599A55AF962FF7253AB004B5B501450579
EA3310D1D5A5985669936D51BC5B3BC2A3DD06B86CB00FDAECDB1B5ADBD3
DCFB8184F7F2EBCB2E779895D9FCCAB2FA0D384D569AB78371AB773657F945
B63FADEAA80D93A2D55C7C9C8E98F3D6F27BF3BBBFD9569D593180BD01000
0000049454E44AE426082;ICON ApSe1
89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330
000001E504C5445FFFFFF000000C3C3C3C0C0C0A0A0A4FFFBF0A0A080C0DCC0
7F7F7F808080298F6D7B0000000A74524E530000000000000000000073A018680000
0154494441547801D5D2316BC2401407F057D2D066339B6EA1ADE0188816B3498
DD4DB8E122163A15F406807DDC4A6F06E134C4BDEB76DE2DD85F8523F40FF9
3DC2FB9F7CF7950E7CA079BFBC8E42EE0E42C200DE10DD20570DAA05C1E3D
9A4DF792538CABB2A6B894E037E99D369CC3470885BC7E0640B2D9D5A404154
405E26807A808DB74FA59568B158D30AF1E23122DAA75073709A40718AFAB217
5DAA3330A0539E577A642DBD2167EC113CD325C737213E9BCC258BAF3E6DB2
CDD35A71670FAD70956B7D86B2FF4D159EB4F1C8E36E734A0F8531FE7837A52
E7542C734D63B524F6D6F44BD324BAE5E44A4D2174090C25199B45DB85A68892
4B351EAB2BC2CB1FCD86E491B99E757C7F404E686B74086C8DA843DEC1D688
F92CFA31A78109A35C981A13B16584E9CCCC723D46655363D521676236445EA3
14F9A51A7B91EB7F3952ECAD3E6E869A82F7CEDD7065D05EF823BFFD587E61
90342DD50000000049454E44AE426082;ICON Marca
89504E470D0A1A0A0000000D4948445200000017000000170803000000D7F424920
00001AA504C54452B2A281B1A1836353417161522201E2A2927201F1D000000FFF
FFFFDFDFD5F5E5C0F0E0C2524222B29272322200E0D0B8E8E8DF7F6F6F2F3F3E
0E0DE3E3E3C1413112726242B2A2726252311100E4F4E4DF2F2F0FBFAF99F9E9E
D1D0D0BFBFBD26252419181629282628272532312FD2D1D00D0C0A555553F1F0
F09F9E9C1E1D1B2E2D2B3736342C2B29939392F1F1F1ECECEC2A292635343239
3836242321171614757572FCFDFDF3F4F47B7A792D2C2AD7D7D6FCFCFC21201E
3837356564620605038F8E8B5A5959181715C8C8C7CECECD08060422211E1D1C1
A9D9C9B898886100F0D555554242320AFAEAF333230959493EFF0F015141112110
FB3B2B20E0D0A1312101514120807058A8988E6E6E6DFDEDEE3E3E2CDCCCCE
3E3E3DFDFDEEFEFEFFEFEFE7E7D7C828180828281838281C0C0BF1716131D1C
198F8E8DADACAD3534313433310A0806CDCDCCE3E2E20C0B085959572625227
C7B79575756ACABAAE9E9E941403F4141408D8C8A161513A7A6A51A19172524
216A6A6871706F2928258D8C8BC9C9CA949391D7D7D7959593F8F8F8484745BE
BEBE282624444442D3D2D1B5B5B31C1C1A30D3EB870000008E74524E53000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000000084
1156850000016049444154780165D1F757E2401007F0450D3B7207582E10F550D960
03391112152C57B060458982A262EFBD37EC9EDDFFD95D547881F969F7332F937
9FB45A9D26465E77028AD382DC690ABFBF65DD5D11B8C7938BF00A0F0076F4
A76CC42517109E09F965200282BB712331B4044ABAD8202D692CAAA6A7AA8B
1DA09871CB5CE5F50072EA8773B3C92DCE082C626AFCF8738B919A04507D02A
B489D26FED9FBFF4937F0684FCEDD0D18901BA442717E8869E5E1EA0AF3FE10
338C8DC430283301452923E2C531F096B22A363100DF16A1F9F988C4D4D67F80C
7C94CAD9FCD9B9F905EF62A62F2D0B766545E5AB788DEDB3CED17DA2FCC6
A76FC216DADE815D31C83C86F700F6A9072CF46F077CC4496CCC0FA3F47A24
D097938FD9F144B1BB4DA7836CA5B3B89478E773E305BB5E86AFF035C08DCF4
F9261856F69E30EF0FFFB0725150C42242E3DB20C6C11292DE227FEF9E5150B5C
46F27AE94DF33518A17709CF49AFB792BAC30000000049454E44AE426082;ICON
ApEm
89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330
000000F504C5445FFFFFF373737B5B5B5848484B6B6B6A66EB3660000000574524
E530000000000C26B06B10000008F494441547801D591610AC3200C859DBB80191
EA0A41E407A84E2FDCF545A62CC92C87E7563EF41097CD80F6338F380C089B5
D7A095AB913A24117296009CA4D1F92D6DBF6607F5F9336ACD4552ADD085130
D1B57A3E7D26B903D347EF8CFA911F1ED1E2F449A5607D162E26651DF0C5A44
FB745DF54BAE2C5D05C6E30164E93268B80C1AAEF2B37BDDE80A73D73C07A
2AA2C018B76DC770000000049454E44AE426082;ICON AE
89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD2
00000009504C5445F2F2F2FFFFFF000000856950AA0000000374524E53000000FA7
6C4DE0000003A494441547801458BB10940211043E30EAEA085F35C61794B1D88
554A714AC3FFA00FF248914064251936DBFA155E3A26EB40F03697DE44D8F73D
495C120944FBDAB70000000049454E44AE426082;ICON AE2
89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD2
00000009504C5445000000EFEFEFF2F2F28390F6460000000374524E53000000FA76
C4DE0000003449444154780145C9210E00200C43D10A0E500462B799005F31EE7F
159689F1C54B93E2776591AC8093034773C3D58B49BD45F700FB0F07BEEE850B5
40000000049454E44AE426082;Rg1:={};Rg2:={};Dats:={};Regs:={};LEcu:={};LDis:
={};LApDia:={};ec;Zx;Zy;OriCarga;Ndas:=hcl(DatsIn);Pe;cnP;TSec;Elas;TApEm;TA
pSe;EmNu;SeNu;RunElem:=0;wdccal11();wdccal12();FForma(vec);FIwdccal1();RSep(
);wdccal1();Ensb();Datsbmq17();FIDatsbmq17();Nuevo;minn;dat;MMM;Tipo1;Tipo2;
Tipo3;Tipo4;Ndatos:=EXPR(Ndas(1));Nuevo1;Nuevo2;L10:={};L11:={};vc:={};EXP
ORT LNN:={};EXPORT LNC:={};LNCG;LNNG;lntxc:={"䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨䴖
䴢䴞䴚䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䴚䴣䳕䳺䴡䴚䴢䴚䴣䴩
䴤䴨","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䳻䴪䴚䴧䴯䴖䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴣䴙䴤䳕䴂䴖
䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䳼䴡䴤䴗䴖䴡","䳾䴣䴫䴚䴧䴨䴖䳕䴙䴚䳕䴂
䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䳼䴡䴤䴗䴖䴡","䳹䴚䴨䴥䴡䴖䴯䴖䴢䴞䴚
䴣䴩䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨","䳺䴘䴪䴖䴘䴞䴤䴣䴚䴨
"};lntx;txtv:={"䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨䴖䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞
䴙䴚䴯䳕䴚䴣䳕䳺䴡䴚䴢䴚䴣","䴂䴖䴩䴧䴞䴯䳻䴪䴚䴧䴯䴖䴨","䳺䴣䴨䴖䴢䴗䴡
䴖䴣䴙䴤䳕䴂䳕䴙䴚䳕䴇䴞䴜䴯䳕䳼䴡䴤䴗䴖䴡","䳾䴣䴫䴚䴧䴨䴖䳕䴙䴚䳕䴂䴖
䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䳼䴡䴤䴗䴖䴡","䳹䴚䴨䴥䴡䴖䴯䴖䴢䴞䴚䴣
䴩䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨","䳺䴘䴪䴖䴘䴞䴤䴣䴚䴨
"};TApSe1;EmNu1;SeNu1;RunElem1:=0;Nvc:=LEFT(Ndatos,6);TApS1;EmN1;SeN1;
RunEle1:=0;Nvcf:=RIGHT(Ndatos,4);
TApSe2;EmNu2;SeNu2;RunElem2:=0;Rg11:={};Rg21:={};Dats1:={};Regs1:={};LEc
u2:={};LDis2:={};LApDia2:={};Nnud:=RIGHT(Nvc,3);Rg12:={};Rg22:={};Dats2:={
};Regs11:={};LEcu10:={};LDis10:={};LApDia11:={};Rg111:={};Rg241:={};Dats4:=
{};NElm:=LEFT(Nvcf,4);Regs4:={};LEcu3:={};LDis7:={};LApDia7:={};echret12(cx,
cy,txt)BEGIN LOCAL
Numm,a,Nm,Io,Co,Fo;Numm:={[[1,1,1],[1,0,1],[1,0,1],[1,0,1],[1,1,1]],[[0,1,0],[1,1,0],[
0,1,0],[0,1,0],[0,1,0]],[[1,1,1],[0,0,1],[1,1,1],[1,0,0],[1,1,1]],[[1,1,1],[0,0,1],[1,1,1],[0,0,1
],[1,1,1]],[[1,0,1],[1,0,1],[1,1,1],[0,0,1],[0,0,1]],[[1,1,1],[1,0,0],[1,1,1],[0,0,1],[1,1,1]],[[
1,1,1],[1,0,0],[1,1,1],[1,0,1],[1,1,1]],[[1,1,1],[0,0,1],[0,0,1],[0,0,1],[0,0,1]],[[1,1,1],[1,0,1
],[1,1,1],[1,0,1],[1,1,1]],[[1,1,1],[1,0,1],[1,1,1],[0,0,1],[1,1,1]]};txt:=string(txt);txt:=AS
C(txt);FOR Io FROM 1 TO SIZE(txt)DO a:=txt(Io)-47;IF txt(Io)==46 THEN
cx:=cx+1;RECT_P(G4,cx,cy+4,cx+1,cy+5,RGB(0,0,0));cx:=cx+2;ELSE
Nm:=Numm(a);FOR Fo FROM 1 TO 5 DO cy:=cy+1;FOR Co FROM 1 TO 3 DO
cx:=cx+1;IF Nm(Fo,Co)==1 THEN
PIXON_P(G4,cx,cy,RGB(0,0,0));END;END;cx:=cx-3;END;cx:=cx+4;cy:=cy-
5;END;END;END;ftyul9(dfg4)BEGIN LOCAL
CNG,dir,DIR,BB,TAS,FMo,VFR;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT,TxTb;LOCAL
VBmin,VB,qe,qi,DP3D,VMo,Modd;LOCAL lx,ly,e;IF dfg4==1 THEN
CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ly:=CHAR({115,105});BB:=ixpr
12;TAS:=ixpr17;FMo:=jksd1;VFR:=jksd5;VMo:=jksd3;MTA:=jksd7;qTA:=jksd9;qPor
:=jksd11;FPTA:=jksd13;FTA:=jksd15;FT:=jksd17;VBmin:=jliu6;VB:=jliu1;qe:=jliu8;q
i:=jliu10;DP3D:=jliu12;Modd:=ixpr19;ELSE
CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr
13;TAS:=ixpr18;FMo:=jksd2;VFR:=jksd6;VMo:=jksd4;MTA:=jksd8;qTA:=jksd10;qP
or:=jksd12;FPTA:=jksd14;FTA:=jksd16;FT:=jksd18;VBmin:=jliu7;VB:=jliu2;qe:=jliu9
;qi:=jliu11;DP3D:=jliu13;Modd:=ixpr20;END;LOCAL
x,y,k,V,H,Gi:=G2;DIMGROB_P(G2,0,0);V:=2800;H:=1300;DIMGROB_P(G2,H,V);R
ECT(G2);RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,
3,White);TEXTOUT_P(CHAR({40,49,47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,45,67,97,108,99,117,108,111,32,100,1
01,32,114,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170-
qwr2*qwr5/2,y0:=117.5+qwr3*qwr5/2;dy:=dy+18;LOCAL
R_PorX,R_PorY;TEXTOUT_P(CHAR({49,46,49,45,82,105,103,105,100,101,122,32,7
6,97,116,101,114,97,108}),G2,dx,dy,2,Blue);dx:=dx+70;lx:=CHAR({118,101,114});ffl
lq10(G2,"ixpr5="+CHAR({32}),dx+20,dy+14,140,27,AzulTit);llfft10(G2,CHAR({75})
,CHAR({65,65}),dx+50,dy+15+5,AzulTit);TEXTOUT_P(CHAR({45}),G2,dx+75,dy+
25,2,AzulTit);llfft10(G2,CHAR({75}),CHAR({65,66}),dx+85,dy+15+5,AzulTit);llfft1
0(G2,CHAR({75}),CHAR({66,66}),dx+110,dy+15+5,AzulTit);jjrtg10(G2,CHAR({32}
),CHAR({45,49}),dx+110,dy+15+5,AzulTit);llfft10(G2,CHAR({75}),CHAR({66,65}),
dx+135,dy+15+5,AzulTit);dx:=dx-70;dy:=dy+35;LOCAL
Tx;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32,88}),G2,dx+5,dy
+15,2,AzulTit);dy:=dy+15;FOR k:=1 TO rtyh7 DO
TEXTOUT_P(CHAR({45,82,76,32,80,111,114,116,105,99,111,32})+k,G2,dx+15,dy+1
5+dyy,2,Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,4
5,109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR({6
8,105,114,101,99,99,105,111,110,32,89}),G2,dx+5,dy+15,2,AzulTit);dy:=dy+15;dyy:=
0;FOR k:=1 TO rtyh8 DO
TEXTOUT_P(CHAR({45,82,76,32,80,111,114,116,105,99,111,32})+char(64+k),G2,dx
+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre10(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,
110,102,45,109}),0,CHAR({32}));dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy+15;TEX
TOUT_P(CHAR({49,46,50,45,77,97,116,114,105,122,32,100,101,32,84,114,97,110,11
5,102,111,114,109,97,99,105,111,110}),G2,dx,dy,2,Blue);ffllq10(G2,"",100,dy+15,115
,23,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+25;TEXTOUT_P("➧"+C
HAR({68,105,114,101,99,99,105,111,110,32,88}),G2,dx+5,dy+15,2,AzulTit);dy:=dy+
15;dyy:=0;FOR k:=1 TO rtyh7 DO
TEXTOUT_P(""+k,G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre14(k),50,dy+45+dyy
,2,AzulTit,1,CHAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOU
T_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32,89}),G2,dx+5,dy+15,2,AzulTi
t);dy:=dy+15;dyy:=0;FOR k:=1 TO rtyh8 DO
TEXTOUT_P(""+char(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,d
y+45+dyy,2,AzulTit,1,CHAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy+
15;TEXTOUT_P(CHAR({49,46,51,45,82,105,103,105,100,101,122,32,101,110,32,99,1
11,111,114,100,101,110,97,100,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,2,B
lue);ffllq10(G2,"",110,dy+15,115,23,AzulTit);dy:=dy+25;e:=lx+ly;pxtrf10(G2,ixpr5,50
,dy+35,2,AzulTit,1,CHAR({116,110,45,109}),0,"");dy:=dy+50;x:=0;y:=0;IF dy>2800
THEN
DIMGROB_P(G2,0,0);V:=2800;H:=1300;DIMGROB_P(G2,H,V);RECT(G2);RECT_P
(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,3,White);TEXTOU
T_P(CHAR({40,49,47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,45,67,97,108,99,117,108,111,32,100,1
01,32,114,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170-
qwr2*qwr5/2,y0:=117.5+qwr3*qwr5/2;dy:=dy+18;TEXTOUT_P(CHAR({49,46,49,45,
82,105,103,105,100,101,122,32,76,97,116,101,114,97,108}),G2,dx,dy,2,Blue);TEXTO
UT_P("",G2,dx+5,dy,2,AzulTit);dy:=dy+15;TEXTOUT_P("",G2,dx,dy,2,Blue);ffllq10(
G2,"
",100,dy+15,115,23,AzulTit);dy:=dy+25;TEXTOUT_P("➧"+CHAR({68,105,114,101,9
9,99,105,111,110,32,88}),G2,dx+5,dy+15,2,AzulTit);dy:=dy+15;dyy:=0;FOR k:=1 TO
rtyh7 DO TEXTOUT_P("
"+k,G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre14(k),50,dy+45+dyy,2,AzulTit,1,C
HAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHA
R({68,105,114,101,99,99,105,111,110,32,89}),G2,dx+5,dy+15,2,AzulTit);dy:=dy+15;d
yy:=0;FOR k:=1 TO rtyh8 DO TEXTOUT_P("
"+char(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,dy+45+dyy,2,Az
ulTit,1,CHAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy+15;TEXTOUT
_P(CHAR({49,46,51,45,82,105,103,105,100,101,122,32,101,110,32,99,111,111,114,10
0,101,110,97,100,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,2,Blue);ffllq10(G
2,"",110,dy+15,115,23,AzulTit);dy:=dy+25;pxtrf10(G2,ixpr5,50,dy+35,2,AzulTit,1,CH
AR({116,110,45,109}),0,"");dy:=dy+50;END;ffllq9(dy,H,x,y,Gi,e,TxTb);END;llfft9(df
g4)BEGIN LOCAL CNG,dir,DIR,BB,TAS,FMo,VFR;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT,TxTb;LOCAL
VBmin,VB,qe,qi,DP3D,VMo,Modd;LOCAL lx,ly,e;IF dfg4==1 THEN
CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ly:=CHAR({115,105});BB:=ixpr
12;TAS:=ixpr17;FMo:=jksd1;VFR:=jksd5;VMo:=jksd3;MTA:=jksd7;qTA:=jksd9;qPor
:=jksd11;FPTA:=jksd13;FTA:=jksd15;FT:=jksd17;VBmin:=jliu6;VB:=jliu1;qe:=jliu8;q
i:=jliu10;DP3D:=jliu12;Modd:=ixpr19;ELSE
CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr
13;TAS:=ixpr18;FMo:=jksd2;VFR:=jksd6;VMo:=jksd4;MTA:=jksd8;qTA:=jksd10;qP
or:=jksd12;FPTA:=jksd14;FTA:=jksd16;FT:=jksd18;VBmin:=jliu7;VB:=jliu2;qe:=jliu9
;qi:=jliu11;DP3D:=jliu13;Modd:=ixpr20;END;LOCAL
x,y,k,V,H,Gi:=G2;DIMGROB_P(G2,0,0);V:=2800;H:=1000;DIMGROB_P(G2,H,V);R
ECT(G2);RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,
3,White);TEXTOUT_P(CHAR({40,50,47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;dyy:=0;TEXTOUT_P(CHAR({50,45,77,97,116,114,105,122,32,1
00,101,32,77,97,115,97}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({50,46,49,45,77,97,
115,97,32,116,114,97,115,108,97,99,105,111,110,97,108}),G2,dx,dy+15,2,Blue);ffllq1
0(G2,CHAR({32}),100,dy+30,80,43,AzulTit);yyhte10(G2,CHAR({109,95,116,61,32}),
CHAR({112,101,115,111}),CHAR({32,32,103}),100,dy+35,32,AzulTit);dy:=dy+60;lx:
=CHAR({118,101,114});pxtrf10(G2,ixpr7,50,dy+35,2,AzulTit,1,CHAR({116,110,102,
47,103}),0,"");dy:=dy+15+15*(rtyh2+1);TEXTOUT_P(CHAR({50,46,49,45,77,97,115,
97,32,114,111,116,97,99,105,111,110,97,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,CHAR
({32}),100,dy+30,100,43,AzulTit);yyhte10(G2,"",100,dy+36,48,AzulTit);dy:=dy+60;p
xtrf10(G2,ixpr8,50,dy+40,2,AzulTit,1,CHAR({116,110,102,47,103,42,109,50}),0,"");d
y:=dy+20+15*(rtyh2+1);TEXTOUT_P(CHAR({50,46,51,45,77,97,116,114,105,122,32,
100,101,32,109,97,115,97,32,101,110,32,99,111,111,114,100,101,110,97,32,100,101,3
2,112,105,115,111}),G2,dx,dy+15,2,Blue);pxtrf10(G2,ixpr6,50,dy+40,3,AzulTit,1,CH
AR({116,110,102,45,115,50,47,109}),0,"");dy:=dy+15*3*(rtyh2+1)+15;TEXTOUT_P(
CHAR({51,45,80,114,111,112,105,101,100,97,100,101,115,32,68,105,110,97,109,105,
99,97,115}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({51,46,49,45,77,111,100,111,115
,32,100,101,32,118,105,98,114,97,99,105,111,110}),G2,dx,dy+15,2,Blue);ffllq10(G2,"
",100,dy+35,100,23,AzulTit);dy:=dy+50;LOCAL Col,Con:={};FOR j:=1 TO
colDim(ixpr9)DO Col:={"ixpr9
"+j};Con:=CONCAT(Con,Col);END;tlitg10(G2,ixpr9,60,dy+40,2,AzulTit,0,CHAR({3
2}),1," Φ
",Con,Blue,0,"");dy:=dy+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({51,46,49,45,70,114,
101,99,117,101,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),G2,d
x,dy+15,2,Blue);ffllq10(G2,"",100,dy+35,130,23,AzulTit);dy:=dy+50;zvfgk10(G2,ixpr
11,50,dy+55,3,{CHAR({69,105,103,101,110,32,86,97,108,111,114,101,115}),"ω
(1/s)",CHAR({32,84,32,40,115,41})},AzulTit);dy:=dy+20+(15*3*(rtyh2+1));TEXTOU
T_P(CHAR({52,45,70,97,99,116,111,114,32,100,101,32,112,97,114,116,105,99,105,11
2,97,99,105,111,110,32,109,111,100,97,108}),G2,dx,dy,3,RedA);ffllq10(G2,CHAR({3
2}),120,dy+20,85,43,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});yyhte10(G2,CH
AR({114,61,32}),"",100,dy+26,52,AzulTit);dy:=dy+65;TEXTOUT_P(CHAR({52,46,4
9,32,68,105,114,101,99,99,105,111,110,32,100,101,32,97,110,97,108,105,115,105,115
}),G2,dx,dy+15,2,Blue);TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110
,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,BB,50,dy+55,2,AzulTit,0,CHAR({3
2}),1,"γ"+dir);dy:=dy+20+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({52,46,50,32,70,97,
99,116,111,114,32,100,101,32,112,97,114,116,105,99,105,112,97,99,105,111,110,32,1
09,111,100,97,108}),G2,dx,dy,2,Blue);TEXTOUT_P("➧"+CHAR({68,105,114,101,99,
99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);LOCAL
FPMx,aa;aa:=CAS(CAS(CHAR({83,69,82,73,65,76})));IF dfg4==1 AND
aa=="9CJ73507JL" THEN FPMx:=SUB(ixpr14,{1,1},{xpe3*rtyh2,1});ELSE
FPMx:=SUB(ixpr14,{1,2},{xpe3*rtyh2,2});END;pxtrf10(G2,FPMx,50,dy+50,2,AzulTi
t,0,CHAR({32}),1,"г"+dir);dy:=dy+50;e:=lx+ly;ffllq9(dy,H,x,y,Gi,e,TxTb);END;jjrtg9
(dfg4)BEGIN LOCAL CNG,dir,DIR,BB,TAS,FMo,VFR;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT,TxTb;LOCAL
VBmin,VB,qe,qi,DP3D,VMo,Modd;LOCAL lx,ly,e;IF dfg4==1 THEN
CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ly:=CHAR({115,105});BB:=ixpr
12;TAS:=ixpr17;FMo:=jksd1;VFR:=jksd5;VMo:=jksd3;MTA:=jksd7;qTA:=jksd9;qPor
:=jksd11;FPTA:=jksd13;FTA:=jksd15;FT:=jksd17;VBmin:=jliu6;VB:=jliu1;qe:=jliu8;q
i:=jliu10;DP3D:=jliu12;Modd:=ixpr19;ELSE
CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr
13;
TAS:=ixpr18;FMo:=jksd2;VFR:=jksd6;VMo:=jksd4;MTA:=jksd8;qTA:=jksd10;qPor:=
jksd12;FPTA:=jksd14;FTA:=jksd16;FT:=jksd18;VBmin:=jliu7;VB:=jliu2;qe:=jliu9;qi:
=jliu11;DP3D:=jliu13;Modd:=ixpr20;END;LOCAL
x,y,k,V,H,Gi:=G2;DIMGROB_P(G2,0,0);V:=2800;H:=1300;DIMGROB_P(G2,H,V);R
ECT(G2);RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,5
1,47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({53,45,65,99,101,108,101,114,97,99,105,1
11,110,32,101,115,112,101,99,116,114,97,108}),G2,dx,dy,3,RedA);ffllq10(G2,CHAR(
{32}),100,dy+20,90,43,AzulTit);yyhte10(G2,"",CHAR({90,85,67,83,32}),CHAR({82}
),100,dy+26,40,AzulTit);dy:=dy+65;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,
105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);zvfgk10(G2,TAS,50,dy+55,3,{"ixpr
9",CHAR({84,32,40,115,41}),CHAR({32,67,32}),CHAR({83,97,32,40,109,47,115,50,
41}),"Cond"},AzulTit);dy:=dy+20+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({54,45,70,
117,101,114,122,97,115,32,76,97,116,101,114,97,108,101,115,32,101,110,32,101,108,
32,67,77,32,70,120,44,70,121,44,77,122,32,40,116,110,102,41}),G2,dx,dy,3,RedA);ffll
q10(G2,"",100,dy+20,85,23,AzulTit);dy:=dy+35;LOCAL Col,Con:={};FOR j:=1 TO
colDim(FMo)DO Col:={"ixpr9
"+Modd(j)};Con:=CONCAT(Con,Col);END;TEXTOUT_P("➧"+CHAR({68,105,114,1
01,99,99,105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tlitg10(G2,FMo,50,dy+50,
2,AzulTit,1,CHAR({116,110,102}),0,"",Con,Blue,0,"");dy:=dy+30+(15*3*(rtyh2+1));T
EXTOUT_P(CHAR({55,45,67,111,114,116,97,110,116,101,32,101,110,32,67,46,77,46
,32,112,97,114,97,32,99,97,100,97,32,109,111,100,111,32,40,116,110,102,41}),G2,dx,
dy,3,RedA);ffllq10(G2,"",100,dy+20,65,23,AzulTit);dy:=dy+35;lx:=CHAR({118,101,1
14});TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+
5,dy+15,2,AzulTit);LOCAL Fil,CoF:={},aa:=rtyh2;FOR j:=1 TO rtyh2 DO
Fil:={CHAR({80,105,115,111,32})+aa};CoF:=CONCAT(Fil,CoF);aa:=aa-
1;END;tlitg10(G2,VMo,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,Dar
kBlue,1,CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,1
17,108,111,32,100,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,11
7,101,114,122,97,32,114,101,115,117,108,116,97,110,116,101,32,67,81,67,32,40,116,1
10,102,41}),G2,dx,dy,3,RedA);
ffllq10(G2,"",70,dy+20,175,23,AzulTit);dy:=dy+35;TEXTOUT_P("➧"+CHAR({68,105
,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tlitg10(G2,VFR,50,d
y+50,3,AzulTit,0,CHAR({116,110,102}),0,"",{CHAR({67,111,114,116,97,110,116,10
1,32,86}),CHAR({70,117,101,114,122,97,32,70})},DarkBlue,1,CoF);TxTb:=CHAR({7
4,55,51,53,48,51,81});dy:=dy+15*(rtyh2+2)+45;dx:=dx+15;LOCAL
hg:=100,vg:=40*rtyh2;LOCAL
ecx:=hg/VFR(1,1),ecy:=vg/tgh1,aa:=rtyh2,HH:=0,HHH:=0;FOR j:=1 TO rtyh2 DO
HHH:=HHH+rtyh10(aa);RECT_P(G2,{dx+2,dy+ecy*HH},{dx+2+ecx*VFR(aa,1),dy+
ecy*HHH},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,d
x+5,dy+ecy*HH+1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,
116,97,110,116,101,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dx:=dx+150;aa:=rtyh2;HH:
=0;e:=lx+ly;FOR j:=1 TO rtyh2 DO
RECT_P(G2,{dx,dy+ecy*HH},{dx+2+ecx*VFR(aa,2)+1,dy+ecy*HH},RedA);TEXTO
UT_P("",G2,dx+ecx*VFR(aa,2),dy+ecy*HH-
11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH
+1-18,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,
114,122,97,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dx:=5;yyhte7;dy:=dy+50;ffllq9(dy,
H,x,y,Gi,e,TxTb);END;tlitg9(dfg4)BEGIN LOCAL
CNG,dir,DIR,BB,TAS,FMo,VFR;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT,TxTb;LOCAL
VBmin,VB,qe,qi,DP3D,VMo,Modd;LOCAL lx,ly,e;LOCAL
Fil,CoF:={},aa:=rtyh2,Con,Col;FOR j:=1 TO rtyh2 DO
Fil:={CHAR({80,105,115,111,32})+aa};CoF:=CONCAT(Fil,CoF);aa:=aa-1;END;IF
dfg4==1 THEN
CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ly:=CHAR({115,105});BB:=ixpr
12;TAS:=ixpr17;FMo:=jksd1;VFR:=jksd5;VMo:=jksd3;MTA:=jksd7;qTA:=jksd9;qPor
:=jksd11;FPTA:=jksd13;FTA:=jksd15;FT:=jksd17;VBmin:=jliu6;VB:=jliu1;qe:=jliu8;q
i:=jliu10;DP3D:=jliu12;Modd:=ixpr19;ELSE
CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr
13;TAS:=ixpr18;FMo:=jksd2;VFR:=jksd6;VMo:=jksd4;MTA:=jksd8;qTA:=jksd10;qP
or:=jksd12;FPTA:=jksd14;FTA:=jksd16;FT:=jksd18;VBmin:=jliu7;VB:=jliu2;qe:=jliu9
;qi:=jliu11;DP3D:=jliu13;Modd:=ixpr20;END;LOCAL
x,y,k,V,H,Gi:=G2;DIMGROB_P(G2,0,0);V:=1500;H:=2000;DIMGROB_P(G2,H,V);R
ECT(G2);RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,5
2,47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({57,45,67,97,108,99,117,108,111,32,100,1
01,32,108,97,32,102,117,101,114,122,97,32,114,101,115,117,108,116,97,110,116,101,
32,112,111,114,32,116,111,114,115,105,111,110,32,97,99,99,105,100,101,110,116,97,
108,46}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({57,46,49,32,77,111,109,101,110,11
6,111,32,100,101,32,116,111,114,115,105,111,110,32,97,99,99,105,100,101,110,116,9
7,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,"",100,dy+35,95,23,AzulTit);dy:=dy+40;TEX
TOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2
,AzulTit);MTA:=list2mat(MTA,1);pxtrf10(G2,MTA,60,dy+50,2,AzulTit,1,CHAR({116
,110,102,45,109}),1,CHAR({77,84})+dir);dy:=dy+25+(15*(rtyh2+1));TEXTOUT_P(C
HAR({57,46,50,32,71,105,114,111,115,32,112,111,114,32,116,111,114,115,105,111,11
0,32,97,99,99,105,100,101,110,116,97,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,CHAR({
81,84,61,91,48,32,48,32,77,116,93}),100,dy+35,80,23,AzulTit);dy:=dy+40;lx:=CHAR(
{118,101,114});TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+
DIR,G2,dx+5,dy+30,2,AzulTit);qTA:=list2mat(qTA,1);pxtrf10(G2,qTA,60,dy+60,2,Az
ulTit,1,CHAR({114,97,100}),1,CHAR({81})+dir);dy:=dy+30+(15*3*(rtyh2+1));TEXT
OUT_P(CHAR({57,46,51,32,68,101,115,112,108,97,122,97,109,105,101,110,116,111,
32,108,97,116,101,114,97,108,32,112,111,114,32,116,111,114,115,105,111,110,32,97,
99,99,105,100,101,110,116,97,108,32,40,109,41}),G2,dx,dy+15,2,Blue);aa:=CNG;Con:
={};FOR j:=1 TO CNG DO IF dfg4==1 THEN
Col:={CHAR({80,111,114,116,105,99,111,32})+j};ELSE
Col:={CHAR({80,111,114,116,105,99,111,32})+char(64+j)};END;Con:=CONCAT(Co
n,Col);END;ffllq10(G2,"qT=Qt/KL¡",120,dy+35,65,23,AzulTit);dy:=dy+40;TEXTOUT
_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,Azul
Tit);tlitg10(G2,qPor,65,dy+60,2,AzulTit,1,CHAR({109}),1,"qT"+dir,Con,DarkBlue,1,
CoF);dy:=dy+30+(15*(rtyh2+2));TEXTOUT_P(CHAR({57,46,52,32,70,117,101,114,1
22,97,115,32,108,97,116,101,114,97,108,32,101,110,32,99,97,100,97,32,112,111,114,1
16,105,99,111,32,112,111,114,32,116,111,114,115,105,111,110,32,97,99,99,105,100,1
01,110,116,97,108,32,40,116,110,102,41}),G2,dx,dy+15,2,Blue);ffllq10(G2,"PT¡=KL¡
✕qT",125,dy+35,75,23,AzulTit);dy:=dy+50;TEXTOUT_P("➧"+CHAR({68,105,114,10
1,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G2,FPTA,60,dy+60,
2,AzulTit,1,CHAR({116,110,102}),1,CHAR({80,84})+dir,Con,DarkBlue,1,CoF);TxTb
:=CHAR({74,55,51,53,48,51,81});dy:=dy+30+(15*(rtyh2+2));TEXTOUT_P(CHAR({5
7,46,53,32,70,117,101,114,122,97,115,32,101,110,32,67,101,110,116,114,111,32,100,1
01,32,77,97,115,97,32,112,111,114,32,116,111,114,115,105,111,110,32,97,99,99,105,1
00,101,110,116,97,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,"",120,dy+35,70,23,AzulTit)
;dy:=dy+40;e:=lx+ly;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,3
2})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,FTA,60,dy+60,2,AzulTit,1,CHAR({11
6,110,102}),1,CHAR({70,84,65})+dir);dy:=dy-
150;yyhte7;ffllq9(dy,H,x,y,Gi,e,TxTb);END;hdljt9(dfg4)BEGIN LOCAL
CNG,dir,DIR,BB,TAS,FMo,VFR;LOCAL
MTA,qTA,qPor,FPTA,FTA,FT,TxTb;LOCAL
VBmin,VB,qe,qi,DP3D,VMo,Modd;LOCAL lx,ly,e;LOCAL
Fil,CoF:={},aa:=rtyh2,Con,Col;FOR j:=1 TO rtyh2 DO
Fil:={CHAR({80,105,115,111,32})+aa};CoF:=CONCAT(Fil,CoF);aa:=aa-1;END;IF
dfg4==1 THEN
CNG:=rtyh7;dir:=CHAR({120});DIR:=CHAR({88});ly:=CHAR({115,105});BB:=ixpr
12;TAS:=ixpr17;FMo:=jksd1;VFR:=jksd5;VMo:=jksd3;MTA:=jksd7;qTA:=jksd9;qPor
:=jksd11;FPTA:=jksd13;FTA:=jksd15;FT:=jksd17;VBmin:=jliu6;VB:=jliu1;qe:=jliu8;q
i:=jliu10;DP3D:=jliu12;Modd:=ixpr19;ELSE
CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr
13;TAS:=ixpr18;FMo:=jksd2;VFR:=jksd6;VMo:=jksd4;MTA:=jksd8;qTA:=jksd10;qP
or:=jksd12;FPTA:=jksd14;FTA:=jksd16;FT:=jksd18;VBmin:=jliu7;VB:=jliu2;qe:=jliu9
;qi:=jliu11;DP3D:=jliu13;Modd:=ixpr20;END;LOCAL
x,y,k,V,H,Gi:=G2;DIMGROB_P(G2,0,0);V:=6000;H:=320;DIMGROB_P(G2,H,V);RE
CT(G2);RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,53,
47,53,41}),G2,292,19,2,AzulTit);LOCAL
dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,48,45,70,117,101,114,122,97,32,108,9
7,116,101,114,97,108,32,116,111,116,97,108,32,101,110,32,67,101,110,116,114,111,3
2,100,101,32,77,97,115,97,46}),G2,dx,dy,3,RedA);ffllq10(G2,"",120,dy+20,70,23,Azul
Tit);dy:=dy+20;lx:=CHAR({118,101,114});TEXTOUT_P("➧"+CHAR({68,105,114,10
1,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G2,FT,50,dy+60,3,A
zulTit,1,CHAR({116,110,102}),1,CHAR({70,84})+dir,{CHAR({49})},PlomoA,1,CoF)
;dy:=dy+55+(15*(rtyh2+2));dx:=dx+100;LOCAL hg:=100,vg:=rtyh2*40;LOCAL
ecx:=hg/FT(rtyh2,1),ecy:=vg/tgh1,aa:=rtyh2,HH:=0,HHH:=0;FOR j:=1 TO rtyh2 DO
RECT_P(G2,{dx,dy+ecy*HH},{dx+2+ecx*FT(aa,1)+1,dy+ecy*HH},RedA);TEXTOU
T_P("▶",G2,dx+ecx*FT(aa,1),dy+ecy*HH-
11,5,RedA);TEXTOUT_P(FT(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+
1-18,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,
114,122,97,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,77}),G2,d
x-
40,dy+vg+5,2,DarkBlue);dy:=dy+vg+25;dx:=5;TEXTOUT_P(CHAR({49,49,45,67,111
,114,116,97,110,116,101,32,100,101,32,112,105,115,111,32,121,32,98,97,115,97,108,3
2}),G2,dx,dy,3,RedA);TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,
32})+DIR,G2,dx+5,dy+30,2,AzulTit);LOCAL VTT;IF dfg4==1 THEN
VTT:=SUB(jliu3,{1,1},{rtyh2+1,1});ELSE
VTT:=SUB(jliu3,{1,2},{rtyh2+1,2});END;LOCAL
CcoF:=CONCAT(CoF,CHAR({86,46,32,66,97,115,97,108}));tlitg10(G2,VTT,50,dy+6
0,2,AzulTit,1,CHAR({116,110,102}),1,CHAR({86})+dir,{CHAR({49})},PlomoA,1,Cc
oF);dy:=dy+45+(15*(rtyh2+3));dx:=dx+100;LOCAL hg:=100,vg:=40*rtyh2;LOCAL
ecx:=hg/jliu3(1,1),ecy:=vg/tgh1,aa:=rtyh2,HH:=0,HHH:=0;FOR j:=1 TO rtyh2 DO
HHH:=HHH+rtyh10(aa);RECT_P(G2,{dx+2,dy+ecy*HH},{dx+2+ecx*jliu3(aa,1),dy+e
cy*HHH},RedA,PlomoA);TEXTOUT_P(jliu3(aa,1)+CHAR({32,116,110,102}),G2,dx
+5,dy+ecy*HH+1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa-
1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,
116,97,110,116,101,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,7
7}),G2,dx-
20,dy+vg+5,2,DarkBlue);dy:=dy+vg+25;dx:=5;TEXTOUT_P(CHAR({49,50,45,67,111
,110,116,114,111,108,32,100,101,32,99,111,114,116,97,110,116,101,32,109,105,110,1
05,109,111}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({49,50,46,49,32,67,111,114,116
,97,110,116,101,32,77,105,110,105,109,111}),G2,dx,dy+15,2,Blue);dy:=dy+15;ffllq10(
G2,CHAR({32}),100,dy+20,102,43,AzulTit);yyhte10(G2,"",CHAR({90,85,67,83,32}),
CHAR({82}),100,dy+26,35,AzulTit);dy:=dy+30;TEXTOUT_P(CHAR({86,109,105,11
0,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,110,102}),G2,100,dy+45,3,AzulTit);d
y:=dy+45;TEXTOUT_P(CHAR({49,50,46,50,32,86,101,114,105,102,105,99,97,99,105
,111,110}),G2,dx,dy+15,2,Blue);jliu1:=tlitg2(VB,3);LOCAL
Fesc:=tlitg2(0.8*VBmin/VB,3),Vm80:=tlitg2(0.8*VBmin,3);IF jliu1>=Vm80 THEN
TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(VB+CHAR({32,32,62,32,
32})+Vm80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_P(C
HAR({70,97,99,116,111,114,32,97,32,101,115,99,97,108,97,114,58,32})+Fesc,G2,dx+
30,dy+60,3,AzulTit);ELSE
TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(VB+CHAR({32,32,60,32,
32})+Vm80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXTO
UT_P(CHAR({70,97,99,116,111,114,32,97,32,101,115,99,97,108,97,114,58,32})+Fesc
,G2,dx+30,dy+60,3,AzulTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,51,45,68,101,
115,112,108,97,122,97,109,105,101,110,116,111,32,101,108,97,115,116,105,99,111,32
,101,110,32,101,108,32,67,77,32,40,99,109,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",125,d
y+20,70,23,AzulTit);dy:=dy+20;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105
,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);LOCAL
qeex:=list2mat(qe,1);pxtrf10(G2,qeex,50,dy+60,2,AzulTit,0,CHAR({32}),1,CHAR({11
3,101})+dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,52,45,68,101,11
5,112,108,97,122,97,109,105,101,110,116,111,32,105,110,101,108,97,115,116,105,99,
111,115,32,40,99,109,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",110,dy+20,85,23,AzulTit);
dy:=dy+20;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,
G2,dx+5,dy+30,2,AzulTit);LOCAL
qiix:=list2mat(qi,1);pxtrf10(G2,qiix,50,dy+60,2,AzulTit,0,CHAR({32}),1,CHAR({113,
105})+dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,53,45,67,111,110,
116,114,111,108,32,100,101,32,68,101,114,105,118,97,115,32,100,101,32,112,105,115
,111}),G2,dx,dy,3,RedA);ffllq10(G2,CHAR({32}),100,dy+20,90,43,AzulTit);
yyhte10(G2,"
",CHAR({113,105,40,105,45,49,41,45,113,105,40,105,41}),CHAR({32,32,72,95,112,1
05,115,111}),100,dy+26,55,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+5
0;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,d
y+30,2,AzulTit);tlitg10(G2,DP3D,50,dy+60,3,AzulTit,0,CHAR({32}),1,"Δ"+dir,{CHA
R({113,105,45,49,45,113,105}),"Δ-
Deriva",CHAR({76,105,109,105,116}),CHAR({86,101,114,105,102})},DarkBlue,1,Co
F);dy:=dy+55+(15*(rtyh2+2));LOCAL
MaxDer:=SUB(DP3D,{1,2},{rtyh2,2}),Mmm,dist;Mmm:=MAX(MAX(MaxDer),DP3
D(1,3))*100;dx:=dx+40;LOCAL hg:=205,vg:=rtyh2*40,ccx,ccy;LOCAL
ecx:=hg/Mmm,ecy:=vg/tgh1,aa:=rtyh2,HH:=0;FOR j:=1 TO hg/(0.4*ecx)+1 DO
LINE_P(G2,dx+0.4*ecx*j,dy,dx+0.4*ecx*j,dy+vg+3,Plomo);TEXTOUT_P(0.4*j,G2,d
x+0.4*ecx*j-2,dy+vg+5,1,PlomoA);dist:=ecx*0.4*j;END;FOR j:=1 TO rtyh2 DO
LINE_P(G2,dx,dy+ccy*ecy,dx+dist,dy+ccy*ecy,Plomo);TEXTOUT_P(CHAR({80,105
,115,111,32})+aa,G2,dx+dist+8,dy+ccy*ecy-4,1,PlomoA);ccy:=ccy+rtyh10(aa);aa:=aa-
1;END;LOCAL
tdvl,dvl;tdvl:=tlitg2(DP3D(1,3)*100,2);dvl:=tdvl*ecx;aa:=rtyh2;ccy:=0;RECT_P(G2,dx
+dvl,dy+2,dx+dvl,dy+vg,RedA);TEXTOUT_P(tdvl,G2,dx+dvl-5,dy-
10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,1
15,111,115}),G2,dx-
35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR(
{48}),G2,dx,dy+vg+5,1,PlomoA);TEXTOUT_P(CHAR({37,32,68,101,114,105,118,97
}),G2,dx,dy+vg+18,2,Blue);ccy:=0;LOCAL xx0:=dx,yy0:=dy+vg,ttt;e:=lx+ly;FOR j:=1
TO rtyh2 DO
ccx:=100*DP3D(j,2)*ecx;ccy:=ccy+rtyh10(j)*ecy;LINE_P(G2,{xx0,yy0},{dx+ccx,dy+
vg-ccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-
ccy-1.5},{dx+ccx+1.5,dy+vg-
ccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+v
g-
ccy+2,1,DarkBlue);END;dx:=5;dy:=dy;x:=0;y:=0;yyhte7;ffllq9(dy,H,x,y,Gi,e,TxTb);E
ND;ldljtr9(dfg4)BEGIN END;tdljt9(dfg4)BEGIN END;ldljt9(dfg4)BEGIN LOCAL
x,y,k,V,H,Gi:=G2;V:=15000;H:=5000;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G
2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,7
9,83,32,65,78,65,76,73,83,73,83,32,68,73,78,65,77,73,67,79,32,51,68}),G2,45,1.5,3,W
hite);LOCAL dx:=5,dy:=30,dyy:=0;END;zvfgk9()BEGIN LOCAL
j;RECT(White);LOCAL dx:=5,dy:=-20,dyy:=0;LOCAL
R_Met,R_Mo3D,R_Mo2D,R_Es3D,R_Es2D,R_AIs,R_TTA;R_TTA:={{0,dy+20},{32
0,dy+35}};RECT_P(R_TTA(1),R_TTA(2),AzulM);TEXTOUT_P(CHAR({32,67,65,76
,67,85,76,79,83,32,65,32,82,69,65,76,73,90,65,82,32}),R_TTA(1,1)+10,R_TTA(1,2)+2
,2,White);R_Met:={{10,dy+40},{100,dy+60}};RECT_P(R_Met(1),R_Met(2),16,Fondo
);TEXTOUT_P(""+CHAR({32,77,69,84,82,65,68,79,83}),R_Met(1,1)+5,R_Met(1,2)+5
,2,AzulB);RECT_P({R_Met(2,1),R_Met(1,2)},{R_Met(2,1)+35,R_Met(2,2)},16,Fondo
);TEXTOUT_P("",R_Met(2,1)+10,R_Met(1,2)-
1,5,AzulB);R_Mo3D:={{10,dy+60},{100,dy+80}};IF lagr5==1 AND qwr4==xpre1
THEN
RECT_P(R_Mo3D(1),R_Mo3D(2),16,Fondo);TEXTOUT_P(""+CHAR({32,77,79,68,6
5,76,32,51,68}),R_Mo3D(1,1)+5,R_Mo3D(1,2)+5,2,AzulB);RECT_P({R_Mo3D(2,1),
R_Mo3D(1,2)},{R_Mo3D(2,1)+35,R_Mo3D(2,2)},16,Fondo);TEXTOUT_P("",R_Mo3
D(2,1)+10,R_Mo3D(1,2)-1,5,AzulB);ELSE
RECT_P(R_Mo3D(1),R_Mo3D(2),16,PlomoA);TEXTOUT_P(""+CHAR({32,77,79,68
,65,76,32,51,68}),R_Mo3D(1,1)+5,R_Mo3D(1,2)+5,2,AzulA);RECT_P({R_Mo3D(2,1
),R_Mo3D(1,2)},{R_Mo3D(2,1)+35,R_Mo3D(2,2)},16,PlomoA);TEXTOUT_P("",R_
Mo3D(2,1)+12,R_Mo3D(1,2),5,AzulA);END;R_Mo2D:={{10,dy+80},{100,dy+100}};
IF lagr6==1 AND qwr4==xpre1 THEN
RECT_P(R_Mo2D(1),R_Mo2D(2),16,Fondo);TEXTOUT_P(""+CHAR({32,77,79,68,6
5,76,32,50,68}),R_Mo2D(1,1)+5,R_Mo2D(1,2)+5,2,AzulB);RECT_P({R_Mo2D(2,1),
R_Mo2D(1,2)},{R_Mo2D(2,1)+35,R_Mo2D(2,2)},16,Fondo);TEXTOUT_P("",R_Mo2
D(2,1)+10,R_Mo2D(1,2)-1,5,AzulB);ELSE
RECT_P(R_Mo2D(1),R_Mo2D(2),16,PlomoA);TEXTOUT_P(""+CHAR({32,77,79,68
,65,76,32,50,68}),R_Mo2D(1,1)+5,R_Mo2D(1,2)+5,2,AzulA);RECT_P({R_Mo2D(2,1
),R_Mo2D(1,2)},{R_Mo2D(2,1)+35,R_Mo2D(2,2)},16,PlomoA);TEXTOUT_P("",R_
Mo2D(2,1)+12,R_Mo2D(1,2),5,AzulA);END;R_Es3D:={{170,dy+40},{270,dy+60}};I
F lagr7==1 AND qwr4==xpre1 THEN
RECT_P(R_Es3D(1),R_Es3D(2),16,Fondo);TEXTOUT_P(""+CHAR({32,69,83,84,65,
84,73,67,79,32,51,68}),R_Es3D(1,1)+5,R_Es3D(1,2)+5,2,AzulB);RECT_P({R_Es3D(2
,1),R_Es3D(1,2)},{R_Es3D(2,1)+35,R_Es3D(2,2)},16,Fondo);TEXTOUT_P("",R_Es3
D(2,1)+10,R_Es3D(1,2)-1,5,AzulB);ELSE
RECT_P(R_Es3D(1),R_Es3D(2),16,PlomoA);TEXTOUT_P(""+CHAR({32,69,83,84,6
5,84,73,67,79,32,51,68}),R_Es3D(1,1)+5,R_Es3D(1,2)+5,2,AzulA);RECT_P({R_Es3D
(2,1),R_Es3D(1,2)},{R_Es3D(2,1)+35,R_Es3D(2,2)},16,PlomoA);TEXTOUT_P("",R_
Es3D(2,1)+12,R_Es3D(1,2),5,AzulA);END;R_Es2D:={{170,dy+60},{270,dy+80}};IF
lagr8==1 AND qwr4==xpre1 THEN
RECT_P(R_Es2D(1),R_Es2D(2),16,Fondo);RECT_P({R_Es2D(2,1),R_Es2D(1,2)},{R
_Es2D(2,1)+35,R_Es2D(2,2)},16,Fondo);TEXTOUT_P("",R_Es2D(2,1)+10,R_Es2D(1
,2)-1,5,AzulB);ELSE
RECT_P(R_Es2D(1),R_Es2D(2),16,PlomoA);RECT_P({R_Es2D(2,1),R_Es2D(1,2)},{
R_Es2D(2,1)+35,R_Es2D(2,2)},16,PlomoA);TEXTOUT_P("",R_Es2D(2,1)+12,R_Es2
D(1,2),5,AzulA);END;R_AIs:={{170,dy+80},{270,dy+100}};IF lagr9==1 AND
qwr4==xpre1 THEN
RECT_P(R_AIs(1),R_AIs(2),16,Fondo);TEXTOUT_P(""+CHAR({32,65,73,83,76,65,6
8,79,82,69,83}),R_AIs(1,1)+5,R_AIs(1,2)+5,2,AzulB);RECT_P({R_AIs(2,1),R_AIs(1,
2)},{R_AIs(2,1)+35,R_AIs(2,2)},16,Fondo);TEXTOUT_P("",R_AIs(2,1)+10,R_AIs(1,
2)-1,5,AzulB);ELSE
RECT_P(R_AIs(1),R_AIs(2),16,PlomoA);TEXTOUT_P(""+CHAR({32,65,73,83,76,65
,68,79,82,69,83}),R_AIs(1,1)+5,R_AIs(1,2)+5,2,AzulA);RECT_P({R_AIs(2,1),R_AIs(
1,2)},{R_AIs(2,1)+35,R_AIs(2,2)},16,PlomoA);TEXTOUT_P("",R_AIs(2,1)+12,R_AI
s(1,2),5,AzulA);END;LOCAL
R_Cal,R_TTB;R_Cal:={{110,dy+108},{200,dy+128}};RECT_P({R_Cal(1,1)-
1,R_Cal(1,2)-
1},{R_Cal(2,1)+1,R_Cal(2,2)+1},AzulM,Fondo);RECT_P({R_Cal(1,1),R_Cal(1,2)},{
R_Cal(2,1),R_Cal(2,2)},AzulM,Fondo);TEXTOUT_P("",R_Cal(1,1)+10,R_Cal(1,2)-
1,5,RedA);TEXTOUT_P(CHAR({67,65,76,67,85,76,65,82}),R_Cal(1,1)+28,R_Cal(1,2
)+5,2,AzulM);dy:=dy+128;TEXTOUT_P(CHAR({86,69,82,73,70,73,67,65,78,68,79,32
,67,65,76,67,85,76,79,83,32,58}),5,dy+6,2,AzulM);RECT_P({0,dy+17},{320,dy+19},
AzulM);RECT_P({0,237},{320,239},AzulM);LOCAL tt:=0.1;IF lagr10==1 AND
qwr4==xpre1 THEN dy:=dy+25;IFERR
RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(""+CHAR({68,105,114,101,99,9
9,105,111,110,32,88}),90,dy,2,AzulM);WAIT(tt);dfg4:=1;FOR j:=1 TO rtyh7 DO IF
expr19(j)==0 THEN
ldljt5(dfg4,j,j);RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({80,111,1
14,116,105,99,111,32})+j,90,dy,2,AzulM);WAIT(tt);END;END;THEN
RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32,
68,105,114,101,99,99,105,111,110,32,88}),90,dy,2,Red);WAIT(tt);END;IFERR
RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(""+CHAR({68,105,114,101,99,9
9,105,111,110,32,89}),90,dy,2,AzulM);WAIT(tt);dfg4:=2;FOR j:=1 TO rtyh8 DO IF
expr20(j)==0 THEN
ldljt5(dfg4,j,j);RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({80,111,1
14,116,105,99,111,32})+char(64+j),90,dy,2,AzulM);WAIT(tt);END;END;THEN
RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,101,116,114,97,100,
111,115,32,69,114,114,111,114}),90,dy,2,Red);WAIT(tt);END;IFERR
llfft11();RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,101,116,114
,97,100,111,115,32,79,75}),90,dy,2,AzulM);WAIT(tt);THEN
RECT_P({90,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32,
101,110,32,101,108,32,77,101,116,114,97,100,111,32,67,97,114,103,97,115}),90,dy,2,
Red);WAIT(tt);END;END;IF lagr5==1 AND lagr10==1 THEN
dy:=dy+17.5;xpe3:=3;IFERR
zvfgk7(xpe3,rtyh2);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,
97,116,114,105,122,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,
110}),130,dy,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,110}),130,dy,2,Red
M);WAIT(tt);END;dfg4:=1;IFERR FOR j:=1 TO rtyh7 DO IF expr19(j)==0 AND
qwr4==xpre1 THEN
zvfgk8(dfg4,j,j);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({80,111
,114,116,105,99,111,32})+j,130,dy,2,AzulM);WAIT(tt);END;END;pxtrf8(dfg4,xpe3);
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,82,105,103,105,100,101,122,32,88}),130,dy,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,82,105,103,105,100,101,122,32,88}),130,dy,2,RedM);WAIT(tt);END;d
fg4:=2;IFERR FOR j:=1 TO rtyh8 DO IF expr20(j)==0 THEN
zvfgk8(dfg4,j,j);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({80,111
,114,116,105,99,111,32})+char(64+j),130,dy,2,AzulM);WAIT(tt);END;END;pxtrf8(df
g4,xpe3);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,11
4,105,122,32,100,101,32,82,105,103,105,100,101,122,32,89}),130,dy,2,AzulM);WAIT
(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,82,105,103,105,100,101,122,32,89}),130,dy,2,RedM);WAIT(tt);END;I
FERR
ixpr5:=ixpr3+ixpr4;RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,
97,116,114,105,122,32,100,101,32,82,105,103,105,100,101,122,32,101,110,32,67,46,8
0,46}),130,dy,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,82,105,103,105,100,101,122,32,101,110,32,67,46,80,46}),130,dy,2,Red
M);WAIT(tt);END;IFERR
ffllq7(xpe3);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,
114,105,122,32,100,101,32,77,97,115,97,46,46,46}),130,dy,2,AzulM);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,105,122
,32,100,101,32,77,97,115,97}),130,dy,2,RedM);END;IFERR
rtyh9:=3;RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({65,110,97,10
8,105,115,105,115,32,68,105,110,97,109,105,99,111,46,46,46}),130,dy,2,AzulM);ffllq
8(xpe3,rtyh9,CHAR({115,101}),CHAR({97,108}));RECT_P({130,dy},{320,dy+17},W
hite);TEXTOUT_P(CHAR({65,110,97,108,105,115,105,115,32,68,105,110,97,109,105
,99,111,32,79,75}),130,dy,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32
,65,110,97,108,105,115,105,115,32,68,105,110,97,109,105,99,111}),130,dy,2,RedM);
WAIT(tt);END;END;IF lagr6==1 AND lagr10==1 THEN LOCAL
at:=CHAR({97,108});dy:=dy+17.5;TEXTOUT_P(""+CHAR({32,65,110,97,108,105,11
5,105,115,32,77,111,100,97,108,32,50,68,32,58,32}),8,dy,2,AzulTit);IFERR
fldth8(1);fldth8(2);RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,
97,116,114,105,122,32,100,101,32,82,105,103,105,100,101,122,32,88,46,46,46}),130,d
y,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32
,101,110,32,77,97,116,114,105,99,101,115,32,100,101,32,82,105,103,105,100,101,99,1
01,115}),130,dy,2,RedM);WAIT(tt);END;IFERR
ftyul8();RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,114,
105,122,32,100,101,32,77,97,115,97,46,46,46}),130,dy,2,AzulM);
THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32
,77,97,116,114,105,122,32,100,101,32,77,97,115,97}),130,dy,2,RedM);END;IFERR
rtyh9:=3;LOCAL
bt:=CHAR({115,101});RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR(
{65,110,97,108,105,115,105,115,32,77,111,100,97,108,32,80,108,97,110,111,46,46,46
}),130,dy,2,AzulM);qljgt8(CHAR({105}),at,bt);RECT_P({130,dy},{320,dy+17},White
);TEXTOUT_P(CHAR({65,110,97,108,105,115,105,115,32,77,111,100,97,108,32,80,1
08,97,110,111,32,79,75}),130,dy,2,AzulM);WAIT(tt);THEN
RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({69,114,114,111,114,32
,65,110,97,108,105,115,105,115,32,77,111,100,97,108,32,80,108,97,110,111}),130,dy,
2,RedM);WAIT(tt);END;END;IF lagr7==1 AND lagr10==1 THEN
dy:=dy+17.5;TEXTOUT_P(""+CHAR({32,65,110,97,108,105,115,105,115,32,69,115,1
16,97,116,105,99,111,32,51,68,32,58,32}),8,dy,2,AzulTit);END;IF lagr8==1 AND
lagr10==1 THEN
dy:=dy+17.5;TEXTOUT_P(""+CHAR({32,65,110,97,108,105,115,105,115,32,69,115,1
16,97,116,105,99,111,32,50,68,32,58,32}),8,dy,2,AzulTit);END;IF lagr9==1 AND
lagr10==1 THEN
dy:=dy+17.5;TEXTOUT_P(""+CHAR({32,65,110,97,108,105,115,105,115,32,99,111,1
10,32,65,105,115,108,97,100,111,114,101,115,32,100,101,32,66,97,115,101,32,58,32})
,8,dy,2,AzulTit);END;lagr10:=0;LOCAL mx,my;REPEAT Accion:=B→R(WAIT(-
1));CASE IF TYPE(Accion)==6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF R_Cal(1,1)<mx<R_Cal(2,1)AND
R_Cal(1,2)<my<R_Cal(2,2)THEN lagr10:=1;zvfgk9();yyhte7;BREAK;END;IF
R_Mo3D(1,1)<mx<R_Mo3D(2,1)AND R_Mo3D(1,2)<my<R_Mo3D(2,2)THEN IF
lagr5==1 THEN lagr5:=0;ELSE lagr5:=1;
END;zvfgk9();yyhte7;BREAK;END;IF R_Mo2D(1,1)<mx<R_Mo2D(2,1)AND
R_Mo2D(1,2)<my<R_Mo2D(2,2)THEN IF lagr6==1 THEN lagr6:=0;ELSE
lagr6:=1;END;zvfgk9();yyhte7;BREAK;END;IF R_Es3D(1,1)<mx<R_Es3D(2,1)AND
R_Es3D(1,2)<my<R_Es3D(2,2)THEN IF lagr7==1 THEN lagr7:=0;ELSE
lagr7:=1;END;zvfgk9();yyhte7;BREAK;END;IF R_Es2D(1,1)<mx<R_Es2D(2,1)AND
R_Es2D(1,2)<my<R_Es2D(2,2)THEN IF lagr8==1 THEN lagr8:=0;ELSE
lagr8:=1;END;zvfgk9();yyhte7;BREAK;END;IF R_AIs(1,1)<mx<R_AIs(2,1)AND
R_AIs(1,2)<my<R_AIs(2,2)THEN IF lagr9==1 THEN lagr9:=0;ELSE
lagr9:=1;END;zvfgk9();yyhte7;BREAK;END;END;END;END;IF TYPE(Accion)==0
AND qwr4==xpre1 THEN CASE IF ISKEYDOWN(30)THEN BREAK;END;IF
ISKEYDOWN(3)THEN BREAK;END;IF ISKEYDOWN(4)THEN
BREAK;END;END;END;END;UNTIL 0;END;llfft11()BEGIN LOCAL
j,i,hp,mCol:={},mVig:={},mAlb:={};IF dfg5==2 THEN CASE IF tgh4==1.5 OR
tgh4==1.3 THEN FOR j:=1 TO rtyh2-1 DO fjlt1(j):=0.5*cba1(j);END;END;IF
tgh4==1.0 THEN FOR j:=1 TO rtyh2-1 DO fjlt1(j):=0.25*cba1(j);END;END;IF
tgh4==0.8 THEN FOR j:=1 TO rtyh2-1 DO
fjlt1(j):=0.25*cba1(j);END;END;END;fjlt1(rtyh2):=0.25*cba1(rtyh2);FOR j:=1 TO
rtyh2 DO
abd5(j,1):=(fjlt1(j)+dfg10(j))/1000;END;abd6:=(ΣLIST(fjlt1)+ΣLIST(dfg10))/1000;EL
SE IF liev13==0 AND qwr4==xpre1 THEN FOR j:=1 TO rowDim(abd10)DO IF j==1
THEN hp:=rtyh3;ELSE
hp:=rtyh4;END;mCol(j):=abd10(j,2)*abd10(j,3)*abd10(j,6)*hp;END;FOR j:=1 TO
rowDim(expr3)DO mVig(j):=expr3(j,2)*expr3(j,3)*expr3(j,8)*expr3(j,9);END;IF
expr15(1,1)==0 THEN mAlb(1):=0;ELSE FOR j:=1 TO rowDim(expr15)DO
mAlb(j):=expr15(j,2)*expr15(j,10)*expr15(j,9)*expr15(j,4);END;END;FOR i:=1 TO
rtyh2 DO
fjlt3(i):=ΣLIST(mCol);fjlt4(i):=ΣLIST(mVig);fjlt5(i):=ΣLIST(mAlb);fjlt2(i):=dfg8(dfg
9)*abd1;END;ELSE LOCAL GEAlbMB,GEVigMB,GEColMB;FOR i:=1 TO rtyh2
DO GEAlbMB:=expr16(i);GEVigMB:=expr4(i);GEColMB:=bdc1(i);FOR j:=1 TO
rowDim(GEColMB)DO IF j==1 THEN hp:=rtyh3;ELSE
hp:=rtyh4;END;mCol(j):=GEColMB(j,2)*GEColMB(j,3)*GEColMB(j,6)*hp;END;fjlt3
(i):=ΣLIST(mCol);FOR j:=1 TO rowDim(GEVigMB)DO
mVig(j):=GEVigMB(j,2)*GEVigMB(j,3)*GEVigMB(j,8)*GEVigMB(j,9);END;fjlt4(i):
=ΣLIST(mVig);IF GEAlbMB(1,1)==0 THEN mAlb(1):=0;ELSE FOR j:=1 TO
rowDim(GEAlbMB)DO
mAlb(j):=GEAlbMB(j,2)*GEAlbMB(j,10)*GEAlbMB(j,9)*GEAlbMB(j,4);END;END;
fjlt5(i):=ΣLIST(mAlb);END;fjlt7:=ΣLIST(fjlt3);fjlt6:=ΣLIST(fjlt4);fjlt8:=ΣLIST(fjlt5);
FOR j:=1 TO rtyh2 DO fjlt2(j):=dfg8(dfg9)*abd1;END;LOCAL suma:=0;FOR j:=1 TO
rtyh2 DO suma:=dfg10(j)+fjlt1(j)+suma;END;abd6:=suma/1000;END;FOR j:=1 TO
rtyh2 DO dfg10(j):=(fjlt3(j)+fjlt4(j)+dfg7(j)+fjlt2(j)+fjlt5(j))/1;END;FOR j:=1 TO
rtyh2 DO cba1(j):=(dfg6(j)*abd1)/1;END;CASE IF tgh4==1.5 OR tgh4==1.3 THEN
FOR j:=1 TO rtyh2-1 DO fjlt1(j):=0.5*cba1(j);END;END;IF tgh4==1.0 AND
qwr4==xpre1 THEN FOR j:=1 TO rtyh2-1 DO fjlt1(j):=0.25*cba1(j);END;END;IF
tgh4==0.8 AND qwr4==xpre1 THEN FOR j:=1 TO rtyh2-1 DO
fjlt1(j):=0.25*cba1(j);END;END;END;fjlt1(rtyh2):=0.25*cba1(rtyh2);FOR j:=1 TO
rtyh2 DO abd5(j,1):=(fjlt1(j)+dfg10(j))/1000;END;LOCAL suma:=0;FOR j:=1 TO
rtyh2 DO
suma:=dfg10(j)+fjlt1(j)+suma;END;abd6:=suma/1000;END;END;asdf1()BEGIN
RunElem:=0;IF T==1 THEN
RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(1),115,108,1,Col148);L0:={};Nu
evo:=1;vc:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M
2;L0(6):=M3;RECT_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTO
UT_P(lntx(2),85,108,1,Col148);Datsbmq17();RECT_P(70,122,115,128,Col3);RECT_P
(68,105,252,118,Col130);TEXTOUT_P(lntx(3),115,108,1,Col148);RECT_P(70,122,13
7,128,Col3);L0(7):=vc;RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(4),70,108,
1,Col148);Ensb();RECT_P(70,122,160,128,Col3);RECT_P(68,105,252,118,Col130);T
EXTOUT_P(lntx(5),70,108,1,Col148);RSep();RECT_P(70,122,182,128,Col3);RECT_P
(68,105,252,118,Col130);TEXTOUT_P(lntx(6),120,108,1,Col148);RECT_P(70,122,20
5,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(7),120,108,1,Col148
);RECT_P(70,122,227,128,Col3);END;IF T==3 THEN
RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(1),115,108,1,Col148);L0:={};Nu
evo:=1;vc:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M
2;L0(6):=M3;RECT_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTO
UT_P(lntx(2),85,108,1,Col148);wdccal1();RECT_P(70,122,115,128,Col3);RECT_P(68
,105,252,118,Col130);TEXTOUT_P(lntx(3),115,108,1,Col148);wdccal11();RECT_P(7
0,122,137,128,Col3);L0(7):=vc;RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(4
),70,108,1,Col148);Ensb();RECT_P(70,122,160,128,Col3);RECT_P(68,105,252,118,C
ol130);TEXTOUT_P(lntx(5),70,108,1,Col148);RSep();RECT_P(70,122,182,128,Col3);
RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(6),120,108,1,Col148);RECT_P(7
0,122,205,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(7),120,108,
1,Col148);RECT_P(70,122,227,128,Col3);END;END;Prb:={"䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨
䴤","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䴚䴣䳕䳺䴡䴚䴢䴚䴣","䴂䴖䴩䴧䴞
䴯䳻䴪䴚䴧䴯䴖䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴣䴙䴤䳕䴂䳕䴙䴚䳕䴇䴞䴜䴯䳕䳼䴡䴤䴗
䴖䴡","䳾䴣䴫䴚䴧䴨䴖䳕䴙䴚䳕䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䳼䴡䴤
䴗䴖䴡","䳹䴚䴨䴥䴡䴖䴯䴖䴢䴞䴚䴣䴩䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖
䴨","䳺䴘䴪䴖䴘䴞䴤䴣䴚䴨"};echret121()BEGIN
RunElem:=1;L0:={};T:=3;Nuevo:=1;vc:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;
L0(3):=N;L0(4):=B;L0(5):=M2;L0(6):=M3;wdccal1();wdccal11();L0(7):=vc;Ensb();RS
ep();END;FCAE2D()BEGIN END;qljgt8(bb,cc,dd)BEGIN LOCAL
rtyh9:=2,j,aa:=CHAR({114}),deck:=zsc3;aa:=aa+bb;LOCAL
EV2X:=jjrtg7(zsc5,zsc6,aa,dd,cc,deck);LOCAL
EV2Y:=jjrtg7(zsc4,zsc6,aa,dd,cc,deck);zsc7:=hdljt2(EV2X(2),rtyh9);zsc8:=hdljt2(EV2
Y(2),rtyh9);zsc9:=ldljtr2(EV2X(1),rtyh9);zsc10:=ldljtr2(EV2Y(1),rtyh9);zsc11:=MAK
EMAT(0,rtyh2,3);zsc12:=MAKEMAT(0,rtyh2,3);FOR j:=1 TO rtyh2 DO
zsc11(j,1):=zsc9(j);zsc11(j,2):=sqrt(ABS(zsc11(j,1)));zsc11(j,3):=2*PI/zsc11(j,2);zsc12
(j,1):=zsc10(j);zsc12(j,2):=sqrt(ABS(zsc12(j,1)));zsc12(j,3):=2*PI/zsc12(j,2);END;zsc1
1:=hdljt2(zsc11,rtyh9);zsc12:=hdljt2(zsc12,rtyh9);LOCAL
bb,PA,Num,NUM_x:={},DEN_x:={},NUM_y:={},DEN_y:={};bb:=MAKEMAT(1,rty
h2,1);FOR j:=1 TO rtyh2 DO
PA:=TRN(SUB(zsc7,{1,j},{rtyh2,j}));Num:=PA*zsc6*bb;NUM_x(j):=Num(1,1);Num:
=PA*zsc6*TRN(PA);DEN_x(j):=Num(1,1);PA:=TRN(SUB(zsc8,{1,j},{rtyh2,j}));Num
:=PA*zsc6*bb;NUM_y(j):=Num(1,1);Num:=PA*zsc6*TRN(PA);DEN_y(j):=Num(1,1)
;END;FOR j:=1 TO rtyh2 DO zsc13(j,1):=ABS(NUM_x(j)/DEN_x(j));END;FOR j:=1
TO rtyh2 DO
zsc13(j,2):=ABS(NUM_y(j)/DEN_y(j));END;zsc13:=hdljt2(zsc13,3);LOCAL
CDX,CDY;CDX:=MAKEMAT(0,rtyh2);CDY:=MAKEMAT(0,rtyh2);FOR j:=1 TO
rtyh2 DO CASE IF zsc11(j,3)<xpe1 AND qwr4==xpre1 THEN CDX(j):=2.5;END;IF
zsc11(j,3)<xpe2 AND zsc11(j,3)>xpe1 THEN CDX(j):=2.5*(xpe1/zsc11(j,3));END;IF
zsc11(j,3)>xpe2 AND qwr4==xpre1 THEN
CDX(j):=2.5*(xpe1*xpe2)/(zsc11(j,3)^2);END;END;CASE IF zsc12(j,3)<xpe1 AND
qwr4==xpre1 THEN CDY(j):=2.5;END;IF zsc12(j,3)<xpe2 AND zsc12(j,3)>xpe1
THEN CDY(j):=2.5*(xpe1/zsc12(j,3));END;IF zsc12(j,3)>xpe2 AND qwr4==xpre1
THEN CDY(j):=2.5*(xpe1*xpe2)/(zsc12(j,3)^2);END;END;END;LOCAL
p,k;p:=1;FOR j:=1 TO rtyh2 DO FOR k:=1 TO rtyh2 DO IF
zsc13(p,1)<zsc13(k,1)THEN p:=k;BREAK(1);END;END;END;zsc14:=zsc11(p,3);FOR
j:=1 TO rtyh2 DO FOR k:=1 TO rtyh2 DO IF zsc13(p,2)<zsc13(k,2)THEN
p:=k;BREAK(1);END;END;END;zsc15:=zsc12(p,3);LOCAL
Sa_x:=MAKEMAT(0,rtyh2);LOCAL Sa_y:=MAKEMAT(0,rtyh2);FOR j:=1 TO rtyh2
DO
Sa_x(j):=(tgh2*tgh4*CDX(j)*tgh3)/(tgh7)*pft3;Sa_y(j):=(tgh2*tgh4*CDY(j)*tgh3)/(tg
h8)*pft3;END;zxp1:=MAKEMAT(0,rtyh2);zxp2:=MAKEMAT(0,rtyh2);FOR j:=1 TO
rtyh2 DO IF(CDX(j)/tgh7)>=0.125 THEN zxp1(j):=1;ELSE
zxp1(j):=0;END;IF(CDY(j)/tgh8)>=0.125 THEN zxp2(j):=1;ELSE
zxp2(j):=0;END;END;FOR j:=1 TO rtyh2 DO
zxp5(j,1):=j;zxp5(j,2):=zsc11(j,3);zxp5(j,3):=CDX(j);zxp5(j,4):=Sa_x(j);zxp5(j,5):=zxp
1(j);zxp6(j,1):=j;zxp6(j,2):=zsc12(j,3);zxp6(j,3):=CDY(j);zxp6(j,4):=Sa_y(j);zxp6(j,5):
=zxp2(j);END;zxp5:=hdljt2(zxp5,rtyh9);zxp6:=hdljt2(zxp6,rtyh9);LOCAL k,r;LOCAL
ixpr19:=[0],ixpr20:=[0];LOCAL k_x:=0,k_y:=0;FOR j:=1 TO rtyh2 DO IF
zsc13(j,1)<>0 AND qwr4==xpre1 THEN k_x:=k_x+1;ixpr19(k_x):=j;END;IF
zsc13(j,2)<>0 THEN k_y:=k_y+1;ixpr20(k_y):=j;END;END;LOCAL
b:=1,a:=1,Mod:=[0],Q,Suma;zxp7:=MAKEMAT(0,rtyh2+1,k_x);FOR j:=1 TO k_x DO
Suma:=0;a:=ixpr19(j);FOR k:=1 TO rtyh2 DO
Mod(k):=zsc7(k,a);END;Q:=Sa_x(a)*zsc13(a,1)*zsc6*Mod;FOR k:=1 TO rtyh2 DO
Suma:=Q(k)+Suma;zxp7(k,j):=Q(k);END;zxp7(rtyh2+1,j):=Suma;END;Mod:=[0];Q:=[
0];zxp8:=MAKEMAT(0,rtyh2+1,k_y);FOR j:=1 TO k_y DO
Suma:=0;a:=ixpr20(j);FOR k:=1 TO rtyh2 DO
Mod(k):=zsc8(k,a);END;Q:=Sa_y(a)*zsc13(a,2)*zsc6*Mod;FOR k:=1 TO rtyh2 DO
Suma:=Q(k)+Suma;zxp8(k,j):=Q(k);END;zxp8(rtyh2+1,j):=Suma;END;zxp7:=hdljt2(z
xp7,rtyh9);zxp8:=hdljt2(zxp8,rtyh9);zxp9:=MAKEMAT(0,rtyh2,k_x);FOR j:=1 TO
k_x DO a:=rtyh2;Suma:=0;FOR k:=1 TO rtyh2 DO
Suma:=zxp7(a,j)+Suma;zxp9(a,j):=Suma;a:=a-
1;END;END;zxp10:=MAKEMAT(0,rtyh2,k_y);FOR j:=1 TO k_y DO
a:=rtyh2;Suma:=0;FOR k:=1 TO rtyh2 DO
Suma:=zxp8(a,j)+Suma;zxp10(a,j):=Suma;a:=a-
1;END;END;zxp10:=hdljt2(zxp10,rtyh9);zxp10:=hdljt2(zxp10,rtyh9);zxp11:=MAKEM
AT(0,rtyh2,2);LOCAL V1,V2;FOR j:=1 TO rtyh2 DO V1:=0;V2:=0;FOR k:=1 TO k_x
DO
V1:=abs(zxp9(j,k))+V1;V2:=zxp9(j,k)^2+V2;END;zxp11(j,1):=0.25*V1+0.75*sqrt(V2
);END;V1:=0;a:=1;zxp11(rtyh2,2):=zxp11(rtyh2,1);FOR j:=1 TO rtyh2-1 DO
V1:=zxp11(a,1)-
zxp11(a+1,1);zxp11(a,2):=V1;a:=a+1;END;zxp12:=MAKEMAT(0,rtyh2,2);LOCAL
V1,V2;FOR j:=1 TO rtyh2 DO V1:=0;V2:=0;FOR k:=1 TO k_y DO
V1:=abs(zxp10(j,k))+V1;V2:=zxp10(j,k)^2+V2;END;zxp12(j,1):=0.25*V1+0.75*sqrt(
V2);END;V1:=0;a:=1;zxp12(rtyh2,2):=zxp12(rtyh2,1);FOR j:=1 TO rtyh2-1 DO
V1:=zxp12(a,1)-zxp12(a+1,1);zxp12(a,2):=V1;a:=a+1;END;CASE IF zsc14<xpe1
AND qwr4==xpre1 THEN zxp3:=2.5;END;IF zsc14<xpe2 AND zsc14>xpe1 THEN
zxp3:=2.5*(xpe1/zsc14);END;IF zsc14>xpe2 AND qwr4==xpre1 THEN
zxp3:=2.5*(xpe1*xpe2)/(zsc14^2);END;END;CASE IF zsc15<xpe1 AND
qwr4==xpre1 THEN zxp4:=2.5;END;IF zsc15<xpe2 AND zsc15>xpe1 THEN
zxp4:=2.5*(xpe1/zsc15);END;IF zsc15>xpe2 THEN
zxp4:=2.5*(xpe1*xpe2)/(zsc15^2);END;END;LOCAL
Vmx=(tgh2*tgh4*zxp3*tgh3)/(tgh7)*abd6;LOCAL
Vmy:=(tgh2*tgh4*zxp4*tgh3)/(tgh8)*abd6;zxp15:=Vmx;zxp16:=Vmy;zxp13:=zxp11(r
tyh2,1);zxp14:=zxp12(rtyh2,1);zxp11:=hdljt2(zxp11,rtyh9);zxp12:=hdljt2(zxp12,rtyh9);
LOCAL VerfCB_x;IF zxp13>=0.8*Vmx AND qwr4==xpre1 THEN
VerfCB_x:=1;ELSE VerfCB_x:=0;END;LOCAL VerfCB_y;IF zxp14>=0.8*Vmy
AND qwr4==xpre1 THEN VerfCB_y:=1;ELSE VerfCB_y:=0;END;LOCAL
Fta_x,Fta_y;Fta_x:=MAKEMAT(0,rtyh2);Fta_y:=MAKEMAT(0,rtyh2);FOR j:=1 TO
rtyh2 DO
Fta_x(j):=zxp11(j,2);Fta_y(j):=zxp12(j,2);END;zxp17:=MAKEMAT(0,rtyh2,1);zxp18:
=MAKEMAT(0,rtyh2,1);LOCAL
qexp:=MAKEMAT(0,rtyh2);qexp:=Fta_x*inv(zsc5);LOCAL
qeyp:=MAKEMAT(0,rtyh2);qeyp:=Fta_y*inv(zsc4);FOR j:=1 TO rtyh2 DO
zxp17(j,1):=qexp(j)*100;zxp18(j,1):=qeyp(j)*100;END;zxp17:=hdljt2(zxp17,4);zxp18:
=hdljt2(zxp18,4);zxp19:=MAKEMAT(0,rtyh2,1);zxp19:=0.75*tgh7*zxp17;zxp20:=M
AKEMAT(0,rtyh2,1);
zxp20:=0.75*tgh8*zxp18;zxp19:=hdljt2(zxp19,4);zxp20:=hdljt2(zxp20,4);LOCAL
Dr_x,Dr_y;ixpr1:=MAKEMAT(0,rtyh2,4);ixpr2:=MAKEMAT(0,rtyh2,4);FOR j:=1 TO
rtyh2 DO IF j==1 AND qwr4==xpre1 THEN Dr_x:=zxp19(j,1);Dr_y:=zxp20(j,1);ELSE
Dr_x:=zxp19(j,1)-zxp19(j-1,1);Dr_y:=zxp20(j,1)-zxp20(j-
1,1);END;ixpr1(j,1):=Dr_x;ixpr2(j,1):=Dr_y;ixpr1(j,2):=Dr_x/(rtyh10(j)*100);ixpr2(j,2
):=Dr_y/(rtyh10(j)*100);ixpr1(j,3):=0.007;ixpr2(j,3):=0.007;END;FOR j:=1 TO rtyh2
DO IF ixpr1(j,2)<=ixpr1(j,3)THEN ixpr1(j,4):=1;ELSE ixpr1(j,4):=0;END;IF
ixpr2(j,2)<=ixpr2(j,3)THEN ixpr2(j,4):=1;ELSE
ixpr2(j,4):=0;END;END;ixpr1:=hdljt2(ixpr1,rtyh9);ixpr2:=hdljt2(ixpr2,rtyh9);END;fldt
h8(dfg4)BEGIN LOCAL CNG,RL_Port:=[[0]];LOCAL m,j,vER;LOCAL
Suma:=[[0]];Suma:=MAKEMAT(0,rtyh2,rtyh2);IF dfg4==1 AND qwr4==xpre1 THEN
CNG:=rtyh7;vER:=expr19;ELSE CNG:=rtyh8;vER:=expr20;END;IFERR FOR j:=1
TO CNG DO IF dfg4==1 AND qwr4==xpre1 THEN IF expr19(j)==0 THEN
zvfgk8(dfg4,j,j);END;ELSE IF expr20(j)==0 THEN
zvfgk8(dfg4,j,j);END;END;END;THEN END;FOR m:=1 TO CNG DO IF dfg4==1
AND qwr4==xpre1 THEN RL_Port:=xpre11(m);Suma:=Suma+RL_Port;ELSE
RL_Port:=xpre10(m);Suma:=Suma+RL_Port;END;END;IF dfg4==1 AND
qwr4==xpre1 THEN zsc5:=Suma;ELSE zsc4:=Suma;END;END;ftyul8()BEGIN
zsc6:=MAKEMAT(0,rtyh2,rtyh2);FOR j:=1 TO rtyh2 DO
zsc6(j,j):=abd5(j,1)/pft3;END;END;ffllq8(xpe3,rtyh9,Ja,Jd)BEGIN LOCAL
Tipo:=1,Tex:=CHAR({114,105}),Ra:=zsc3;LOCAL
EV:=jjrtg7(ixpr5,ixpr6,Tex,Ja,Jd,Ra);ixpr9:=hdljt2(EV(2),rtyh9);ixpr10:=ldljtr2(EV(1),
rtyh9);ixpr11:=MAKEMAT(0,xpe3*rtyh2,3);FOR j:=1 TO 3*rtyh2 DO
ixpr11(j,1):=ixpr10(j);ixpr11(j,2):=sqrt(ABS(ixpr11(j,1)));ixpr11(j,3):=2*PI/ixpr11(j,2);
END;ixpr11:=hdljt2(ixpr11,rtyh9);LOCAL
bb,cer,m,k,i;ixpr12:=MAKEMAT(0,xpe3*rtyh2,1);ixpr13:=MAKEMAT(0,xpe3*rtyh2,
1);bb:=MAKEMAT(1,1,rtyh2);cer:=MAKEMAT(0,1,rtyh2);FOR j:=1 TO rtyh2 DO
bb(1,j):=1;cer(1,j):=0;END;bb:=TRN(bb);cer:=TRN(cer);m:=0;FOR j:=1 TO xpe3 DO
FOR k:=1 TO rtyh2 DO IF j>1 AND qwr4==xpre1 THEN
ixpr12(j+m,1):=cer(k,1);ELSE ixpr12(j+m,1):=bb(k,1);END;m:=m+1;END;m:=m-
1;END;bb:=MAKEMAT(1,1,rtyh2);cer:=MAKEMAT(0,1,rtyh2);FOR j:=1 TO rtyh2
DO bb(1,j):=1;cer(1,j):=0;END;bb:=TRN(bb);cer:=TRN(cer);m:=0;FOR j:=1 TO xpe3
DO FOR k:=1 TO rtyh2 DO IF j>1 THEN ixpr13(j+m,1):=bb(k,1);ELSE
ixpr13(j+m,1):=cer(k,1);END;m:=m+1;END;m:=m-1;END;LOCAL
NUM_x,DEN_x,NUM_y,DEN_y;NUM_x:=(TRN(ixpr9)*ixpr6)*ixpr12;DEN_x:=diag(
TRN(ixpr9)*ixpr6*ixpr9);NUM_y:=(TRN(ixpr9)*ixpr6)*ixpr13;DEN_y:=diag(TRN(ix
pr9)*ixpr6*ixpr9);FOR j:=1 TO xpe3*rtyh2 DO
ixpr14(j,1):=ABS(NUM_x(j)/DEN_x(j));END;
FOR j:=1 TO xpe3*rtyh2 DO
ixpr14(j,2):=ABS(NUM_y(j)/DEN_y(j));END;ixpr14:=hdljt2(ixpr14,rtyh9);LOCAL
CD;CD:=MAKEMAT(0,xpe3*rtyh2);FOR j:=1 TO xpe3*rtyh2 DO CASE IF
ixpr11(j,3)<xpe1 THEN CD(j):=2.5;END;IF ixpr11(j,3)<xpe2 AND ixpr11(j,3)>xpe1
THEN CD(j):=2.5*(xpe1/ixpr11(j,3));END;IF ixpr11(j,3)>xpe2 THEN
CD(j):=2.5*(xpe1*xpe2)/(ixpr11(j,3)^2);END;END;END;LOCAL p,k;p:=1;FOR j:=1
TO xpe3*rtyh2 DO FOR k:=1 TO xpe3*rtyh2 DO IF ixpr14(p,1)<ixpr14(k,1)THEN
p:=k;BREAK(1);END;END;END;jliu4:=ixpr11(p,3);LOCAL
Sa_x:=MAKEMAT(0,xpe3*rtyh2);LOCAL Sa_y:=MAKEMAT(0,xpe3*rtyh2);FOR
j:=1 TO xpe3*rtyh2 DO
Sa_x(j):=(tgh2*tgh4*CD(j)*tgh3)/(tgh7)*pft3;Sa_y(j):=(tgh2*tgh4*CD(j)*tgh3)/(tgh8)
*pft3;END;ixpr15:=MAKEMAT(0,xpe3*rtyh2);ixpr16:=MAKEMAT(0,xpe3*rtyh2);F
OR j:=1 TO xpe3*rtyh2 DO IF(CD(j)/tgh7)>=0.125 THEN ixpr15(j,1):=1;ELSE
ixpr15(j,1):=0;END;IF(CD(j)/tgh8)>=0.125 THEN ixpr16(j):=1;ELSE
ixpr16(j):=0;END;END;FOR j:=1 TO xpe3*rtyh2 DO
ixpr17(j,1):=j;ixpr17(j,2):=ixpr11(j,3);ixpr17(j,3):=CD(j);ixpr17(j,4):=Sa_x(j);ixpr17(j,
5):=ixpr15(j);ixpr18(j,1):=j;ixpr18(j,2):=ixpr11(j,3);ixpr18(j,3):=CD(j);ixpr18(j,4):=Sa_
y(j);ixpr18(j,5):=ixpr16(j);END;ixpr17:=hdljt2(ixpr17,rtyh9);ixpr18:=hdljt2(ixpr18,rtyh
9);LOCAL k,r;LOCAL k_x:=0,k_y:=0;FOR j:=1 TO xpe3*rtyh2 DO IF ixpr14(j,1)<>0
THEN k_x:=k_x+1;ixpr19(k_x):=j;END;IF ixpr14(j,2)<>0 THEN
k_y:=k_y+1;ixpr20(k_y):=j;END;END;LOCAL
b:=1,a:=1,Mod:=[0],Q,Suma;jksd1:=MAKEMAT(0,xpe3*rtyh2+1,k_x);FOR j:=1 TO
k_x DO Suma:=0;a:=ixpr19(j);FOR k:=1 TO xpe3*rtyh2 DO
Mod(k):=ixpr9(k,a);END;Q:=Sa_x(a)*ixpr14(a,1)*ixpr6*Mod;FOR k:=1 TO
xpe3*rtyh2 DO
Suma:=Q(k)+Suma;jksd1(k,j):=Q(k);END;jksd1(xpe3*rtyh2+1,j):=Suma;END;Mod:=[
0];Q:=[[0]];jksd2:=MAKEMAT(0,xpe3*rtyh2+1,k_y);FOR j:=1 TO k_y DO
Suma:=0;a:=ixpr20(j);FOR k:=1 TO xpe3*rtyh2 DO
Mod(k):=ixpr9(k,a);END;Q:=Sa_y(a)*ixpr14(a,2)*ixpr6*Mod;FOR k:=1 TO
xpe3*rtyh2 DO
Suma:=Q(k)+Suma;jksd2(k,j):=Q(k);END;jksd2(xpe3*rtyh2+1,j):=Suma;END;jksd1:=
hdljt2(jksd1,rtyh9);jksd2:=hdljt2(jksd2,rtyh9);jksd3:=MAKEMAT(0,rtyh2,k_x);FOR
j:=1 TO k_x DO a:=rtyh2;Suma:=0;FOR k:=1 TO rtyh2 DO
Suma:=jksd1(a,j)+Suma;jksd3(a,j):=Suma;a:=a-
1;END;END;jksd4:=MAKEMAT(0,rtyh2,k_y);FOR j:=1 TO k_y DO
a:=2*rtyh2;b:=rtyh2;Suma:=0;FOR k:=1 TO rtyh2 DO
Suma:=jksd2(a,j)+Suma;jksd4(b,j):=Suma;a:=a-1;b:=b-
1;END;END;jksd3:=hdljt2(jksd3,rtyh9);jksd4:=hdljt2(jksd4,rtyh9);jksd5:=MAKEMAT
(0,rtyh2,2);LOCAL V1,V2;FOR j:=1 TO rtyh2 DO Suma:=0;V1:=0;V2:=0;FOR k:=1
TO k_x DO
V1:=abs(jksd3(j,k))+V1;V2:=jksd3(j,k)^2+V2;END;jksd5(j,1):=0.25*V1+0.75*sqrt(V2
);END;V1:=0;a:=1;jksd5(rtyh2,2):=jksd5(rtyh2,1);FOR j:=1 TO rtyh2-1 DO
V1:=jksd5(a,1)-
jksd5(a+1,1);jksd5(a,2):=V1;a:=a+1;END;jksd6:=MAKEMAT(0,rtyh2,2);LOCAL
V1,V2;FOR j:=1 TO rtyh2 DO Suma:=0;V1:=0;V2:=0;FOR k:=1 TO k_y DO
V1:=abs(jksd4(j,k))+V1;V2:=jksd4(j,k)^2+V2;END;jksd6(j,1):=0.25*V1+0.75*sqrt(V2
);END;V1:=0;a:=1;jksd6(rtyh2,2):=jksd6(rtyh2,1);FOR j:=1 TO rtyh2-1 DO
V1:=jksd6(a,1)-
jksd6(a+1,1);jksd6(a,2):=V1;a:=a+1;END;jksd5:=hdljt2(jksd5,rtyh9);jksd6:=hdljt2(jksd
6,rtyh9);LOCAL
CTAx,CTAy;CTAx:=llfft8(jksd5,pft4,qwr3,rtyh7,xpre14,xpre11,xpe3);jksd7:=CTAx(1)
;jksd7:=tdljt2(jksd7,rtyh9);jksd9:=CTAx(2);jksd9:=tdljt2(jksd9,rtyh9);jksd11:=CTAx(3
);jksd11:=hdljt2(jksd11,rtyh9);jksd13:=CTAx(4);jksd13:=hdljt2(jksd13,rtyh9);jksd15:=
CTAx(5);jksd15:=hdljt2(jksd15,rtyh9);CTAy:=llfft8(jksd6,pft5,qwr2,rtyh8,xpre15,xpre
10,xpe3);jksd8:=CTAy(1);jksd8:=tdljt2(jksd8,rtyh9);jksd10:=CTAy(2);jksd10:=tdljt2(j
ksd10,rtyh9);jksd12:=CTAy(3);jksd12:=hdljt2(jksd12,rtyh9);jksd14:=CTAy(4);jksd14:
=hdljt2(jksd14,rtyh9);jksd16:=CTAy(5);jksd16:=hdljt2(jksd16,rtyh9);LOCAL
FF;jksd17:=MAKEMAT(0,rtyh2,1);FF:=SUB(jksd5,{1,2},{rtyh2,2});jksd17:=FF+jksd
15;jksd17:=hdljt2(jksd17,rtyh9);jksd18:=MAKEMAT(0,rtyh2,1);FF:=SUB(jksd6,{1,2},
{rtyh2,2});jksd18:=FF+jksd16;jksd18:=hdljt2(jksd18,rtyh9);LOCAL
Sumb,V2:=0,V1:=0,a,b;jliu3:=MAKEMAT(0,rtyh2+1,2);a:=rtyh2;FOR j:=1 TO rtyh2
DO V1:=jksd17(a,1)+V1;V2:=jksd18(a,1)+V2;jliu3(a,1):=V1;jliu3(a,2):=V2;a:=a-
1;END;CASE IF jliu4<xpe1 THEN jliu5:=2.5;END;IF jliu4<xpe2 AND jliu4>xpe1
THEN jliu5:=2.5*(xpe1/jliu4);END;IF jliu4>xpe2 THEN
jliu5:=2.5*(xpe1*xpe2)/(jliu4^2);END;END;jliu6:=(tgh2*tgh4*jliu5*tgh3)/(tgh7)*abd6
;jliu7:=(tgh2*tgh4*jliu5*tgh3)/(tgh8)*abd6;jliu3(rtyh2+1,1):=jliu6;jliu3(rtyh2+1,2):=jli
u7;jliu3:=hdljt2(jliu3,rtyh9);jliu1:=jliu3(1,1);jliu2:=jliu3(1,2);LOCAL VerfCB_x;IF
jliu1>=0.8*jliu6 THEN VerfCB_x:=1;ELSE VerfCB_x:=0;END;LOCAL VerfCB_y;IF
jliu2>=0.8*jliu7 THEN VerfCB_y:=1;ELSE VerfCB_y:=0;END;LOCAL
Fta_x,Fta_y;Fta_x:=MAKEMAT(0,xpe3*rtyh2);Fta_y:=MAKEMAT(0,xpe3*rtyh2);FO
R j:=1 TO xpe3*rtyh2 DO IF j<rtyh2+1 THEN
Fta_x(j):=jksd17(j,1);Fta_y(j):=jksd18(j,1);ELSE
Fta_x(j):=0;Fta_y(j):=0;END;END;LOCAL
qexp:=MAKEMAT(0,xpe3*rtyh2);qexp:=Fta_x*inv(ixpr5);LOCAL
qeyp:=MAKEMAT(0,xpe3*rtyh2);qeyp:=Fta_y*inv(ixpr5);FOR j:=1 TO xpe3*rtyh2
DO
jliu8(j):=qexp(j)*100;jliu9(j):=qeyp(j)*100;END;jliu8:=tdljt2(jliu8,rtyh9);jliu9:=tdljt2(j
liu9,rtyh9);LOCAL
qin_x,qin_y;jliu10:=MAKEMAT(0,xpe3*rtyh2);jliu10:=0.75*tgh7*jliu8;jliu11:=MAK
EMAT(0,xpe3*rtyh2);jliu11:=0.75*tgh8*jliu9;jliu10:=tdljt2(jliu10,rtyh9);jliu11:=tdljt2
(jliu11,rtyh9);LOCAL
Dr_x,Dr_y;jliu12:=MAKEMAT(0,rtyh2,4);jliu13:=MAKEMAT(0,rtyh2,4);FOR j:=1
TO rtyh2 DO IF j==1 AND qwr4==xpre1 THEN Dr_x:=jliu10(j);Dr_y:=jliu11(j);ELSE
Dr_x:=jliu10(j)-jliu10(j-1);Dr_y:=jliu11(j)-jliu11(j-
1);END;jliu12(j,1):=Dr_x;jliu13(j,1):=Dr_y;jliu12(j,2):=Dr_x/(rtyh10(j)*100);jliu13(j,2
):=Dr_y/(rtyh10(j)*100);jliu12(j,3):=0.007;jliu13(j,3):=0.007;END;FOR j:=1 TO rtyh2
DO IF jliu12(j,2)<=jliu12(j,3)THEN jliu12(j,4):=1;ELSE jliu12(j,4):=0;END;IF
jliu13(j,2)<=jliu13(j,3)THEN jliu13(j,4):=1;ELSE
jliu13(j,4):=0;END;END;jliu12:=hdljt2(jliu12,rtyh9);jliu13:=hdljt2(jliu13,rtyh9);END;
Datsbmq19()BEGIN
FILLPOLY_P({0,0,320,0,320,240,0,240},#000000h,200);RECT_P(40,40,280,155,RGB
(240,240,240));RECT_P(40,40,280,60,Col12);TEXTOUT_P(CHAR({65,66,79,85,84}),
55,47,2,Col133);TEXTOUT_P(CHAR({65,66,79,85,84}),55,47,2,Col133);TEXTOUT_
P(CHAR({80,114,111,103,114,97,109,97,32,112,97,114,97,32,101,108,32,65,110,225,
108,105,115,105,115,32,77,97,116,114,105,99,105,97,108,32,100,101,32,69,115,116,1
14,117,99,116,117,114,97,115}),46,65,1,RGB(0,0,0));TEXTOUT_P(CHAR({32,32,16
9,32,50,48,49,56,32,84,111,100,111,115,32,108,111,115,32,100,101,114,101,99,104,11
1,115,32,114,101,115,101,114,118,97,100,111,115,32}),46,143,1,RGB(0,0,0));TEXTO
UT_P(CHAR({65,121,97,99,117,99,104,111,32,45,32,80,69,82,218}),100,120,2,Col13
7);TEXTOUT_P(CHAR({68,101,115,97,114,114,111,108,108,97,100,111,114,58}),49,
85,1,RGB(17,129,93));TEXTOUT_P(CHAR({67,79,82,65,83,32,69,83,67,65,76,65,78,
84,69,44,32,72,105,108,109,101,114}),120,85,1,RGB(0,71,150));TEXTOUT_P(CHAR
({67,79,82,65,83,32,69,83,67,65,76,65,78,84,69,44,32,72,105,108,109,101,114}),121,8
5,1,RGB(0,71,150));TEXTOUT_P(CHAR({71,109,97,105,108,58}),85,100,1,RGB(17,
129,93));TEXTOUT_P(CHAR({32,104,105,108,109,101,114,46,99,111,114,97,115,50,
48,64,103,109,97,105,108,46,99,111,109}),118,100,1,RGB(0,71,150));TEXTOUT_P(C
HAR({65,78,69,83,72,32,86,52,46,48}),200,43,3,RGB(255,255,255));TEXTOUT_P(C
HAR({65,78,69,83,72,32,86,52,46,48}),200,43,3,RGB(255,255,255));REPEAT
WAIT(-1);UNTIL ISKEYDOWN(4);END;escrb:={"䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨䴖䴣䴩䴤
","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䴚䴣䳕䳺䴡䴚䴢䴚䴣","䴂䴖䴩䴧䴞䴯
䳻䴪䴚䴧䴯䴖䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴣䴙䴤䳕䴂䳕䴙䴚䳕䴇䴞䴜䴯䳕䳼䴡䴤䴗䴖
䴡","䳾䴣䴫䴚䴧䴨䴖䳕䴙䴚䳕䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䴇䴞䴜䴞䴙䴚䴯䳕䳼䴡䴤䴗
䴖䴡","䳹䴚䴨䴥䴡䴖䴯䴖䴢䴞䴚䴣䴩䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨
","䳺䴘䴪䴖䴘䴞䴤䴣䴚䴨"};llfft8(VFR,exc,L,CNG,MT,RLT,xpe3)BEGIN LOCAL
Axmax:=1,jj,a,e,m,k,i;LOCAL MTA,vMTo,qTA,qPor,FPTA,FTA;LOCAL
Mat_A,des:=[0];FOR jj:=1 TO 1 DO MTA:=MAKEMAT(0,rtyh2);FOR i:=1 TO rtyh2
DO MTA(i):=VFR(i,2)*exc*L*Axmax;END;vMTo:=MAKEMAT(0,xpe3*rtyh2);FOR
j:=1 TO xpe3*rtyh2 DO IF j<=2*rtyh2 AND qwr4==xpre1 THEN vMTo(j):=0;ELSE
vMTo(j):=MTA(j-
2*rtyh2);END;END;qTA:=MAKEMAT(0,xpe3*rtyh2);qTA:=inv(ixpr5)*vMTo;Mat_A
:=MAKEMAT(0,rtyh2,xpe3*rtyh2);qPor:=MAKEMAT(0,rtyh2,CNG);FOR j:=1 TO
CNG DO Mat_A:=MT(j);des:=Mat_A*qTA;FOR k:=1 TO rtyh2 DO
qPor(k,j):=des(k);END;END;LOCAL
pi_x,Fr_x,RLX_Port;FPTA:=MAKEMAT(0,rtyh2,CNG);e:=rtyh2;a:=1;FOR j:=1 TO
CNG DO
RLX_Port:=RLT(j);e:=e+rtyh2;a:=a+rtyh2;pi_x:=SUB(qPor,{1,j},{rtyh2,j});Fr_x:=RL
X_Port*pi_x;FOR k:=1 TO rtyh2 DO FPTA(k,j):=ABS(Fr_x(k,1));END;END;LOCAL
Ftors_x,suma;FTA:=MAKEMAT(0,rtyh2,1);FOR j:=1 TO rtyh2 DO suma:=0;FOR
m:=1 TO CNG DO
suma:=suma+FPTA(j,m);Ftors_x:=suma;END;FTA(j,1):=Ftors_x;END;LOCAL
qmax:={},q1:={},q2:={},qavg:={};FOR i:=1 TO CNG DO CASE IF i==1 AND
qwr4==xpre1 THEN FOR j:=1 TO rtyh2 DO q1(j):=ABS(qPor(j,i));END;END;IF
i==CNG AND qwr4==xpre1 THEN FOR j:=1 TO rtyh2 DO
q2(j):=ABS(qPor(j,i));END;END;END;qmax:=MAKEMAT(0,rtyh2);FOR j:=1 TO
rtyh2 DO IF qmax(j)>=(ABS(qPor(j,i)))THEN CONTINUE;ELSE
qmax(j):=ABS(qPor(j,i));END;END;END;LOCAL Ax:={};FOR j:=1 TO rtyh2 DO
qavg(j):=(q1(j)+q2(j))/2;Ax(j):=qmax(j)/(1.2*qavg(j));IF Ax(j)<=1 THEN
Ax(j):=1;END;IF Ax(j)>3 THEN
Ax(j):=3;END;END;Axmax:=MAX(Ax);END;LOCAL
Ret:={};Ret:={MTA,qTA,qPor,FPTA,FTA};RETURN Ret;END;EXPORT
ANESH()BEGIN
axsdcerf();RECT_P(98,23,316,236,Col12);BLIT_P(G0,100,25,315,235,G3,0,0,215,210
);LOCAL touch;REPEAT WAIT(-1)▶touch;IF TYPE(touch)=6 THEN IF touch(1)=0
OR touch(1)=3 THEN IF 0<=touch(3)<=20 THEN IF 87<=touch(2)<=111 THEN
Datsbmq19();ANESH();BREAK;END;IF 157<=touch(2)<=186 THEN
RECT_P(162,2,183,20,Col20);RECT_P(161,3,184,19,Col20);BLIT_P(G0,165,5,180,18
,"AE2",0,0,15,13);cnP:=0;Atytz12(7);cnP:=1;TSec:=1;Elas:=1;Atytz13();WB:=0;ANE
SH();BREAK;END;IF 187<=touch(2)<=213 THEN
RECT_P(190,2,210,20,Col20);RECT_P(189,3,211,19,Col20);FILLPOLY_P({(225-
25,9),(232-25,16),(218-
25,16)},Col128);TEXTOUT_P("●",197,4,1,Col128);DAp:={};Atytz12(100);Regs:={{{
47,70},{84,85}},{{47,93},{84,108}}};Dats:={-
99,0};M3:=[[0,0,0,0]];M2:=[[0,0,0,0]];A:=1;TApEm:=1;TApSe:=1;EmNu:=1;SeNu:=1;
Atytzad23();DELROW(M3,1);DELROW(M2,1);ANESH();BREAK;END;IF
214<=touch(2)<=242 THEN
RECT_P(217,2,241,20,Col20);RECT_P(216,3,242,19,Col20);LINE_P(235,4,235,12,Co
l128);TEXTOUT_P("▼",233,7,1,Col128);LINE_P(221,16,228,16,Col128);TEXTOUT
_P("▶",228,12,1,Col128);TEXTOUT_P("●",232,11,2,Col128);Atytz12(4);LOCAL
hh,nn;DCgN:={};FOR I FROM 1 TO N DO
M0(I,3):=0;M0(I,4):=0;M0(I,5):=0;END;FOR hh FROM 1 TO SIZE(DAp)DO
nn:=DAp(hh);A:=nn(3);Dats:=nn(4);TApEm:=nn(5);TApSe:=nn(6);Atytz17(2);END;N
Nudo:=1;Dats:={0,0,0};Atytzad20(0);NNudo:=100;Atytz16(0);ANESH();BREAK;EN
D;IF 243<=touch(2)<=274 THEN
OriCarga:=1;RECT_P(245,2,270,20,Col20);RECT_P(244,3,271,19,Col20);RECT_P(24
9,16,267,17,Col148);FOR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I-
1),246+I*4,16,Col118);TEXTOUT_P("▾",242+I*4,11,1,Col118);
END;LINE_P(250,4,266,12,Col118);Atytz12(4);LOCAL hh,nn;FOR hh FROM 1 TO
SIZE(DAp)DO
nn:=DAp(hh);A:=nn(3);Dats:=nn(4);TApEm:=nn(5);TApSe:=nn(6);Atytz17(2);END;F
OR I FROM 1 TO B DO Datsbmq111(I):={{0,0,0,0,1}};END;DCgB:={};LOCAL
m,v;m:=Datsbmq111(1);VecC:={};VecC(1):=m(1);NBarra:=1;Atytzad21(2,0);FOR K
FROM 1 TO B DO m:=Datsbmq111(K);VecC:={};FOR H FROM 1 TO SIZE(m)DO
v:=m(H);IF SIZE(m)>=2 AND v(4)≠0 THEN VecC(SIZE(VecC)+1):=v;END;END;IF
SIZE(VecC)≠0 THEN
Datsbmq111(K):=VecC;END;END;NBarra:=100;Atytz16(0);ANESH();BREAK;END;I
F 275<=touch(2)<=300 THEN
RECT_P(276,2,295,20,Col20);RECT_P(275,3,296,19,Col20);TEXTOUT_P("►",280,-
2,7,Col118);RECT_P(0,22,320,240,Col130);RECT_P(68,120,252,130,Col138,Col130);
hc1();asdf1();LOCAL mmx7;mmx7:=ABS(M7);IF 0<MAX(mmx7)<1 THEN
Pe:=5;END;IF 1<=MAX(mmx7)<10 THEN Pe:=4;END;IF 10<=MAX(mmx7)<100
THEN Pe:=3;END;IF 100<=MAX(mmx7)<1000 THEN Pe:=2;END;IF
1000<=MAX(mmx7)<100000 THEN Pe:=1;END;IF 100000<=MAX(mmx7)THEN
Pe:=0;END;RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(8),135,108,1,Col148
);IF T==3 THEN
varcaq(1);CortaElem();RECT_P(70,122,250,128,Col3);awsde(320,220,30,30,320,240);
PRes(1);ANESH();BREAK;END;IF T==1 THEN LOCAL
Lau;LEcu:={};LDis:={};FOR I FROM 1 TO B DO
Lau:=L8(I);LEcu(I):={{Lau(1,1)},{0},{0}};LDis(I):={0,M1(I,8)};END;varcaq(1);REC
T_P(70,122,250,128,Col3);awsde(320,220,30,30,320,240);PRes(1);ANESH();BREAK;
END;END;END;IF 242<=touch(2)<=267 AND 210<=touch(3)<=240 THEN bdx:=bdx-
5;ANESH();BREAK;END;IF 268<=touch(2)<=300 AND 210<=touch(3)<=240 THEN
bdx:=bdx+5;ANESH();BREAK;END;IF 0<=touch(2)<=30 AND 0<=touch(3)<=25
THEN dsawr();Atytz12(10);ANESH();BREAK;END;IF 261<=touch(2)<=320 THEN
IF 86<=touch(3)<=105 THEN ANESH();BREAK;END;END;IF 305<=touch(2)<=320
AND 0<=touch(3)<=22THEN W:=0;BREAK;END;END;END;IF TYPE(touch)=0
AND touch==4 THEN W:=0;BREAK;END;UNTIL 0;END;pxtrf8(dfg4,xpe3)BEGIN
LOCAL CNG,Mat_A,RL_Port,TMat_A;LOCAL m,a:=1,e:=rtyh2;LOCAL
Suma:=0;Suma:=MAKEMAT(0,rtyh2*xpe3,rtyh2*xpe3);IF dfg4==1 AND
qwr4==xpre1 THEN CNG:=rtyh7;ELSE CNG:=rtyh8;END;FOR m:=1 TO CNG DO IF
dfg4==1 AND qwr4==xpre1 THEN
RL_Port:=xpre11(m);Mat_A:=xpre14(m);TMat_A:=TRN(Mat_A);CASE IF xpe3==1
AND qwr4==xpre1 THEN Suma:=Suma+RL_Port;END;IF xpe3==2 AND
qwr4==xpre1 THEN Suma:=Suma+TMat_A*RL_Port*Mat_A;END;IF xpe3==3 AND
qwr4==xpre1 THEN Suma:=Suma+(TMat_A*RL_Port)*Mat_A;END;END;ELSE
RL_Port:=xpre10(m);Mat_A:=xpre15(m);CASE IF xpe3==1 AND qwr4==xpre1
THEN Suma:=Suma+RL_Port;END;IF xpe3==2 AND qwr4==xpre1 THEN
Suma:=Suma+(TRN(Mat_A)*RL_Port)*Mat_A;END;IF xpe3==3 AND qwr4==xpre1
THEN
Suma:=Suma+(TRN(Mat_A)*RL_Port)*Mat_A;END;END;END;e:=e+rtyh2;a:=a+rtyh
2;END;IF dfg4==1 THEN ixpr4:=Suma;ELSE
ixpr3:=Suma;END;END;ffllq7(xpe3)BEGIN ixpr7:=MAKEMAT(0,rtyh2,rtyh2);FOR
j:=1 TO rtyh2 DO
ixpr7(j,j):=abd5(j,1)/pft3;END;ixpr8:=MAKEMAT(0,rtyh2,rtyh2);FOR j:=1 TO rtyh2
DO
ixpr8(j,j):=abd5(j,1)*(qwr2^2+qwr3^2)/(12*pft3);END;ixpr6:=MAKEMAT(0,xpe3*rty
h2,xpe3*rtyh2);LOCAL m:=0,k;FOR j:=1 TO xpe3 DO FOR k:=1 TO rtyh2 DO IF j>2
AND qwr4==xpre1 THEN ixpr6(j+m,j+m):=ixpr8(k,k);ELSE
ixpr6(j+m,j+m):=ixpr7(k,k);END;m:=m+1;END;m:=m-1;END;END;llfft7()BEGIN
LOCAL
ab;pft1:=tlitg2(tgh1/tgh5,3);pft2:=tlitg2(tgh1/tgh6,3);ab:=CAS(CAS(CHAR({83,69,82,
73,65,76})));CASE IF pft1<xpe1 AND qwr4==xpre1 THEN xpe8:=2.5;END;IF
pft1<xpe2 AND pft1>xpe1 THEN xpe8:=2.5*(xpe1/pft1);END;IF pft1>xpe2 THEN
xpe8:=2.5*(xpe1*xpe2)/(pft1*pft1);END;END;CASE IF pft2<xpe1 THEN
xpe9:=2.5;END;IF pft2<xpe2 AND pft2>xpe1 THEN xpe9:=2.5*(xpe1/xpe9);END;IF
pft2>xpe2 AND ab=="9CJ73507JL" THEN
xpe9:=2.5*(xpe1*xpe2)/(xpe9*xpe9);END;END;xpe8:=tlitg2(xpe8,3);xpe9:=tlitg2(xpe
9,3);END;tlitg8()BEGIN
rtyh9:=3;hdljt8(1);hdljt8(2);tdljt8();dshy11:=hdljt2(dshy11,rtyh9);EDITMAT(dshy11);l
dljtr8(1);ldljtr8(2);dshy8:=dshy6+dshy7;dshy8:=hdljt2(dshy8,rtyh9);EDITMAT(dshy8)
;ldljt8(CHAR({97,108}),CHAR({115,101}));dshy14:=hdljt2(dshy14,rtyh9);EDITMAT
(dshy14);dshy12:=hdljt2(dshy12,rtyh9);EDITMAT(dshy12,CHAR({77,111,100,111,11
5,32,100,101,32,118,105,98,114,97,99,105,111,110}));FOR j:=1 TO 3 DO
dshy15(j,1):=dshy13(j);dshy15(j,2):=sqrt(ABS(dshy15(j,1)));dshy15(j,3):=2*PI/dshy15(
j,2);END;dshy15:=hdljt2(dshy15,rtyh9);EDITMAT(dshy15,CHAR({80,114,111,112,10
5,101,100,97,100,101,115,32,68,105,110,97,109,105,99,97,115}));dshy17:=[1,0,0];dsh
y18:=[0,1,0];LOCAL
NUM_x,DEN_x,NUM_y,DEN_y;NUM_x:=(TRN(dshy12)*dshy11)*dshy17;DEN_x:=
diag(TRN(dshy12)*dshy11*dshy12);NUM_y:=(TRN(dshy12)*dshy11)*dshy18;DEN_
y:=diag(TRN(dshy12)*dshy11*dshy12);FOR j:=1 TO 3 DO
dshy16(j,1):=ABS(NUM_x(j)/DEN_x(j));END;FOR j:=1 TO 3 DO
dshy16(j,2):=ABS(NUM_y(j)/DEN_y(j));END;dshy16:=hdljt2(dshy16,rtyh9);EDITMA
T(dshy16);LOCAL CDAI;CDAI:=MAKEMAT(0,3);FOR j:=1 TO 3 DO CASE IF
dshy15(j,3)<xpe1 THEN CDAI(j):=2.5;END;IF dshy15(j,3)<xpe2 AND
dshy15(j,3)>xpe1 THEN CDAI(j):=2.5*(xpe1/dshy15(j,3));END;IF dshy15(j,3)>xpe2
THEN CDAI(j):=2.5*(xpe1*xpe2)/(dshy15(j,3)^2);END;END;END;LOCAL
p,k;p:=1;FOR j:=1 TO 3 DO FOR k:=1 TO 3 DO IF dshy16(p,1)<dshy16(k,1)THEN
p:=k;BREAK(1);END;END;END;jliu4:=dshy15(p,3);LOCAL
SaAI_x:=MAKEMAT(0,3);LOCAL SaAI_y:=MAKEMAT(0,3);FOR j:=1 TO 3 DO
SaAI_x(j):=(tgh2*tgh4*CDAI(j)*tgh3)/(tgh7)*pft3;SaAI_y(j):=(tgh2*tgh4*CDAI(j)*tg
h3)/(tgh8)*pft3;END;FOR j:=1 TO 3 DO
dshy19(j,1):=j;dshy19(j,2):=dshy15(j,3);dshy19(j,3):=CDAI(j);dshy19(j,4):=SaAI_x(j);
dshy20(j,1):=j;dshy20(j,2):=dshy15(j,3);dshy20(j,3):=CDAI(j);dshy20(j,4):=SaAI_y(j);
END;dshy19:=hdljt2(dshy19,rtyh9);dshy20:=hdljt2(dshy20,rtyh9);EDITMAT(dshy19,
CHAR({86,97,108,111,114,101,115,32,100,101,32,108,97,32,97,99,101,108,101,114,9
7,99,105,111,110,32,88}));EDITMAT(dshy20,CHAR({86,97,108,111,114,101,115,32,
100,101,32,108,97,32,97,99,101,108,101,114,97,99,105,111,110,32,89}));LOCAL
qmx:=MAKEMAT(0,3,3),qmy:=MAKEMAT(0,3,3),consx,consy;LOCAL
vmx:=MAKEMAT(0,3,3),vmy:=MAKEMAT(0,3,3);FOR j:=1 TO 3 DO FOR k:=1 TO
3 DO
consx:=dshy16(j,1)*SaAI_x(j)*(dshy15(j,3)/(2*π))^2;consy:=dshy16(j,2)*SaAI_x(j)*(d
shy15(j,3)/(2*π))^2;qmx(k,j):=consx*dshy12(k,j);qmy(k,j):=consy*dshy12(k,j);vmx(k,j
):=2*π*qmx(k,j)/dshy15(j,3);vmy(k,j):=2*π*qmy(k,j)/dshy15(j,3);END;END;qmx:=hdl
jt2(qmx,rtyh9);qmy:=hdljt2(qmy,rtyh9);vmx:=hdljt2(vmx,rtyh9);vmy:=hdljt2(vmy,rtyh
9);EDITMAT(qmx,CHAR({68,101,115,112,32,115,105,115,116,101,109,97,32,97,105,
115,108,97,100,111,32,99,97,100,97,32,109,111,100,111,32,88}));EDITMAT(qmy,CH
AR({68,101,115,112,32,115,105,115,116,101,109,97,32,97,105,115,108,97,100,111,32
,99,97,100,97,32,109,111,100,111,32,89}));EDITMAT(vmx,CHAR({86,101,108,32,11
5,105,115,116,101,109,97,32,97,105,115,108,97,100,111,32,99,97,100,97,32,109,111,1
00,111,32,32,88}));EDITMAT(vmy,CHAR({86,101,108,32,115,105,115,116,101,109,9
7,32,97,105,115,108,97,100,111,32,99,97,100,97,32,109,111,100,111,32,32,89}));LOC
AL qrx:=MAKEMAT(0,3),qry:=MAKEMAT(0,3);LOCAL
vrx:=MAKEMAT(0,3),vry:=MAKEMAT(0,3);LOCAL
rrqx:={},rqx:={},rrqy:={},rqy:={};LOCAL rrvx:={},rvx:={},rrvy:={},rvy:={};FOR
j:=1 TO 3 DO 0▶rrqx(j);0▶rqx(j);0▶rrqy(j);0▶rqy(j);0▶rrvx(j);0▶rvx(j);0▶rrvy(j);0▶
rvy(j);FOR k:=1 TO 3 DO rrqx(j)+ABS(qmx(j,k))▶rrqx(j);rqx(j)+qmx(j,k)*qmx(j,k)▶
rqx(j);rrqy(j)+ABS(qmy(j,k))▶rrqy(j);rqy(j)+qmy(j,k)*qmy(j,k)▶
rqy(j);rrvx(j)+ABS(vmx(j,k))▶rrvx(j);rvx(j)+vmx(j,k)*vmx(j,k)▶
rvx(j);rrvy(j)+ABS(vmy(j,k))▶rrvy(j);rvy(j)+vmy(j,k)*vmy(j,k)▶
rvy(j);END;qrx(j):=0.25*rrqx(j)+0.75*sqrt(rqx(j));qry(j):=0.25*rrqy(j)+0.75*sqrt(rqy(j)
);vrx(j):=0.25*rrvx(j)+0.75*sqrt(rvx(j));vry(j):=0.25*rrvy(j)+0.75*sqrt(rvy(j));END;qrx
:=tdljt2(qrx,rtyh9);qry:=tdljt2(qry,rtyh9);EDITMAT(qrx,CHAR({68,101,115,112,108,9
7,109,105,101,110,116,111,115,32,109,97,120,105,109,111,115,32,100,101,32,108,97,
32,98,97,115,101,32,88}));EDITMAT(qry,CHAR({68,101,115,112,108,97,109,105,101
,110,116,111,115,32,109,97,120,105,109,111,115,32,100,101,32,108,97,32,98,97,115,1
01,32,89}));vrx:=tdljt2(vrx,rtyh9);vry:=tdljt2(vry,rtyh9);EDITMAT(vrx,CHAR({86,10
1,108,32,109,97,120,105,109,97,115,32,100,101,32,108,97,32,98,97,115,101,32,88}));
EDITMAT(vry,CHAR({86,101,108,32,109,97,120,105,109,97,115,32,100,101,32,108,
97,32,98,97,115,101,32,89}));LOCAL
asx:=MAKEMAT(0,3),asy:=MAKEMAT(0,3);asx:=inv(TRN(dshy11))*(dshy14*vrx+d
shy8*qrx);asy:=inv(TRN(dshy11))*(dshy14*vry+dshy8*qry);asy:=tdljt2(asy,rtyh9);asx
:=tdljt2(asx,rtyh9);EDITMAT(asx,CHAR({65,99,101,108,101,114,97,99,105,111,110,3
2,105,110,103,114,101,115,97,32,83,117,112,101,114,101,115,116,114,117,116,117,11
4,97,32,88}));EDITMAT(asy,CHAR({65,99,101,108,101,114,97,99,105,111,110,32,10
5,110,103,114,101,115,97,32,83,117,112,101,114,101,115,116,114,117,116,117,114,97
,32,89}));ffllq7(3);ixpr6:=hdljt2(ixpr6,rtyh9);EDITMAT(ixpr6,CHAR({77,97,116,114,
105,122,32,100,101,32,109,97,115,97,32,100,101,32,108,97,32,115,117,112,101,114,1
01,115,116,114,117,116,117,114,97}));LOCAL
rx:=MAKEMAT(0,3*rtyh2,3),ry:=MAKEMAT(0,3*rtyh2,3);FOR j:=1 TO 3 DO FOR
k:=1 TO rtyh2 DO 1▶rx(k,j);1▶
ry(k+rtyh2,j);END;END;EDITMAT(rx,CHAR({77,97,116,114,105,122,32,100,101,32,
105,110,99,105,100,101,110,99,105,97,32,100,101,108,32,115,105,115,109,111,32,88}
));EDITMAT(ry,CHAR({77,97,116,114,105,122,32,100,101,32,105,110,99,105,100,10
1,110,99,105,97,32,100,101,108,32,115,105,115,109,111,32,89}));LOCAL
FxAI:=[0],FyAI:=[0];FxAI:=ixpr6*rx*asx;FyAI:=ixpr6*ry*asy;FxAI:=tdljt2(FxAI,rtyh
9);FyAI:=tdljt2(FyAI,rtyh9);EDITMAT(FxAI,CHAR({67,97,114,103,97,115,32,40,70,
120,44,70,121,44,77,111,41,32,88}));EDITMAT(FyAI,CHAR({67,97,114,103,97,115,
32,40,70,120,44,70,121,44,77,111,41,32,89}));jjrtg8();EDITMAT(ixpr5);LOCAL
qeAIx:=[0],qeAIy:=[0];qeAIx:=FxAI*inv(ixpr5);qeAIy:=FyAI*inv(ixpr5);qeAIx:=tdljt
2(qeAIx,rtyh9);qeAIy:=tdljt2(qeAIy,rtyh9);EDITMAT(qeAIx,CHAR({68,101,115,112,
108,97,122,97,109,105,101,110,116,111,115,32,101,108,97,115,116,105,99,111,115,32
,88}));EDITMAT(qeAIy,CHAR({68,101,115,112,108,97,122,97,109,105,101,110,116,
111,115,32,101,108,97,115,116,105,99,111,115,32,89}));LOCAL
qiAIx:=[0],qiAIy:=[0];qiAIx:=0.75*tgh7*qeAIx;qiAIy:=0.75*tgh8*qeAIx;qiAIx:=tdljt
2(qiAIx,rtyh9);qiAIy:=tdljt2(qiAIy,rtyh9);EDITMAT(qiAIx,CHAR({68,101,115,112,1
08,97,122,97,109,105,101,110,116,111,115,32,105,110,101,108,97,115,116,105,99,111
,115,32,88}));EDITMAT(qiAIy,CHAR({68,101,115,112,108,97,122,97,109,105,101,11
0,116,111,115,32,105,110,101,108,97,115,116,105,99,111,115,32,89}));LOCAL
Dr_x,Dr_y;lagr1:=MAKEMAT(0,rtyh2,4);lagr2:=MAKEMAT(0,rtyh2,4);FOR j:=1 TO
rtyh2 DO IF j==1 THEN Dr_x:=qiAIx(j);Dr_y:=qiAIy(j);ELSE Dr_x:=qiAIx(j)-
qiAIx(j-1);Dr_y:=qiAIy(j)-qiAIy(j-
1);END;lagr1(j,1):=Dr_x;lagr2(j,1):=Dr_y;lagr1(j,2):=Dr_x/rtyh10(j);lagr2(j,2):=Dr_y/r
tyh10(j);lagr1(j,3):=0.007;lagr2(j,3):=0.007;END;FOR j:=1 TO rtyh2 DO IF
lagr1(j,2)<=lagr1(j,3)THEN lagr1(j,4):=1;
ELSE lagr1(j,4):=0;END;IF lagr2(j,2)<=lagr2(j,3)THEN lagr2(j,4):=1;ELSE
lagr2(j,4):=0;END;END;lagr1:=hdljt2(lagr1,rtyh9);lagr2:=hdljt2(lagr2,rtyh9);EDITMA
T(lagr1,CHAR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,120}));EDI
TMAT(lagr2,CHAR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,121})
);END;hdljt8(dfg4)BEGIN LOCAL CNG,Mat_A,CcLP,ML;IF dfg4==1 THEN
CNG:=rtyh7;CcLP:=zsc1;ML:=qwr3/2;ELSE
CNG:=rtyh8;CcLP:=zsc2;ML:=qwr2/2;END;Mat_A:=MAKEMAT(0,1,3);LOCAL
AA,AB,AC;LOCAL dist,CLP;FOR j:=1 TO CNG DO CLP:=CcLP(j);IF dfg4==1
THEN AA:=1;AB:=0;dist:=ML-CLP(1,2);ELSE dist:=CLP(1,1)-
ML;AA:=0;AB:=1;END;AC:=dist;Mat_A(1,1):=AA;Mat_A(1,2):=AB;Mat_A(1,3):=A
C;IF dfg4==1 THEN dshy4(j):=Mat_A;ELSE
dshy5(j):=Mat_A;END;END;END;ldljtr8(dfg4)BEGIN LOCAL
CNG,Mat_A,RL_Port,TMat_A;LOCAL m,RLA,MTA,Suma;IF dfg4==1 THEN
CNG:=rtyh7;ELSE CNG:=rtyh8;END;LOCAL RLPort:={};FOR j:=1 TO CNG DO
RLPort(j):=CNG*jliu19;END;IF dfg4==1 THEN dshy2:=RLPort;ELSE
dshy3:=RLPort;END;IF dfg4==1 THEN RLA:=dshy2;MTA:=dshy4;ELSE
RLA:=dshy3;MTA:=dshy5;END;Suma:=MAKEMAT(0,3,3);FOR m:=1 TO CNG DO
RL_Port:=RLA(m);Mat_A:=MTA(m);TMat_A:=TRN(Mat_A);Suma:=Suma+(TMat_A
*RL_Port)*Mat_A;END;IF dfg4==1 THEN dshy6:=Suma;ELSE
dshy7:=Suma;END;END;tdljt8()BEGIN FOR j:=1 TO jliu17 DO
jliu15(j):=jliu20;END;LOCAL
MaS,MMTAI;jliu14:=ΣLIST(jliu15);jliu16:=(abd6+jliu14);dshy9:=MAKEMAT(0,1,1);
FOR j:=1 TO 1 DO dshy9(j,j):=jliu16;END;dshy10:=MAKEMAT(0,1,1);FOR j:=1 TO
1 DO
dshy10(j,j):=(jliu16)*(qwr2^2+qwr3^2)/12;END;dshy11:=MAKEMAT(0,3,3);LOCAL
m:=0,k;FOR j:=1 TO 3 DO FOR k:=1 TO 1 DO IF j>2 THEN
dshy11(j+m,j+m):=dshy10(k,k)/pft3;ELSE
dshy11(j+m,j+m):=dshy9(k,k)/pft3;END;m:=m+1;END;m:=m-
1;END;END;ldljt8(Na,Nd)BEGIN LOCAL
VD,TFrAI,aux,MAam:={},VI:=CHAR({114,105}),Rr;Rr:=zsc3;VD:=jjrtg7(dshy8,dshy
11,VI,Nd,Na,Rr);dshy12:=VD(2);dshy13:=VD(1);LOCAL
Wn:={},W,fi,Tfi,mi,aux,C,M;FOR j:=1 TO 3 DO sqrt(dshy13(j))▶
Wn(j);MAam(j):=dshy1;END;FOR j:=1 TO 3 DO
fi:=SUB(dshy12,{1,j},{3,j});Tfi:=TRN(fi);mi:=Tfi*dshy11*fi;aux:=2*MAam(j)*Wn(j)
/mi(1,1);C:=C+aux*dshy11*fi*Tfi*dshy11;END;dshy14:=C;END;tlitg1()BEGIN
LOCAL
vv,R_DE,aaa2;R_DE:={{36,0},{92,16}};RECT_P(R_DE(1),R_DE(2),PlomoA);zvfgk1
(R_DE(1,1)+5,12.5,AzulTit,2);TEXTOUT_P(CHAR({68,69,70,73,78}),R_DE(1,1)+20,
2,2,AzulTit);aaa2:=CAS(CAS(CHAR({83,69,82,73,65,76})));vv:=ffllq3(1,{CHAR({79
,112,99,105,111,110,101,115}),CHAR({83,101,99,99,105,111,110,101,115}),CHAR({
65,110,97,108,105,115,105,115}),CHAR({67,97,114,103,97,115})},36,18,95,2,Plomo
A,AzulTit,Fondo,AzulTit);CASE IF vv==1 AND aaa2=="9CJ73507JL" THEN
hdljt1();END;IF vv==2 AND aaa2=="9CJ73507JL" THEN ldljt1();END;IF vv==3
AND aaa2=="9CJ73507JL" THEN fldth2();END;IF vv==4 AND aaa2=="9CJ73507JL"
THEN zvfgk2();END;END;END;Lmnzx:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚
䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚
䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖
䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘
䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨
"}};axsdcerfOpc1(cx,cy,anc,posf,pst,Lm,cont)BEGIN BLIT_P(G0,G5);LOCAL
nf,PxEl;PxEl:=CHAR({48,44,46}+7);
nf:=SIZE(Lm);RECT_P(cx-1,cy-
1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);REC
T_P(cx+2,cy+3,cx+anc+3,cy+20*nf+3,Col135);RECT_P(cx+1,cy+2,cx+anc+2,cy+20*
nf+2,Col140);RECT_P(cx,cy+1,cx+anc+1,cy+20*nf+1,Col148);RECT_P(cx,cy,cx+anc
,cy+20*nf,Col128);FOR I FROM 1 TO nf DO Rg1(I):={{cx,cy+20*(I-
1)},{cx+anc,cy+20*I}};IF I==posf AND Nnud==PxEl THEN RECT_P(cx+3,cy+20*(I-
1)+1,cx+anc-3,cy+20*I-1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-
1)+5,2,Col128);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-1)+5,2,Col128);IF pst==1 THEN
TEXTOUT_P("›",cx+anc-12,cy+20*(I-1)-3,5,Col128);END;ELSE
TEXTOUT_P(Lm(I),cx+10,cy+20*(I-
1)+5,2,Col142);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-1)+5,2,Col142);IF pst==1 AND
Nnud==Eqx THEN TEXTOUT_P("›",cx+anc-12,cy+20*(I-1)-
3,5,Col135);END;END;END;IF cont==1 THEN oligftq10();END;END;hdljt1()BEGIN
LOCAL
sx,sy,R_NP:={},R_HPP:={},R_HTP:={},R_NGX:={},R_NGY:={},R_EG:={};LOCA
L bx,by,nxR_Cont:={},R_Acep:={};LOCAL
dist,mx,my,ss,nx;RECT(Fondo);RECT_P({0,1},{320,17},DarkBlue,AzulTit);TEXTOU
T_P(CHAR({68,65,84,79,83,32,71,69,78,69,82,65,76,69,83,32,68,69,76,32,69,68,73,70
,73,67,73,79}),70,3,2,White);RECT_P({10,25},{137,100},DarkBlue,Fondo);TEXTOU
T_P("",15,20,2,Black,90,Fondo);TEXTOUT_P("",15,35,2);TEXTOUT_P(CHAR({72,3
2,80,105,115,111,115,58}),15,55,2);TEXTOUT_P(CHAR({72,32,84,105,112,105,99,9
7,58}),15,75,2);sx:=CHAR({114});R_NP:={{75,35-
2},{128,35+14}};R_HPP:={{75,57},{115,72}};R_HTP:={{75,77},{115,92}};LOCAL
v:=50,h:=5;RECT_P({10,120},{130,205},DarkBlue,Fondo);TEXTOUT_P("",15,115,2,
Black,80,Fondo);bx:=CHAR({97,108});TEXTOUT_P("",10+h,88+v,2);TEXTOUT_P(
"",10+h,108+v,2);R_NGX:={{70+h,85+v},{110+h,100+v}};R_NGY:={{70+h,105+v},
{110+h,120+v}};by:=CHAR({115,101});R_EG:={{35,180},{105,198}};RECT_P({35,
180},{105,198},DarkBlue,Plomo);TEXTOUT_P(CHAR({69,100,105,116,45,71,114,10
5,108,108,97,115}),R_EG(1,1)+3,R_EG(1,2)+3,2);R_Acep:={{195,204},{255,222}};R
ECT_P(R_Acep(1),R_Acep(2),DarkBlue,Plomo);TEXTOUT_P(CHAR({65,99,101,112
,116,97,114}),R_Acep(1,1)+8,R_Acep(1,2)+3,2);sy:=CHAR({105});LOCAL
nPis:={CHAR({49,32,80,105,115,111}),CHAR({50,32,80,105,115,111,115}),CHAR({
51,32,80,105,115,111,115}),CHAR({52,32,80,105,115,111,115}),CHAR({53,32,80,10
5,115,111,115})};REPEAT
jjrtg3(rtyh1,R_NP,AzulTit,White);fldth3(STRING(rtyh3,1),R_HPP,AzulTit,White);fldt
h3(STRING(rtyh4,1),R_HTP,AzulTit,White);nx:=sx+sy;RECT_P({160,25},{310,110},
DarkBlue,White);TEXTOUT_P(CHAR({86,105,115,116,97}),165,27,2,Plomo);TEXT
OUT_P(CHAR({80,105,115,111,115}),165,37,2,Plomo);tdljt1(160,25,150,85);dist:=by
+nx+bx;fldth3(STRING(rtyh7,1),R_NGX,AzulTit,White);fldth3(STRING(rtyh8,1),R_
NGY,AzulTit,White);RECT_P({140,120},{310,200},DarkBlue,White);TEXTOUT_P(
CHAR({71,114,105,108,108,97,115}),145,122,2,Plomo);LINE_P(145,195,145+20,195,
Plomo);TEXTOUT_P(CHAR({120}),145+20,185,1,Plomo);LINE_P(145,195,145,195-
20,Plomo);TEXTOUT_P(CHAR({121}),145+2,195-
25,1,Plomo);ldljtr1(140,120,170,80);WAIT(-1)▶Accion;IF TYPE(Accion)==6 THEN
IF Accion(1)==0 THEN mx:=Accion(2);my:=Accion(3);CASE IF
R_NP(1,1)<mx<R_NP(2,1)AND R_NP(1,2)<my<R_NP(2,2)THEN LOCAL
NPi;NPi:=ffllq3(rtyh2,nPis,R_NP(1,1),R_NP(2,2),53,1,PlomoA,Blue,DarkBlue,Black);
IF NPi<>0 THEN rtyh2:=NPi;rtyh1:=nPis(rtyh2);END;hdljt1();BREAK;END;IF
R_HPP(1,1)<mx<R_HPP(2,1)AND R_HPP(1,2)<my<R_HPP(2,2)THEN
rtyh3:=zvfgk3(rtyh3,R_HPP,CHAR({73,110,103,114,101,115,101,32,97,108,116,117,1
14,97,32,100,101,108,32,49,101,114,32,112,105,115,111,32,40,109,41}),dist);hdljt1();
BREAK;END;IF R_HTP(1,1)<mx<R_HTP(2,1)AND
R_HTP(1,2)<my<R_HTP(2,2)THEN
rtyh4:=zvfgk3(rtyh4,R_HTP,CHAR({73,110,103,114,101,115,101,32,108,97,32,97,108
,116,117,114,97,32,116,105,112,105,99,97,32,100,101,108,32,114,101,115,116,111,32,
100,101,32,112,105,115,111,115,32,40,109,41}),dist);hdljt1();BREAK;END;IF
R_NGX(1,1)<mx<R_NGX(2,1)AND R_NGX(1,2)<my<R_NGX(2,2)THEN LOCAL
CC;CC:=zvfgk3(rtyh7,R_NGX,CHAR({73,110,103,114,101,115,101,32,101,108,32,11
0,117,109,101,114,111,32,100,101,32,103,114,105,108,108,97,115,32,101,110,32,108,
97,32,100,105,114,101,99,99,105,111,110,32,88}),dist);LOCAL
ve:=tdljt7("",CHAR({32,103,114,97,102,105,99,111,115,32,63}),100,100,165,65,0.05);
IF ve==1 THEN rtyh7:=CC;ELSE rtyh7:=rtyh7;END;rtyh6:=rtyh7-1;rtyh5:=rtyh8-
1;gpk3:=MAKEMAT(2,MAX(rtyh6,rtyh5),2);hdljt1();BREAK;END;IF
R_NGY(1,1)<mx<R_NGY(2,1)AND R_NGY(1,2)<my<R_NGY(2,2)THEN LOCAL
CC;CC:=zvfgk3(rtyh8,R_NGY,CHAR({73,110,103,114,101,115,101,32,101,108,32,11
0,117,109,101,114,111,32,100,101,32,103,114,105,108,108,97,115,32,101,110,32,108,
97,32,100,105,114,101,99,99,105,111,110,32,89}),dist);LOCAL
ve:=tdljt7("",CHAR({32,103,114,97,102,105,99,111,115,32,63}),100,100,165,65,0.05);
IF ve==1 THEN rtyh8:=CC;ELSE rtyh8:=rtyh7;END;rtyh6:=rtyh7-1;rtyh5:=rtyh8-
1;gpk3:=MAKEMAT(2,MAX(rtyh6,rtyh5),2);hdljt1();BREAK;END;IF(R_EG(1,1))<m
x<R_EG(2,1)AND R_EG(1,2)<my<R_EG(2,2)THEN LOCAL ve:=tdljt7("¿Desea
Restablecer los"," gráficos ?",100,100,165,65,0.05);IF ve==1 THEN
hdljt3();END;hdljt1();BREAK;END;IF(R_Acep(1,1))<mx<R_Acep(2,1)AND
R_Acep(1,2)<my<R_Acep(2,2)THEN jjrtg1();IFERR
yyhte5(Gp,0,qwr8(1),qwr7(1));THEN
END;pxtrf4(Gp,0,0,0);yyhte2();BREAK;END;END;END;END;IF TYPE(Accion)==0
THEN IF Accion==4 THEN ss:=1;END;END;UNTIL ss;END;ldljtr1(x,y,H,V)BEGIN
qljgt1();LOCAL esc,xc,yc;xc:=x+H/2;yc:=y+V/2;LOCAL nX,nY,Fe_X,Fe_Y;LOCAL
Suma;LOCAL x0,y0,xi,yi,xf,yf;Suma:=0;FOR j:=1 TO rtyh5 DO
Suma:=gpk3(j,1)+Suma;END;qwr2:=Suma;Suma:=0;FOR j:=1 TO rtyh6 DO
Suma:=gpk3(j,2)+Suma;END;qwr3:=Suma;CASE IF qwr2<>0 AND qwr3<>0 THEN
Fe_X:=(H-13)/qwr2;Fe_Y:=(V-13)/qwr3;END;IF qwr2==0 THEN Fe_X:=H-
13;Fe_Y:=(V-13)/qwr3;END;IF qwr3==0 THEN Fe_X:=(H-13)/qwr2;Fe_Y:=V-
13;END;END;qwr5:=MIN(Fe_Y,Fe_X);x0:=xc-
qwr2*qwr5/2;y0:=yc+qwr3*qwr5/2;LOCAL
d1,k;d1:=0;LINE_P(x0,y0,x0+qwr2*qwr5,y0,Red);FOR j:=1 TO rtyh6 DO
d1:=gpk3(j,2)*qwr5+d1;xi:=x0;yi:=y0-d1;xf:=qwr2*qwr5+x0;yf:=y0-
d1;LINE_P(xi,yi,xf,yf,Red);END;d1:=0;LINE_P(x0,y0,x0,y0-qwr3*qwr5,Red);FOR
j:=1 TO rtyh5 DO d1:=gpk3(j,1)*qwr5+d1;xi:=d1+x0;yi:=y0;xf:=d1+x0;yf:=y0-
qwr3*qwr5;LINE_P(xi,yi,xf,yf,Red);END;END;tdljt1(x,y,H,V)BEGIN LOCAL
xc,yc;xc:=x+H/2;yc:=y+V/2-5;yyhte2();IF tgh1<>0 AND rtyh10(1)<>0 THEN
qwr5:=(V-15)/tgh1;ELSE qwr5:=(V-15);END;LOCAL xi,yi,xf,yf;xi:=xc-
25;yi:=yc+V/2-5;xf:=xc+25;yf:=yi-
tgh1*qwr5;RECT_P({xi,yi},{xi+1,yf},Red);RECT_P({xf,yi},{xf+1,yf},Red);LOCAL
Hac:=0;FOR j:=1 TO rtyh2 DO Hac:=rtyh10(j)*qwr5+Hac;RECT_P({xi,yi-Hac-
1},{xf,yi-Hac+1},RedA);TEXTOUT_P(CHAR({80,105,115,111,32})+j,xf+5,yi-
Hac,1,Plomo);END;END;yyhte2()BEGIN LOCAL HRL,r,H_P;rtyh10:={};FOR j:=1
TO rtyh2 DO IF j==1 THEN rtyh10(1):=rtyh3;ELSE
rtyh10(j):=rtyh4;END;END;tgh1:=ΣLIST(rtyh10);END;axsdcerfOpc2(cx,cy,anc,posf,ps
t,Lm,cont,Mnu1,Mnu2)BEGIN LOCAL nf;LOCAL
PxEl;nf:=SIZE(Lm);PxEl:=CHAR({48,44,46}+7);RECT_P(cx-1,cy-
1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);REC
T_P(cx+2,cy+3,cx+anc+3,cy+20*nf+3,Col135);RECT_P(cx+1,cy+2,cx+anc+2,cy+20*
nf+2,Col140);RECT_P(cx,cy+1,cx+anc+1,cy+20*nf+1,Col148);RECT_P(cx,cy,cx+anc
,cy+20*nf,Col128);FOR I FROM 1 TO nf DO Rg2(I):={{cx,cy+20*(I-
1)},{cx+anc,cy+20*I}};IF I==posf AND Nnud==PxEl THEN RECT_P(cx+3,cy+20*(I-
1)+1,cx+anc-3,cy+20*I-1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-
1)+5,2,Col128);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-1)+5,2,Col128);IF pst==1 THEN
TEXTOUT_P("›",cx+anc-12,cy+20*(I-1)-3,5,Col128);END;ELSE
TEXTOUT_P(Lm(I),cx+10,cy+20*(I-
1)+5,2,Col142);TEXTOUT_P(Lm(I),cx+10,cy+20*(I-1)+5,2,Col142);IF pst==1 AND
Nnud==PxEl THEN TEXTOUT_P("›",cx+anc-12,cy+20*(I-1)-
3,5,Col135);END;END;END;IF cont==1 THEN oligftq10();END;IF cont==0 THEN
MTanx(Mnu1,Mnu2);END;END;Lmnsc:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚
䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚
䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖
䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘
䴩䴤䴧","䴅䴪䴣䴩䴤䴨䳕䴃䴤䴩䴖䴗䴡䴚䴨","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨","䴉䴖䴗䴪
䴡䴖䴘䴞䴤䴣䴚䴨"}};LmnscP:={"䳺䴨䴩䴧䴪䴘䴩䴪䴧䴖","䴅䴧䴚䳢䴅䴧䴤䴘䴚
䴨䴖䴢䴞䴚䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕䴇䳣䳕䳺䴡䴚䴢䴚䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕
䴇䳣䳕䳺䴨䴩䴧䴪䴘䴩䴪䴧䴖","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䳻䴪䴚䴧䴯䴖䴨","䳹䴚䴨
䴥䴡䴖䴯䳣䳕䳛䳕䳼䴞䴧䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨","䳹䴞䴖䴜
䴧䴖䴢䴖䴨"};oligftq10()BEGIN LOCAL
touch1,h1,h2,Lmns,rtc,Ancs,PyEl;Ancs:={130,135,100,90,80,70,70,120};Lmns:={};Py
El:=CHAR({59,66,85,87}-11);FOR H FROM 1 TO SIZE(Lmnsc)DO
Lmns(H):=hcP(Lmnsc(H));END;LOCAL LmnsP;LmnsP:=hcP(LmnscP);REPEAT
WAIT(-1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN
LOCAL m,p1,p2;FOR h1 FROM 1 TO SIZE(Rg1)DO
m:=Rg1(h1);p1:=m(1);p2:=m(2);IF p1(1)<=touch1(3)<=p2(1)AND
p1(2)<=touch1(4)<=p2(2)THEN axsdcerfOpc1(5,25,140,h1,1,LmnsP,0);IF(22+20*(h1-
1)+20*SIZE(Lmns(h1)))>225 AND NElm==PyEl THEN rtc:=CEILING(((22+20*(h1-
1)+20*SIZE(Lmns(h1)))-225)/20)+1;ELSE
rtc:=1;END;U:=h1;V:=rtc;axsdcerfOpc2(135,22+20*(h1-
rtc),Ancs(U),1,0,Lmns(h1),1,0,0);BREAK(2);END;END;FOR h2 FROM 1 TO
SIZE(Rg2)DO m:=Rg2(h2);p1:=m(1);p2:=m(2);IF p1(1)<=touch1(3)<=p2(1)AND
p1(2)<=touch1(4)<=p2(2)AND NElm==PyEl AND Nnud==Eqx THEN
axsdcerfOpc2(135,22+20*(U-
V),Ancs(U),h2,0,Lmns(U),0,U,h2);BREAK(2);END;END;END;UNTIL
ISKEYDOWN(4);END;Lmnsqc:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗
䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞
䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘
䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖
䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇
䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};ldljt1()BEGIN LOCAL
R_Col:={},R_Viga:={},R_Alba:={},R_AIs:={};LOCAL
R_TC:={},R_TV:={},R_TA:={};LOCAL R_Cont:={},R_Acep:={};LOCAL
mx,my;LOCAL
lng,sx,sy,ax:=CHAR({115}),ay,vx,vy,nx;RECT(Fondo);R_Col:={{0,0},{50,60}};REC
T_P(R_Col(1),R_Col(2),DarkBlue,AzulTit);TEXTOUT_P(CHAR({67,79,76}),R_Col(
1,1)+12,R_Col(1,2)+25,3,White);R_Viga:={{0,60},{50,120}};RECT_P(R_Viga(1),R_
Viga(2),DarkBlue,AzulTit);TEXTOUT_P(CHAR({86,73,71}),R_Viga(1,1)+12,R_Viga
(1,2)+25,3,White);R_Alba:={{0,120},{50,180}};RECT_P(R_Alba(1),R_Alba(2),Dark
Blue,AzulTit);TEXTOUT_P(CHAR({65,76,66}),R_Alba(1,1)+12,R_Alba(1,2)+25,3,W
hite);R_AIs:={{0,180},{50,240}};RECT_P(R_AIs(1),R_AIs(2),DarkBlue,AzulTit);TE
XTOUT_P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+25,3,White);nx:=CHAR({1
14,105});LOCAL dx:=75,dy:=-8,Lx,Ly,ex,ey,bx,by;LOCAL
R_fCA,R_fCB,R_fCC;LOCAL
R_vCB,R_vCH,R_vCfc,R_vCPE,R_vCE,R_vCG,R_vCPO;LOCAL
R_fVA,R_fVC;LOCAL
R_vVB,R_vVH,R_vVfc,R_vVPE,R_vVE,R_vVG,R_vVPO;LOCAL
R_vAe,R_vAH,R_vAfm,R_vAPE,R_vAE,R_vAG,R_vAPO;LOCAL
R_vv,R_xx,R_ee,R_ii;LOCAL R_AIM,R_AIK,R_ATo,R_Aam;CASE IF liev15==1
THEN werf2:=tlitg2(werf2,3);
werf3:=tlitg2(werf3,3);werf4:=tlitg2(werf4,3);werf5:=tlitg2(werf5,3);werf8:=tlitg2(werf
8,3);werf6:=tlitg2(werf6,1);werf7:=tlitg2(werf7,1);ay:=CHAR({101});RECT_P({50,0},
{320,200},Fondo,Fondo);RECT_P(R_Col(1),R_Col(2),Fondo,Fondo);TEXTOUT_P(C
HAR({67,79,76}),R_Col(1,1)+12,R_Col(1,2)+35,3,Black);dx:=180;dy:=15;Lx:=100;L
y:=91;R_vv:={{dx,dy+Ly},{dx+Lx/3,dy+Ly+18}};R_xx:={{dx+Lx/3,dy+Ly},{dx+2*
Lx/3,dy+Ly+18}};R_ee:={{dx+2*Lx/3,dy+Ly},{dx+Lx,dy+Ly+18}};tlitg3(dx,dy,Lx,L
y,CHAR({67}),gpk5,gpk6,hfjq9);vx:=CHAR({108});dx:=dx;dy:=dy+Ly+18;RECT_P(
{dx,dy+5},{dx+Lx,dy+75},DarkBlue,White);TEXTOUT_P(CHAR({86,105,115,116,9
7}),dx+5,dy+7,2,Plomo);vy:=CHAR({97});LINE_P(dx+5,dy+75-5,dx+20,dy+75-
5,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+75-
5,dx+5,dy+75-5-20,Plomo);TEXTOUT_P(CHAR({121}),dx+7,dy+75-
25,1,Plomo);CASE IF liev16==1 THEN dx:=80;dy:=-22;RECT_P({dx-
5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({76,120,32,58}),10+
dx,50+dy,2);TEXTOUT_P(CHAR({76,121,32,58}),10+dx,70+dy,2);R_vCB:={{30+dx
,50+dy-2},{75+dx,50+dy+14}};R_vCH:={{30+dx,70+dy-
2},{75+dx,70+dy+14}};fldth3(STRING(werf2,1),R_vCB,AzulTit,White);fldth3(STRI
NG(werf3,1),R_vCH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx-
5,35+dy},{dx+100,dy+150},DarkBlue,Fondo);TEXTOUT_P(CHAR({102,39,99,32,58
}),12+dx,50+dy,2);TEXTOUT_P(CHAR({80,69,32,58}),12+dx,70+dy,2);TEXTOUT_
P("",12+dx,90+dy,2);TEXTOUT_P(CHAR({69,32,58}),12+dx,110+dy,2);TEXTOUT_
P(CHAR({71,32,58}),12+dx,130+dy,2);R_vCfc:={{35+dx,50+dy-
2},{90+dx,50+dy+14}};R_vCPE:={{35+dx,70+dy-
2},{90+dx,70+dy+14}};R_vCPO:={{35+dx,90+dy-
2},{90+dx,90+dy+14}};R_vCE:={{35+dx,110+dy-
2},{90+dx,110+dy+14}};R_vCG:={{35+dx,130+dy-
2},{90+dx,130+dy+14}};fldth3(STRING(werf4,1),R_vCfc,AzulTit,White);fldth3(STRI
NG(werf5,1),R_vCPE,AzulTit,White);fldth3(STRING(werf8,1),R_vCPO,AzulTit,Whit
e);fldth3(STRING(werf6,1),R_vCE,AzulTit,White);fldth3(STRING(werf7,1),R_vCG,A
zulTit,White);END;IF liev16==2 THEN END;IF liev16==3 THEN END;END;END;IF
liev15==2 THEN
RECT_P({50,0},{320,200},Fondo,Fondo);RECT_P(R_Viga(1),R_Viga(2),Fondo,Fond
o);vy:=CHAR({97});TEXTOUT_P(CHAR({86,73,71}),R_Viga(1,1)+12,R_Viga(1,2)+
35,3,Black);werf9:=tlitg2(werf9,3);werf10:=tlitg2(werf10,3);werf11:=tlitg2(werf11,3);b
hy1:=tlitg2(bhy1,3);bhy4:=tlitg2(bhy4,3);bhy2:=tlitg2(bhy2,1);bhy3:=tlitg2(bhy3,1);dx:
=180;dy:=15;ay:=CHAR({101});Lx:=100;Ly:=91;R_vv:={{dx,dy+Ly},{dx+Lx/3,dy+L
y+18}};R_xx:={{dx+Lx/3,dy+Ly},{dx+2*Lx/3,dy+Ly+18}};R_ee:={{dx+2*Lx/3,dy+
Ly},{dx+Lx,dy+Ly+18}};tlitg3(dx,dy,Lx,Ly,CHAR({86}),gpk7,gpk8,hfjq10);dx:=dx;d
y:=dy+Ly+18;RECT_P({dx,dy+5},{dx+Lx,dy+75},DarkBlue,White);TEXTOUT_P(C
HAR({86,105,115,116,97}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+75-5,dx+20,dy+75-
5,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);vx:=CHAR({108});LINE
_P(dx+5,dy+75-5,dx+5,dy+75-5-20,Plomo);TEXTOUT_P(CHAR({121}),dx+7,dy+75-
25,1,Plomo);CASE IF liev17==1 THEN dx:=80;dy:=-22;RECT_P({dx-
5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,32,58}),10+dx,5
0+dy,2);TEXTOUT_P(CHAR({72,32,58}),10+dx,70+dy,2);R_vVB:={{30+dx,50+dy-
2},{75+dx,50+dy+14}};R_vVH:={{30+dx,70+dy-
2},{75+dx,70+dy+14}};fldth3(STRING(werf9,1),R_vVB,AzulTit,White);fldth3(STRI
NG(werf10,1),R_vVH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx-
5,35+dy},{dx+100,dy+150},DarkBlue,Fondo);
TEXTOUT_P(CHAR({102,39,99,32,58}),12+dx,50+dy,2);TEXTOUT_P(CHAR({80,6
9,32,58}),12+dx,70+dy,2);TEXTOUT_P("",12+dx,90+dy,2);TEXTOUT_P(CHAR({69
,32,58}),12+dx,110+dy,2);TEXTOUT_P(CHAR({71,32,58}),12+dx,130+dy,2);R_vVfc
:={{35+dx,50+dy-2},{90+dx,50+dy+14}};R_vVPE:={{35+dx,70+dy-
2},{90+dx,70+dy+14}};R_vVPO:={{35+dx,90+dy-
2},{90+dx,90+dy+14}};R_vVE:={{35+dx,110+dy-
2},{90+dx,110+dy+14}};R_vVG:={{35+dx,130+dy-
2},{90+dx,130+dy+14}};fldth3(STRING(werf11,1),R_vVfc,AzulTit,White);fldth3(ST
RING(bhy1,1),R_vVPE,AzulTit,White);fldth3(STRING(bhy4,1),R_vVPO,AzulTit,Whi
te);fldth3(STRING(bhy2,1),R_vVE,AzulTit,White);fldth3(STRING(bhy3,1),R_vVG,A
zulTit,White);END;IF liev17==2 THEN END;END;END;IF liev15==3 THEN
RECT_P({50,0},{320,200},Fondo,Fondo);RECT_P(R_Alba(1),R_Alba(2),Fondo,Fond
o);TEXTOUT_P(CHAR({65,76,66}),R_Alba(1,1)+12,R_Alba(1,2)+35,3,Black);bhy5:
=tlitg2(bhy5,3);bhy6:=tlitg2(bhy6,3);bhy7:=tlitg2(bhy7,3);bhy8:=tlitg2(bhy8,3);gpk1:=t
litg2(gpk1,3);bhy9:=tlitg2(bhy9,1);bhy10:=tlitg2(bhy10,1);dx:=190;dy:=15;Lx:=100;Ly
:=91;vy:=CHAR({97});R_vv:={{dx,dy+Ly},{dx+Lx/3,dy+Ly+18}};R_xx:={{dx+Lx/3
,dy+Ly},{dx+2*Lx/3,dy+Ly+18}};R_ee:={{dx+2*Lx/3,dy+Ly},{dx+Lx,dy+Ly+18}};
tlitg3(dx,dy,Lx,Ly,CHAR({77}),gpk9,gpk10,werf1);dx:=dx;dy:=dy+Ly+18;RECT_P({
dx,dy+5},{dx+Lx,dy+75},DarkBlue,White);TEXTOUT_P(CHAR({86,105,115,116,97
}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+75-5,dx+20,dy+75-
5,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+75-
5,dx+5,dy+75-5-20,Plomo);TEXTOUT_P(CHAR({121}),dx+7,dy+75-
25,1,Plomo);dx:=90;dy:=-22;vx:=CHAR({108});RECT_P({dx-
5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,32,58}),10+dx,
50+dy,2);R_vAe:={{30+dx,50+dy-
2},{75+dx,50+dy+14}};fldth3(STRING(bhy5,1),R_vAe,AzulTit,White);dx:=80;dy:=48
;RECT_P({dx-
5,35+dy},{dx+100,dy+150},DarkBlue,Fondo);TEXTOUT_P(CHAR({102,39,109,32,5
8}),12+dx,50+dy,2);TEXTOUT_P(CHAR({80,69,32,58}),12+dx,70+dy,2);TEXTOUT
_P("",12+dx,90+dy,2);TEXTOUT_P(CHAR({69,109,32,58}),12+dx,110+dy,2);TEXT
OUT_P(CHAR({71,32,58}),12+dx,130+dy,2);ay:=CHAR({101});R_vAfm:={{38+dx,5
0+dy-2},{90+dx,50+dy+14}};R_vAPE:={{38+dx,70+dy-
2},{90+dx,70+dy+14}};R_vAPO:={{38+dx,90+dy-
2},{90+dx,90+dy+14}};R_vAE:={{38+dx,110+dy-
2},{90+dx,110+dy+14}};R_vAG:={{38+dx,130+dy-
2},{90+dx,130+dy+14}};fldth3(STRING(bhy7,1),R_vAfm,AzulTit,White);fldth3(STR
ING(bhy8,1),R_vAPE,AzulTit,White);fldth3(STRING(gpk1,1),R_vAPO,AzulTit,White
);fldth3(STRING(bhy9,1),R_vAE,AzulTit,White);fldth3(STRING(bhy10,1),R_vAG,Az
ulTit,White);END;IF liev15==4 THEN
jliu20:=tlitg2(jliu20,3);jliu19:=tlitg2(jliu19,3);jliu18:=tlitg2(jliu18,3);dshy1:=tlitg2(dsh
y1,3);RECT_P({50,0},{320,200},Fondo,Fondo);RECT_P(R_AIs(1),R_AIs(2),Fondo,F
ondo);TEXTOUT_P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+35,3,Black);dx:=
65;dy:=40;RECT_P({dx-5,35+dy},{dx+100,dy+90},DarkBlue,Fondo);dx:=55;dy:=-
25;vy:=CHAR({97});TEXTOUT_P(CHAR({77,97,115,97,32,58}),12+dx,110+dy,2);T
EXTOUT_P(CHAR({82,105,103,105,100,101,122,32,58}),12+dx,130+dy,2);R_AIM:=
{{60+dx,110+dy-2},{100+dx,110+dy+14}};R_AIK:={{60+dx,130+dy-
2},{100+dx,130+dy+14}};fldth3(STRING(jliu20,1),R_AIM,AzulTit,White);fldth3(ST
RING(jliu19,1),R_AIK,AzulTit,White);ay:=CHAR({101});dx:=180;dy:=45;Lx:=110;L
y:=60;RECT_P({dx,dy-4},{dx+Lx,dy-3+14},DarkBlue,Fondo);RECT_P({dx,dy-
3+14},{dx+Lx,dy-
3+14+Ly},DarkBlue,Fondo);TEXTOUT_P(CHAR({68,97,116,111,115,32,83,105,115,
116,101,109,97}),dx,dy-
8,2,Black,90,Fondo);TEXTOUT_P(CHAR({65,105,115,108,97,100,111}),dx,dy-
8+13,2,Black,90,Fondo);dx:=160;dy:=73;TEXTOUT_P(CHAR({84,32,32,58}),40+dx,
dy,2);TEXTOUT_P("",40+dx,20+dy,2);vx:=CHAR({108});R_ATo:={{60+dx,dy-
2},{100+dx,dy+14}};R_Aam:={{60+dx,20+dy-
2},{100+dx,20+dy+14}};fldth3(STRING(jliu18,1),R_ATo,AzulTit,White);fldth3(STRI
NG(dshy1,1),R_Aam,AzulTit,White);END;END;R_Acep:={{225,204},{280,222}};bx:
=ax+ay;RECT_P(R_Acep(1),R_Acep(2),DarkBlue,Plomo);TEXTOUT_P(CHAR({65,9
9,101,112,116,97,114}),R_Acep(1,1)+8,R_Acep(1,2)+3,2);by:=vy+vx;lng:=bx+nx+by;
REPEAT WAIT(-1)▶Accion;IF TYPE(Accion)=6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF(R_Col(1,1))<mx<R_Col(2,1)AND
R_Col(1,2)<my<R_Col(2,2)THEN
liev15:=1;ldljt1();yyhte7;BREAK;END;IF(R_Viga(1,1))<mx<R_Viga(2,1)AND
R_Viga(1,2)<my<R_Viga(2,2)THEN
liev15:=2;ldljt1();yyhte7;BREAK;END;IF(R_Alba(1,1))<mx<R_Alba(2,1)AND
R_Alba(1,2)<my<R_Alba(2,2)THEN
liev15:=3;ldljt1();yyhte7;BREAK;END;IF(R_AIs(1,1))<mx<R_AIs(2,1)AND
R_AIs(1,2)<my<R_AIs(2,2)THEN
liev15:=4;ldljt1();yyhte7;BREAK;END;IF(R_Acep(1,1))<mx<R_Acep(2,1)AND
R_Acep(1,2)<my<R_Acep(2,2)THEN BREAK;END;IF liev15==1 THEN IF
R_vCB(1,1)<mx<R_vCB(2,1)AND R_vCB(1,2)<my<R_vCB(2,2)THEN
werf2:=zvfgk3(werf2,R_vCB,CHAR({76,111,110,103,105,116,117,100,32,100,101,32,
99,111,108,117,109,110,97,32,101,110,32,100,105,114,101,99,99,105,111,110,32,88,3
2,40,109,41}),lng);ldljt1();BREAK;END;IF R_vCH(1,1)<mx<R_vCH(2,1)AND
R_vCH(1,2)<my<R_vCH(2,2)THEN
werf3:=zvfgk3(werf3,R_vCH,CHAR({76,111,110,103,105,116,117,100,32,100,101,32,
99,111,108,117,109,110,97,32,101,110,32,100,105,114,101,99,99,105,111,110,32,89,3
2,40,109,41}),lng);ldljt1();BREAK;END;IF R_vCfc(1,1)<mx<R_vCfc(2,1)AND
R_vCfc(1,2)<my<R_vCfc(2,2)THEN
werf4:=zvfgk3(werf4,R_vCfc,CHAR({82,101,115,105,115,116,101,110,99,105,97,32,9
7,32,99,111,109,112,114,101,115,105,111,110,32,100,101,108,32,99,111,110,99,114,1
01,116,111,32,40,107,103,47,99,109,50,41}),lng);werf6:=15000*sqrt(werf4);werf7:=w
erf6/(2*(1+werf8));ldljt1();BREAK;END;IF R_vCPE(1,1)<mx<R_vCPE(2,1)AND
R_vCPE(1,2)<my<R_vCPE(2,2)THEN
werf5:=zvfgk3(werf5,R_vCPE,CHAR({80,101,115,111,32,101,115,112,101,99,105,10
2,105,99,111,32,40,107,103,47,109,51,41}),lng);ldljt1();BREAK;END;IF
R_vCPO(1,1)<mx<R_vCPO(2,1)AND R_vCPO(1,2)<my<R_vCPO(2,2)THEN
werf8:=zvfgk3(werf8,R_vCPO,CHAR({77,111,100,117,108,111,32,100,101,32,80,111,
105,115,115,111,110}),lng);werf7:=werf6/(2*(1+werf8));ldljt1();BREAK;END;IF
R_vCE(1,1)<mx<R_vCE(2,1)AND R_vCE(1,2)<my<R_vCE(2,2)THEN
werf6:=zvfgk3(werf6,R_vCE,CHAR({77,111,100,117,108,111,32,100,101,32,69,108,9
7,115,116,105,99,105,100,97,100,32,40,107,103,47,99,109,50,41}),lng);werf7:=werf6/(
2*(1+werf8));ldljt1();BREAK;END;IF R_vCG(1,1)<mx<R_vCG(2,1)AND
R_vCG(1,2)<my<R_vCG(2,2)THEN
werf7:=zvfgk3(werf7,R_vCG,CHAR({77,111,100,117,108,111,32,100,101,32,99,111,1
14,116,101,32,40,107,103,47,99,109,50,41}),lng);ldljt1();BREAK;END;IF
R_vv(1,1)<mx<R_vv(2,1)AND R_vv(1,2)<my<R_vv(2,2)THEN
ldljtr3(liev15);ldljt1();BREAK;END;IF R_xx(1,1)<mx<R_xx(2,1)AND
R_xx(1,2)<my<R_xx(2,2)THEN tdljt3(liev15);ldljt1();BREAK;END;IF
R_ee(1,1)<mx<R_ee(2,1)AND R_ee(1,2)<my<R_ee(2,2)THEN
ldljt3(1,liev15);ldljt1();BREAK;END;dx:=180;dy:=15;Lx:=100;Ly:=91;FOR j:=1 TO
hfjq9 DO R_ii:={{dx,dy+9+16*(j-1)},{dx+Lx,dy+9+16*j}};IF
R_ii(1,1)<mx<R_ii(2,1)AND R_ii(1,2)<my<R_ii(2,2)THEN
gpk6:=j;ldljt3(0,liev15);ldljt1();BREAK(2);END;END;END;IF liev15==2 THEN IF
R_vVB(1,1)<mx<R_vVB(2,1)AND R_vVB(1,2)<my<R_vVB(2,2)THEN
werf9:=zvfgk3(werf9,R_vVB,CHAR({66,97,115,101,32,100,101,32,108,97,32,118,105
,103,97,32,40,109,41}),lng);ldljt1();BREAK;END;IF
R_vVH(1,1)<mx<R_vVH(2,1)AND R_vVH(1,2)<my<R_vVH(2,2)THEN
werf10:=zvfgk3(werf10,R_vVH,CHAR({80,101,114,97,108,116,101,32,100,101,32,10
8,97,32,118,105,103,97,32,40,109,41}),lng);ldljt1();BREAK;END;IF
R_vVfc(1,1)<mx<R_vVfc(2,1)AND R_vVfc(1,2)<my<R_vVfc(2,2)THEN
werf11:=zvfgk3(werf11,R_vVfc,CHAR({82,101,115,105,115,116,101,110,99,105,97,3
2,97,32,99,111,109,112,114,101,115,105,111,110,32,100,101,108,32,99,111,110,99,11
4,101,116,111,32,40,107,103,47,99,109,50,41}),lng);bhy2:=15000*sqrt(werf11);bhy3:=
bhy2/(2*(1+bhy4));ldljt1();BREAK;END;IF R_vVPE(1,1)<mx<R_vVPE(2,1)AND
R_vVPE(1,2)<my<R_vVPE(2,2)THEN
bhy1:=zvfgk3(bhy1,R_vVPE,CHAR({80,101,115,111,32,101,115,112,101,99,105,102,
105,99,111,32,40,107,103,47,109,51,41}),lng);ldljt1();BREAK;END;IF
R_vVPO(1,1)<mx<R_vVPO(2,1)AND R_vVPO(1,2)<my<R_vVPO(2,2)THEN
bhy4:=zvfgk3(bhy4,R_vVPO,CHAR({77,111,100,117,108,111,32,100,101,32,80,111,1
05,115,115,111,110}),lng);bhy3:=bhy2/(2*(1+bhy4));ldljt1();BREAK;END;IF
R_vVE(1,1)<mx<R_vVE(2,1)AND R_vVE(1,2)<my<R_vVE(2,2)THEN
bhy2:=zvfgk3(bhy2,R_vVE,CHAR({77,111,100,117,108,111,32,100,101,32,69,108,97,
115,116,105,99,105,100,97,100,32,40,107,103,47,99,109,50,41}),lng);bhy3:=bhy2/(2*(
1+bhy4));ldljt1();BREAK;END;IF R_vVG(1,1)<mx<R_vVG(2,1)AND
R_vVG(1,2)<my<R_vVG(2,2)THEN
bhy3:=zvfgk3(bhy3,R_vVG,CHAR({77,111,100,117,108,111,32,100,101,32,99,111,11
4,116,101,32,40,107,103,47,99,109,50,41}),lng);ldljt1();BREAK;END;IF
R_vv(1,1)<mx<R_vv(2,1)AND R_vv(1,2)<my<R_vv(2,2)THEN
ldljtr3(liev15);ldljt1();BREAK;END;IF R_xx(1,1)<mx<R_xx(2,1)AND
R_xx(1,2)<my<R_xx(2,2)THEN tdljt3(liev15);ldljt1();BREAK;END;IF
R_ee(1,1)<mx<R_ee(2,1)AND R_ee(1,2)<my<R_ee(2,2)THEN
ldljt3(1,liev15);ldljt1();BREAK;END;dx:=180;dy:=15;Lx:=100;Ly:=91;FOR j:=1 TO
hfjq10 DO R_ii:={{dx,dy+9+16*(j-1)},{dx+Lx,dy+9+16*j}};IF
R_ii(1,1)<mx<R_ii(2,1)AND R_ii(1,2)<my<R_ii(2,2)THEN
gpk8:=j;ldljt3(0,liev15);ldljt1();BREAK(2);END;END;END;IF liev15==3 THEN IF
R_vAe(1,1)<mx<R_vAe(2,1)AND R_vAe(1,2)<my<R_vAe(2,2)THEN
bhy5:=zvfgk3(bhy5,R_vAe,"",lng);ldljt1();BREAK;END;IF
R_vAfm(1,1)<mx<R_vAfm(2,1)AND R_vAfm(1,2)<my<R_vAfm(2,2)THEN
bhy7:=zvfgk3(bhy7,R_vAfm,"",lng);bhy9:=500*bhy7;bhy10:=bhy9/(2*(1+gpk1));ldljt1
();BREAK;END;IF R_vAPE(1,1)<mx<R_vAPE(2,1)AND
R_vAPE(1,2)<my<R_vAPE(2,2)THEN
bhy8:=zvfgk3(bhy8,R_vAPE,CHAR({80,101,115,111,32,101,115,112,101,99,105,102,
105,99,111,32,40,107,103,47,109,51,41}),lng);ldljt1();BREAK;END;IF
R_vAPO(1,1)<mx<R_vAPO(2,1)AND R_vAPO(1,2)<my<R_vAPO(2,2)THEN
gpk1:=zvfgk3(gpk1,R_vAPO,CHAR({77,111,100,117,108,111,32,100,101,32,80,111,1
05,115,115,111,110}),lng);bhy10:=bhy9/(2*(1+gpk1));ldljt1();BREAK;END;IF
R_vAE(1,1)<mx<R_vAE(2,1)AND R_vAE(1,2)<my<R_vAE(2,2)THEN
bhy9:=zvfgk3(bhy9,R_vAE,CHAR({77,111,100,117,108,111,32,100,101,32,69,108,97,
115,116,105,99,105,100,97,100,32,40,107,103,47,99,109,50,41}),lng);bhy10:=bhy9/(2*
(1+gpk1));ldljt1();BREAK;END;IF R_vAG(1,1)<mx<R_vAG(2,1)AND
R_vAG(1,2)<my<R_vAG(2,2)THEN
bhy10:=zvfgk3(bhy10,R_vAG,CHAR({77,111,100,117,108,111,32,100,101,32,99,111,
114,116,101,32,40,107,103,47,99,109,50,41}),lng);ldljt1();BREAK;END;IF
R_vv(1,1)<mx<R_vv(2,1)AND R_vv(1,2)<my<R_vv(2,2)THEN
ldljtr3(liev15);ldljt1();BREAK;END;IF R_xx(1,1)<mx<R_xx(2,1)AND
R_xx(1,2)<my<R_xx(2,2)THEN tdljt3(liev15);ldljt1();BREAK;END;IF
R_ee(1,1)<mx<R_ee(2,1)AND R_ee(1,2)<my<R_ee(2,2)THEN
ldljt3(1,liev15);ldljt1();BREAK;END;dx:=180;dy:=15;Lx:=100;Ly:=91;FOR j:=1 TO
werf1 DO R_ii:={{dx,dy+9+16*(j-1)},{dx+Lx,dy+9+16*j}};IF
R_ii(1,1)<mx<R_ii(2,1)AND R_ii(1,2)<my<R_ii(2,2)THEN
gpk10:=j;ldljt3(0,liev15);ldljt1();BREAK(2);END;END;END;
IF liev15==4 THEN IF R_AIM(1,1)<mx<R_AIM(2,1)AND
R_AIM(1,2)<my<R_AIM(2,2)THEN
jliu20:=zvfgk3(jliu20,R_AIM,CHAR({77,97,115,97,32,100,101,108,32,97,105,115,108
,97,100,111,114,32,40,84,110,41}),lng);ldljt1();yyhte7;BREAK;END;IF
R_AIK(1,1)<mx<R_AIK(2,1)AND R_AIK(1,2)<my<R_AIK(2,2)THEN
jliu19:=zvfgk3(jliu19,R_AIK,CHAR({82,105,103,105,100,101,122,32,100,101,108,32,
97,105,115,108,97,100,111,114,32,40,84,110,46,115,50,47,109,41}),lng);ldljt1();yyhte
7;BREAK;END;IF R_ATo(1,1)<mx<R_ATo(2,1)AND
R_ATo(1,2)<my<R_ATo(2,2)THEN
jliu18:=zvfgk3(jliu18,R_ATo,CHAR({80,101,114,105,111,100,111,32,111,98,106,101,
116,105,118,111,32,100,101,108,32,115,105,115,116,101,109,97,32,97,105,115,108,97
,100,111,32,40,115,41}),lng);ldljt1();yyhte7;BREAK;END;IF
R_Aam(1,1)<mx<R_Aam(2,1)AND R_Aam(1,2)<my<R_Aam(2,2)THEN
dshy1:=zvfgk3(dshy1,R_Aam,CHAR({82,97,122,111,110,32,100,101,32,97,109,111,11
4,116,105,103,117,97,109,105,101,110,116,111,32,100,101,108,32,115,105,115,116,10
1,109,97,32,97,105,115,108,97,100,111}),lng);ldljt1();BREAK;END;END;END;END;
ELSE IF Accion=4 THEN BREAK;END END;UNTIL 0;END;PRes(Tipp)BEGIN IF
Tipp==1 THEN axsdcerfR();END;LOCAL LmnsP;LmnsP:=hcP(LmnscP);LOCAL
touch;REPEAT WAIT(-1)▶touch;IF TYPE(touch)=6 THEN IF touch(1)=0 OR
touch(1)=3 THEN IF 0<=touch(2)<=30 AND 0<=touch(3)<=20 THEN
axsdcerfOpc1(5,25,140,1,1,LmnsP,1);PRes(0);BREAK;END;IF 300<=touch(2)<=320
AND 0<=touch(3)<=25 THEN varcaq(2);ANESH();BREAK;END;END;END;IF
TYPE(touch)=0 AND touch==4 THEN varcaq(2);BREAK;END;UNTIL
0;END;Lmnscwe:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗䴚䴧䴩䴖䴙
"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","
䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃
䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚
䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞
䴤䴣䴚䴨"}};ogol()BEGIN RECT_P(25,1,85,21,Col142);TEXTOUT_P("››",5,-
5,7,Col106);BLIT_P(1,1,24,24,CHAR({88,108,125,110,108}-
11),0,0,23,23);TEXTOUT_P(CHAR({48,61,52,66,55}+17),28,4,3,Col39);TEXTOUT_
P(CHAR({48,61,52,66,55}+17),28,4,3,Col39);END;escDiag;axsdcerfR()BEGIN
DIMGROB_P(G5,320,240);RECT_P(G5,0,0,320,240,RGB(240,240,240));RECT_P(G5
,25,1,85,21,Col142);TEXTOUT_P("››",G5,5,-
5,7,Col106);BLIT_P(G5,1,1,24,24,CHAR({88,108,125,110,108}-
11),0,0,23,23);TEXTOUT_P(CHAR({48,61,52,66,55}+17),G5,28,4,3,Col39);TEXTO
UT_P(CHAR({48,61,52,66,55}+17),G5,28,4,3,Col39);RECT_P(G5,300,2,316,17,RGB
(153,153,153));TEXTOUT_P("x",G5,304,-
3,5,#FFFFFFh,100);TEXTOUT_P(CHAR({-44,-32,-29,-46,-28,-79,-42,-28,-44,-46,-
35,-46,-33,-27,-42}+111),G5,5,218,1,Col137);TEXTOUT_P(CHAR({-44,-32,-29,-46,-
28,-79,-42,-28,-44,-46,-35,-46,-33,-27,-
42}+111),G5,6,218,1,Col137);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),G5
,60,228,1,Col137);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),G5,59,228,1,C
ol137);BLIT_P(G0,G5);END;RigidezM:={{"EA/L","0","0","-
EA/L","0","0"},{"0","12EI/L^3","6EI/L^2","0","-
12EI/L^3","6EI/L^2"},{"0","6EI/L^2","4EI/L","0","-6EI/L^2","2EI/L"},{"-
EA/L","0","0","EA/L","0","0"},{"0","-12EI/L^3","-6EI/L^2","0","12EI/L^3","-
6EI/L^2"},{"0","6EI/L^2","2EI/L","0","-6EI/L^2","4EI/L"}};Lmznsc:={{"䳸䴤䴨䴚䴣
䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨","䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤
䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩
䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡
䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚
䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚
䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡
䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢
䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩
䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸
䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺
䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗
䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢
䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};TactilMR()BEGIN
LOCAL touch1;REPEAT touch1:=MOUSE();touch1:=B→R(touch1(1));IF
SIZE(touch1)THEN IF 0<=touch1(3)<=30 AND 0<=touch1(4)<=22 THEN
BREAK;END;END;IF ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;WAIT(-
1);UNTIL 0;END;mvre(w,h)BEGIN LOCAL
mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL sw:=320,sh:=220;LOCAL
x:=0,y:=0,d:=0,ld:=0;LOCAL z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL
dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1,cnm,ml,tlc,tlf;cnm:=1;REPEAT WAIT(-
1);tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUSE(1);ms:=MOUSE(4);IF
ms=2 THEN IF NOT ig THEN ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF
mx>mx0 THEN tt(1):=tt(1)+(mx-mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF
my>my0 THEN tt(2):=tt(2)+(my-my0)/z;ELSE tt(4):=tt(4)+(my0-
my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE ig:=0;END;x:=MAX(MIN(x-
tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-sh/z),0);BLIT_P(G1,-FP(x)*z,-
FP(y)*z,sw+(CEILING(x+sw/z)-(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));IF
TYPE(touc)==6 THEN IF touc(1)==0 OR touc(1)==3 THEN IF 0<=touc(2)<=30 AND
0<=touc(3)<=20 THEN BLIT_P(G5,G0);BREAK(2);END;END;IF TYPE(touc)=0
AND touc==7 THEN cnm:=cnm-1;IF cnm==0 THEN
cnm:=SIZE(L1);END;ml:=L1(cnm);tlc:=ml(1);tlc:=DELCOL(tlc,7);tlf:=ml(-
7);tlf:=DELROW(tlf,1);ml:=DELCOL(ml,7);ml:=DELROW(ml,1);RECT_P(G9);oligft
125(50,70,1,6,6,15,80,Col131,Col128,ml,1,tlc,tlf);TEXTOUT_P(cnm,187,225,2,Col3,1
00,RGB(240,240,240));TEXTOUT_P(cnm,188,225,2,Col3);mvre(600,300);BREAK;E
ND;IF TYPE(touc)=0 AND touc==8 AND Nnud==Eqx THEN cnm:=cnm+1;IF
SIZE(L1)<cnm THEN
cnm:=1;END;END;ml:=L1(cnm);tlc:=ml(1);tlc:=DELCOL(tlc,7);tlf:=ml(-
7);tlf:=DELROW(tlf,1);ml:=DELCOL(ml,7);ml:=DELROW(ml,1);RECT_P(G9);oligft
125(50,70,1,6,6,15,80,Col131,Col128,ml,1,tlc,tlf);TEXTOUT_P(cnm,187,225,2,Col3,1
00,RGB(240,240,240));TEXTOUT_P(cnm,188,225,2,Col3);mvre(600,300);BREAK;E
ND;BLIT_P(G0,0,20,sw,sh+20,G1,0,0,sw,sh);ogol();UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);DIMGROB_P(G1,0,0);END;Ecuacin:={{"䳸
䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹
䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞
䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣
䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣
䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧
䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡
䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸
䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖
䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤
䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖
䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡
","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"
䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼
䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞
䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘
䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚
䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖
䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘
䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};tlitg3(dx,dy,Lx,Ly,Nam,GD,v,T)BEGIN
LOCAL R_vv,R_xx,R_ee;RECT_P({dx,dy},{dx+Lx,dy-
3},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,97,115,101,32,68,97,116,111,115}),dx,
dy-
8,2,Black,90,Fondo);RECT_P(dx,dy+8,dx+Lx,dy+Ly,PlomoA);RECT_P(dx,dy+8,dx+
Lx,dy+9,AzulTit);RECT_P(dx,dy+Ly,dx+Lx,dy+Ly+1,AzulTit);dy:=dy+1;R_vv:={{dx
,dy+Ly},{dx+Lx/3,dy+Ly+18}};R_xx:={{dx+Lx/3,dy+Ly},{dx+2*Lx/3,dy+Ly+18}};
R_ee:={{dx+2*Lx/3,dy+Ly},{dx+Lx,dy+Ly+18}};RECT_P(R_vv(1),R_vv(2),DarkBlu
e,Plomo);TEXTOUT_P("✔",dx+Lx/6-
5,dy+Ly+3,2,AzulTit);RECT_P(R_xx(1),R_xx(2),DarkBlue,Plomo);TEXTOUT_P("✘"
,dx+Lx/2-
5,dy+Ly+3,2,AzulTit);RECT_P(R_ee(1),R_ee(2),DarkBlue,Plomo);TEXTOUT_P("✎"
,dx+5*Lx/6-5,dy+Ly+3,2,AzulTit);FOR j:=1 TO T DO
TEXTOUT_P(Nam+CHAR({45})+GD(j,1)+CHAR({120})+GD(j,2),dx+5,dy-
3+16*j,2,AzulTit);END;RECT_P({dx,dy+9+16*(v-
1)},{dx+Lx,dy+9+16*v},AzulTit);TEXTOUT_P(Nam+CHAR({45})+GD(v,1)+CHAR
({120})+GD(v,2),dx+5,dy-3+16*v,2,White);END;ldljtr3(liev15)BEGIN LOCAL
v:=0,m;CASE IF liev15==1 THEN m:=hfjq9;hfjq9:=hfjq9+1;IF hfjq9<1 THEN
hfjq9:=1;END;gpk5(hfjq9,1):=werf2;gpk5(hfjq9,2):=werf3;gpk5(hfjq9,3):=werf4;gpk5(
hfjq9,4):=werf5;gpk5(hfjq9,5):=werf8;gpk5(hfjq9,6):=werf6;gpk5(hfjq9,7):=werf7;IF
hfjq9>1 THEN FOR j:=1 TO 7 DO IF gpk5(hfjq9,j)<>gpk5(m,j)THEN
v:=1;BREAK;END;END;END;IF v==0 THEN DELROW(gpk5,hfjq9);hfjq9:=hfjq9-
1;END;IF hfjq9<1 THEN hfjq9:=1;END;IF hfjq9>5 THEN
DELROW(gpk5,hfjq9);hfjq9:=5;END;gpk6:=hfjq9;END;IF liev15==2 THEN
m:=hfjq10;hfjq10:=hfjq10+1;IF hfjq10<1 THEN
hfjq10:=1;END;gpk7(hfjq10,1):=werf9;gpk7(hfjq10,2):=werf10;gpk7(hfjq10,3):=werf1
1;gpk7(hfjq10,4):=bhy1;gpk7(hfjq10,5):=bhy4;gpk7(hfjq10,6):=bhy2;gpk7(hfjq10,7):=
bhy3;IF hfjq10>1 THEN FOR j:=1 TO 7 DO IF gpk7(hfjq10,j)<>gpk7(m,j)THEN
v:=1;yyhte7;BREAK;END;END;END;IF v==0 THEN
DELROW(gpk7,hfjq10);hfjq10:=hfjq10-1;END;IF hfjq10<1 THEN hfjq10:=1;END;IF
hfjq10>5 THEN DELROW(gpk7,hfjq10);hfjq10:=5;END;gpk8:=hfjq10;END;IF
liev15==3 THEN m:=werf1;werf1:=werf1+1;IF werf1<1 THEN
werf1:=1;END;gpk9(werf1,1):=bhy5;gpk9(werf1,2):=bhy6;gpk9(werf1,3):=bhy7;gpk9(
werf1,4):=bhy8;gpk9(werf1,5):=gpk1;gpk9(werf1,6):=bhy9;gpk9(werf1,7):=bhy10;IF
werf1>1 THEN FOR j:=1 TO 7 DO IF gpk9(werf1,j)<>gpk9(m,j)THEN
v:=1;BREAK;END;END;END;IF v==0 THEN DELROW(gpk9,werf1);werf1:=werf1-
1;END;IF werf1<1 THEN werf1:=1;END;IF werf1>5 THEN
DELROW(gpk9,werf1);werf1:=5;END;gpk10:=werf1;END;END;END;tdljt3(liev15)B
EGIN CASE IF liev15==1 THEN hfjq9:=hfjq9-1;IF hfjq9<=1 THEN
hfjq9:=1;END;abd9:=hfjq9;gpk6:=gpk6-1;IF gpk6>1 THEN
DELROW(gpk5,gpk6+1);ldljt3(0,liev15);ELSE gpk6:=1;END;END;IF liev15==2
THEN hfjq10:=hfjq10-1;IF hfjq10<1 THEN
hfjq10:=1;END;bdc6:=hfjq10;gpk8:=gpk8-1;IF gpk8>=1 THEN
DELROW(gpk7,gpk8+1);ldljt3(0,liev15);ELSE gpk8:=1;END;END;IF liev15==3
THEN werf1:=werf1-1;IF werf1<1 THEN werf1:=1;END;expr9:=werf1;gpk10:=gpk10-
1;IF gpk10>=1 THEN DELROW(gpk9,gpk10+1);ldljt3(0,liev15);ELSE
gpk10:=1;END;END;END;END;ldljt3(v,liev15)BEGIN CASE IF liev15==1 THEN IF
v==0 THEN
werf2:=gpk5(gpk6,1);werf3:=gpk5(gpk6,2);werf4:=gpk5(gpk6,3);werf5:=gpk5(gpk6,4)
;
werf8:=gpk5(gpk6,5);werf6:=gpk5(gpk6,6);werf7:=gpk5(gpk6,7);ELSE
gpk5(gpk6,1):=werf2;gpk5(gpk6,2):=werf3;gpk5(gpk6,3):=werf4;gpk5(gpk6,4):=werf5
;gpk5(gpk6,5):=werf8;gpk5(gpk6,6):=werf6;gpk5(gpk6,7):=werf7;END;END;IF
liev15==2 THEN IF v==0 THEN
werf9:=gpk7(gpk8,1);werf10:=gpk7(gpk8,2);werf11:=gpk7(gpk8,3);bhy1:=gpk7(gpk8,
4);bhy4:=gpk7(gpk8,5);bhy2:=gpk7(gpk8,6);bhy3:=gpk7(gpk8,7);ELSE
gpk7(gpk8,1):=werf9;gpk7(gpk8,2):=werf10;gpk7(gpk8,3):=werf11;gpk7(gpk8,4):=bhy
1;gpk7(gpk8,5):=bhy4;gpk7(gpk8,6):=bhy2;gpk7(gpk8,7):=bhy3;END;END;IF
liev15==3 THEN IF v==0 THEN
bhy5:=gpk9(gpk10,1);bhy6:=gpk9(gpk10,2);bhy7:=gpk9(gpk10,3);bhy8:=gpk9(gpk10,
4);gpk1:=gpk9(gpk10,5);bhy9:=gpk9(gpk10,6);bhy10:=gpk9(gpk10,7);ELSE
gpk9(gpk10,1):=bhy5;gpk9(gpk10,2):=bhy6;gpk9(gpk10,3):=bhy7;gpk9(gpk10,4):=bhy
8;gpk9(gpk10,5):=gpk1;gpk9(gpk10,6):=bhy9;gpk9(gpk10,7):=bhy10;END;END;END;
END;fldth2()BEGIN LOCAL
R_Cont:={},R_Acep:={},R_Par:={},R_Est:={},R_Din:={};LOCAL
mx,my,nx:=CHAR({115}),ny,fx;LOCAL
sx,sy,rx,ry,bx,by;RECT(Fondo);R_Par:={{0,1},{107,25}};RECT_P(R_Par(1),R_Par(2)
,DarkBlue,AzulTit);TEXTOUT_P(CHAR({32,80,65,82,65,77,69,84,82,79,83,32}),15,7
,2,White);R_Est:={{107,1},{215,25}};RECT_P(R_Est(1),R_Est(2),DarkBlue,AzulTit);
TEXTOUT_P(CHAR({32,69,83,84,65,84,73,67,79,32}),134,7,2,White);ny:=CHAR({1
01});R_Din:={{215,1},{320,25}};RECT_P(R_Din(1),R_Din(2),DarkBlue,AzulTit);TE
XTOUT_P(CHAR({32,68,73,78,65,77,73,67,79,32}),236,7,2,White);LOCAL
dx,dy,ex,ey;LOCAL R_Sz,R_Ss,R_Su,R_SRox,R_SRoy,R_SIa,R_SIp;LOCAL
R_SCtx,R_SCty,R_SEam,R_SEexX,R_SEexY,R_SEA,R_SEB;LOCAL
R_SDam,R_SDexX,R_SDexY,R_SpeX,R_SpeY,R_Sgr;
LOCAL R_SDA,R_SDB,regn;CASE IF liev14==1 THEN
RECT_P({0,30},{320,200},Fondo,Fondo);RECT_P(R_Par(1),R_Par(2),Fondo,Fondo);
TEXTOUT_P(CHAR({32,80,65,82,65,77,69,84,82,79,83,32}),15,7,2,Black);dx:=0;bx:
=CHAR({114});sx:=nx+ny;dy:=20;RECT_P({10,25+dy},{145,180+dy},DarkBlue,Fon
do);TEXTOUT_P(CHAR({90,32,58}),15+dx,40+dy,2);sy:=CHAR({97,108});TEXTO
UT_P(CHAR({83,32,58}),15+dx,60+dy,2);TEXTOUT_P(CHAR({85,32,58}),15+dx,8
0+dy,2);TEXTOUT_P(CHAR({82,111,45,88,32,58}),15+dx,100+dy,2);TEXTOUT_P(
CHAR({82,111,45,89,32,58}),15+dx,120+dy,2);TEXTOUT_P(CHAR({73,97,32,58}),
15+dx,140+dy,2);TEXTOUT_P(CHAR({73,112,32,58}),15+dx,160+dy,2);dx:=-
20;by:=CHAR({105});R_Sz:={{75+dx,40+dy-
2},{130+dx,40+dy+14}};R_Ss:={{75+dx,60+dy-
2},{135+dx,60+dy+14}};R_Su:={{75+dx,80+dy-
2},{155+dx,80+dy+14}};R_SRox:={{75+dx,100+dy-
2},{115+dx,100+dy+14}};R_SRoy:={{75+dx,120+dy-
2},{115+dx,120+dy+14}};R_SIa:={{75+dx,140+dy-
2},{115+dx,140+dy+14}};R_SIp:={{75+dx,160+dy-
2},{115+dx,160+dy+14}};LOCAL
dx:=170,dy:=20;fx:=bx+by;LINE({0,30},{320,200},Fondo);RECT_P({180,25+dy},{29
0,27+dy},DarkBlue,Fondo);TEXTOUT_P(CHAR({32,32,86,97,108,111,114,101,115,3
2}),210,20+dy,2,Black,90,Fondo);END;IF liev14==2 THEN
llfft7();RECT_P({0,30},{320,200},Fondo,Fondo);RECT_P(R_Est(1),R_Est(2),Fondo,F
ondo);TEXTOUT_P(CHAR({32,69,83,84,65,84,73,67,79,32}),134,7,2,Black);dx:=0;sx
:=nx+ny;dy:=20;xpe10:=0;sy:=CHAR({97,108});CASE IF xpe10==2 THEN
R_SEA:={{14+dx,13+dy},{80+dx,35+dy}};R_SEB:={{80+dx,13+dy},{140+dx,35+dy
}};dy:=-
2;RECT_P(R_SEA(1),R_SEA(2),DarkBlue,Fondo);RECT_P(R_SEB(1),R_SEB(2),Dar
kBlue,PlomoA);TEXTOUT_P("
◉",106+dx,38+dy,3);TEXTOUT_P(CHAR({32,51,68,32,58}),86+dx,40+dy,2);END;IF
xpe10==1 THEN
R_SEA:={{14+dx,13+dy},{80+dx,35+dy}};R_SEB:={{80+dx,13+dy},{140+dx,35+dy
}};dy:=-
2;RECT_P(R_SEA(1),R_SEA(2),DarkBlue,PlomoA);RECT_P(R_SEB(1),R_SEB(2),D
arkBlue,Fondo);TEXTOUT_P(CHAR({50,68,32,58}),30+dx,40+dy,2);TEXTOUT_P("
◉",50+dx,38+dy,3);END;END;dy:=30;dx:=15;dy:=dy-
20;RECT_P({10,35+dy},{145,180},DarkBlue,Fondo);TEXTOUT_P("",15,30+dy,2,Bla
ck,90,Fondo);TEXTOUT_P(CHAR({67,84,45,88,32,58}),15+dx,60+dy,2);TEXTOUT_
P(CHAR({67,84,45,89,32,58}),15+dx,80+dy,2);TEXTOUT_P(CHAR({101,120,99,45,
88,58}),15+dx,120+dy,2);TEXTOUT_P(CHAR({101,120,99,45,89,32,58}),15+dx,140
+dy,2);dx:=0;bx:=CHAR({114});R_SCtx:={{75+dx,60+dy-
2},{120+dx,60+dy+14}};R_SCty:={{75+dx,80+dy-
2},{120+dx,80+dy+14}};R_SEam:={{75+dx,100+dy-
2},{120+dx,100+dy+14}};R_SEexX:={{75+dx,120+dy-
2},{120+dx,120+dy+14}};R_SEexY:={{75+dx,140+dy-
2},{120+dx,140+dy+14}};dx:=150;dy:=20;ex:=dx;by:=CHAR({105});ey:=dy;fx:=bx+
by;LINE({150,30},{320,200},Fondo);RECT_P({155,25+dy},{290,27+dy},DarkBlue,F
ondo);TEXTOUT_P(CHAR({32,32,67,97,108,99,117,108,111,115,32}),195,20+dy,2,B
lack,90,Fondo);END;IF liev14==3 THEN
RECT_P({0,30},{320,200},Fondo,Fondo);RECT_P(R_Din(1),R_Din(2),Fondo,Fondo);
TEXTOUT_P(CHAR({32,68,73,78,65,77,73,67,79,32}),236,7,2,Black);dx:=0;dy:=20;p
ft6:=0;sy:=CHAR({97,108});CASE IF pft6==2 THEN
R_SDA:={{14+dx,13+dy},{80+dx,35+dy}};R_SDB:={{80+dx,13+dy},{140+dx,35+d
y}};dy:=-
2;RECT_P(R_SDA(1),R_SDA(2),DarkBlue,Fondo);RECT_P(R_SDB(1),R_SDB(2),Da
rkBlue,PlomoA);TEXTOUT_P("
◉",106+dx,38+dy,3);TEXTOUT_P(CHAR({32,51,68,32,58}),86+dx,40+dy,2);END;IF
pft6==1 THEN
R_SDA:={{14+dx,13+dy},{80+dx,35+dy}};R_SDB:={{80+dx,13+dy},{140+dx,35+d
y}};dy:=-
2;RECT_P(R_SDA(1),R_SDA(2),DarkBlue,PlomoA);RECT_P(R_SDB(1),R_SDB(2),
DarkBlue,Fondo);TEXTOUT_P(CHAR({50,68,32,58}),30+dx,40+dy,2);TEXTOUT_P
(" ◉",50+dx,38+dy,3);END;END;dy:=-22;dx:=15;bx:=CHAR({114});dy:=dy-
20;by:=CHAR({105});sx:=nx+ny;RECT_P({10,65-20},{145,160-
20},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,120,99,45,88,58}),15+dx,120+dy,2);
TEXTOUT_P(CHAR({101,120,99,45,89,32,58}),15+dx,140+dy,2);TEXTOUT_P(CH
AR({103,32,58}),15+dx,160+dy,2);dx:=0;fx:=bx+by;R_SDam:={{75+dx,100+dy-
2},{120+dx,100+dy+14}};R_SDexX:={{75+dx,120+dy-
2},{120+dx,120+dy+14}};R_SDexY:={{75+dx,140+dy-
2},{120+dx,140+dy+14}};R_Sgr:={{75+dx,160+dy-
2},{120+dx,160+dy+14}};TEXTOUT_P(""+CHAR({32,69,115,112,101,99,116,114,11
1,115,32,100,101,32,114,101,115,112,117,101,115,116,97,32}),155,40,2,Black);R_Spe
X:={{180,80},{230,80+18}};RECT_P(R_SpeX(1),R_SpeX(2),DarkBlue,PlomoA);TE
XTOUT_P(CHAR({69,115,112,101,99,45,88}),R_SpeX(1,1)+3,R_SpeX(1,2)+3,2);R_
SpeY:={{180,120},{230,120+18}};RECT_P(R_SpeY(1),R_SpeY(2),DarkBlue,Plomo
A);TEXTOUT_P(CHAR({69,115,112,101,99,45,89}),R_SpeY(1,1)+3,R_SpeY(1,2)+3,
2);END;END;R_Acep:={{195,204},{255,222}};regn:=sx+fx+sy;RECT_P(R_Acep(1),
R_Acep(2),DarkBlue,Plomo);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),R_A
cep(1,1)+8,R_Acep(1,2)+3,2);REPEAT CASE IF liev14==1 THEN
jjrtg3(pft10,R_Sz,AzulTit,White);jjrtg3(fld1,R_Ss,AzulTit,White);jjrtg3(fld2,R_Su,Azu
lTit,White);fldth3(STRING(tgh7,1),R_SRox,AzulTit,White);fldth3(STRING(tgh8,1),R
_SRoy,AzulTit,White);fldth3(STRING(tgh9,1),R_SIa,AzulTit,White);fldth3(STRING(t
gh10,1),R_SIp,AzulTit,White);END;IF liev14==2 THEN
fldth3(tgh5,R_SCtx,AzulTit,White);fldth3(tgh6,R_SCty,AzulTit,White);fldth3(xpe4,R_
SEam,AzulTit,White);fldth3(STRING(xpe6,1),R_SEexX,AzulTit,White);fldth3(STRIN
G(xpe7,1),R_SEexY,AzulTit,White);END;IF liev14==3 THEN
fldth3(STRING(xpe5,1),R_SDam,AzulTit,White);fldth3(STRING(pft4,1),R_SDexX,Az
ulTit,White);fldth3(STRING(pft5,1),R_SDexY,AzulTit,White);fldth3(STRING(pft3,1),
R_Sgr,AzulTit,White);END;END;LOCAL
nZon:={CHAR({90,111,110,97,32,49}),CHAR({90,111,110,97,32,50}),CHAR({90,11
1,110,97,32,51}),CHAR({90,111,110,97,32,52})};LOCAL
nPer:={CHAR({80,101,114,102,105,108,32,83,48}),CHAR({80,101,114,102,105,108,3
2,83,49}),CHAR({80,101,114,102,105,108,32,83,50}),CHAR({80,101,114,102,105,10
8,32,83,51}),CHAR({80,101,114,102,105,108,32,83,52})};LOCAL
nCat:={CHAR({67,97,116,101,103,111,114,105,97,32,65,49}),CHAR({67,97,116,101,
103,111,114,105,97,32,65,50}),CHAR({67,97,116,101,103,111,114,105,97,32,66}),CH
AR({67,97,116,101,103,111,114,105,97,32,67}),CHAR({67,97,116,101,103,111,114,1
05,97,32,68})};WAIT(-1)▶Accion;IF TYPE(Accion)=6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF(R_Par(1,1)<mx<(R_Par(2,1))AND
R_Par(1,2)<my<R_Par(2,2))THEN
liev14:=1;fldth2();BREAK;END;IF(R_Est(1,1)<mx<(R_Est(2,1))AND
R_Est(1,2)<my<R_Est(2,2))THEN
liev14:=2;fldth2();BREAK;END;IF(R_Din(1,1)<mx<(R_Din(2,1))AND
R_Din(1,2)<my<R_Din(2,2))THEN
liev14:=3;fldth2();BREAK;END;IF(R_Acep(1,1))<mx<R_Acep(2,1)AND
R_Acep(1,2)<my<R_Acep(2,2)THEN BREAK;END;IF liev14==1 THEN IF
R_Sz(1,1)<mx<(R_Sz(2,1))AND R_Sz(1,2)<my<R_Sz(2,2)THEN LOCAL
liev14;liev14:=ffllq3(pft7,nZon,R_Sz(1,1),R_Sz(2,2),55,1,PlomoA,Blue,DarkBlue,Blac
k);IF liev14<>0 THEN
pft7:=liev14;pft10:=nZon(pft7);tgh2:=fld3(pft7);tgh3:=fld5(pft7,pft8);xpe1:=fld8(1,pft8
);xpe2:=fld8(2,pft8);END;fldth2();BREAK;END;IF
R_Ss(1,1)<mx<(R_Ss(2,1)+50)AND R_Ss(1,2)<my<R_Ss(2,2)THEN LOCAL
liev14;liev14:=ffllq3(pft8,nPer,R_Ss(1,1),R_Ss(2,2),60,1,PlomoA,Blue,DarkBlue,Black
);IF liev14<>0 THEN
pft8:=liev14;fld1:=nPer(pft8);tgh2:=fld3(pft7);tgh3:=fld5(pft7,pft8);xpe1:=fld8(1,pft8);
xpe2:=fld8(2,pft8);END;fldth2();BREAK;END;IF
R_Su(1,1)<mx<(R_Su(2,1)+50)AND R_Su(1,2)<my<R_Su(2,2)THEN LOCAL
liev14;liev14:=ffllq3(pft9,nCat,R_Su(1,1),R_Su(2,2),80,1,PlomoA,Blue,DarkBlue,Blac
k);IF liev14<>0 THEN
pft9:=liev14;fld2:=nCat(pft9);tgh4:=fld4(pft9);END;fldth2();BREAK;END;IF
R_SRox(1,1)<mx<R_SRox(2,1)AND R_SRox(1,2)<my<R_SRox(2,2)THEN
tgh7:=zvfgk3(tgh7,R_SRox,CHAR({67,111,101,102,105,99,105,101,110,116,101,32,9
8,97,115,105,99,111,32,100,101,32,114,101,100,117,99,99,105,111,110,32,101,110,32,
108,97,32,100,105,114,101,99,99,105,111,110,32,88}),regn);END;IF
R_SRoy(1,1)<mx<R_SRoy(2,1)AND R_SRoy(1,2)<my<R_SRoy(2,2)THEN
tgh8:=zvfgk3(tgh8,R_SRoy,CHAR({67,111,101,102,105,99,105,101,110,116,101,32,9
8,97,115,105,99,111,32,100,101,32,114,101,100,117,99,99,105,111,110,32,101,110,32,
108,97,32,100,105,114,101,99,99,105,111,110,32,89}),regn);END;IF
R_SIa(1,1)<mx<R_SIa(2,1)AND R_SIa(1,2)<my<R_SIa(2,2)THEN
qljgt3(CHAR({78,79,32,112,114,101,115,101,110,116,97,32,110,105,110,103,117,110,
97,32,105,114,114,101,103,117,108,97,114,105,100,97,100,32,101,110,32,97,108,116,
117,114,97}),CHAR({44,32,73,97,32,61,32,49}));END;IF
R_SIp(1,1)<mx<R_SIp(2,1)AND R_SIp(1,2)<my<R_SIp(2,2)THEN
qljgt3(CHAR({78,79,32,112,114,101,115,101,110,116,97,32,110,105,110,103,117,110,
97,32,105,114,114,101,103,117,108,97,114,105,100,97,100,32,101,110,32,112,108,97,
110,116,97}),CHAR({44,32,73,112,32,61,32,49}));END;END;IF liev14==2 THEN IF
R_SCtx(1,1)<mx<R_SCtx(2,1)AND R_SCtx(1,2)<my<R_SCtx(2,2)THEN
tgh5:=zvfgk3(tgh5,R_SCtx,CHAR({67,111,101,102,105,99,105,101,110,116,101,32,67
,84,32,100,105,114,101,99,99,105,111,110,32,88}),regn);fldth2();BREAK;END;IF
R_SCty(1,1)<mx<R_SCty(2,1)AND R_SCty(1,2)<my<R_SCty(2,2)THEN
tgh6:=zvfgk3(tgh6,R_SCty,CHAR({67,111,101,102,105,99,105,101,110,116,101,32,67
,84,32,100,105,114,101,99,99,105,111,110,32,89}),regn);END;IF
R_SEam(1,1)<mx<R_SEam(2,1)AND R_SEam(1,2)<my<R_SEam(2,2)THEN
qljgt3(CHAR({82,97,122,111,110,32,100,101,32,97,109,111,114,116,105,103,117,97,1
09,105,101,110,116,111,32,105,110,99,108,117,105,100,111,32,101,110,32,101,108,32
,101,115,112,101,99,116,114,111}),CHAR({32}));END;IF
R_SEexX(1,1)<mx<R_SEexX(2,1)AND R_SEexX(1,2)<my<R_SEexX(2,2)THEN
qljgt3("",CHAR({32}));END;IF R_SEexY(1,1)<mx<R_SEexY(2,1)AND
R_SEexY(1,2)<my<R_SEexY(2,2)THEN qljgt3("",CHAR({32}));END;END;IF
liev14==3 THEN IF R_SpeX(1,1)<mx<R_SpeX(2,1)AND
R_SpeX(1,2)<my<R_SpeX(2,2)THEN dfg4:=1;tlitg7(dfg4);fldth2();BREAK;END;IF
R_SpeY(1,1)<mx<R_SpeY(2,1)AND R_SpeY(1,2)<my<R_SpeY(2,2)THEN
dfg4:=2;tlitg7(dfg4);fldth2();BREAK;END;IF R_SDam(1,1)<mx<R_SDam(2,1)AND
R_SDam(1,2)<my<R_SDam(2,2)THEN
qljgt3(CHAR({82,97,122,111,110,32,100,101,32,97,109,111,114,116,105,103,117,97,1
09,105,101,110,116,111,32,105,110,99,108,117,105,100,111,32,101,110,32,101,108,32
,101,115,112,101,99,116,114,111}),CHAR({32}));END;IF
R_SDexX(1,1)<mx<R_SDexX(2,1)AND R_SDexX(1,2)<my<R_SDexX(2,2)THEN
qljgt3("",CHAR({32}));END;IF R_SDexY(1,1)<mx<R_SDexY(2,1)AND
R_SDexY(1,2)<my<R_SDexY(2,2)THEN qljgt3("",CHAR({32}));END;IF
R_Sgr(1,1)<mx<R_Sgr(2,1)AND R_Sgr(1,2)<my<R_Sgr(2,2)THEN
pft3:=zvfgk3(pft3,R_Sgr,CHAR({86,97,108,111,114,32,100,101,32,108,97,32,103,114,
97,118,101,100,97,100}),regn);END;END;END;END;ELSE IF Accion=4 THEN
BREAK;END END;UNTIL 0;END;cnm;MoverM(w,h,sw,sh)BEGIN LOCAL
mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL x:=0,y:=0,d:=0,ld:=0;LOCAL
z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1;REPEAT WAIT(-1)▶touch1;IF TYPE(touch1)=6 THEN IF touch1(1)=0 OR
touch1(1)=3 THEN IF 0<touch1(2)<30 AND 0<touch1(3)<23 THEN BREAK(2);
END;END;END;tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUSE(1);ms:=M
OUSE(4);IF ms=2 THEN IF NOT ig THEN
ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF mx>mx0 THEN tt(1):=tt(1)+(mx-
mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF my>my0 THEN tt(2):=tt(2)+(my-
my0)/z;ELSE tt(4):=tt(4)+(my0-my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE
ig:=0;END;x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-
sh/z),0);BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-
(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));IF
ISKEYDOWN(7)THEN cnm:=cnm-1;IF cnm==0 THEN
cnm:=SIZE(L1);END;BREAK;END;IF ISKEYDOWN(19)THEN
oligft116(1);BREAK;END;IF ISKEYDOWN(8)THEN cnm:=cnm+1;IF SIZE(L1)<cnm
THEN
cnm:=1;END;BREAK;END;BLIT_P(G0,40,20,sw+40,sh+20,G1,0,0,sw,sh);ogol();UN
TIL ISKEYDOWN(4);END;Lmnscaaa:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧
䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗
䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖
"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡
","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","
䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪
䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁
䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤
䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","
䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙
䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯
䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚
䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};MoverF(w,h,sw,sh)BEGIN LOCAL
mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL x:=0,y:=0,d:=0,ld:=0;LOCAL
z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1;REPEAT WAIT(-1)▶touch1;IF TYPE(touch1)=6 THEN IF touch1(1)=0 OR
touch1(1)=3 THEN IF 0<touch1(2)<30 AND 0<touch1(3)<23 THEN
BREAK(2);END;END;END;tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUS
E(1);ms:=MOUSE(4);IF ms=2 THEN IF NOT ig THEN
ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF mx>mx0 THEN tt(1):=tt(1)+(mx-
mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF my>my0 THEN tt(2):=tt(2)+(my-
my0)/z;ELSE tt(4):=tt(4)+(my0-my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE
ig:=0;END;x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-
sh/z),0);BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-
(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));IF
ISKEYDOWN(7)THEN cnm:=cnm-1;IF cnm==0 THEN
cnm:=SIZE(L1);END;BREAK;END;IF ISKEYDOWN(8)THEN cnm:=cnm+1;IF
SIZE(L1)<cnm THEN
cnm:=1;END;BREAK;END;BLIT_P(G0,0,20,sw,sh+20,G1,0,0,sw,sh);ogol();UNTIL
ISKEYDOWN(4);END;MoverCos(w,h)BEGIN LOCAL
mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL sw:=320,sh:=220;LOCAL
x:=0,y:=0,d:=0,ld:=0;LOCAL z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL
dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1;REPEAT WAIT(-1)▶touch1;IF TYPE(touch1)=6 THEN IF touch1(1)=0 OR
touch1(1)=3 THEN IF 0<touch1(2)<30 AND 0<touch1(3)<23 THEN
BREAK(2);END;END;END;tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUS
E(1);ms:=MOUSE(4);IF ms=2 THEN IF NOT ig THEN
ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF mx>mx0 THEN tt(1):=tt(1)+(mx-
mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF my>my0 THEN tt(2):=tt(2)+(my-
my0)/z;ELSE tt(4):=tt(4)+(my0-my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE
ig:=0;END;x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-
sh/z),0);BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-
(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));BLIT_P(
G0,0,20,sw,sh+20,G1,0,0,sw,sh);ogol();UNTIL ISKEYDOWN(4);END;Titu:={{"䴃䴪
䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤
䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗
䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃
䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡
䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚
䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞
䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨
䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨
䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩
䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤
䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘
䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚
䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤
䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢
䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚
䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖
䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣
䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};Titu2:={{"䴃䴪䴙䴤
䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖
䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡
","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙
䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗
䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯
䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣
䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹
䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣
"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤
䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨
䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞
䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣
䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨
䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖
䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢
䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡
","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩
䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};Titu3:={{"䴃䴪䴙䴤䴨
","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡
"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","
䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤
䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖
䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖
䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚
䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞
䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"
䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","
䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹
䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣
"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤
䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹
䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞
䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣
䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼
䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","
䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};zvfgk2()BEGIN LOCAL
R_Losa:={},R_Viga:={},R_Alba:={};LOCAL R_Acep:={};LOCAL
R_SDA,R_SDB,R_SC:={},R_CP:={},R_mCV:={},R_mCM:={},R_Area:={},R_CalA:
={};LOCAL mx,my,dx,dy,i,ba;LOCAL
eLosa:={CHAR({49,55,32,99,109}),CHAR({50,48,32,99,109}),CHAR({50,53,32,99,1
09}),CHAR({51,48,32,99,109}),CHAR({32,51,53,32,99,109})},R_SCa:={},R_CPa:={
},R_mCMa:={},R_mCVa:={};RECT(Fondo);RECT_P({0,1},{320,20},DarkBlue,Azul
Tit);TEXTOUT_P(CHAR({65,83,73,71,78,65,67,73,79,78,32,68,69,32,67,65,82,71,65,
83,32}),10,3,3,White);dx:=170;dy:=1;R_SDA:={{14+dx,1+dy},{80+dx,17+dy}};R_S
DB:={{80+dx,1+dy},{144+dx,17+dy}};dx:=dx-5;dy:=-
35;ba:=CAS(CAS(CHAR({83,69,82,73,65,76})));CASE IF dfg5==1 THEN
RECT_P(R_SDA(1),R_SDA(2),DarkBlue,PlomoA);RECT_P(R_SDB(1),R_SDB(2),Da
rkBlue,Fondo);TEXTOUT_P(CHAR({65,117,116,111,32}),30+dx,40+dy,2);TEXTOU
T_P(" ",55+dx,38+dy,3);TEXTOUT_P(CHAR({77,97,110,117,97,108})+" 〇
",88+dx,40+dy,2);dx:=0;dy:=50;RECT_P({10,25+dy},{300,25+dy+(rtyh2+2)*20},Dar
kBlue,Fondo);TEXTOUT_P(""+CHAR({32,65,115,105,103,110,97,114,32,67,97,114,1
03,97,32,115,111,98,114,101,32,108,97,32,108,111,115,97}),15+dx,20+dy,2,Black,180
,Fondo);dx:=60;dy:=dy+20;TEXTOUT_P(CHAR({83,111,98,114,101,99,97,114,103,9
7,40,67,86,41}),20+dx,20+dy,2);dx:=170;TEXTOUT_P(CHAR({80,101,114,109,97,11
0,101,110,116,101,40,67,77,41}),11+dx,20+dy,2);dy:=dy-15;FOR i:=1 TO rtyh2 DO
dy:=dy+20;dx:=80;R_SC(i):={{dx,35+dy},{dx+90,35+dy+16}};dx:=180;R_CP(i):={{d
x,35+dy},{dx+90,35+dy+16}};END;dy:=93;FOR i:=1 TO rtyh2 DO
dx:=0;dy:=dy+20;TEXTOUT_P(CHAR({78,105,118,101,108,32})+i+CHAR({58}),15
+dx,dy,2);ftyul3(STRING(dfg6(i),1),R_SC(i),CHAR({107,103,102,47,109,50}),AzulTi
t,White);dx:=170;ftyul3(STRING(dfg7(i),1),R_CP(i),CHAR({107,103,102,47,109,50})
,AzulTit,White);END;R_Losa:={{30,23},{80,23+18}};TEXTOUT_P(CHAR({101,32,
61,32}),R_Losa(1,1)-
20,R_Losa(1,2)+3,2);jjrtg3(eLosa(dfg9),R_Losa,AzulTit,White);TEXTOUT_P(CHAR(
{80,101,115,111,32,76,111,115,97,32,61,32})+dfg8(dfg9)+CHAR({32,107,103,47,99,1
09,50}),R_Losa(2,1)+8,R_Losa(1,2)+3,2);R_Area:={{95,45},{165,45+18}};TEXTOU
T_P(CHAR({65,114,101,97,32,116,101,99,104,97,100,97,32,61,32}),10,R_Area(1,2)+
3,2);ftyul3(STRING(abd1,1),R_Area,CHAR({109,50}),AzulTit,White);R_CalA:={{24
0,45},{310,45+18}};RECT_P({240,45},{310,45+18},DarkBlue,Plomo);TEXTOUT_P(
CHAR({67,97,108,46,32,65,114,101,97}),240+10,45+3,2);END;IF dfg5==2 AND
ba=="9CJ73507JL" THEN
RECT_P({0,20},{320,240},DarkBlue,Fondo);RECT_P(R_SDA(1),R_SDA(2),DarkBlu
e,Fondo);RECT_P(R_SDB(1),R_SDB(2),DarkBlue,PlomoA);TEXTOUT_P(CHAR({6
5,117,116,111})+" ",30+dx,40+dy,2);TEXTOUT_P("
",127+dx,38+dy,3);TEXTOUT_P(CHAR({77,97,110,117,97,108}),88+dx,40+dy,2);dx:
=0;dy:=30;TEXTOUT_P(CHAR({68,101,102,105,110,105,114,32,108,97,115,32,99,97
,114,103,97,115,32,109,117,101,114,116,97,32,121,32,118,105,118,97,32,84,79,84,65,
76,32,112,111,114,32,99,97,100,97,32,112,105,115,111}),20+dx,dy,2);RECT_P({10,25
+dy},{300,25+dy+(rtyh2+2)*20},DarkBlue,Fondo);TEXTOUT_P("✎"+CHAR({32,67
,97,114,103,97,32,116,111,116,97,108,32,112,111,114,32,112,105,115,111}),15+dx,20
+dy,2,Black,180,Fondo);dx:=60;dy:=dy+20;TEXTOUT_P(CHAR({67,97,114,103,97,3
2,86,105,118,97}),20+dx,20+dy,2);dx:=170;TEXTOUT_P(CHAR({67,97,114,103,97,3
2,77,117,101,114,116,97}),11+dx,20+dy,2);dy:=dy-15;FOR i:=1 TO rtyh2 DO
dy:=dy+20;dx:=80;R_mCV(i):={{dx,35+dy},{dx+90,35+dy+16}};dx:=180;R_mCM(i):
={{dx,35+dy},{dx+90,35+dy+16}};END;dy:=73;FOR i:=1 TO rtyh2 DO
dx:=0;dy:=dy+20;TEXTOUT_P(CHAR({78,105,118,101,108,32})+i+CHAR({58}),15
+dx,dy,2);ftyul3(STRING(cba1(i),1),R_mCV(i),CHAR({107,103,102}),AzulTit,White)
;dx:=170;ftyul3(STRING(dfg10(i),1),R_mCM(i),CHAR({107,103,102}),AzulTit,White
);END;END;END;R_Acep:={{240,205},{310,205+18}};RECT_P({R_Acep(1,1),R_Ac
ep(1,2)},{R_Acep(2,1),R_Acep(2,2)},DarkBlue,Plomo);TEXTOUT_P(CHAR({65,99,1
01,112,116,97,114}),R_Acep(1,1)+15,R_Acep(1,2)+3,2);REPEAT WAIT(-1)▶
Accion;IF TYPE(Accion)=6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF R_SDA(1,1)<mx<R_SDA(2,1)AND
R_SDA(1,2)<my<R_SDA(2,2)THEN dfg5:=1;zvfgk2();BREAK;END;IF
R_SDB(1,1)<mx<R_SDB(2,1)AND R_SDB(1,2)<my<R_SDB(2,2)THEN
dfg5:=2;zvfgk2();BREAK;END;IF R_Acep(1,1)<mx<R_Acep(2,1)AND
R_Acep(1,2)<my<R_Acep(2,2)THEN BREAK;END;IF dfg5==1 THEN IF
R_Losa(1,1)<mx<(R_Losa(2,1))AND R_Losa(1,2)<my<R_Losa(2,2)THEN
dfg9:=ffllq3(dfg9,eLosa,R_Losa(1,1),R_Losa(2,2),80,1,PlomoA,Blue,DarkBlue,Black);
zvfgk2();BREAK;END;IF R_Area(1,1)<mx<(R_Area(2,1))AND
R_Area(1,2)<my<R_Area(2,2)THEN
abd1:=yyhte3(abd1,R_Area,CHAR({73,110,103,114,101,115,101,32,101,108,32,97,11
4,101,97,32,116,101,99,104,97,100,97,32,116,111,116,97,108}));zvfgk2();BREAK;EN
D;IF R_CalA(1,1)<mx<(R_CalA(2,1))AND R_CalA(1,2)<my<R_CalA(2,2)THEN
abd1:=qwr2*qwr3;zvfgk2();BREAK;END;FOR i:=1 TO rtyh2 DO R_SCa:=R_SC(i);IF
R_SCa(1,1)<mx<(R_SCa(2,1))AND R_SCa(1,2)<my<R_SCa(2,2)THEN
dfg6(i):=yyhte3(dfg6(i),R_SCa,CHAR({73,110,103,114,101,115,101,32,108,97,32,67,8
6,32,100,101,108,32,112,105,115,111,32})+i);zvfgk2();BREAK(2);END;END;FOR
i:=1 TO rtyh2 DO R_CPa:=R_CP(i);IF R_CPa(1,1)<mx<(R_CPa(2,1))AND
R_CPa(1,2)<my<R_CPa(2,2)THEN
dfg7(i):=yyhte3(dfg7(i),R_CPa,CHAR({73,110,103,114,101,115,101,32,108,97,32,67,7
7,32,100,101,108,32,112,105,115,111,32})+i);zvfgk2();BREAK(2);END;END;END;IF
dfg5==2 THEN FOR i:=1 TO rtyh2 DO R_mCVa:=R_mCV(i);IF
R_mCVa(1,1)<mx<(R_mCVa(2,1))AND R_mCVa(1,2)<my<R_mCVa(2,2)THEN
cba1(i):=yyhte3(cba1(i),R_mCVa,CHAR({73,110,103,114,101,115,101,32,108,97,32,6
7,86,32,100,101,108,32,112,105,115,111,32})+i);zvfgk2();BREAK(2);END;END;FOR
i:=1 TO rtyh2 DO R_mCMa:=R_mCM(i);IF R_mCMa(1,1)<mx<(R_mCMa(2,1))AND
R_mCMa(1,2)<my<R_mCMa(2,2)THEN
dfg10(i):=yyhte3(dfg10(i),R_mCMa,CHAR({73,110,103,114,101,115,101,32,108,97,3
2,67,77,32,100,101,108,32,112,105,115,111,32})+i);zvfgk2();BREAK(2);END;END;E
ND;END;END;ELSE IF Accion=4 THEN BREAK;END END;UNTIL
0;END;hdljt3()BEGIN LOCAL
Nombre_Fija,Nombre_Col,Concatenar;Concatenar:={};IF rtyh5>=rtyh6 THEN IF
gpk4==0 THEN gpk3:=MAKEMAT(3,rtyh5,2);ELSE gpk3:=gpk3;END;FOR j:=1 TO
rtyh5 DO
Nombre_Col:={CHAR({32})+j+CHAR({32,58})};Concatenar:=CONCAT(Concatenar,
Nombre_Col);END;ELSE IF gpk4==0 THEN gpk3:=MAKEMAT(2,rtyh6,2);ELSE
gpk3:=gpk3;END;FOR j:=1 TO rtyh6 DO
Nombre_Col:={CHAR({32})+j+CHAR({32,58})};Concatenar:=CONCAT(Concatenar,
Nombre_Col);END;END;Nombre_Col:=CONCAT(Concatenar,CHAR({32}));Nombre
_Fija:={"⇢"+CHAR({69,115,112,45,88,40,109,41}),"⇢"+CHAR({69,115,112,45,89,4
0,109,41}),CHAR({32})};gpk3:=EDITMAT(gpk3,{CHAR({68,65,84,79,83,32,69,83,8
0,65,67,73,65,77,73,69,78,84,79,32,68,69,32,69,74,69,83}),Nombre_Col,Nombre_Fija}
);gpk4:=1;
END;yyhte5(Gr,cGr,xo,yo)BEGIN
pxtrf1();RECT_P(Gp,0,33,360,225,White);RECT_P(Gp,38,20,360,33,White);IFERR
pxtrf4(Gr,cGr,xo,yo);THEN END;IF liev13==0 THEN IFERR jjrtg5(Gr,expr15);THEN
expr7:=0;expr15:=[[0]];END;IFERR llfft5(Gr,expr3);THEN
bdc4:=0;expr3:=[[0]];END;IFERR ffllq5(Gr,abd10);THEN
abd7:=0;abd10:=[[0]];END;ELSE IFERR jjrtg5(Gr,expr17);THEN
expr7:=0;expr16(1):=[[0]];END;IFERR llfft5(Gr,expr5);THEN
bdc4:=0;expr4(1):=[[0]];END;IFERR ffllq5(Gr,bdc2);THEN
abd7:=0;bdc1(1):=[[0]];END;END;END;ffllq5(Gr,abd10)BEGIN LOCAL
x1,y1,x2,y2,XC,YC,NN;LOCAL cgX,cgY,j;IF abd10==[[0,0,0,1E-19,1E-23,0]]THEN
NN:=0;ELSE NN:=rowDim(abd10);END;FOR j:=1 TO NN DO
XC:=abd10(j,2)*qwr5;YC:=abd10(j,3)*qwr5;cgX:=qwr8(1)+abd10(j,4)*qwr5;cgY:=qw
r7(1)-abd10(j,5)*qwr5;x1:=cgX-XC/2;y1:=cgY-
YC/2;x2:=cgX+XC/2;y2:=cgY+YC/2;pixon_p(Gr,cgX,cgY,Red);llfft4(Gr,x1,y1,x2,y2,
Red);END;abd8:=NN;END;llfft5(Gr,expr3)BEGIN LOCAL XC,YC,NN,j;LOCAL
bdc9,bdc10,expr1,expr2;IF expr3==[[0,0,0,0,0,1E-19,1E-23,0]]THEN NN:=0;ELSE
NN:=rowDim(expr3);END;FOR j:=1 TO NN DO
XC:=expr3(j,2)*qwr5;YC:=expr3(j,3)*qwr5;bdc9:=qwr8(1)+expr3(j,4)*qwr5;bdc10:=q
wr7(1)-expr3(j,5)*qwr5;expr1:=qwr8(1)+expr3(j,6)*qwr5;expr2:=qwr7(1)-
expr3(j,7)*qwr5;hdljt4(Gr,Blue,XC,YC,bdc9,bdc10,expr2,expr1);END;bdc5:=NN;END
;jjrtg5(Gr,expr15)BEGIN LOCAL XC,YC,NN,j;LOCAL
bdc9,bdc10,expr1,expr2;LOCAL expr11,expr12,expr13,expr14;LOCAL k;IF
expr15==[[0,0,0,0,0,1E-19,1E-23,0]]THEN NN:=0;ELSE
NN:=rowDim(expr15);END;FOR j:=1 TO NN DO
XC:=expr15(j,2)*qwr5;YC:=expr15(j,3)*qwr5;bdc9:=qwr8(1)+expr15(j,5)*qwr5;bdc10
:=qwr7(1)-expr15(j,6)*qwr5;expr1:=qwr8(1)+expr15(j,7)*qwr5;expr2:=qwr7(1)-
expr15(j,8)*qwr5;FOR k:=1 TO abd8 DO IF expr15(j,5)==abd10(k,4)AND
expr15(j,6)==abd10(k,5)THEN
expr11:=abd10(k,2)*qwr5;expr12:=abd10(k,3)*qwr5;END;IF
expr15(j,7)==abd10(k,4)AND expr15(j,8)==abd10(k,5)THEN
expr13:=abd10(k,2)*qwr5;expr14:=abd10(k,3)*qwr5;END;END;ldljt4(Gr,Blue,XC,YC
,bdc9,bdc10,expr1,expr2,expr11,expr12,expr13,expr14);END;expr8:=NN;END;pxtrf4(
Gp,cGr,xo,yo)BEGIN LOCAL
Nombre_Fija,Nombre_Col,Concatenar;Concatenar:={};LOCAL
nX,nY,Fe_X,Fe_Y;LOCAL Suma,ss;LOCAL
x0,y0,xi,yi,xf,yf,j;ss:=CAS(CAS(CHAR({83,69,82,73,65,76})));Suma:=0;FOR j:=1 TO
rtyh5 DO Suma:=gpk3(j,1)+Suma;END;qwr2:=Suma;Suma:=0;FOR j:=1 TO rtyh6 DO
Suma:=gpk3(j,2)+Suma;END;qwr3:=Suma;CASE IF qwr2<>0 AND qwr3<>0 AND
ss=="9CJ73507JL" THEN Fe_X:=250/qwr2;Fe_Y:=150/qwr3;END;IF qwr2==0 THEN
Fe_X:=250;Fe_Y:=150/qwr3;END;IF qwr3==0 THEN
Fe_X:=250/qwr2;Fe_Y:=150;END;END;IF Fe_X<Fe_Y THEN qwr5:=Fe_X;ELSE
qwr5:=Fe_Y;END;LOCAL xcc:=160;LOCAL ycc:=122.5;IF cGr==0 THEN x0:=170-
qwr2*qwr5/2;y0:=117.5+qwr3*qwr5/2;ELSE x0:=xo;y0:=yo;END;LOCAL
d1,k,NGA,CNA;d1:=0;LINE_P(Gp,x0,y0,x0+qwr2*qwr5,y0,Plomo);LINE_P(Gp,x0,y0
,x0-8,y0,Plomo);arc_p(Gp,x0-
16,y0,8,0,360,Plomo);TEXTOUT_P(CHAR({49}),Gp,x0-20,y0-
5,2,Plomo,100);k:=1;FOR j:=1 TO rtyh6 DO d1:=gpk3(j,2)*qwr5+d1;xi:=x0;yi:=y0-
d1;xf:=qwr2*qwr5+x0;yf:=y0-d1;LINE_P(Gp,xi,yi,xf,yf,Plomo);LINE_P(Gp,xi,yi,xi-
8,yi,Plomo);arc_p(Gp,xi-16,yi,8,0,360,Plomo);k:=j+1;TEXTOUT_P(""+k,Gp,xi-20,yi-
5,2,Plomo,100);END;d1:=0;LINE_P(Gp,x0,y0,x0,y0-
qwr3*qwr5,Plomo);LINE_P(Gp,x0,y0,x0,y0+8,Plomo);arc_p(Gp,x0,y0+16,8,0,360,Plo
mo);B→R(#1110010b)▶NGA;B→R(#1100101b)▶
CNA;TEXTOUT_P(CHAR({65}),Gp,x0-3,y0+11,2,Plomo,100);FOR j:=1 TO rtyh5
DO d1:=gpk3(j,1)*qwr5+d1;xi:=d1+x0;yi:=y0;xf:=d1+x0;yf:=y0-
qwr3*qwr5;LINE_P(Gp,xi,yi,xf,yf,Plomo);LINE_P(Gp,xi,yi,xi,yi+8,Plomo);arc_p(Gp,
xi,yi+16,8,0,360,Plomo);TEXTOUT_P(char(65+j),Gp,xi-
3,yi+11,2,Plomo,100);END;Suma:=0;FOR j:=1 TO rtyh5 DO
d1:=gpk3(j,1);TEXTOUT_P(""+d1,Gp,x0+Suma+d1*qwr5/2-
5,y0+8,2,Plomo,100);Suma:=d1*qwr5+Suma;END;Suma:=0;FOR j:=1 TO rtyh6 DO
d1:=gpk3(j,2);TEXTOUT_P(""+d1,Gp,x0-17,y0-Suma-d1*qwr5/2-
5,2,Plomo,100);Suma:=d1*qwr5+Suma;END;zvfgk4(x0,y0,NGA,CNA);LOCAL
a:=1,CLP,f;FOR j:=1 TO rtyh7 DO CLP:=SUB(dfg3,{a,1},{rtyh8+a-
1,2});a:=a+rtyh8;zsc1(j):=CLP;END;a:=1;FOR j:=1 TO rtyh8 DO
f:=0;CLP:=[[0]];FOR k:=1 TO rtyh7 DO
CLP(k,1):=dfg3(f+a,1);CLP(k,2):=dfg3(f+a,2);f:=f+rtyh8;END;a:=a+1;zsc2(j):=CLP;E
ND;LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi-
30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi-
11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf-
4,2,PlomoA);expr19:=MAKELIST(0,X,1,rtyh7,1);expr20:=MAKELIST(0,X,1,rtyh8,1);
END;zvfgk4(x0,y0,NGA,CNA)BEGIN LOCAL i,j,k,Suma,n,NEjes;LOCAL
lv,lo,lh,g,gg;LOCAL CNN,NGB,CPL,e;IF rtyh5 >=rtyh6 THEN n:=rtyh5+1;ELSE
n:=rtyh6+1;END;B→R(#1110011b)▶
CNN;NEjes:=MAKEMAT(0,n,2);Suma:=0;B→R(#1101001b)▶NGB;FOR i:=2 TO
rtyh5+1 DO Suma:=Suma+gpk3(i-
1,1);NEjes(i,1):=Suma;END;Suma:=0;B→R(#1100001b)▶CPL;FOR i:=2 TO rtyh6+1
DO Suma:=Suma+gpk3(i-1,2);NEjes(i,2):=Suma;END;k:=1;B→R(#1101100b)▶
e;lo:=CHAR({CNN,CNA});lv:=CHAR({NGA,NGB});lh:=CHAR({CPL,e});g:=EXPR(
lo+lv+lh);FOR i:=1 TO rtyh6+1 DO FOR j:=1 TO rtyh5+1 DO
qwr8(k):=x0+NEjes(j,1)*qwr5;qwr10(k):=NEjes(j,1);k:=k+1;END;END;k:=1;gg:=ASC
(RIGHT(g,4));gg:=ΣLIST(gg)/abd2;FOR i:=gg TO rtyh6+1 DO FOR j:=1 TO rtyh5+1
DO qwr7(k):=y0-
NEjes(i,2)*qwr5;qwr9(k):=NEjes(i,2);k:=k+1;END;END;qwr6:=(rtyh5+1)*(rtyh6+1);d
fg1:=x0;dfg2:=y0;IF SIZE(qwr10)>SIZE(qwr9)THEN FOR j:=1 TO SIZE(qwr10)DO
dfg3(j,1):=qwr10(j);dfg3(j,2):=qwr9(j);END;ELSE FOR j:=1 TO SIZE(qwr9)DO
dfg3(j,1):=qwr10(j);dfg3(j,2):=qwr9(j);END;END;END;qljgt4(mx,my)BEGIN LOCAL
R_Col,R_Vig,R_Alb,R_Nad,R_SsD,k;jjrtg1();RECT_P(Gp,149,16,320,19,Red);LOCA
L
R_DI,R_CA;R_DI:={{92,0},{149,16}};R_CA:={{149,0},{206,16}};RECT_P(Gp,R_D
I(1),R_DI(2),PlomoA);yyhte1(R_DI(1,1)+5,8.5,AzulTit);TEXTOUT_P(CHAR({68,82,
65,87}),Gp,R_DI(1,1)+20,2,2,AzulTit);RECT_P(Gp,R_DI(1,1),0,R_DI(1,1)+1,16,Azul
Tit);RECT_P(Gp,R_CA(1,1),0,R_CA(1,1)+1,16,AzulTit);RECT_P(Gp,250,229,360,24
0,PlomoA);TEXTOUT_P("✎"+CHAR({32,68,105,98,117,106,101}),Gp,260,229,1,Az
ulTit);R_Col:={{150,0},{194,16}};RECT_P(Gp,R_Col(1),R_Col(2),DarkBlue,PlomoA
);TEXTOUT_P("⚃",Gp,R_Col(1,1)+22,-2.7,4,Black);TEXTOUT_P(CHAR({67})+"┅
",Gp,R_Col(1,1)+7,3,2,Black);R_Vig:={{194,0},{239,16}};RECT_P(Gp,R_Vig(1),R_
Vig(2),DarkBlue,PlomoA);ftyul5(R_Vig(1,1)+21,8.4,Black);TEXTOUT_P(CHAR({86
})+"┅
",Gp,R_Vig(1,1)+3,3,2,Black);R_Alb:={{239,0},{284,16}};RECT_P(Gp,R_Alb(1),R_
Alb(2),DarkBlue,PlomoA);qljgt5(R_Alb(1,1)+22,5,Black);TEXTOUT_P(CHAR({65})
+"┅
",Gp,R_Alb(1,1)+4,3,2,Black);R_SsD:={{284,0},{320,16}};RECT_P(Gp,R_SsD(1),R_
SsD(2),DarkBlue,PlomoA);TEXTOUT_P("",Gp,R_SsD(1,1)+12,-5,7,Black);IF
R_Col(1,1)<mx<R_Col(2,1)AND R_Col(1,2)<my<R_Col(2,2)THEN
abd7:=1;bdc4:=0;expr7:=0;RECT_P(Gp,R_Col(1),R_Col(2),DarkBlue,PlomoA);TEXT
OUT_P("",Gp,R_Col(1,1)+22,-2.7,4,RedA);TEXTOUT_P(CHAR({67})+"┅
",Gp,R_Col(1,1)+7,3,2,RedA);RECT_P(Gp,R_Vig(1),R_Vig(2),DarkBlue,PlomoA);fty
ul5(R_Vig(1,1)+21,8.4,Black);TEXTOUT_P(CHAR({86})+"┅
",Gp,R_Vig(1,1)+3,3,2,Black);RECT_P(Gp,R_Alb(1),R_Alb(2),DarkBlue,PlomoA);qlj
gt5(R_Alb(1,1)+22,5,Black);TEXTOUT_P(CHAR({65})+"┅
",Gp,R_Alb(1,1)+4,3,2,Black);END;IF R_Vig(1,1)<mx<R_Vig(2,1)AND
R_Vig(1,2)<my<R_Vig(2,2)THEN
abd7:=0;bdc4:=1;expr7:=0;RECT_P(Gp,R_Col(1),R_Col(2),DarkBlue,PlomoA);TEXT
OUT_P("",Gp,R_Col(1,1)+22,-2.7,4,Black);TEXTOUT_P(CHAR({67})+"┅
",Gp,R_Col(1,1)+7,3,2,Black);RECT_P(Gp,R_Vig(1),R_Vig(2),DarkBlue,PlomoA);fty
ul5(R_Vig(1,1)+21,8.4,MarsaRed);TEXTOUT_P(CHAR({86})+"┅
",Gp,R_Vig(1,1)+3,3,2,MarsaRed);RECT_P(Gp,R_Alb(1),R_Alb(2),DarkBlue,PlomoA
);qljgt5(R_Alb(1,1)+22,5,Black);TEXTOUT_P(CHAR({65})+"┅
",Gp,R_Alb(1,1)+4,3,2,Black);END;IF R_Alb(1,1)<mx<R_Alb(2,1)AND
R_Alb(1,2)<my<R_Alb(2,2)THEN
abd7:=0;bdc4:=0;expr7:=1;RECT_P(Gp,R_Col(1),R_Col(2),DarkBlue,PlomoA);TEXT
OUT_P("",Gp,R_Col(1,1)+22,-2.7,4,Black);TEXTOUT_P(CHAR({67})+"┅
",Gp,R_Col(1,1)+7,3,2,Black);RECT_P(Gp,R_Vig(1),R_Vig(2),DarkBlue,PlomoA);fty
ul5(R_Vig(1,1)+21,8.4,Black);TEXTOUT_P(CHAR({86})+"┅
",Gp,R_Vig(1,1)+3,3,2,Black);RECT_P(Gp,R_Alb(1),R_Alb(2),DarkBlue,PlomoA);qlj
gt5(R_Alb(1,1)+22,5,Tangerine);TEXTOUT_P(CHAR({65})+"┅
",Gp,R_Alb(1,1)+4,3,2,Tangerine);END;IF R_SsD(1,1)<mx<R_SsD(2,1)AND
R_SsD(1,2)<my<R_SsD(2,2)THEN
RECT_P(Gp,R_SsD(1),R_SsD(2),DarkBlue,PlomoA);TEXTOUT_P("",Gp,R_SsD(1,1)
+12,-5,7,RedA);pxtrf1();jjrtg1();abd7:=0;bdc4:=0;expr7:=0;liev18:=0;END;IF
0≤mx≤35 AND 225≤my≤240 THEN RECT_P(124,100,196,112,DarkBlue,White);FOR
k:=1 TO 3 DO RECT_P(125,100+1,125+10*k,112-
1,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),13
3,102,1,DarkBlue);WAIT(0.2);END;IFERR yyhte5(Gp,0,qwr8(1),qwr7(1));THEN
END;FOR k:=1 TO 4 DO RECT_P(155,100+1,155+10*k,112-
1,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),13
3,102,1,DarkBlue);WAIT(0.2);END;END;zvfgk5(mx,my);END;ftyul5(xi,yi,ColorA)B
EGIN LOCAL e:=0.15;LOCAL H:=10*e,V:=24*e,P:=50;RECT_P(Gp,xi,yi-
V,xi+138*e,yi+V,ColorA,Fondo);pxtrf5(Gp,xi,yi,138*e,0,ColorA);pxtrf5(Gp,xi-1*e,yi-
1*e,138*e,0,ColorA);pxtrf5(Gp,xi+1*e,yi+1*e,138*e,0,ColorA);pxtrf5(Gp,xi+2*e,yi+2
*e,138*e,0,ColorA);pxtrf5(Gp,xi,yi+V,138*e,0,ColorA);pxtrf5(Gp,xi,yi-
V,138*e,0,ColorA);LOCAL h:=0;FOR j:=1 TO 140 STEP 10 DO
RECT_P(Gp,{xi+h,yi-
1*e},{xi+j*e,yi+2*e},Fondo);h:=j*e+12*e;END;END;qljgt5(xi,yi,ColorA)BEGIN
LOCAL e:=0.25;LOCAL
H:=70*e,V:=25*e;RECT_P(Gp,xi,yi,xi+H,yi+V,ColorA,ToasRed);FOR j:=1 TO 70
STEP 10 DO
LINE_P(Gp,xi+j*e,yi,xi+j*e+5*e,yi+V,ColorA);END;END;pxtrf5(Gr,xi,yi,D,Ang,Colo
rA)BEGIN
LINE_P(Gr,xi,yi,xi+D*COS(Ang),yi+D*SIN(Ang),ColorA)END;yyhte4(mx,my)BEGI
N LOCAL Concatenar,C_Col,DimC,XC,YC,k,tt;Concatenar:={};FOR k:=1 TO hfjq9
DO
XC:=tlitg2(gpk5(k,1)*100,0);YC:=tlitg2(gpk5(k,2)*100,0);DimC:=CHAR({32,58,32})
+XC+CHAR({120})+YC;C_Col:={CHAR({67,45})+k+DimC};Concatenar:=CONCA
T(Concatenar,C_Col);END;C_Col:=Concatenar;IF 250<mx<360 AND 225<my<240
THEN abd9:=ffllq3(abd9,C_Col,218.5,25,100,2,LigthBlue,AzulTit,PlomoA,AzulTit);IF
abd9==0 THEN abd9:=1;ELSE
abd9:=abd9;END;END;RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P(C_Col(a
bd9),Gp,257,230,1,AzulTit);RECT_P(Gp,211,229,250,240,White);TEXTOUT_P(CHA
R({45,99,109,45}),Gp,218,230,1,Black);RECT_P(Gp,104,229,140,240,White);TEXTO
UT_P(CHAR({67})+" ┅
"+abd8,Gp,109,230,1,RedA);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅ "+expr8,Gp,181,230,1,Black);END;ffllq4(mx,my)BEGIN
yyhte4(mx,my);LOCAL XC,YC;FOR j:=1 TO hfjq9 DO IF abd9==j THEN
XC:=gpk5(j,1)*qwr5;YC:=gpk5(j,2)*qwr5;END;END;LOCAL x1,y1,x2,y2,k,Dif;FOR
j:=1 TO qwr6 DO IF(qwr8(j)-10<=mx <=qwr8(j)+10 AND qwr7(j)-
10<=my<=qwr7(j)+10)THEN FOR k:=1 TO rowDim(abd10)DO IF
abd10(k,4)==qwr10(j)AND abd10(k,5)==qwr9(j)THEN Dif:=0;BREAK(2);ELSE
Dif:=1;END;END;IF Dif==1 THEN x1:=qwr8(j)-XC/2;y1:=qwr7(j)-
YC/2;x2:=qwr8(j)+XC/2;y2:=qwr7(j)+YC/2;abd8:=abd8+1;jliu17:=abd8;abd10(abd8,1)
:=abd9;
abd10(abd8,2):=XC/qwr5;abd10(abd8,3):=YC/qwr5;abd10(abd8,4):=qwr10(j);abd10(a
bd8,5):=qwr9(j);abd10(abd8,6):=gpk5(abd9,4);abd10(abd8,7):=gpk5(abd9,5);abd10(ab
d8,8):=gpk5(abd9,6);abd10(abd8,9):=gpk5(abd9,7);abd10(abd8,10):=0;abd10(abd8,11):
=0;abd10(abd8,12):=abd8;RECT_P(Gp,104,229,140,240,White);TEXTOUT_P(CHAR(
{67})+" ┅
"+abd8,Gp,109,230,1,RedA);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅
"+expr8,Gp,181,230,1,Black);pixon_p(Gp,qwr8(j),qwr7(j),Red);jjrtg4(mx,my);llfft4(G
p,x1,y1,x2,y2,Red);BREAK(1);END;END;END;END;llfft4(Gp,x,y,x2,y2,col)BEGIN
RECT_P(Gp,x,y,x2,y2,RedA,Plomo);END;oligft125(cxi,cyi,TipC,nf,nc,alf,anc,Colr1,C
olr2,mat,Tfu,Tc,Tf)BEGIN LOCAL
h1,h2,imp,Most1;imp:={};Most1:=CHAR({48,44,46}+7);FOR h1 FROM 1 TO 50
STEP 2 DO imp(h1):=h1;END;IF TipC==1 THEN FOR h1 FROM 1 TO nf DO IF
h1==1 AND Nnud==Most1 THEN RECT_P(G9,cxi-7,cyi-2,cxi-
3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi-5,cyi-1,cxi-3,cyi+alf*nf+1,Col128);END;IF
h1==nf THEN RECT_P(G9,cxi+anc*nc+7,cyi-
2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi-
1,cxi+anc*nc+3,cyi+alf*nf+1,Col128);END;FOR h2 FROM 1 TO nc DO IF h1==1
THEN RECT_P(G9,cxi+anc*(h2-1),cyi-20,cxi+anc*h2,cyi-
5,Col129);TEXTOUT_P(Tc(h2),G9,cxi+anc*(h2-1)+40,cyi-
17,Tfu+1,Col118);LINE_P(G9,cxi+anc*(h2-1),cyi-20,cxi+anc*(h2-1),cyi-
5,Col130);END;IF h1==imp(h1)AND Nnud==Most1 THEN RECT_P(G9,cxi+anc*(h2-
1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-
1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-5,Colr1)END;END;END;END;IF TipC==2
AND Nnud==Eqx THEN FOR h1 FROM 1 TO nf DO IF h1==1 AND Nnud==Most1
THEN RECT_P(G9,cxi-7,cyi-2,cxi-3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi-5,cyi-1,cxi-
3,cyi+alf*nf+1,Col128);END;IF h1==nf THEN RECT_P(G9,cxi+anc*nc+7,cyi-
2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi-
1,cxi+anc*nc+3,cyi+alf*nf+1,Col128);END;FOR h2 FROM 1 TO nc DO IF
h1==imp(h1)AND Nnud==Most1 THEN RECT_P(G9,cxi+anc*(h2-1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-
1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-5,Colr1)END;END;END;END;IF TipC==0
AND Nnud==Eqx THEN FOR h1 FROM 1 TO nf DO FOR h2 FROM 1 TO nc DO IF
h2==1 THEN RECT_P(cxi-30,cyi+alf*(h1-1),cxi-5,cyi+alf*h1,Colr1);END;IF h1==1
AND Nnud==Most1 THEN RECT_P(cxi+anc*(h2-1),cyi-20,cxi+anc*h2,cyi-
5,Colr1);TEXTOUT_P(Tc(h2),cxi+anc*(h2-1)+5,cyi-17,Tfu+1,RGB(0,0,0));END;IF
h1==imp(h1)AND Nnud==Most1 THEN RECT_P(cxi+anc*(h2-1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-5,Colr1)ELSE RECT_P(cxi+anc*(h2-
1),cyi+alf*(h1-
1),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-
1)+5,cyi+alf*(h1-1)+3,Tfu,RGB(0,0,0),anc-
5,Colr2)END;END;END;END;END;Titu4:={{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨
","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕
䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣
"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤
䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼
䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","
䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","
䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"
䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇
䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩
䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙
䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨
"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡
䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢
䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪
䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩
䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};lvxc:={"䳸䳶䴇䳼䳶䴈䳕䳶䴅䴁䳾䳸䳶䳹䳶䴈","
䳼䴇䳶䳹䴄䴈䳕䳹䳺䳕䴁䳾䳷䳺䴇䴉䳶䳹","䳼䳹䴁䳕䴁䴞䴗䴧䴚","䳼䳹䴁䳕䴇䴚
䴨䴩䴧䴞䴣䴜䴞䴙䴤","䳸䴄䴈䳺䴃䴄䴈䳕䳹䳾䴇䳺䳸䳸䳾䴄䴃䳶䴁䳺䴈","䴂䳶䴉
䴇䳾䴏䳕䳹䳺䳕䴇䳾䳼䳾䳹䳺䴏䳕䴁䴄䳸䳶䴁","䴂䳶䴉䴇䳾䴏䳕䳹䳺䳕䴇䳾䳼䳾
䳹䳺䴏䳕䳼䴁䴄䳷䳶䴁","䴂䳶䴉䴇䳾䴏䳕䳹䳺䳕䴉䴇䳶䴃䴈䳻䴄䴇䴂䳶䳸䳾䶈䴃
","䴂䳶䴉䴇䳾䴏䳕䳺䴃䴈䳶䴂䳷䴁䳶䳹䳶","䴂䳶䴉䴇䳾䴏䳕䴇䳺䳹䴊䳸䳾䳹䳶","
䴋䳺䳸䴉䴄䴇䳕䳹䳺䳕䳻䴊䳺䴇䴏䳶䴈䳕䳺䴃䳕䴃䴊䳹䴄䴈","䴋䳺䳸䴉䴄䴇䳕䳹
䳺䳕䳻䴊䳺䴇䴏䳶䴈䳕䳺䴃䳕䳺䴁䳺䴂䳺䴃䴉䴄䴈䳕","䳻䴊䳺䴇䴏䳶䴈䳕䴎䳕䴂
䴄䴂䳺䴃䴉䴄䴈䳕䳹䳺䳕䳺䴂䴅䴄䴉䴇䳶䴂䳣䳕䳕","䳹䳺䴈䴅䴁䳶䴏䳶䴂䳾䳺䴃
䴉䴄䴈䳕䴎䳕䳼䳾䴇䴄䴈䳕","䳻䴊䳺䴇䴏䳶䴈䳕䳾䴃䴉䳺䴇䴃䳶䴈䳕","䳻䴊䳺䴇
䴏䳶䴈䳕䳾䴃䴉䳺䴇䴃䳶䴈䳕䳝䳸䴄䴄䴇䳹䳣䳕䳼䴁䴄䳷䳶䴁䳞䳕","䳹䳾䳶䳼䴇
䳶䴂䳶䳕䳹䳺䳕䳻䴊䳺䴇䴏䳶䳕䳶䴍䳾䳶䴁","䳹䳾䳶䳼䴇䳶䴂䳶䳕䳹䳺䳕䳻䴊䳺
䴇䴏䳶䳕䳸䴄䴇䴉䳶䴃䴉䳺","䳹䳾䳶䳼䴇䳶䴂䳶䳕䳹䳺䳕䴂䴄䴂䳺䴃䴉䴄䳕䳻䴁
䳺䳸䴉䴄䴇","䴇䳺䳶䳸䳸䳾䴄䴃䳺䴈"};jjrtg4(x,y)BEGIN RECT_P(x-7,y-
7,x+7,y+7,White);FOR j:=1 TO 5 DO
ARC_P(x,y,1*j,0,2*π,Red);WAIT(0.05);END;END;tlitg4(mx,my)BEGIN LOCAL
Concatenar,C_Vig,DimV,T_VIG;LOCAL j,XC,YC;Concatenar:={};FOR j:=1 TO
hfjq10 DO
XC:=tlitg2(gpk7(j,1)*100,0);YC:=tlitg2(gpk7(j,2)*100,0);DimV:=CHAR({32,58,32})+
XC+CHAR({120})+YC;C_Vig:={CHAR({86,45})+j+DimV};Concatenar:=CONCAT(
Concatenar,C_Vig);END;C_Vig:=Concatenar;IF 250<mx<360 AND 225<my<240
THEN
bdc6:=ffllq3(bdc6,C_Vig,218.5,25,100,2,LigthBlue,AzulTit,PlomoA,AzulTit);IF
bdc6==0 THEN bdc6:=1;ELSE
bdc6:=bdc6;END;END;RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P(C_Vig(
bdc6),Gp,257,230,1,AzulTit);RECT_P(Gp,211,229,250,240,White);TEXTOUT_P(CH
AR({45,99,109,45}),Gp,218,230,1,Black);RECT_P(Gp,104,229,140,240,White);TEXT
OUT_P(CHAR({67})+" ┅
"+abd8,Gp,109,230,1,Black);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅ "+expr8,Gp,181,230,1,Black);END;ldljtr4(mx,my)BEGIN
tlitg4(mx,my);LOCAL XC,YC,k,r,Dif;FOR j:=1 TO hfjq10 DO IF bdc6==j THEN
XC:=gpk7(j,1)*qwr5;YC:=gpk7(j,2)*qwr5;END;END;FOR j:=1 TO qwr6 DO
IF(qwr8(j)-10<=mx <=qwr8(j)+10 AND qwr7(j)-10<=my<=qwr7(j)+10)THEN
bdc7:=bdc7+1;IF bdc7==1 THEN
bdc5:=bdc5+1;expr3(bdc5,1):=bdc6;expr3(bdc5,2):=XC/qwr5;expr3(bdc5,3):=YC/qwr
5;expr3(bdc5,4):=qwr10(j);expr3(bdc5,5):=qwr9(j);expr3(bdc5,15):=bdc5;bdc9:=qwr8(
j);bdc10:=qwr7(j);jjrtg4(mx,my);RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P
(""+CHAR({32,78,117,100,111,32,50})+" ⇢",Gp,260,229,1,RedA);ELSE
expr3(bdc5,6):=qwr10(j);expr3(bdc5,7):=qwr9(j);expr1:=qwr8(j);expr2:=qwr7(j);expr3(
bdc5,8):=SQRT((expr3(bdc5,4)-expr3(bdc5,6))^2+(expr3(bdc5,5)-
expr3(bdc5,7))^2);expr3(bdc5,9):=gpk7(bdc6,4);expr3(bdc5,10):=gpk7(bdc6,5);expr3(b
dc5,11):=gpk7(bdc6,6);expr3(bdc5,12):=gpk7(bdc6,7);expr3(bdc5,13):=0;expr3(bdc5,1
4):=0;END;END;END;IF bdc7==2 THEN IF(expr3(bdc5,4)<>expr3(bdc5,6)OR
expr3(bdc5,5)<>expr3(bdc5,7))THEN
RECT_P(Gp,104,229,140,240,White);TEXTOUT_P(CHAR({67})+" ┅
"+abd8,Gp,109,230,1,Black);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅
"+expr8,Gp,181,230,1,Black);jjrtg4(mx,my);hdljt4(Gp,Blue,XC,YC,bdc9,bdc10,expr2,
expr1);bdc7:=0;ELSE
bdc7:=1;END;END;END;hdljt4(Gp,col,XC,YC,bdc9,bdc10,expr2,expr1)BEGIN
LOCAL a0,b0,af,bf,h,h2,k;CASE IF(bdc9-expr1)==0 THEN
a0:=bdc9+XC/2;b0:=bdc10;af:=expr1-
XC/2;bf:=expr2;LINE_P(Gp,a0,b0,a0,bf,MarsaRed);LINE_P(Gp,af,b0,af,bf,MarsaRed)
;FOR k:=1 TO bdc10 STEP 10 DO IF h+11<=b0-bf THEN
h:=h2+10;RECT_P(Gp,{bdc9,b0-h2},{bdc9,b0-h},MarsaRed);h2:=k*1.5;ELSE
BREAK;END;END;END;IF(bdc10-expr2)==0 THEN
a0:=bdc9;b0:=bdc10+XC/2;af:=expr1;bf:=expr2-
XC/2;LINE_P(Gp,a0,b0,af,b0,MarsaRed);LINE_P(Gp,a0,bf,af,bf,MarsaRed);h:=0;FOR
k:=1 TO af-a0 STEP 10 DO IF h+11<=af-a0 THEN
h:=h2+10;RECT_P(Gp,{a0+h2,bdc10},{a0+h,bdc10},MarsaRed);h2:=k*1.5;ELSE
BREAK;END;END;END;IF((bdc10-expr2)<>0 OR(bdc9-expr1)<>0)THEN LOCAL
bf1,bf2,m,d,L;L:=expr3(bdc5,8)*qwr5;d:=(XC/2*L)/(expr1-
bdc9);a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10-d;bf2:=expr2-
d;LINE_P(Gp,a0,b0,af,bf1,MarsaRed);LINE_P(Gp,a0,bf,af,bf2,MarsaRed);END;END;
END;EXPORT MatEval;MoverPN(w,h,sw,sh);MTanx(axsdcerf1,axsdcerf2)BEGIN
local lvx;lvx:=hcl(lvxc);bdx:=30;bdy:=30;LOCAL nc,nf;IF T==1 THEN
nf:=4;nc:=4;END;IF T==3 THEN nf:=6;nc:=6;END;IF axsdcerf1==1 AND
axsdcerf2==1 THEN
WAIT(0.2);axsdcerfR();varcaq(2);Atytz(1);TEXTOUT_P(lvx(1),110,5,2,Col3);TEXTO
UT_P(lvx(1),111,5,2,Col3);ads();ogol();BLIT_P(G5,G0);TactilMR();BLIT_P(G5,G0);
END;IF axsdcerf1==1 AND axsdcerf2==2 AND Nnud==Eqx THEN
WAIT(0.2);axsdcerfR();varcaq(2);Atytz(2);TEXTOUT_P(lvx(2),110,5,2,Col3);TEXTO
UT_P(lvx(2),111,5,2,Col3);ogol();RECT_P(60,225,80,235,Col118);TEXTOUT_P(lvx(
3),90,225,1,Col118);RECT_P(160,225,180,235,Col148);TEXTOUT_P(lvx(4),190,225,
1,Col148);BLIT_P(G5,G0);TactilMR();BLIT_P(G5,G0);END;IF axsdcerf1==2 AND
axsdcerf2==1 THEN WAIT(0.2);axsdcerfR();varcaq(2);LOCAL
lh;DIMGROB_P(G9,400,500);RECT_P(G9);TEXTOUT_P(CHAR({69,108,101,109,10
1,110,116,111}),G9,5,8,1,Col118);TEXTOUT_P(CHAR({76,111,110,103,105,116,117,
100}),G9,55,8,1,Col118);TEXTOUT_P("θ",G9,115,8,1,Col118);TEXTOUT_P("Cosθ",
G9,150,8,1,Col118);TEXTOUT_P("Sinθ",G9,200,8,1,Col118);TEXTOUT_P("Cos^2θ"
,G9,250,8,1,Col118);TEXTOUT_P("Sin^2θ",G9,300,8,1,Col118);TEXTOUT_P("Cosθ
*Sinθ",G9,350,8,1,Col118);FOR lh FROM 1 TO rowDim(M1)DO
TEXTOUT_P(lh,G9,15,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,8),3),G9,
60,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,9),4),G9,105,10+15*(lh),1,Col
148);TEXTOUT_P(ROUND(M1(lh,10),4),G9,150,10+15*(lh),1,Col148);TEXTOUT_P
(ROUND(M1(lh,11),4),G9,200,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,1
0)^2,4),G9,250,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,11)^2,4),G9,300,1
0+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,10)*M1(lh,11),4),G9,350,10+15*(l
h),1,Col148);END;MoverCos(400,500);BLIT_P(G5,G0);END;IF axsdcerf1==3 AND
axsdcerf2==1 THEN
axsdcerfR();TEXTOUT_P(lvx(6),110,5,2,Col3);TEXTOUT_P(lvx(6),111,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);TEXTOUT_P("10",2,130,3,Col148)
;RECT_P(18,118,37,131,Col12,Col128);TEXTOUT_P("╳
",33,135,1,Col148);Regs:={{{17,117},{36,130}}};Dats:={0};TEXTOUT_P("0",20,121
,1,Col148);LOCAL
NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT
_P("‹‹",100,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120
,225,2,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col1
18);RECT_P(210,222,220,238,Col130);RECT_P(209,223,221,237,Col130);TEXTOUT
_P("››",210,220,4,Col118);varcaq(2);DIMGROB_P(G9,640,200);RECT_P(G9);LOCA
L touch1,ml,tlc,tlf;cnm:=1;REPEAT
ml:=L1(cnm);tlc:=ml(1);tlc:=DELCOL(tlc,nf+1);tlf:=ml(-
(nf+1));tlf:=DELROW(tlf,1);ml:=DELCOL(ml,nf+1);ml:=DELROW(ml,1);ml:=ml/(10
^Dats(1));RECT_P(G9);oligft125(10,60,1,nf,nf,15,100,Col131,Col128,ml,1,tlc,tlf);NBa
:=cnm;TEXTOUT_P(NBa,187,225,2,Col3,100,RGB(240,240,240));TEXTOUT_P(NBa
,188,225,2,Col3);BLIT_P(G0,40,20,320,220,G9,0,0,280,200);ogol();MoverM(640,200,
280,200);IF ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==3 AND axsdcerf2==2 THEN
axsdcerfR();TEXTOUT_P(lvx(7),110,5,2,Col3);TEXTOUT_P(lvx(7),111,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);TEXTOUT_P("10",2,130,3,Col148)
;RECT_P(18,118,37,131,Col12,Col128);TEXTOUT_P("╳
",33,135,1,Col148);Regs:={{{17,117},{36,130}}};Dats:={0};TEXTOUT_P("0",20,121
,1,Col148);LOCAL
NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT
_P("‹‹",100,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120
,225,2,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col1
18);RECT_P(210,222,220,238,Col130);RECT_P(209,223,221,237,Col130);
TEXTOUT_P("››",210,220,4,Col118);varcaq(2);DIMGROB_P(G9,640,200);RECT_P(
G9);LOCAL touch1,ml,tlc,tlf;cnm:=1;REPEAT
ml:=L2(cnm);tlc:=ml(1);tlc:=DELCOL(tlc,nf+1);tlf:=ml(-
(nf+1));tlf:=DELROW(tlf,1);ml:=DELCOL(ml,nf+1);ml:=DELROW(ml,1);ml:=ml/(10
^Dats(1));RECT_P(G9);oligft125(10,60,1,nf,nf,15,100,Col131,Col128,ml,1,tlc,tlf);NBa
:=cnm;TEXTOUT_P(NBa,187,225,2,Col3,100,RGB(240,240,240));TEXTOUT_P(NBa
,188,225,2,Col3);BLIT_P(G0,40,20,320,220,G9,0,0,280,200);ogol();MoverM(640,200,
280,200);IF ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==3 AND axsdcerf2==3 THEN
axsdcerfR();TEXTOUT_P(lvx(8),110,5,2,Col3);TEXTOUT_P(lvx(8),111,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);TEXTOUT_P("10",2,130,3,Col148)
;RECT_P(18,118,37,131,Col12,Col128);TEXTOUT_P("╳
",33,135,1,Col148);Regs:={{{17,117},{36,130}}};Dats:={0};TEXTOUT_P("0",20,121
,1,Col148);LOCAL
NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT
_P("‹‹",100,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120
,225,2,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col1
18);RECT_P(210,222,220,238,Col130);RECT_P(209,223,221,237,Col130);TEXTOUT
_P("››",210,220,4,Col118);varcaq(2);DIMGROB_P(G9,350,200);RECT_P(G9);LOCA
L touch1,ml,tlc,tlf;cnm:=1;REPEAT
ml:=L3(cnm);tlc:={};tlf:={};ml:=ml/(10^Dats(1));RECT_P(G9);oligft125(10,60,2,nf,nf
,15,50,Col131,Col128,ml,1,tlc,tlf);NBa:=cnm;TEXTOUT_P(NBa,187,225,2,Col3,100,
RGB(240,240,240));TEXTOUT_P(NBa,188,225,2,Col3);BLIT_P(G0,40,20,320,220,G
9,0,0,280,200);ogol();MoverM(350,200,280,200);IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==4 AND axsdcerf2==1 THEN
axsdcerfR();TEXTOUT_P(lvx(9),110,5,2,Col3);TEXTOUT_P(lvx(9),111,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);TEXTOUT_P("10",2,130,3,Col148)
;RECT_P(18,118,37,131,Col12,Col128);TEXTOUT_P("╳
",33,135,1,Col148);Regs:={{{17,117},{36,130}}};Dats:={0};TEXTOUT_P("0",20,121
,1,Col148);varcaq(2);IFERR LOCAL
touch1,ml,tlc,tlf,ancho,alto,Grafy;cnm:=1;nf:=rowDim(M5);nc:=colDim(M5);ancho:=8
0*nc+30;alto:=15*nf+30;Grafy:=CHAR({59,66,85,87}-11);IF ancho<300 AND
NElm==Grafy THEN ancho:=300;END;IF alto<200 AND NElm==Grafy THEN
alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);REPEAT
ml:=M5;ml:=ROUND(ml,7);tlc:=ml(1);tlc:=DELCOL(tlc,nf);tlf:=ml(-
nf);tlf:=DELROW(tlf,1);ml:=DELCOL(ml,nf);ml:=DELROW(ml,1);ml:=ml/(10^Dats(
1));RECT_P(G9);oligft125(10,30,1,nf-1,nc-
1,15,80,Col131,Col128,ml,1,tlc,tlf);BLIT_P(G0,40,20,320,220,G9,0,0,280,200);ogol();
MoverM(ancho,alto,280,200);IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;UNTIL ISKEYDOWN(4);THEN
EDITMAT(M5,{"MATRIZ ENSAMBLADA
TOTAL"});END;DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==4 AND axsdcerf2==2 THEN
axsdcerfR();TEXTOUT_P(lvx(10),110,5,2,Col3);TEXTOUT_P(lvx(10),111,5,2,Col3);
RECT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(
6,222,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col1
28);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);TEXTOUT_P("10",2,130,3,Col148)
;RECT_P(18,118,37,131,Col12,Col128);TEXTOUT_P("╳
",33,135,1,Col148);Regs:={{{17,117},{36,130}}};Dats:={0};TEXTOUT_P("0",20,121
,1,Col148);varcaq(2);LOCAL touch1,ml,tlc,tlf,ancho,alto,Mred,Grafy;IFERR
cnm:=1;Grafy:=CHAR({59,66,85,87}-
11);Mred:=L7(1);Mred:=ROUND(Mred,7);nf:=rowDim(Mred);nc:=colDim(Mred);anc
ho:=80*nc+30;alto:=15*nf+30;IF ancho<300 THEN ancho:=300;END;IF alto<200
THEN alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);REPEAT
ml:=Mred;tlc:=LNC;tlf:=LNC;ml:=ml/(10^Dats(1));RECT_P(G9);oligft125(10,50,1,nf,
nc,15,80,Col131,Col128,ml,1,tlc,tlf);BLIT_P(G0,40,20,320,220,G9,0,0,280,200);ogol()
;MoverM(ancho,alto,280,200);IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;UNTIL ISKEYDOWN(4);THEN
Mred:=L7(1);EDITMAT(Mred,{"MATRIZ
REDUCIDA"});END;DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==5 AND axsdcerf2==1 THEN
axsdcerfR();TEXTOUT_P(lvx(11),110,5,2,Col3);TEXTOUT_P(lvx(11),111,5,2,Col3);
RECT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(
6,222,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col1
28);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats
:={0};varcaq(2);LOCAL
touch1,vf,tlc,tlf,ancho,alto,Mred;vf:=L7(5);nf:=rowDim(vf);nc:=colDim(vf);alto:=20*n
f+50;ancho:=320;IF alto<200 THEN
alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);RECT_P(G9,92,15,93,row
Dim(vf)*20+20,Col12);RECT_P(G9,162,15,163,rowDim(vf)*20+20,Col12);TEXTOU
T_P("Fn =",G9,60,rowDim(vf)*10+10,2,Col12,100,Col128);FOR I FROM 1 TO
rowDim(vf)DO
TEXTOUT_P(vf(I,1),G9,100,20*(I),2,Col148,100,Col128);TEXTOUT_P(LNC(I),G9,1
70,20*(I),2,Col118,100,Col128);END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==5 AND axsdcerf2==2 THEN
axsdcerfR();TEXTOUT_P(lvx(12),95,5,2,Col3);TEXTOUT_P(lvx(12),96,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats
:={0};varcaq(2);LOCAL Tit,mep1,mep2,ancho,alto;Tit:={};IF T==1 THEN
ancho:=320;alto:=200;DIMGROB_P(G9,ancho,alto);RECT_P(G9);END;IF T==3
THEN
ancho:=320;alto:=190*B+30;DIMGROB_P(G8,320,190);RECT_P(G8);DIMGROB_P(
G9,ancho,alto);RECT_P(G9);FOR H FROM 1 TO B DO
mep1:=L4(H);mep2:=L6(H);mep1:=ROUND(mep1,5);mep2:=ROUND(mep2,5);TEXT
OUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col128);T
EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col12
8);TEXTOUT_P("COORD.
LOCAL",G8,80,35,1,Col148,100,Col128);TEXTOUT_P("COORD:
GLOBAL",G8,200,35,1,Col148,158,Col128);Tit(1):="Fx"+M1(H,1);Tit(2):="Fy"+M1(
H,1);Tit(3):="M"+M1(H,1);Tit(4):="Fx"+M1(H,2);Tit(5):="Fy"+M1(H,2);Tit(6):="M"
+M1(H,2);RECT_P(G8,18,55,18,rowDim(mep1)*20+65,Col12);RECT_P(G8,52,55,52,
rowDim(mep1)*20+65,Col12);RECT_P(G8,72,55,73,rowDim(mep1)*20+65,Col12);R
ECT_P(G8,170,55,171,rowDim(mep1)*20+65,Col12);RECT_P(G8,190,55,191,rowDi
m(mep1)*20+65,Col12);RECT_P(G8,290,55,291,rowDim(mep1)*20+65,Col12);TEXT
OUT_P("=",G8,59,rowDim(mep1)*10+55,2,Col12,100,Col128);FOR I FROM 1 TO
rowDim(mep1)DO
TEXTOUT_P(mep1(I,1),G8,80,20*(I)+45,2,Col148,150,Col128);TEXTOUT_P(Tit(I),
G8,23,20*(I)+45,2,Col118,100,Col128);TEXTOUT_P(mep2(I,1),G8,198,20*(I)+45,2,
Col148,150,Col128);END;BLIT_P(G9,0,190*(H-
1),320,190*H,G8,0,0,320,190);RECT_P(G8);END;END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==5 AND axsdcerf2==3 THEN
axsdcerfR();TEXTOUT_P(lvx(13),90,5,2,Col3);TEXTOUT_P(lvx(13),91,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);varcaq(2);LOCAL
Tit,vf,ancho,alto;Tit:={};FOR I FROM 1 TO N DO Tit(3*I-2):="Fx°";Tit(3*I-
1):="Fy°";Tit(3*I):="M°";END;IF T==1 THEN
ancho:=320;alto:=200;DIMGROB_P(G9,ancho,alto);RECT_P(G9);END;IF T==3
THEN
ancho:=320;alto:=rowDim(M8)*20+50;DIMGROB_P(G9,ancho,alto);RECT_P(G9);vf:
=ROUND(M8,5);RECT_P(G9,26,20,26,rowDim(vf)*20+30,Col12);RECT_P(G9,72,20
,72,rowDim(vf)*20+30,Col12);RECT_P(G9,92,20,93,rowDim(vf)*20+30,Col12);REC
T_P(G9,202,20,203,rowDim(vf)*20+30,Col12);TEXTOUT_P("=",G9,78,rowDim(vf)*
10+20,2,Col12,100,Col128);FOR I FROM 1 TO 3*N DO
TEXTOUT_P(vf(I,1),G9,100,20*(I)+10,2,Col148,150,Col128);TEXTOUT_P(Tit(I)+I,
G9,30,20*(I)+10,2,Col118,100,Col128);END;END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==6 AND axsdcerf2==1 THEN
axsdcerfR();TEXTOUT_P(lvx(14),110,5,2,Col3);TEXTOUT_P(lvx(14),111,5,2,Col3);
RECT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(
6,222,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col1
28);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);varcaq(2);LOCAL
Tit,vf,ancho,alto;Tit:={};IF T==1 THEN
ancho:=320;alto:=130*B+30;DIMGROB_P(G8,320,130);RECT_P(G8);DIMGROB_P(
G9,ancho,alto);RECT_P(G9);END;IF T==3 THEN
ancho:=320;alto:=170*B+30;DIMGROB_P(G8,320,170);RECT_P(G8);DIMGROB_P(
G9,ancho,alto);RECT_P(G9);END;FOR H FROM 1 TO B DO
vf:=L5(H);vf:=ROUND(vf,9);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+
H,G8,55,15,2,Col12,100,Col128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,3
2})+H,G8,55,15,2,Col12,100,Col128);IF T==1 THEN
Tit(1):="u"+M1(H,1);Tit(2):="v"+M1(H,1);Tit(3):="u"+M1(H,2);Tit(4):="v"+M1(H,2)
;END;IF T==3 THEN
Tit(1):="u"+M1(H,1);Tit(2):="v"+M1(H,1);Tit(3):="θ"+M1(H,1);Tit(4):="u"+M1(H,2);
Tit(5):="v"+M1(H,2);Tit(6):="θ"+M1(H,2);END;RECT_P(G8,42,40,42,rowDim(vf)*2
0+50,Col12);RECT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);RECT_P(G8,92,40,93,r
owDim(vf)*20+50,Col12);RECT_P(G8,212,40,213,rowDim(vf)*20+50,Col12);TEXT
OUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100,Col128);FOR I FROM 1 TO
rowDim(vf)DO
TEXTOUT_P(vf(I,1),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOUT_P(Tit(I),G8
,48,20*(I)+30,2,Col118,100,Col128);END;IF T==1 THEN BLIT_P(G9,0,130*(H-
1),320,130*H,G8,0,0,320,130);RECT_P(G8);END;IF T==3 THEN
BLIT_P(G9,0,170*(H-
1),320,170*H,G8,0,0,320,170);RECT_P(G8);END;END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);DIMGROB_P(G8,0,0);varcaq(2);BLIT_P(G0
,G5);END;IF axsdcerf1==6 AND axsdcerf2==2 THEN
axsdcerfR();TEXTOUT_P(lvx(14),110,5,2,Col3);TEXTOUT_P(lvx(14),111,5,2,Col3);
RECT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(
6,222,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col1
28);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats
:={0};varcaq(2);
LOCAL
touch1,vf,tlc,tlf,ancho,alto,Mred;M6:=ROUND(M6,8);vf:=M6;vf:=ROUND(vf,9);nf:=r
owDim(vf);nc:=colDim(vf);alto:=20*nf+50;ancho:=320;IF alto<200 THEN
alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);RECT_P(G9,92,15,93,row
Dim(vf)*20+20,Col12);RECT_P(G9,212,15,213,rowDim(vf)*20+20,Col12);TEXTOU
T_P("δn =",G9,60,rowDim(vf)*10+10,2,Col12,100,Col128);FOR I FROM 1 TO
rowDim(vf)DO
TEXTOUT_P(vf(I,1),G9,100,20*(I),2,Col148,150,Col128);TEXTOUT_P(LNC(I),G9,2
15,20*(I),2,Col118,100,Col128);END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==7 AND axsdcerf2==1 THEN
axsdcerfR();TEXTOUT_P(lvx(15),110,5,2,Col3);TEXTOUT_P(lvx(15),111,5,2,Col3);
RECT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(
6,222,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col1
28);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats
:={0};varcaq(2);LOCAL Tit,vf,ancho,alto;Tit:={};IF T==1 AND Nnud==Eqx THEN
ancho:=320;alto:=70*B+30;DIMGROB_P(G8,320,70);RECT_P(G8);DIMGROB_P(G9
,ancho,alto);RECT_P(G9);FOR H FROM 1 TO B DO vf:=L8(H);Tit(1):="S -
"+H;TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,
Col128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,
100,Col128);RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col12);RECT_P(G8,202,40,20
3,rowDim(vf)*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100
,Col128);TEXTOUT_P(ROUND(vf(1,1),Pe),G8,100,50,2,Col148,150,Col128);TEXTO
UT_P(Tit(1),G8,43,50,2,Col118,100,Col128);IF vf(1,1)<0 THEN
TEXTOUT_P(CHAR({67,111,109,112,114,101,115,105,243,110}),G8,208,50,1,Col12,
100,Col128);END;IF vf(1,1)>0 THEN
TEXTOUT_P(CHAR({84,114,97,99,99,105,243,110}),G8,208,50,1,Col12,100,Col128)
;END;BLIT_P(G9,0,70*(H-1),320,70*H,G8,0,0,320,70);RECT_P(G8);END;END;IF
T==3 AND Nnud==Eqx THEN
ancho:=320;alto:=170*B+30;DIMGROB_P(G8,320,170);RECT_P(G8);DIMGROB_P(
G9,ancho,alto);RECT_P(G9);FOR H FROM 1 TO B DO
vf:=L9(H);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col1
2,100,Col128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,
Col12,100,Col128);Tit(1):="Fx"+M1(H,1);Tit(2):="Fy"+M1(H,1);Tit(3):="M"+M1(H,
1);Tit(4):="Fx"+M1(H,2);Tit(5):="Fy"+M1(H,2);Tit(6):="M"+M1(H,2);RECT_P(G8,4
2,40,42,rowDim(vf)*20+50,Col12);RECT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);
RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col12);RECT_P(G8,202,40,203,rowDim(vf)
*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100,Col128);FO
R I FROM 1 TO rowDim(vf)DO
TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOU
T_P(Tit(I),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H-
1),320,170*H,G8,0,0,320,170);RECT_P(G8);END;END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);varcaq(2);BLIT_P(G0,G5);END;IF axsdcerf1==7 AND
axsdcerf2==2 THEN
axsdcerfR();TEXTOUT_P(lvx(16),90,5,2,Col3);TEXTOUT_P(lvx(16),91,5,2,Col3);RE
CT_P(0,20,320,240,Col128);RECT_P(0,220,320,240,RGB(240,240,240));RECT_P(6,2
22,27,238,Col133);RECT_P(5,223,28,237,Col133);TEXTOUT_P("●",10,217,7,Col128
);TEXTOUT_P("〇
",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats
:={0};varcaq(2);LOCAL Tit,vf,ancho,alto;Tit:={};IF T==1 THEN
ancho:=320;alto:=200;DIMGROB_P(G9,ancho,alto);RECT_P(G9);END;IF T==3 AND
Nnud==Eqx THEN
ancho:=320;alto:=170*B+30;DIMGROB_P(G8,320,170);RECT_P(G8);DIMGROB_P(
G9,ancho,alto);RECT_P(G9);FOR H FROM 1 TO B DO
vf:=L10(H);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col
12,100,Col128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2
,Col12,100,Col128);Tit(1):="Fx"+M1(H,1);Tit(2):="Fy"+M1(H,1);Tit(3):="M"+M1(H,
1);Tit(4):="Fx"+M1(H,2);Tit(5):="Fy"+M1(H,2);Tit(6):="M"+M1(H,2);RECT_P(G8,4
2,40,42,rowDim(vf)*20+50,Col12);RECT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);
RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col12);RECT_P(G8,202,40,203,rowDim(vf)
*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100,Col128);FO
R I FROM 1 TO rowDim(vf)DO
TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOU
T_P(Tit(I),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H-
1),320,170*H,G8,0,0,320,170);RECT_P(G8);END;END;REPEAT
BLIT_P(G0,0,20,320,220,G9,0,0,320,200);ogol();MoverF(ancho,alto,320,200);IF
ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);varcaq(2);BLIT_P(G0,G5);END;IF axsdcerf1==8 AND
axsdcerf2==1 THEN
escDiag:=40;Dxxw(1,320,220);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTOUT_P(l
vx(17),101,5,2,Col118);ads();ogol();LOCAL
touch1,Grafx;Grafx:=CHAR({48,44,46}+7);REPEAT
touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
0<=touch1(3)<=30 AND 0<=touch1(4)<=22 THEN BLIT_P(G5,G0);BREAK;END;IF
290<=touch1(3)<=320 AND 30<=touch1(4)<=60 AND Nnud==Grafx THEN
oligft120(1);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTOUT_P(lvx(17),101,5,2,Col
118);ads();ogol();END;END;IF ISKEYDOWN(45)THEN escDiag:=escDiag-
5;Dxxw(1,320,220);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTOUT_P(lvx(17),101,
5,2,Col118);ads();ogol();END;IF ISKEYDOWN(50)AND Nnud==Eqx THEN
escDiag:=escDiag+5;Dxxw(1,320,220);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTO
UT_P(lvx(17),101,5,2,Col118);ads();ogol();END;IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;RECT_P(110,223,140,238,Col39);TEXTOUT_P(CHAR({7
8,91,43,93}),113,225,2,Col128);TEXTOUT_P(CHAR({78,91,43,93}),113,225,2,Col12
8);RECT_P(150,223,180,238,Col34);TEXTOUT_P(CHAR({78,91,45,93}),153,225,2,C
ol128);TEXTOUT_P(CHAR({78,91,45,93}),153,225,2,Col128);WAIT(-1);UNTIL
0;DIMGROB_P(G4,0,0);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==8 AND axsdcerf2==2 THEN
varcaq(2);escDiag:=40;Dxxw(2,320,220);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXT
OUT_P(lvx(18),101,5,2,Col118);ads();ogol();LOCAL
touch1,Grafx;Grafx:=CHAR({48,44,46}+7);REPEAT
touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
0<=touch1(3)<=30 AND 0<=touch1(4)<=22 AND Nnud==Grafx THEN
BLIT_P(G5,G0);BREAK;END;IF 290<=touch1(3)<=320 AND 30<=touch1(4)<=60
THEN
oligft120(2);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXTOUT_P(lvx(18),101,5,2,Col
118);ads();ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN
escDiag:=escDiag-
5;Dxxw(2,320,220);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXTOUT_P(lvx(18),101,
5,2,Col118);ads();ogol();END;IF ISKEYDOWN(50)AND Nnud==Grafx THEN
escDiag:=escDiag+5;Dxxw(2,320,220);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXTO
UT_P(lvx(18),101,5,2,Col118);ads();ogol();END;IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;RECT_P(110,223,140,238,Col60);TEXTOUT_P(CHAR({8
6,91,43,93}),114,225,2,Col128);TEXTOUT_P(CHAR({86,91,43,93}),114,225,2,Col12
8);RECT_P(150,223,180,238,Col55);TEXTOUT_P(CHAR({86,91,45,93}),154,225,2,C
ol128);TEXTOUT_P(CHAR({86,91,45,93}),154,225,2,Col128);WAIT(-1);UNTIL
0;DIMGROB_P(G4,0,0);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==8 AND axsdcerf2==3 THEN
varcaq(2);escDiag:=40;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXT
OUT_P(lvx(19),101,5,2,Col118);ads();ogol();LOCAL
touch1,Grafx;Grafx:=CHAR({48,44,46}+7);REPEAT
touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
0<=touch1(3)<=30 AND 0<=touch1(4)<=22 AND Nnud==Grafx THEN
BLIT_P(G5,G0);BREAK;END;IF 290<=touch1(3)<=320 AND 30<=touch1(4)<=60
AND Nnud==Grafx THEN
oligft120(3);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col
118);ads();ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN
escDiag:=escDiag-
5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,
5,2,Col118);ads();ogol();END;IF ISKEYDOWN(50)THEN
escDiag:=escDiag+5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTO
UT_P(lvx(19),101,5,2,Col118);ads();ogol();END;IF ISKEYDOWN(4)AND
Nnud==Grafx THEN
axsdcerfR();BREAK;END;RECT_P(110,223,140,238,Col11);TEXTOUT_P(CHAR({7
7,91,43,93}),113,225,2,Col128);TEXTOUT_P(CHAR({77,91,43,93}),113,225,2,Col12
8);RECT_P(150,223,180,238,Col118);TEXTOUT_P(CHAR({77,91,45,93}),153,225,2,
Col128);TEXTOUT_P(CHAR({77,91,45,93}),153,225,2,Col128);WAIT(-1);UNTIL
0;DIMGROB_P(G4,0,0);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0,G5);END;IF
axsdcerf1==8 AND axsdcerf2==4 THEN varcaq(2);LOCAL
touch1,Grafx;Grafx:=CHAR({48,44,46}+7);IFERR
qaswe1();RECT_P(0,0,320,240);RECT_P(0,0,320,20,Col130);TEXTOUT_P(CHAR({8
0,85,78,84,79,83,32,78,79,84,65,66,76,69,83}),95,5,2,Col12);TEXTOUT_P(CHAR({8
0,85,78,84,79,83,32,78,79,84,65,66,76,69,83}),96,5,2,Col12);LOCAL
raic,LRM,LRC,Lecus,l5,l8,l1;LOCAL
b,hh,mmx6,lrm,lrc;DIMGROB_P(G9,320,400);RECT_P(G9);LOCAL
hh;hh:=1;REPEAT RECT_P(G9);IF ISKEYDOWN(7)THEN hh:=hh-1;IF hh==0
THEN hh:=B;END;END;IF ISKEYDOWN(8)THEN hh:=hh+1;IF SIZE(L1)<hh THEN
hh:=1;END;END;raic:=LMax(hh);mmx6:=raic(1);LRM:=raic(2);LRC:=raic(3);lrm:=rai
c(4);lrc:=raic(5);l1:=LDis(hh);b:=SIZE(l1)-
1;TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+hh,G9,75,10,2,Col12);TEX
TOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+hh,G9,75,10,2,Col12);LINE_P(G9
,72,22,155,22,Col12);FOR I FROM 1 TO b DO
TEXTOUT_P(CHAR({84,82,65,77,79,32,58,32,32})+l1(I)+" ≤ x <
"+l1(I+1),G9,80,90*I-
60,1,RGB(255,0,0));TEXTOUT_P(CHAR({84,82,65,77,79,32,58,32,32})+l1(I)+" ≤ x <
"+l1(I+1),G9,80,90*I-60,1,RGB(255,0,0));TEXTOUT_P("Mi =
"+ROUND(mmx6(I,7),Pe),G9,25,90*I-45,1);TEXTOUT_P("Vi =
"+ROUND(mmx6(I,1),Pe),G9,25,90*I-30,1);TEXTOUT_P("Mf =
"+ROUND(mmx6(I,8),Pe),G9,170,90*I-45,1);TEXTOUT_P("Vf =
"+ROUND(mmx6(I,2),Pe),G9,170,90*I-30,1);TEXTOUT_P("V = 0 "+"→ x =
"+ROUND(lrc(I),Pe),G9,35,90*I-18,1);TEXTOUT_P("M = 0 "+"→ x =
"+ROUND(lrm(I),Pe),G9,35,90*I-4,1);IF ROUND(-mmx6(I,9),Pe)≠0 THEN
TEXTOUT_P(CHAR({77,109,225,120,32,61,32})+ROUND(-mmx6(I,9),Pe)+" "+"→ x
= "+ROUND(mmx6(I,10),Pe),G9,35,90*I+12,1,RGB(0,0,255));ELSE
TEXTOUT_P(CHAR({78,111,32,69,120,105,115,116,101,32,77,109,225,120,32,101,1
10,32,101,115,116,101,32,116,114,97,109,111}),G9,35,90*I+12,1,RGB(0,0,255));END
;END;BLIT_P(G0,0,20,320,240,G9,0,0,320,220);MoverPN(320,400,320,220);UNTIL
ISKEYDOWN(4);DIMGROB_P(G9,1,1);THEN
MSGBOX(CHAR({72,117,98,111,32,117,110,32,101,114,114,111,114}));END;TEXT
OUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col118);ads();ogol();va
rcaq(2);BLIT_P(G0,G5);END;IF axsdcerf1==8 AND axsdcerf2==5 THEN
WAIT(0.2);axsdcerfR();varcaq(2);Atytz(3);TEXTOUT_P(lvx(20),125,5,2,Col118);TE
XTOUT_P(lvx(20),126,5,2,Col118);ads();ogol();BLIT_P(G5,G0);escDiag:=30;LOCAL
touch1,h1,h2;LOCAL Grafx;Grafx:=CHAR({48,44,46}+7);REPEAT
touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
0<=touch1(3)<=30 AND 0<=touch1(4)<=22 AND Nnud==Grafx THEN
BLIT_P(G5,G0);
BREAK;END;END;IF ISKEYDOWN(4)THEN axsdcerfR();BREAK;END;WAIT(-
1);UNTIL 0;BLIT_P(G5,G0);END;IF axsdcerf1==8 AND axsdcerf2==6 THEN
RECT_P(0,0,320,240);RECT_P(0,0,320,20,Col130);TEXTOUT_P(CHAR({67,79,82,8
4,65,78,84,69}),120,5,2,Col12);TEXTOUT_P(CHAR({77,79,77,69,78,84,79}),210,5,2,
Col12);TEXTOUT_P(CHAR({67,79,82,84,65,78,84,69}),120,5,2,Col12);TEXTOUT_P
(CHAR({77,79,77,69,78,84,79}),210,5,2,Col12);varcaq(2);RECT_P(31,3,61,17,Col12,
Col128);TEXTOUT_P("Δx = ",5,5,2,Col148);Regs:={{{30,2},{60,16}}};LOCAL
nit,x,ecm,ecc,ecn,l1,EC;LOCAL
Intv,h1,h2,xx;Intv:=0.5;Dats:={Intv};TEXTOUT_P(Intv,33,6,1,Col148);REPEAT
RECT_P(105,100,215,122,Col131);
TEXTOUT_P(CHAR({67,97,108,99,117,108,97,110,100,111,46,46,46}),125,105,2,Col
148);TEXTOUT_P(CHAR({67,97,108,99,117,108,97,110,100,111,46,46,46}),125,105,
2,Col148);Intv:=Dats(1);TEXTOUT_P(Intv,33,6,1,Col148);MatEval:=[[0,0,0,0,0]];FO
R H FROM 1 TO B DO
l1:=LDis(H);nit:=ceiling(l1(SIZE(l1))/Intv)+1;xx:=0;EC:=LEcu(H);FOR h1 FROM 1
TO nit DO IF h1==nit THEN xx:=l1(SIZE(l1));END;FOR h2 FROM 1 TO SIZE(l1)-1
DO IF l1(h2)≤xx<l1(h2+1)THEN ecn:=EC(1);ecc:=EC(2);ecm:=-
EC(3);x:=CAS(CAS("x"));x:=xx-
l1(h2);ecn:=EVAL(ecn(h2));ecc:=EVAL(ecc(h2));ecm:=EVAL(ecm(h2));x:=CAS(CAS
("x"));MatEval(rowDim(MatEval)+1,1):=H;MatEval(rowDim(MatEval),2):=xx;MatEva
l(rowDim(MatEval),3):=ecn;MatEval(rowDim(MatEval),4):=ecc;MatEval(rowDim(Ma
tEval),5):=ecm;END;IF h1==nit AND xx==l1(h2+1)THEN
xx:=l1(SIZE(l1));ecn:=EC(1);ecc:=EC(2);ecm:=EC(3);x:=CAS(CAS("x"));x:=xx-
l1(h2);ecn:=EVAL(ecn(h2));ecc:=EVAL(ecc(h2));ecm:=EVAL(ecm(h2));x:=CAS(CAS
("x"));MatEval(rowDim(MatEval)+1,1):=H;MatEval(rowDim(MatEval),2):=xx;MatEva
l(rowDim(MatEval),3):=ecn;MatEval(rowDim(MatEval),4):=ecc;MatEval(rowDim(Ma
tEval),5):=ecm;END;END;xx:=xx+Intv;END;END;IF rowDim(MatEval)>1 THEN
MatEval:=DELROW(MatEval,1);END;DIMGROB_P(G9,320,20*rowDim(MatEval)+5
0);RECT_P(G9);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,5,5,2,Col118,75,Col1
28);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,6,5,2,Col118,75,Col128);TEXTO
UT_P(MatEval(1,1),G9,10,20,3,Col118,75,Col128);TEXTOUT_P(MatEval(1,1),G9,11,
20,3,Col118,75,Col128);FOR h1 FROM 1 TO rowDim(MatEval)DO IF h1>2 THEN IF
MatEval(h1,1)≠MatEval(h1-1,1)THEN
TEXTOUT_P(CHAR({69,108,101,109,46}),G9,5,5+20*(h1-
1),2,Col118,75,Col128);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,6,5+20*(h1-
1),2,Col118,75,Col128);TEXTOUT_P(MatEval(h1,1),G9,10,5+20*(h1),3,Col118,75,C
ol128);TEXTOUT_P(MatEval(h1,1),G9,11,5+20*(h1),3,Col118,75,Col128);END;END
;LINE_P(G9,45,20*(h1),310,20*(h1),Col130);LOCAL
prec;prec:=Pe+3;TEXTOUT_P("X = "+ROUND(MatEval(h1,2),prec),G9,50,5+20*(h1-
1),1,Col13,80,Col128);TEXTOUT_P("X =
"+ROUND(MatEval(h1,2),prec),G9,51,5+20*(h1-
1),1,Col13,80,Col128);TEXTOUT_P(ROUND(MatEval(h1,4),prec),G9,120,5+20*(h1-
1),1,Col148,90,Col128);TEXTOUT_P(ROUND(MatEval(h1,5),prec),G9,210,5+20*(h1
-
1),1,Col148,90,Col128);END;BLIT_P(G0,0,20,320,240,G9,0,0,320,220);Mnbvxqubg(3
20,20*rowDim(MatEval)+50,320,220);IF ISKEYDOWN(4)THEN
axsdcerfR();BREAK;END;UNTIL
ISKEYDOWN(4);DIMGROB_P(G4,0,0);DIMGROB_P(G9,0,0);varcaq(2);BLIT_P(G0
,G5);END;bdx:=30;bdy:=30;END;tdljt4(mx,my)BEGIN LOCAL
Concatenar,C_Mur,DimM;LOCAL j,XC;Concatenar:={};FOR j:=1 TO werf1 DO
XC:=tlitg2(gpk9(j,1)*100,0);DimM:=CHAR({32,58,32})+XC;C_Mur:={CHAR({77,45
})+j+DimM};Concatenar:=CONCAT(Concatenar,C_Mur);END;C_Mur:=Concatenar;I
F 250<mx<360 AND 225<my<240 THEN
expr9:=ffllq3(expr9,C_Mur,218.5,25,100,2,LigthBlue,AzulTit,PlomoA,AzulTit);IF
expr9==0 THEN expr9:=1;ELSE
expr9:=expr9;END;END;RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P(C_Mu
r(expr9),Gp,257,230,1,AzulTit);RECT_P(Gp,211,229,250,240,White);TEXTOUT_P(C
HAR({45,99,109,45}),Gp,218,230,1,Black);RECT_P(Gp,104,229,140,240,White);TEX
TOUT_P(CHAR({67})+" ┅
"+abd8,Gp,109,230,1,Black);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅ "+expr8,Gp,181,230,1,RedA);END;fldth5(mx,my)BEGIN
tdljt4(mx,my);LOCAL XC,YC,k,j;FOR j:=1 TO werf1 DO IF expr9==j THEN
XC:=gpk9(j,1)*qwr5;YC:=gpk9(j,2)*qwr5;END;END;FOR j:=1 TO qwr6 DO
IF(qwr8(j)-10<=mx <=qwr8(j)+10 AND qwr7(j)-10<=my<=qwr7(j)+10)THEN FOR
k:=1 TO abd8 DO IF(qwr8(j)==(dfg1+abd10(k,4)*qwr5)AND qwr7(j)==(dfg2-
abd10(k,5)*qwr5))THEN expr10:=expr10+1;IF(expr10==1)THEN
expr8:=expr8+1;expr15(expr8,1):=expr9;expr15(expr8,2):=XC/qwr5;expr15(expr8,3):=
0;expr15(expr8,5):=qwr10(j);expr15(expr8,6):=qwr9(j);expr15(expr8,14):=expr8;bdc9:
=qwr8(j);bdc10:=qwr7(j);RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P("✎"+
CHAR({32,78,117,100,111,32,50})+"
⇢",Gp,260,229,1,RedA);jjrtg4(mx,my);expr11:=abd10(k,2)*qwr5;expr12:=abd10(k,3)*
qwr5;BREAK;ELSE
expr13:=abd10(k,2)*qwr5;expr14:=abd10(k,3)*qwr5;expr15(expr8,7):=qwr10(j);expr1
5(expr8,8):=qwr9(j);expr1:=qwr8(j);expr2:=qwr7(j);expr15(expr8,9):=gpk9(expr9,2);ex
pr15(expr8,10):=gpk9(expr9,4);expr15(expr8,11):=gpk9(expr9,5);expr15(expr8,12):=gp
k9(expr9,6);expr15(expr8,13):=gpk9(expr9,7);END;END;END;END;END;IF
expr10==2 THEN IF(expr15(expr8,5)<> expr15(expr8,7)OR expr15(expr8,6)<>
expr15(expr8,8))THEN
RECT_P(Gp,104,229,140,240,White);TEXTOUT_P(CHAR({67})+" ┅
"+abd8,Gp,109,230,1,Black);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHA
R({86})+" ┅
"+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHA
R({65})+" ┅
"+expr8,Gp,181,230,1,RedA);jjrtg4(mx,my);ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,ex
pr2,expr11,expr12,expr13,expr14);expr10:=0;ELSE
expr10:=1;END;END;END;ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,expr2,expr11,expr1
2,expr13,expr14)BEGIN LOCAL a0,b0,af,bf,t,j;CASE IF(bdc9-expr1)==0 THEN
LOCAL d;a0:=bdc9+XC/2;b0:=bdc10;af:=expr1-XC/2;bf:=expr2;d:=abs(bf-
b0+(expr12+expr14)/2);expr15(expr8,4):=d/qwr5;t:=expr15(expr8,2);t:=t*qwr5;LINE_
P(Gp,a0,b0,a0,bf,ToasRed);LINE_P(Gp,af,b0,af,bf,ToasRed);FOR j:=1 TO b0-bf STEP
10 DO LINE_P(Gp,a0,b0-j,af,b0-j-5,Tangerine);END;END;IF(bdc10-expr2)==0 THEN
LOCAL d;a0:=bdc9;b0:=bdc10+XC/2;af:=expr1;bf:=expr2-XC/2;d:=abs(af-a0-
(expr11+expr13)/2);expr15(expr8,4):=d/qwr5;t:=expr15(expr8,2);t:=t*qwr5;LINE_P(G
p,a0,b0,af,b0,ToasRed);LINE_P(Gp,a0,bf,af,bf,ToasRed);FOR j:=1 TO af-a0 STEP 10
DO LINE_P(Gp,a0+j,b0-t,a0+j+5,b0,Tangerine);END;END;IF((bdc10-expr2)<>0
OR(bdc9-expr1)<>0)THEN LOCAL bf1,bf2,m,d,L;L:=100;d:=abs((XC/2*L)/(expr1-
bdc9));expr15(expr8,4):=0;a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10-
d;bf2:=expr2-
d;LINE_P(Gp,a0,b0,af,bf1,CoVig);LINE_P(Gp,a0,bf,af,bf2,CoVig);END;END;END;h
dljt5(mx,my)BEGIN LOCAL j;FOR j:=1 TO rtyh8 DO IF(qwr8(j)-
6)<mx<(qwr8(j)+12)AND(qwr7(j)-4)<my<(qwr7(j)+17)THEN
ldljtr5(j,2);END;END;LOCAL v:=1;FOR j:=1 TO rtyh7 DO IF(qwr8(v)-
25)<mx<(qwr8(v)-4)AND(qwr7(v)-10)<my<(qwr7(v)+8)THEN
ldljtr5(j,1);END;v:=v+rtyh8;END;END;qaswe1()BEGIN LOCAL
x;x:=CAS(CAS("x"));LOCAL l5,l8,l1,Lecus,mmx6,mmx9,b;LOCAL
LRM,LRC,ecc,ecm,hh;LOCAL lrm,lrc;LOCAL x;x:=CAS(CAS("x"));FOR hh FROM
1 TO B DO
Lecus:=LEcu(hh);l5:=Lecus(2);l8:=Lecus(3);l5:=CAS.expand(l5);l5:=CAS.simplify(l5)
;l8:=CAS.expand(l8);l8:=CAS.simplify(l8);l1:=LDis(hh);b:=SIZE(l1)-
1;LRM:={};LRC:={};lrm:={};lrc:={};FOR I FROM 2 TO b+1 DO ecm:=l8(I-1);ecc:=-
l5(I-1);LRM(I-1):=Raices(ecm,0,l1(I)-l1(I-1));LRC(I-1):=Raices(ecc,0,l1(I)-l1(I-
1));lrm(I-1):=LRM(I-1)+l1(I-1);lrc(I-1):=LRC(I-1)+l1(I-
1);END;LMax(hh):={LRM,LRC,lrm,lrc};END;LOCAL raic;x:=CAS(CAS("x"));FOR
hh FROM 1 TO B DO
x:=CAS(CAS("x"));raic:=LMax(hh);LRM:=raic(1);LRC:=raic(2);lrm:=raic(3);lrc:=raic
(4);Lecus:=LEcu(hh);l5:=Lecus(2);l8:=Lecus(3);l5:=CAS.expand(l5);l5:=CAS.simplify
(l5);l8:=CAS.expand(l8);l8:=CAS.simplify(l8);l1:=LDis(hh);b:=SIZE(l1)-
1;mmx6:=MAKEMAT(0,b,12);mmx9:=[0];FOR I FROM 2 TO b+1 DO ecm:=-l8(I-
1);ecc:=l5(I-1);x:=CAS(CAS("x"));x:=0;mmx6(I-1,1):=EVAL(ecc);mmx6(I-
1,7):=EVAL(ecm);x:=l1(I)-l1(I-1);mmx6(I-1,2):=EVAL(ecc);mmx6(I-
1,8):=EVAL(ecm);IF TYPE(LRC(I-1))≠6 THEN mmx9:=LRC(I-1);A:=mmx9(1);IF
A≠0 AND A≠(l1(I)-l1(I-1))THEN x:=A;mmx6(I-1,9):=-EVAL(ecm);mmx6(I-
1,10):=A+l1(I-1);mmx6(I-1,4):=A+l1(I-
1);END;END;END;LMax(hh):={mmx6,LRM,LRC,lrm,lrc};END;END;Mnbvxqubg(w,
h,sw,sh)BEGIN LOCAL mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL
x:=0,y:=0,d:=0,ld:=0;LOCAL z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL
dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1;REPEAT WAIT(-1)▶touch1;IF TYPE(touch1)=6 THEN IF touch1(1)=0 OR
touch1(1)=3 THEN IF 0<touch1(2)<30 AND 0<touch1(3)<23 THEN
BREAK(2);END;END;END;tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUS
E(1);ms:=MOUSE(4);IF ms=2 THEN IF NOT ig THEN
ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF mx>mx0 THEN tt(1):=tt(1)+(mx-
mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF my>my0 THEN tt(2):=tt(2)+(my-
my0)/z;ELSE tt(4):=tt(4)+(my0-my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE
ig:=0;END;x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-
sh/z),0);BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-
(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));IF
ISKEYDOWN(19)THEN
oligft116(1);BREAK;END;BLIT_P(G0,0,20,sw,sh+20,G1,0,0,sw,sh);UNTIL
ISKEYDOWN(4);END;ldljtr5(j,dfg4)BEGIN LOCAL x,y,k,vvv,va,vER,ve,i;LOCAL
DPor,Po,dDat,RDPor:=[[0]],dDatM,RGP,RLP;IF liev13==0 THEN
ldljtr7(CHAR({67,97,114,103,97,110,100,111}),105,135,0,40,White,90,12,0.05);FOR
i:=1 TO rtyh8 DO IFERR ldljt5(2,i,i);THEN xpre5(i):=[[0]];END;END;FOR i:=1 TO
rtyh7 DO IFERR ldljt5(1,i,i);THEN
xpre4(i):=[[0]];END;END;ldljtr7(CHAR({67,97,114,103,97,110,100,111}),105,135,40,
50,PlomoA,90,12,0.05);xpre6:=xpre4;xpre8:=xpre2;xpre7:=xpre5;xpre9:=xpre3;END;li
ev13:=1;IF dfg4==1 THEN
Po:=j;DPor:=xpre6;dDat:=xpre2;dDatM:=xpre8;vER:=expr19;ELSE
Po:=char(64+j);DPor:=xpre7;dDat:=xpre3;dDatM:=xpre9;vER:=expr20;END;LOCAL
R_Rig,R_Edit,R_Guar,R_Sal;LOCAL
R_PN,R_BR,R_PM;RECT(Fondo);RECT_P({0,1},{320,17},DarkBlue,AzulTit);TEXT
OUT_P(CHAR({80,79,82,84,73,67,79,32})+Po,115,1.5,3,White);LOCAL
dx:=5,dy:=30,dyy:=0;R_Rig:={{270,20},{320,45}};RECT_P(R_Rig(1),R_Rig(2),Red
A,Plomo);TEXTOUT_P(CHAR({82,73,71,73,68,69,90}),R_Rig(1,1)+5,R_Rig(1,2)+7,
2);R_Edit:={{270,55},{320,75}};RECT_P(R_Edit(1),R_Edit(2),RedA,Plomo);TEXTO
UT_P(CHAR({69,68,73,84,65,82}),R_Edit(1,1)+5,R_Edit(1,2)+7,2);R_PN:={{270,90}
,{320,110}};R_BR:={{270,110},{320,130}};R_PM:={{270,130},{320,150}};LOCAL
vv;IFERR vv:=dDatM(1,j);THEN vv:=1
END;tdljt5(vv,R_PN,R_BR,R_PM);R_Guar:={{270,165},{320,185}};RECT_P(R_Gua
r(1),R_Guar(2),RedA,Plomo);TEXTOUT_P(CHAR({82,69,45,67,65,76}),R_Guar(1,1)
+5,R_Guar(1,2)+7,2);R_Sal:={{270,200},{320,220}};RECT_P(R_Sal(1),R_Sal(2),Red
A,Plomo);TEXTOUT_P(CHAR({83,65,76,73,82}),R_Sal(1,1)+5,R_Sal(1,2)+7,2);IFE
RR IF vER(j)==0 THEN
zvfgk8(dfg4,j,j);END;RECT_P({1,20},{270,239},RedA,White);tlitg6(dfg4,125,120,24
0,190,j);THEN
hdljt7("✘"+CHAR({32,69,114,114,111,114}),CHAR({32,32,32,67,111,114,114,101,10
3,105,114,32,101,108,32,68,105,98,117,106,111}),120,100,95,30,0.5);WAIT(0.1);END
;LOCAL mx,my,i;REPEAT WAIT(-1)▶Accion;IF TYPE(Accion)==6 THEN IF
Accion(1)==0 THEN mx:=Accion(2);my:=Accion(3);CASE
IF(R_Rig(1,1))<mx<R_Rig(2,1)AND R_Rig(1,2)<my<R_Rig(2,2)THEN
va:=ffllq3(1,{CHAR({75,45,71,101,110,101,114,97,108}),CHAR({75,45,76,97,116,10
1,114,97,108})},178,25,90,2,PlomoA,Black,Fondo,RedA);IF va<>0 THEN IF dfg4==1
THEN RGP:=xpre13;RLP:=xpre11;ELSE RGP:=xpre12;RLP:=xpre10;
END;IF va==1 THEN
EDITMAT(RGP(j),{CHAR({82,73,71,73,68,69,90,32,71,76,79,66,65,76,32,68,69,76,3
2,80,79,82,84,73,67,79,32})+Po,{},{}});ELSE
EDITMAT(RLP(j),{CHAR({82,73,71,73,68,69,90,32,76,65,84,69,82,65,76,32,68,69,76
,32,80,79,82,84,73,67,79,32})+Po,{},{}});END;END;IF vER(j)==2 AND va<>0
THEN
hdljt7(""+CHAR({32,69,114,114,111,114}),CHAR({32,32,32,82,101,45,67,97,108,99,
117,108,101}),105,100,80,30,0.5);END;ldljtr5(j,dfg4);BREAK;END;IF(R_Edit(1,1))<
mx<R_Edit(2,1)AND R_Edit(1,2)<my<R_Edit(2,2)THEN LOCAL BDPort;IFERR
LOCAL DimH,DimV:={},Con;IF dfg4==1 THEN CASE IF vv==1 THEN
DimH:={CHAR({98,47,76,121}),CHAR({104,47,76,120}),CHAR({76,47,72}),CHAR(
{80,69}),CHAR({80,111,105}),CHAR({69}),CHAR({71}),CHAR({65}),CHAR({73})
,CHAR({120}),CHAR({121}),"","",CHAR({73,68}),CHAR({78,105,118,101,108}),C
HAR({84,105,112,111}),CHAR({88,99,103,32,49}),CHAR({89,99,103,32,49}),CHAR
({88,99,103,32,50}),CHAR({89,99,103,32,50}),""};END;IF vv==2 THEN
DimH:={CHAR({98,47,76,121}),CHAR({104,47,76,120}),CHAR({76,47,72}),CHAR(
{105}),CHAR({102}),CHAR({80,69}),CHAR({80,111,105}),CHAR({69}),CHAR({7
1}),CHAR({65}),CHAR({73}),CHAR({120}),CHAR({121}),CHAR({73,68}),CHAR(
{78,105,118,101,108}),CHAR({84,105,112,111}),CHAR({88,99,103,32,49}),CHAR({
89,99,103,32,49}),CHAR({88,99,103,32,50}),CHAR({89,99,103,32,50}),""};END;IF
vv==3 THEN
DimH:={CHAR({98,47,76,121}),CHAR({104,47,76,120}),CHAR({76,47,72}),CHAR(
{76,45,97,108,98}),CHAR({72,45,97,108,98}),CHAR({80,69}),CHAR({80,111,105}),
CHAR({69}),CHAR({71}),CHAR({65}),CHAR({73}),CHAR({120}),CHAR({121}),
CHAR({73,68}),CHAR({78,105,118,101,108}),CHAR({84,105,112,111}),CHAR({88,
99,103,32,49}),CHAR({89,99,103,32,49}),CHAR({88,99,103,32,50}),CHAR({89,99,1
03,32,50}),""};END;END;ELSE CASE IF vv==1 THEN
DimH:={"","",CHAR({76,47,72}),CHAR({80,69}),CHAR({80,111,105}),CHAR({69}
),CHAR({71}),CHAR({65}),CHAR({73}),CHAR({120}),CHAR({121}),"","",CHAR(
{73,68}),CHAR({78,105,118,101,108}),CHAR({84,105,112,111}),CHAR({88,99,103,
32,49}),CHAR({89,99,103,32,49}),CHAR({88,99,103,32,50}),CHAR({89,99,103,32,5
0}),""};END;IF vv==2 THEN
DimH:={"","",CHAR({76,47,72}),CHAR({105}),CHAR({102}),CHAR({80,69}),CHA
R({80,111,105}),CHAR({69}),CHAR({71}),CHAR({65}),CHAR({73}),CHAR({120}
),CHAR({121}),CHAR({73,68}),CHAR({78,105,118,101,108}),CHAR({84,105,112,1
11}),CHAR({88,99,103,32,49}),CHAR({89,99,103,32,49}),CHAR({88,99,103,32,50})
,CHAR({89,99,103,32,50}),""};END;IF vv==3 THEN
DimH:={"","",CHAR({76,47,72}),CHAR({76,45,97,108,98}),CHAR({72,45,97,108,98
}),CHAR({80,69}),CHAR({80,111,105}),CHAR({69}),CHAR({71}),CHAR({65}),C
HAR({73}),CHAR({120}),CHAR({121}),CHAR({73,68}),CHAR({78,105,118,101,10
8}),CHAR({84,105,112,111}),CHAR({88,99,103,32,49}),CHAR({89,99,103,32,49}),
CHAR({88,99,103,32,50}),CHAR({89,99,103,32,50}),""};END;END;END;FOR i:=1
TO rowDim(DPor(j))DO
Con:={CHAR({32,32})+i};DimV:=CONCAT(DimV,Con);END;DimV:=CONCAT(Di
mV,{""});BDPort:=DPor(j);RDPor:=EDITMAT(DPor(j),{""+Po,DimV,DimH});RDPor
:=RDPor(j);IF dfg4==1 THEN xpre6(j):=RDPor;expr19(j):=1;ELSE
xpre7(j):=RDPor;expr20(j):=1;END;THEN
hdljt7(""+CHAR({32,69,114,114,111,114}),CHAR({32,32,32,82,101,45,67,97,108,99,
117,108,101}),105,100,80,30,0.5);END;IF BDPort<>RDPor THEN
hdljt6(dfg4,j);zvfgk8(dfg4,j,j);END;ldljtr5(j,dfg4);yyhte7;BREAK;END;IF((R_PN(1,1)
)<mx<R_PN(2,1)AND R_PN(1,2)<my<R_PN(2,2))AND vv<>3 THEN
ve:=tdljt7("","",65,100,165,65,0.05);IF ve==1 THEN
ldljtr7(CHAR({67,97,108,99,117,108,97,110,100,111}),110,170,0,30,White,70,12,0.05
);ldljt6(dfg4,j,1);zvfgk8(dfg4,j,j);expr20(j):=1;ldljtr7(CHAR({67,97,108,99,117,108,97,
110,100,111}),110,170,30,40,PlomoA,70,12,0.05);END;ldljtr5(j,dfg4);yyhte7;BREAK;
END;IF((R_BR(1,1))<mx<R_BR(2,1)AND R_BR(1,2)<my<R_BR(2,2))AND vv<>3
THEN ve:=tdljt7("","",65,100,165,65,0.05);IF ve==1 THEN
ldljtr7(CHAR({67,97,108,99,117,108,97,110,100,111}),110,170,0,30,White,70,12,0.05
);ldljt6(dfg4,j,2);zvfgk8(dfg4,j,j);expr20(j):=1;ldljtr7(CHAR({67,97,108,99,117,108,97,
110,100,111,32,50}),110,170,30,40,PlomoA,70,12,0.05);END;ldljtr5(j,dfg4);yyhte7;BR
EAK;END;IF((R_PM(1,1))<mx<R_PM(2,1)AND R_PM(1,2)<my<R_PM(2,2))AND
vv=3 THEN IF dfg4==1 THEN xpre8(1,j):=3;ELSE
xpre9(1,j):=3;END;ldljtr5(j,dfg4);yyhte7;BREAK;END;IF
R_Guar(1,1)<mx<R_Guar(2,1)AND R_Guar(1,2)<my<R_Guar(2,2)THEN
ve:=tdljt7("",CHAR({32,100,97,116,111,115,32,112,111,114,32,100,101,102,101,99,11
6,111}),65,100,165,65,0.05);IF ve==1 THEN
ldljtr7(CHAR({82,101,115,116,97,98,108,101,99,105,101,110,100,111}),105,135,0,40,
White,90,12,0.05);ldljt5(dfg4,j,j);zvfgk8(dfg4,j,j);IF dfg4==1 THEN
xpre8(j):=xpre2(j);xpre6(j):=xpre4(j);expr19(j):=0;ELSE
xpre9(j):=xpre3(j);xpre7(j):=xpre5(j);expr20(j):=0;END;hdljt6(dfg4,j);ldljtr7(CHAR({8
2,101,115,116,97,98,108,101,99,105,101,110,100,111}),105,135,40,50,PlomoA,90,12,0
.05);ldljt7("✎"+CHAR({32,68,97,116,111,115,32,82,101,115,116,97,98,108,101,99,10
5,100,111,115}),CHAR({32,32,32,67,111,114,114,101,99,116,97,109,101,110,116,101
}),90,100,120,30,0.001);END;ldljtr5(j,dfg4);yyhte7;BREAK;END;IF
R_Sal(1,1)<mx<R_Sal(2,1)AND R_Sal(1,2)<my<R_Sal(2,2)THEN
tlitg5(dfg4);yyhte5(Gp,0,0,0);BREAK(2);END;END;END;ELSE IF Accion=4 THEN
tlitg5(dfg4);yyhte5(Gp,0,0,0);yyhte7;BREAK;END END;UNTIL
0;END;tdljt5(vv,R_PN,R_BR,R_PM)BEGIN CASE IF vv==1 OR vv==0 THEN
RECT_P(R_PN(1),R_PN(2),RedA,Plomo);TEXTOUT_P(CHAR({80,45,78,111}),R_P
N(1,1)+5,R_PN(1,2)+5,2,RedA);TEXTOUT_P("◉",R_PN(1,1)+37,R_PN(1,2)+5,2,Re
dA);RECT_P(R_BR(1),R_BR(2),RedA,Fondo);TEXTOUT_P(CHAR({66,45,82,105}),
R_BR(1,1)+5,R_BR(1,2)+5,2);TEXTOUT_P("◯
",R_BR(1,1)+38,R_BR(1,2)+5,2);RECT_P(R_PM(1),R_PM(2),RedA,Fondo);TEXTO
UT_P(CHAR({80,45,77,117}),R_PM(1,1)+5,R_PM(1,2)+5,2);TEXTOUT_P("◯
",R_PM(1,1)+38,R_PM(1,2)+5,2);END;IF vv==2 THEN
RECT_P(R_PN(1),R_PN(2),RedA,Fondo);TEXTOUT_P(CHAR({80,45,78,111}),R_P
N(1,1)+5,R_PN(1,2)+5,2);TEXTOUT_P("◯
",R_PN(1,1)+38,R_PN(1,2)+5,2);RECT_P(R_BR(1),R_BR(2),RedA,Plomo);TEXTOU
T_P(CHAR({66,45,82,105}),R_BR(1,1)+5,R_BR(1,2)+5,2,RedA);TEXTOUT_P("◉",
R_BR(1,1)+37,R_BR(1,2)+5,2,RedA);RECT_P(R_PM(1),R_PM(2),RedA,Fondo);TEX
TOUT_P(CHAR({80,45,77,117}),R_PM(1,1)+5,R_PM(1,2)+5,2);TEXTOUT_P("◯
",R_PM(1,1)+38,R_PM(1,2)+5,2);END;IF vv==3 THEN
RECT_P(R_PN(1),R_PN(2),RedA,Fondo);TEXTOUT_P(CHAR({80,45,78,111}),R_P
N(1,1)+5,R_PN(1,2)+5,2);TEXTOUT_P("◯
",R_PN(1,1)+38,R_PN(1,2)+5,2);RECT_P(R_BR(1),R_BR(2),RedA,Fondo);TEXTOU
T_P(CHAR({66,45,82,105}),R_BR(1,1)+5,R_BR(1,2)+5,2);TEXTOUT_P("◯
",R_BR(1,1)+38,R_BR(1,2)+5,2);RECT_P(R_PM(1),R_PM(2),RedA,Plomo);TEXTO
UT_P(CHAR({80,45,77,117}),R_PM(1,1)+5,R_PM(1,2)+5,2,RedA);TEXTOUT_P("◉
",R_PM(1,1)+37,R_PM(1,2)+5,2,RedA);END;END;END;MoverPN(w,h,sw,sh)BEGIN
LOCAL mx0=0,my0=0,is=0,ig=0,mx=0,my=0,ms=0;LOCAL
x:=0,y:=0,d:=0,ld:=0;LOCAL z:=1,zw=w,zh=h;LOCAL tt:={0,0,0,0};LOCAL
dsh:=0,dsv:=0,dh:=0,wh=1;LOCAL
x0=100,x1=0,touc;x:=0;y:=0;DIMGROB_P(G1,sw,sh);RECT_P(G1);LOCAL
touch1;REPEAT WAIT(-1)▶touch1;IF TYPE(touch1)=6 THEN IF touch1(1)=0 OR
touch1(1)=3 THEN IF 0<touch1(2)<30 AND 0<touch1(3)<23 THEN
BREAK(2);END;END;END;tt:={0,0,0,0};dsh:=0;dsv:=0;mx:=MOUSE(0);my:=MOUS
E(1);ms:=MOUSE(4);IF ms=2 THEN IF NOT ig THEN
ig:=1;mx0:=MOUSE(2);my0:=MOUSE(3);END;IF mx>mx0 THEN tt(1):=tt(1)+(mx-
mx0)/z;ELSE tt(3):=tt(3)+(mx0-mx)/z;END;IF my>my0 THEN tt(2):=tt(2)+(my-
my0)/z;ELSE tt(4):=tt(4)+(my0-my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE
ig:=0;END;x:=MAX(MIN(x-tt(1)+tt(3),w-sw/z),0);y:=MAX(MIN(y-tt(2)+tt(4),h-
sh/z),0);BLIT_P(G1,-FP(x)*z,-FP(y)*z,sw+(CEILING(x+sw/z)-
(x+sw/z))*z,sh+(CEILING(y+sh/z)-
(y+sh/z))*z,G9,FLOOR(x),FLOOR(y),CEILING(x+sw/z),CEILING(y+sh/z));IF
ISKEYDOWN(7)OR ISKEYDOWN(8)THEN
BREAK;END;BLIT_P(G0,0,20,sw,sh+20,G1,0,0,sw,sh);UNTIL
ISKEYDOWN(4);END;EcTrF()BEGIN LOCAL nit,x,ecm,ecc,ecn,l1,EC;LOCAL
h1,Intv;x:=CAS(CAS("x"));FOR H FROM 1 TO B DO
l1:=LDis(H);x:=0;EC:=LEcu(H);FOR h1 FROM 1 TO nit DO x:=x+Intv;IF h1==nit
THEN
x:=l1(SIZE(l1));END;ecn:=EC(1);ecc=EC(2);ecm:=EC(3);ecn:=EVAL(ecn);ecc:=EVA
L(ecc);ecm:=EVAL(ecm);END;END;END;EcTr()BEGIN LOCAL
x,ecm,ecc;x:=CAS(CAS("x"));C:=0;FOR I FROM 1 TO SIZE(L1)DO
x:=CAS(CAS("x"));FOR H FROM 1 TO rowDim(M0)DO IF L1(I)==M0(H,1)THEN
C:=C+1;END;END;IF C==0 THEN FOR H FROM 1 TO rowDim(M0)DO IF
M0(H,1)<L1(I)<M0(H+1,1)THEN ecm:=L8(I);ecc:=L5(I);x:=CAS(CAS("x"));x:=(x-
(L1(I)-
M0(H,1)));ecm:=EVAL(ecm);ecc:=EVAL(ecc);L8(I):=ecm;L5(I):=ecc;BREAK;END;
END;END;C:=0;END;LOCAL lc,lm,l5,l8;lc:={};lm:={};l5:={};l8:={};C:=0;FOR H
FROM 1 TO rowDim(M0)-1 DO FOR I FROM 1 TO SIZE(L1)-1 DO IF
M0(H,1)≤L1(I)AND L1(I+1)≤M0(H+1,1)THEN
C:=C+1;lm(C):=L8(I);lc(C):=L5(I);END;END;l5(H):=lc;l8(H):=lm;C:=0;lc:={};lm:={}
;END;L5:=l5;L8:=l8;END;oligft120(TD)BEGIN
LINE_P(299,35,314,50,Col30);LINE_P(300,50,315,35,Col30);TEXTOUT_P("◤
",297,32,1,Col30);TEXTOUT_P("◣",297,47,1,Col30);TEXTOUT_P("◥
",312,32,1,Col30);TEXTOUT_P("◢",312,47,1,Col30);LOCAL
CSLApDia;DIMGROB_P(G7,320,220);BLIT_P(G7,G6);CSLApDia:=LApDia;escDiag
:=70;awsde(640,460,70,70,640,460);Dxxw(TD,640,460);DIMGROB_P(G9,640,460);B
LIT_P(G9,G4);mvre(640,460);DIMGROB_P(G6,320,220);BLIT_P(G6,G7);LApDia:=
CSLApDia;escDiag:=30;END;ads()BEGIN TEXTOUT_P(CHAR({-44,-32,-29,-46,-
28,-79,-42,-28,-44,-46,-35,-46,-33,-27,-
42}+111),230,220,1,Col135);TEXTOUT_P(CHAR({-44,-32,-29,-46,-28,-79,-42,-28,-
44,-46,-35,-46,-33,-27,-
42}+111),231,220,1,Col131);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),285,
230,1,Col135);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),284,230,1,Col131)
;END;varcaq(Tipp)BEGIN IF Tipp==1 THEN
L0G:=L0;L1G:=L1;L2G:=L2;L3G:=L3;L4G:=L4;L5G:=L5;L6G:=L6;L7G:=L7;L8G:=
L8;L9G:=L9;L10G:=L10;L11G:=L11;M0G:=M0;M1G:=M1;M2G:=M2;M3G:=M3;M
4G:=M4;M5G:=M5;M6G:=M6;M7G:=M7;M8G:=M8;M9G:=M9;NG:=N;BG:=B;Dats
bmq111G:=Datsbmq111;LNNG:=LNN;LNCG:=LNC;END;IF Tipp==2 THEN
L0:=L0G;L1:=L1G;L2:=L2G;L3:=L3G;L4:=L4G;L5:=L5G;L6:=L6G;L7:=L7G;L8:=L
8G;L9:=L9G;L10:=L10G;L11:=L11G;M0:=M0G;M1:=M1G;M2:=M2G;M3:=M3G;M
4:=M4G;M5:=M5G;M6:=M6G;M7:=M7G;M8:=M8G;M9:=M9G;N:=NG;B:=BG;Dats
bmq111:=Datsbmq111G;LNN:=LNNG;LNC:=LNCG;END;END;awsde(px,py,bdx,bdy
,anchoG4,altoG4)BEGIN LOCAL esc,MC,s1,s2,Elem5;LOCAL
Elem5;Elem5:=CHAR({59,66,85,87}-
11);DIMGROB_P(G6,anchoG4,altoG4);RECT_P(G6,Col128);DIMGROB_P(G4,ancho
G4,altoG4);RECT_P(G4,Col128);IF anchoG4==320 THEN
LINE_P(G4,299,15,314,30,Col132);LINE_P(G4,300,30,315,15,Col132);TEXTOUT_P(
"◤",G4,297,12,1,Col132);TEXTOUT_P("◣",G4,297,27,1,Col132);TEXTOUT_P("◥
",G4,312,12,1,Col132);TEXTOUT_P("◢",G4,312,27,1,Col132);END;LOCAL
hh,nn;MC:=M0G;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-1))==0
THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 AND
NElm==Elem5 THEN esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF
MAX(MC(-2))==0 THEN esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO NG DO MC(I,1):=Zx+s1+MC(I,1);MC(I,2):=Zy+py-s2-
MC(I,2);END;N:=NG;B:=BG;M0:=M0G;FOR hh FROM 1 TO SIZE(DAp)DO
nn:=DAp(hh);A:=nn(3);Dats:=nn(4);TApEm:=nn(5);TApSe:=nn(6);Atytz14(2,MC,esc)
;END;BLIT_P(G6,G4);NG:=NG;BG:=BG;M0G:=M0;LOCAL
xi,xf,yi,yf,l,Lesc,Lec,Diagr;LOCAL x,w,ec,cxi,cyi,l1,escw,ColD;Lesc:={};FOR I
FROM 1 TO BG DO Lec:=LEcu(I);Diagr:=Lec(1);l1:=LDis(I);B:=SIZE(l1)-1;FOR K
FROM 1 TO B DO l:=(l1(K+1)-l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);FOR H
FROM 1 TO l STEP 5 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;x:=CAS(C
AS("x"));x:=l1(K+1)-
l1(K);w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;END;Lesc:=ABS(Lesc);LApDia(1)
:=MAX(Lesc);Lesc:={};FOR I FROM 1 TO BG DO
Lec:=LEcu(I);Diagr:=Lec(2);l1:=LDis(I);B:=SIZE(l1)-1;FOR K FROM 1 TO B DO IF
NElm==Elem5 THEN l:=(l1(K+1)-
l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);END;FOR H FROM 1 TO l STEP 5 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;x:=CAS(C
AS("x"));x:=l1(K+1)-
l1(K);w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;END;Lesc:=ABS(Lesc);LApDia(2)
:=MAX(Lesc);Lesc:={};FOR I FROM 1 TO BG DO
Lec:=LEcu(I);Diagr:=Lec(3);l1:=LDis(I);B:=SIZE(l1)-1;FOR K FROM 1 TO B DO
l:=(l1(K+1)-l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);FOR H FROM 1 TO l STEP
5 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;x:=CAS(C
AS("x"));x:=l1(K+1)-l1(K);w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;END;IF
NElm==Elem5 THEN Lesc:=ABS(Lesc);LApDia(3):=MAX(Lesc);
LApDia(4):=MC;LApDia(5):=esc;END;END;Dxxw(TD,anchoG4,altoG4)BEGIN
LOCAL
esc,MC,s1,s2,px,py;DIMGROB_P(G4,anchoG4,altoG4);RECT_P(G4,Col128);BLIT_P
(G4,G6);LOCAL xi,xf,yi,yf,l,Lesc,Lec,Diagr;LOCAL
x,w,ec,cxi,cyi,l1,escw,ColD;LOCAL Val,ValA;IF TD==1 THEN
ColD:={Col39,Col34};END;IF TD==2 THEN ColD:={Col60,Col55};END;IF TD==3
THEN
ColD:={Col118,Col11};END;MC:=LApDia(4);esc:=LApDia(5);Lesc:=LApDia(TD);L
OCAL Elem5;Elem5:=CHAR({59,66,85,87}-11);IF Lesc≠0 THEN
escw:=escDiag/Lesc;FOR I FROM 1 TO BG DO
Lec:=LEcu(I);Diagr:=Lec(TD);l1:=LDis(I);B:=SIZE(l1)-1;FOR K FROM 1 TO B DO
l:=(l1(K+1)-
l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);x:=0;Val:=ABS(ROUND(EVAL(ec),Pe));
FOR H FROM 1 TO l STEP 7 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec)*escw;x:=l1(K)+H/esc;xi:=MC(M1G(I,1),1
)+x*esc*M1G(I,10);yi:=MC(M1G(I,1),2)-x*esc*M1G(I,11);xf:=xi-
w*M1G(I,11);yf:=yi-w*M1G(I,10);IF w>=0 THEN
LINE_P(G4,xi,yi,xf,yf,ColD(1));ELSE LINE_P(G4,xi,yi,xf,yf,ColD(2));END;IF H==1
AND Elem5==NElm THEN cxi:=xf;cyi:=yf;IF Val≠ValA THEN IF anchoG4==320
AND Val≠0 THEN echret12(xf-10,yf,Val);END;IF anchoG4==640 AND Val≠0 THEN
TEXTOUT_P(Val,G4,xf-10,yf,1);END;END;END;IF H>1 AND Nnud==Eqx THEN IF
w>=0 AND Elem5==NElm THEN LINE_P(G4,cxi,cyi,xf,yf,ColD(1));ELSE
LINE_P(G4,cxi,cyi,xf,yf,ColD(2));END;cxi:=xf;cyi:=yf;END;END;x:=CAS(CAS("x"))
;x:=l1(K+1)-
l1(K);w:=EVAL(ec)*escw;Val:=ABS(ROUND(EVAL(ec),Pe));x:=l1(K+1);xi:=MC(M
1G(I,1),1)+x*esc*M1G(I,10);yi:=MC(M1G(I,1),2)-x*esc*M1G(I,11);xf:=xi-
w*M1G(I,11);yf:=yi-w*M1G(I,10);IF w>=0 THEN
LINE_P(G4,cxi,cyi,xf,yf,ColD(1));ELSE LINE_P(G4,cxi,cyi,xf,yf,ColD(2));END;IF
w>=0 THEN LINE_P(G4,xi,yi,xf,yf,ColD(1));ELSE
LINE_P(G4,xi,yi,xf,yf,ColD(2));END;IF anchoG4==320 AND Val≠0 THEN
echret12(xf-10,yf,Val);END;IF anchoG4==640 AND Val≠0 AND Elem5==NElm
THEN TEXTOUT_P(Val,G4,xf-10,yf,1);END;ValA:=Val;END;END;END;LOCAL
mm1,m1g;mm1:=M1;m1g:=M1G;M1:=M1G;FOR I FROM 1 TO BG DO
DibElemF(0,I,MC,0,G4,Col12);END;M1:=mm1;M1G:=m1g;axsdcerfR();IF Zx==0
AND Zy==0 AND Elem5==NElm THEN IF anchoG4==320 THEN
LINE_P(G4,5,200,5,213,Col118);TEXTOUT_P("y",G4,3,187,1,Col118);LINE_P(G4,5,
213,20,213,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;END;BLIT_P(G0,0,20,
320,240,G4,0+Zx,0+Zy,320+Zx,220+Zy);END;tlitg6(dfg4,x,y,H,V,m)BEGIN LOCAL
nCol,nVig,nMam;LOCAL d,dDat,NG,DPor,LL;LOCAL j,i;LOCAL xi,yi,xf,yf;LOCAL
Po:={};IF dfg4==1 THEN
dDat:=xpre8;NG:=rtyh8;DPor:=xpre6(m);LL:=qwr2;xi:=5;yi:=223;xf:=xi+30;yf:=yi-
30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),xf,yi-
11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf-
4,2,PlomoA);FOR j:=1 TO rtyh8 DO char(64+j)▶Po(j);END;ELSE
dDat:=xpre9;NG:=rtyh7;DPor:=xpre7(m);LL:=qwr3;xi:=5;yi:=223;xf:=xi+30;yf:=yi-
30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({121}),xf,yi-
11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf-
4,2,PlomoA);FOR j:=1 TO rtyh7 DO j▶
Po(j);END;END;d:=dDat(1,m);nCol:=(NG)*rtyh2;nVig:=(NG-1)*rtyh2;IF d==3 THEN
nMam:=(NG-1)*rtyh2;END;LOCAL xc,yc;xc:=x+H/2;yc:=y+V/2-5;yyhte2();LOCAL
Fe_X,Fe_Y,FeB;CASE IF qwr2<>0 AND qwr3<>0 THEN Fe_X:=(H-
13)/qwr2;Fe_Y:=(V-13)/tgh1;END;IF qwr2==0 THEN Fe_X:=H-13;Fe_Y:=(V-
13)/tgh1;END;IF qwr3==0 THEN Fe_X:=(H-13)/qwr2;Fe_Y:=V-
13;END;END;FeB:=MIN(Fe_Y,Fe_X);LOCAL xi,yi,f,ss;LOCAL
CP:=[[0]],lx,dv,ch:={};FOR j:=2 TO rtyh2+1 DO ss:=ss+rtyh10(j-1);ss▶
ch(j);END;x:=x-LL*FeB/2;y:=y-tgh1*FeB/2+10;FOR j:=1 TO rtyh2+1 DO
xi:=x;yi:=y+tgh1*FeB-ch(j)*FeB;FOR i:=1 TO NG DO xi▶CP(i+f,1);yi▶
CP(i+f,2);lx:=DPor(i+nCol,3)*FeB;xi:=xi+lx;END;f:=j*NG;END;LOCAL
cxy:={},vxy:={},am;am:=CAS(CAS(CHAR({83,69,82,73,65,76})));FOR j:=1 TO nCol
DO cxy(j):=DPor(j,2)*FeB;END;f:=nCol;IF am=="9CJ73507JL" THEN FOR j:=1 TO
nVig DO f:=f+1;vxy(j):=DPor(f,2)*FeB;END;END;LOCAL
DCol,cc:={},cv:={},ca:={},ff,l;LOCAL xt,yt,i,co;IF d==3 THEN f:=0;ff:=0;co:=0;FOR
j:=1 TO rtyh2 DO FOR i:=1 TO NG-1 DO co:=co+1;f:=f+1;CP(f,1)▶ca(j,1);CP(f,2)▶
ca(j,2);ff:=1+f+NG;CP(ff,1)▶ca(j,3);CP(ff,2)▶
ca(j,4);LINE_P({ca(j,1),ca(j,2)},{ca(j,3),ca(j,4)},Red);xt:=(ca(j,1)+ca(j,3))/2;yt:=(ca(j,2
)+ca(j,4))/2;TEXTOUT_P(nCol+nVig+co,xt-3,yt-4,1,Red);END;co:=j+co-
1;f:=j*NG;END;END;f:=NG;co:=0;LOCAL nn;FOR j:=1 TO rtyh2 DO FOR i:=1 TO
NG-1 DO co:=co+1;nn:=nn+1;f:=f+1;CP(f,1)▶cv(j,1);CP(f,2)▶cv(j,2);CP(f+1,1)▶
cv(j,3);CP(f+1,2)▶
cv(j,4);l:=vxy(nn);RECT_P({cv(j,1),cv(j,2)},{cv(j,3),cv(j,4)+l},Blue,LigthBlue);xt:=(c
v(j,1)+cv(j,3))/2;yt:=cv(j,4)-5;TEXTOUT_P(nCol+co,xt-3,yt-4,1,Blue);END;co:=j+co-
1;f:=f+1;END;f:=NG;FOR j:=1 TO nCol DO CP(j,1)▶cc(j,1);CP(j,2)▶
cc(j,2);f:=f+1;CP(f,1)▶cc(j,3);CP(f,2)▶cc(j,4);l:=cxy(j)/2;RECT_P({cc(j,1)-
l,cc(j,2)},{cc(j,3)+l,cc(j,4)},RedA,ToasRed);xt:=cc(j,1)-l-
5;yt:=(cc(j,4)+cc(j,2))/2;TEXTOUT_P(j,xt-3,yt-
4,1,RedA);END;f:=NG*(rtyh2);LOCAL xe,ye;FOR j:=1 TO NG DO f:=f+1;CP(f,1)▶
cc(j,1);CP(f,2)▶cc(j,2);xe:=cc(j,1);ye:=cc(j,2)-13;TEXTOUT_P(Po(j),xe-2.2,ye-
3.2,1,Plomo);arc_p(xe,ye,6,0,360,Plomo);LINE_P(xe,ye+4,xe,ye+13,Plomo);END;EN
D;ldljt6(dfg4,m,tPor)BEGIN LOCAL tpa,dDat,h,nVig,nCol,NG;LOCAL
DPorMB,DG_ColPD:=[[0]];LOCAL
a,b,g,bbb2;bbb2:=CAS(CAS(CHAR({83,69,82,73,65,76})));IF dfg4==1 THEN
dDat:=xpre8;NG:=rtyh8;DPorMB:=xpre6(m);ELSE
dDat:=xpre9;NG:=rtyh7;DPorMB:=xpre7(m);END;tpa:=dDat(1,m);CASE IF tpa==tPor
THEN END;IF tPor==1 AND bbb2=="9CJ73507JL" THEN FOR a:=1 TO
rowDim(DPorMB)DO DPorMB(a,1)▶DG_ColPD(a,1);DPorMB(a,2)▶
DG_ColPD(a,2);DPorMB(a,3)▶DG_ColPD(a,3);DPorMB(a,6)▶
DG_ColPD(a,4);DPorMB(a,7)▶DG_ColPD(a,5);DPorMB(a,8)▶
DG_ColPD(a,6);DPorMB(a,9)▶DG_ColPD(a,7);DPorMB(a,10)▶
DG_ColPD(a,8);DPorMB(a,11)▶DG_ColPD(a,9);DPorMB(a,12)▶
DG_ColPD(a,10);DPorMB(a,13)▶DG_ColPD(a,11);0▶DG_ColPD(a,12);0▶
DG_ColPD(a,13);DPorMB(a,14)▶DG_ColPD(a,14);DPorMB(a,15)▶
DG_ColPD(a,15);DPorMB(a,16)▶DG_ColPD(a,16);DPorMB(a,17)▶
DG_ColPD(a,17);DPorMB(a,18)▶DG_ColPD(a,18);DPorMB(a,19)▶
DG_ColPD(a,19);DPorMB(a,20)▶DG_ColPD(a,20);END;IF dfg4==1 THEN
xpre8(1,m):=tPor;xpre6(m):=DG_ColPD;ELSE
xpre9(1,m):=tPor;xpre7(m):=DG_ColPD;END;END;IF tPor==2 THEN
nCol:=(NG)*rtyh2;nVig:=(NG-1)*rtyh2;a:=1;FOR g:=1 TO rtyh2 DO FOR h:=1 TO
NG DO CASE IF h==NG AND g==1 THEN DPorMB(nCol+NG-1,2)/2▶
DG_ColPD(a,4);DPorMB(nCol+NG-1,2)/2▶DG_ColPD(a,5);END;IF h==NG THEN
DPorMB(nCol+g*(NG-1),2)/2▶DG_ColPD(a,4);DPorMB(nCol+(g-1)*(NG-1),2)/2▶
DG_ColPD(a,5);END;IF h<NG AND g==1 THEN DPorMB(nCol+h,2)/2▶
DG_ColPD(a,4);DPorMB(nCol+h,2)/2▶DG_ColPD(a,5);END;IF h<NG THEN
DPorMB(nCol+h*g,2)/2▶DG_ColPD(a,4);DPorMB(nCol+h*(g-1),2)/2▶
DG_ColPD(a,5);END;END;DPorMB(a,1)▶DG_ColPD(a,1);DPorMB(a,2)▶
DG_ColPD(a,2);DPorMB(a,3)▶DG_ColPD(a,3);DPorMB(a,4)▶
DG_ColPD(a,6);DPorMB(a,5)▶DG_ColPD(a,7);DPorMB(a,6)▶
DG_ColPD(a,8);DPorMB(a,7)▶DG_ColPD(a,9);DPorMB(a,8)▶
DG_ColPD(a,10);DPorMB(a,9)▶DG_ColPD(a,11);DPorMB(a,10)▶
DG_ColPD(a,12);DPorMB(a,11)▶DG_ColPD(a,13);DPorMB(a,14)▶
DG_ColPD(a,14);DPorMB(a,15)▶DG_ColPD(a,15);DPorMB(a,16)▶
DG_ColPD(a,16);DPorMB(a,17)▶DG_ColPD(a,17);DPorMB(a,18)▶
DG_ColPD(a,18);DPorMB(a,19)▶DG_ColPD(a,19);DPorMB(a,20)▶
DG_ColPD(a,20);a:=a+1;END;END;a:=nCol+1;b:=1;FOR g:=1 TO rtyh2 DO FOR
h:=1 TO NG-1 DO DPorMB(a,1)▶DG_ColPD(a,1);DPorMB(a,2)▶
DG_ColPD(a,2);DPorMB(a,3)▶DG_ColPD(a,3);DPorMB(b,1)/2▶
DG_ColPD(a,4);DPorMB(b+1,1)/2▶DG_ColPD(a,5);DPorMB(a,4)▶
DG_ColPD(a,6);DPorMB(a,5)▶DG_ColPD(a,7);DPorMB(a,6)▶
DG_ColPD(a,8);DPorMB(a,7)▶DG_ColPD(a,9);DPorMB(a,8)▶
DG_ColPD(a,10);DPorMB(a,9)▶DG_ColPD(a,11);DPorMB(a,10)▶
DG_ColPD(a,12);DPorMB(a,11)▶DG_ColPD(a,13);DPorMB(a,14)▶
DG_ColPD(a,14);DPorMB(a,15)▶DG_ColPD(a,15);DPorMB(a,16)▶
DG_ColPD(a,16);DPorMB(a,17)▶DG_ColPD(a,17);DPorMB(a,18)▶
DG_ColPD(a,18);DPorMB(a,19)▶DG_ColPD(a,19);DPorMB(a,20)▶
DG_ColPD(a,20);a:=a+1;b:=b+1;END;b:=b+1;END;IF dfg4==1 THEN
xpre8(1,m):=tPor;xpre6(m):=DG_ColPD;ELSE
xpre9(1,m):=tPor;xpre7(m):=DG_ColPD;END;END;END;END;hclq(Tip)BEGIN
LOCAL xx,yy,t,n,b,bb,q,n1;FOR xx:=1 TO SIZE(Tip)DO ""▶n;""▶n1;Tip(xx)▶t;FOR
yy:=1 TO DIM(t)DO b:=t(yy)+12;R→B(t(yy))▶
bb;n1+CHAR(bb(8,8))+CHAR(bb(0,8))▶n1;n+CHAR(b)▶n;END;REPLACE(n,"\r","")▶
Tip(xx);n▶Tip(xx);END;RETURN Tip(1);END;EcRecta(ma)BEGIN LOCAL
a1,b1,c1,d1,x;x:=CAS(CAS("x"));a1:=ma(1,1);b1:=ma(1,2);c1:=ma(2,1);d1:=ma(2,2);e
c:=(a1*d1-b1*c1+b1*x-d1*x)/(a1-c1);END;CortaElem()BEGIN LOCAL
h1,hc,m,mm1,mm2,mm3,n,l9;LOCAL l1,l2,l3,CarIni,x,Co,LBUT;FOR hc FROM 1 TO
BG DO
m:=Datsbmq111G(hc);CarIni:=L10G(hc);l1:={};l2:={};l3:={};l9:={};M0:=[[0]];M1:=[
[0]];M3:=[[0,0,0,0]];mm3:=[[0]];Datsbmq111:={};l1(1):=0;l1(2):=M1G(hc,8);FOR I
FROM 1 TO SIZE(m)DO
mm1:=m(I);l1(SIZE(l1)+1):=mm1(2);l1(SIZE(l1)+1):=mm1(3);l1(SIZE(l1)+1):=mm1(
4);IF mm1(2)==mm1(3)AND mm1(5)==1 THEN
l2(SIZE(l2)+1):={mm1(2),mm1(1),4};END;IF mm1(2)==mm1(3)AND mm1(5)==2
THEN l2(SIZE(l2)+1):={mm1(2),mm1(1),3};END;IF mm1(2)==mm1(3)AND
mm1(5)==0 AND Nnud==Eqx THEN l2(SIZE(l2)+1):={mm1(2),mm1(1),5};END;IF
mm1(2)≠mm1(3)AND mm1(5)==1 THEN
mm3(rowDim(mm3)+1,1):=mm1(2);mm3(rowDim(mm3),2):=mm1(3);x:=CAS(CAS("
x"));x:=mm1(2);mm3(rowDim(mm3),3):=EVAL(mm1(1));x:=CAS(CAS("x"));x:=mm
1(3);mm3(rowDim(mm3),4):=EVAL(mm1(1));l3(SIZE(l3)+1):={mm1(1),mm1(2),mm
1(3),1};END;END;l1:=CAS.SORT(l1);Co:=0;n:=SIZE(l1);l9:={};FOR I FROM 1 TO
n DO IF I==1 THEN Co:=Co+1;l9(1):=l1(1);END;IF I≠1 AND l1(I)≠l1(I-1)THEN
Co:=Co+1;l9(Co):=l1(I);END;END;l1:=l9;LBUT:=0;IF SIZE(l1)==2 THEN
l1(3):=l1(2);l1(2):=l1(3)/2;LBUT:=1;END;N:=SIZE(l1);B:=N-
1;M0(1,3):=CarIni(1,1);M0(1,4):=CarIni(2,1);M0(1,5):=CarIni(3,1);FOR h1 FROM 1
TO N DO M0(h1,1):=l1(h1);M0(h1,2):=0;FOR I FROM 1 TO SIZE(l2)DO
mm2:=l2(I);IF mm2(1)==l1(h1)THEN
M0(h1,mm2(3)):=mm2(2);END;END;END;M0(N,3):=CarIni(4,1);M0(N,4):=CarIni(5,
1);M0(N,5):=CarIni(6,1);FOR h1 FROM 1 TO B DO
M1(h1,1):=h1;M1(h1,2):=h1+1;M1(h1,3):=M1G(hc,3);M1(h1,4):=M1G(hc,4);M1(h1,5
):=M1G(hc,5);M1(h1,14):=M1G(hc,14);M1(h1,15):=M1G(hc,15);Datsbmq111(h1):={{
0,0,0,l1(h1+1)-
l1(h1),1}};END;M3(1,1):=1;M3(2,1):=1;M3(3,1):=N;M3(1,2):=1;M3(2,2):=2;M3(3,2):
=3*N-1;LOCAL MDI,MDF,MDM;IF rowDim(mm3)>1 THEN
mm3:=DELROW(mm3,1);MDI:=mm3;MDM:=[[0]];LOCAL
x;x:=CAS(CAS("x"));C:=0;FOR H FROM 1 TO rowDim(MDI)DO
EcRecta([[MDI(H,1),MDI(H,3)],[MDI(H,2),MDI(H,4)]]);FOR I FROM 2 TO
SIZE(l1)DO IF MDI(H,1)<=l1(I-1)AND MDI(H,2)>=l1(I)THEN
C:=C+1;x:=CAS(CAS("x"));x:=l1(I-1);MDM(C,1):=l1(I-1);MDM(C,2):=l1(I);x:=l1(I-
1);MDM(C,3):=EVAL(ec);x:=l1(I);MDM(C,4):=EVAL(ec);END;END;END;MDF:=[[
0]];FOR I FROM 2 TO SIZE(l1)DO MDF(I-1,1):=l1(I-1);MDF(I-1,2):=l1(I);MDF(I-
1,3):=0;MDF(I-1,4):=0;MDF(I-1,5):=l1(I)-l1(I-1);END;FOR I FROM 1 TO
rowDim(MDF)DO FOR J FROM 1 TO rowDim(MDM)DO IF
MDF(I,1)==MDM(J,1)AND MDF(I,2)==MDM(J,2)THEN
MDF(I,3):=MDF(I,3)+MDM(J,3);MDF(I,4):=MDF(I,4)+MDM(J,4);END;END;END;F
OR I FROM 1 TO B DO
Datsbmq111(I):={{EcRecta([[0,MDF(I,3)],[MDF(I,5),MDF(I,4)]]),0,MDF(I,5),MDF(I,
5),1}};END;ELSE MDF:=[[0]];FOR I FROM 1 TO B DO MDF(I,1):=l1(I);
MDF(I,2):=l1(I+1);MDF(I,3):=0;MDF(I,4):=0;MDF(I,5):=l1(I+1)-
l1(I);MDF(I,6):=0;MDF(I,7):=0;MDF(I,8):=l1(I+1)-l1(I);END;END;FOR I FROM 1
TO B DO MDF(I,6):=0;MDF(I,7):=0;MDF(I,8):=l1(I+1)-l1(I);END;LOCAL
LEC,LEM,LEN,qz,qx,vpi,re,x;x:=CAS(CAS("x"));LOCAL
l1r;qz:={};qx:={};vpi:={};LEC:={};LEM:={};LEN:={};echret121();IF LBUT==1
AND Nnud==Eqx THEN B:=1;l1r:=l1;l1:={};l1(1):=l1r(1);l1(2):=l1r(3);END;FOR I
FROM 1 TO B DO re:=L10(I);qx(1):=-MDF(I,6)+(-
MDF(I,7)+MDF(I,6))/(MDF(I,8))*x;qz(1):=-MDF(I,3)+(-
MDF(I,4)+MDF(I,3))/(MDF(I,5))*x;vpi(1):=(-re(6,1)-re(3,1))/MDF(I,5)-MDF(I,5)*(-
MDF(I,3)/3-MDF(I,4)/6);LEC(I):=vpi(1)+(-
MDF(I,3)+qz(1))/2*x;LEM(I):=re(3,1)+vpi(1)*x+(((-
2*MDF(I,3)/3)+qz(1)/3)/2)*x^2;LEN(I):=-re(1,1)-
(MDF(I,6)+qx(1))/2*x;END;LEN:=CAS.expand(LEN);LEN:=CAS.simplify(LEN);LE
C:=CAS.expand(LEC);LEC:=CAS.simplify(LEC);LEM:=CAS.expand(LEM);LEM:=C
AS.simplify(LEM);IF Nnud==Eqx THEN LEcu(hc):={LEN,-
LEC,LEM};LDis(hc):=l1;END;LOCAL nn,coef;FOR H FROM 1 TO B DO
coef:=CAS.coeff(LEC(H),x);coef:=ROUND(coef,Pe);LEC(H):=0;nn:=CAS.SIZE(coef)
;FOR I FROM 1 TO nn DO LEC(H):=LEC(H)+coef(I)*x^(nn-(I));END;END;FOR H
FROM 1 TO B DO
coef:=CAS.coeff(LEM(H),x);coef:=ROUND(coef,Pe);LEM(H):=0;nn:=CAS.SIZE(coef
);FOR I FROM 1 TO nn DO LEM(H):=LEM(H)+coef(I)*x^(nn-(I));END;END;FOR H
FROM 1 TO B DO
coef:=CAS.coeff(LEN(H),x);coef:=ROUND(coef,Pe);LEN(H):=0;nn:=CAS.SIZE(coef)
;FOR I FROM 1 TO nn DO LEN(H):=LEN(H)+coef(I)*x^(nn-
(I));END;END;END;END;tlitg5(dfg4)BEGIN LOCAL
DPorMB,GEColB:=[[0]],GEAlbB:=[[0]],GEVigB:=[[0]];LOCAL
m,a,b,i,c,d,e,f;LOCAL
tp,dDat,NG,NGa,DPorMC,ff;ff:=CAS(CAS(CHAR({83,69,82,73,65,76})));IF dfg4==1
AND ff=="9CJ73507JL" THEN
dDat:=xpre8;NG:=rtyh7;NGa:=rtyh8;DPorMC:=xpre6;ELSE
dDat:=xpre9;NG:=rtyh7;NGa:=rtyh8;DPorMC:=xpre7;END;b:=0;a:=0;c:=0;FOR i:=1
TO rtyh2 DO IFERR FOR m:=1 TO rtyh7 DO
DPorMB:=xpre6(m);tp:=xpre8(1,m);FOR j:=1 TO rtyh8 DO
a:=a+1;b:=c+j;GEColB(a,1):=DPorMB(b,16);GEColB(a,2):=DPorMB(b,2);GEColB(a,
3):=DPorMB(b,1);GEColB(a,12):=DPorMB(b,14);IF tp==1 THEN
GEColB(a,4):=DPorMB(b,10);GEColB(a,5):=DPorMB(b,11);GEColB(a,6):=DPorMB(
b,4);GEColB(a,7):=DPorMB(b,5);GEColB(a,8):=DPorMB(b,6);GEColB(a,9):=DPorM
B(b,7);GEColB(a,10):=DPorMB(b,8);GEColB(a,11):=DPorMB(b,9);ELSE
GEColB(a,4):=DPorMB(b,12);GEColB(a,5):=DPorMB(b,13);GEColB(a,6):=DPorMB(
b,6);GEColB(a,7):=DPorMB(b,7);GEColB(a,8):=DPorMB(b,8);GEColB(a,9):=DPorM
B(b,9);GEColB(a,10):=DPorMB(b,10);GEColB(a,11):=DPorMB(b,11);END;END;EN
D;a:=0;c:=i*rtyh8;bdc1(i):=GEColB;THEN
bdc1(i):=[[0]];END;END;bdc2:=bdc1(1);b:=0;c:=0;d:=0;f:=0;e:=0;FOR i:=1 TO rtyh2
DO IFERR a:=0;FOR m:=1 TO rtyh7 DO
DPorMB:=xpre6(m);tp:=xpre8(1,m);c:=rtyh8*rtyh2;FOR j:=1 TO rtyh8-1 DO
a:=a+1;b:=e+c+j;GEVigB(a,1):=DPorMB(b,16);GEVigB(a,2):=DPorMB(b,1);GEVigB
(a,3):=DPorMB(b,2);GEVigB(a,8):=DPorMB(b,3);GEVigB(a,15):=DPorMB(b,14);IF
tp==1 THEN
GEVigB(a,4):=DPorMB(b,17);GEVigB(a,5):=DPorMB(b,18);GEVigB(a,6):=DPorMB(
b,19);GEVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,4);GEVigB(a,10):=DP
orMB(b,5);GEVigB(a,11):=DPorMB(b,6);GEVigB(a,12):=DPorMB(b,7);GEVigB(a,13
):=DPorMB(b,8);GEVigB(a,14):=DPorMB(b,9);ELSE
GEVigB(a,4):=DPorMB(b,17);GEVigB(a,5):=DPorMB(b,18);GEVigB(a,6):=DPorMB(
b,19);GEVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,6);GEVigB(a,10):=DP
orMB(b,7);GEVigB(a,11):=DPorMB(b,8);GEVigB(a,12):=DPorMB(b,9);GEVigB(a,13
):=DPorMB(b,10);GEVigB(a,14):=DPorMB(b,11);END;END;END;FOR m:=1 TO
rtyh8 DO DPorMB:=xpre7(m);tp:=xpre9(1,m);c:=rtyh7*rtyh2;FOR j:=1 TO rtyh7-1
DO
a:=a+1;d:=f+c+j;GEVigB(a,1):=DPorMB(d,16);GEVigB(a,2):=DPorMB(d,1);GEVigB(
a,3):=DPorMB(d,2);GEVigB(a,8):=DPorMB(d,3);GEVigB(a,15):=DPorMB(d,14);IF
tp==1 THEN
GEVigB(a,4):=DPorMB(d,17);GEVigB(a,5):=DPorMB(d,18);GEVigB(a,6):=DPorMB(
d,19);GEVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,4);GEVigB(a,10):=DP
orMB(d,5);GEVigB(a,11):=DPorMB(d,6);GEVigB(a,12):=DPorMB(d,7);GEVigB(a,13
):=DPorMB(d,8);GEVigB(a,14):=DPorMB(d,9);ELSE
GEVigB(a,4):=DPorMB(d,17);GEVigB(a,5):=DPorMB(d,18);GEVigB(a,6):=DPorMB(
d,19);GEVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,6);GEVigB(a,10):=DP
orMB(d,7);GEVigB(a,11):=DPorMB(d,8);GEVigB(a,12):=DPorMB(d,9);GEVigB(a,13
):=DPorMB(d,10);GEVigB(a,14):=DPorMB(d,11);END;END;END;e:=i*(rtyh8-
1);f:=i*(rtyh7-1);expr4(i):=GEVigB;THEN
expr4(i):=[[0]];END;END;expr5:=expr4(1);b:=0;c:=0;d:=0;f:=0;e:=0;FOR i:=1 TO
rtyh2 DO a:=0;FOR m:=1 TO rtyh7 DO IFERR DPorMB:=xpre6(m);tp:=xpre8(1,m);IF
tp==3 THEN c:=rtyh8*rtyh2+(rtyh8-1)*rtyh2;FOR j:=1 TO rtyh8-1 DO
a:=a+1;b:=e+c+j;GEAlbB(a,1):=DPorMB(b,16);GEAlbB(a,2):=DPorMB(b,12);GEAlb
B(a,3):=0;GEAlbB(a,4):=DPorMB(b,4);GEAlbB(a,5):=DPorMB(b,17);GEAlbB(a,6):=
DPorMB(b,18);GEAlbB(a,7):=DPorMB(b,19);GEAlbB(a,8):=DPorMB(b,20);GEAlbB(
a,9):=DPorMB(b,5);GEAlbB(a,10):=DPorMB(b,6);GEAlbB(a,11):=DPorMB(b,7);GEA
lbB(a,12):=DPorMB(b,8);GEAlbB(a,13):=DPorMB(b,9);GEAlbB(a,14):=DPorMB(b,1
4);END;END;THEN END;END;FOR m:=1 TO rtyh8 DO IFERR
DPorMB:=xpre7(m);tp:=xpre9(1,m);IF tp==3 THEN c:=rtyh7*rtyh2+(rtyh7-
1)*rtyh2;FOR j:=1 TO rtyh7-1 DO
a:=a+1;d:=f+c+j;GEAlbB(a,1):=DPorMB(d,16);GEAlbB(a,2):=DPorMB(d,12);GEAlb
B(a,3):=DPorMB(d,3);GEAlbB(a,4):=DPorMB(d,4);GEAlbB(a,5):=DPorMB(d,17);GE
AlbB(a,6):=DPorMB(d,18);GEAlbB(a,7):=DPorMB(d,19);GEAlbB(a,8):=DPorMB(d,2
0);GEAlbB(a,9):=DPorMB(d,5);GEAlbB(a,10):=DPorMB(d,6);GEAlbB(a,11):=DPor
MB(d,7);GEAlbB(a,12):=DPorMB(d,8);GEAlbB(a,13):=DPorMB(d,9);GEAlbB(a,14):
=DPorMB(d,14);END;END;THEN END;END;e:=i*(rtyh8-1);f:=i*(rtyh7-
1);expr16(i):=GEAlbB;END;IF expr16(1)<>[[0]]THEN
expr17:=expr16(1);END;END;hdljt6(dfg4,m)BEGIN LOCAL
DPorMB,DG_ColPD:=[[0]];LOCAL d,dDat,NG,NGa,DPor,LL;LOCAL
i,k,h,a,tp,tpa,cond;IF dfg4==1 THEN
dDat:=xpre8;NG:=rtyh8;NGa:=rtyh7;DPorMB:=xpre6(m);ELSE
dDat:=xpre9;NG:=rtyh7;NGa:=rtyh8;DPorMB:=xpre7(m);END;tp:=dDat(1,m);ldljt6(df
g4,m,tp);FOR k:=1 TO NG DO a:=k;FOR i:=1 TO NG DO IF dfg4==1 THEN
DG_ColPD:=xpre7(i);tpa:=xpre9(1,i);ELSE
DG_ColPD:=xpre6(i);tpa:=xpre8(1,i);END;CASE IF tpa==1 THEN
ldljtr6(a,i,k,dfg4,NG,NGa,DPorMB,DG_ColPD,tp);END;IF tpa==2 THEN
tdljt6(a,i,k,dfg4,NG,NGa,DPorMB,DG_ColPD,tp);END;IF tpa==3 THEN
llfft12(a,i,k,dfg4,NG,NGa,DPorMB,DG_ColPD,tp);END;END;END;END;END;ldljtr6(
a,ii,kk,dfg4,NG,NGa,DPorMB,DG_ColPD,tp)BEGIN LOCAL b,g,h;FOR g:=1 TO
NGa DO b:=g;IF DPorMB(kk,14)==DG_ColPD(g,14)THEN FOR h:=1 TO rtyh2 DO
IF tp==1 THEN DPorMB(a,1)▶DG_ColPD(b,2);DPorMB(a,2)▶
DG_ColPD(b,1);a:=a+NG;b:=b+NGa;ELSE DPorMB(a,1)▶
DG_ColPD(b,2);DPorMB(a,2)▶DG_ColPD(b,1);DPorMB(a,6)▶
DG_ColPD(b,4);DPorMB(a,7)▶DG_ColPD(b,5);DPorMB(a,8)▶
DG_ColPD(b,6);DPorMB(a,9)▶DG_ColPD(b,7);DPorMB(a,10)▶
DG_ColPD(b,8);DPorMB(a,11)▶DG_ColPD(b,9);DPorMB(a,12)▶
DG_ColPD(b,10);DPorMB(a,13)▶DG_ColPD(b,11);0▶DG_ColPD(b,12);0▶
DG_ColPD(b,13);a:=a+NG;b:=b+NGa;END;END;IF dfg4==1 THEN
xpre7(ii):=DG_ColPD;ELSE
xpre6(ii):=DG_ColPD;END;END;END;END;tdljt6(a,ii,kk,dfg4,NG,NGa,DPorMB,DG
_ColPD,tp)BEGIN LOCAL b,g,h;FOR g:=1 TO NGa DO b:=g;IF
DPorMB(kk,14)==DG_ColPD(g,14)THEN FOR h:=1 TO rtyh2 DO IF tp==1 THEN
DPorMB(a,1)▶DG_ColPD(b,2);DPorMB(a,2)▶DG_ColPD(b,1);DPorMB(a,3)▶
DG_ColPD(b,3);DPorMB(a,4)▶DG_ColPD(b,6);DPorMB(a,5)▶
DG_ColPD(b,7);DPorMB(a,6)▶DG_ColPD(b,8);DPorMB(a,7)▶
DG_ColPD(b,9);DPorMB(a,8)▶DG_ColPD(b,10);DPorMB(a,9)▶
DG_ColPD(b,11);DPorMB(a,10)▶DG_ColPD(b,12);DPorMB(a,11)▶
DG_ColPD(b,13);a:=a+NG;b:=b+NGa;ELSE DPorMB(a,1)▶
DG_ColPD(b,2);DPorMB(a,2)▶DG_ColPD(b,1);a:=a+NG;b:=b+NGa;END;END;IF
dfg4==1 AND qwr4==xpre1 THEN xpre7(ii):=DG_ColPD;ELSE
xpre6(ii):=DG_ColPD;END;ldljt6(dfg4,ii,2);END;END;END;llfft12(a,ii,kk,dfg4,NG,N
Ga,DPorMB,DG_ColPD,tp)BEGIN LOCAL b,g,h;FOR g:=1 TO NGa DO b:=g;IF
DPorMB(kk,14)==DG_ColPD(g,14)THEN FOR h:=1 TO rtyh2 DO IF tp==1 AND
qwr4==xpre1 THEN DPorMB(a,1)▶DG_ColPD(b,2);DPorMB(a,2)▶
DG_ColPD(b,1);DPorMB(a,3)▶DG_ColPD(b,3);a:=a+NG;b:=b+NGa;ELSE
DPorMB(a,1)▶DG_ColPD(b,2);DPorMB(a,2)▶DG_ColPD(b,1);DPorMB(a,3)▶
DG_ColPD(b,3);a:=a+NG;b:=b+NGa;END;END;IF dfg4==1 THEN
xpre7(ii):=DG_ColPD;ELSE
xpre6(ii):=DG_ColPD;END;END;END;END;ldljt5(dfg4,j,k)BEGIN LOCAL DPor;IF
dfg4==1 THEN DPor:=fldth6(dfg4,j,k);xpre4(j):=DPor(j);ELSE
DPor:=fldth6(dfg4,j,k);xpre5(j):=DPor(j);END;END;fldth6(dfg4,x,y)BEGIN LOCAL
a,V1,V2,V3,V4,f,CLP;LOCAL dDat,CNG,CLPG,NG,dDatM;LOCAL
CNN,CNA,NGA,NGB,CPL,e,g;LOCAL lv,lo,lh,g,gg;IF dfg4==1 THEN
dDat:=xpre2;CNG:=rtyh7;NG:=rtyh8;CLPG:=zsc1;dDatM:=xpre8;ELSE
dDat:=xpre3;CNG:=rtyh8;NG:=rtyh7;CLPG:=zsc2;dDatM:=xpre9;END;LOCAL
m,k,expr18,t,aa,j;LOCAL
DAT_Col,DAT_Vig,DAT_Mur,DAT_Portico,dD,DAT_Portico_Eje:={};a:=1;CLP:=[[
0]];t:=0;B→R(#1110011b)▶CNN;FOR m:=x TO y DO IFERR IF NG==1 THEN
BREAK;END;CLP:=CLPG(m);DAT_Col:=[[0]];FOR j:=1 TO NG DO
V1:=CLP(j,1);V2:=CLP(j,2);DAT_Col:=ftyul6(DAT_Col,j,V1,V2,dfg4);END;B→R(#
1100001b)▶CPL;DAT_Vig:=[[0]];DAT_Mur:=[[0]];FOR j:=1 TO NG DO
V1:=CLP(j,1);V2:=CLP(j,2);FOR k:=1 TO NG DO
V3:=CLP(k,1);V4:=CLP(k,2);IF(V1<>V2 OR V3<>V4)THEN
DAT_Vig:=pxtrf6(DAT_Vig,j,V1,V2,V3,V4);DAT_Mur:=zvfgk6(DAT_Mur,j,V1,V2,
V3,V4);END;END;END;B→R(#1100101b)▶
CNA;expr18:=jjrtg6(DAT_Col,DAT_Mur,m,dfg4);LOCAL
nNudos,nCol,nVig,nMiem,nMam;CASE IF expr18==1 AND qwr4==xpre1 THEN
nCol:=(NG)*rtyh2;B→R(#1101001b)▶NGB;nVig:=(NG-
1)*rtyh2;nMiem:=nCol+nVig;B→R(#1101100b)▶
e;DAT_Portico:=MAKEMAT(0,nMiem,20);DAT_Portico:=ffllq6(DAT_Portico,DAT_
Col,DAT_Vig,NG,rtyh2);END;IF expr18==2 AND qwr4==xpre1 THEN
nCol:=(NG)*rtyh2;B→R(#1101001b)▶NGB;nVig:=(NG-
1)*rtyh2;nMiem:=nCol+nVig;B→R(#1101100b)▶
e;DAT_Portico:=MAKEMAT(0,nMiem,20);DAT_Portico:=yyhte6(DAT_Portico,DAT
_Col,DAT_Vig,rtyh2);END;IF expr18==3 THEN
nCol:=(NG)*rtyh2;B→R(#1101001b)▶NGB;nVig:=(NG-1)*rtyh2;nMam:=(NG-
1)*rtyh2;B→R(#1101100b)▶
e;nMiem:=nCol+nVig+nMam;DAT_Portico:=MAKEMAT(0,nMiem,20);DAT_Portico:
=llfft6(DAT_Portico,DAT_Col,DAT_Vig,rtyh2,DAT_Mur,NG);END;END;B→R(#111
0010b)▶
NGA;aa:=rowDim(DAT_Portico);lo:=CHAR({CNN,CNA});lv:=CHAR({NGA,NGB})
;lh:=CHAR({CPL,e});g:=EXPR(lo+lv+lh);gg:=ASC(RIGHT(g,4));DAT_Portico▶
DAT_Portico_Eje(m);k:=colDim(DAT_Portico);t:=k+t;gg:=ΣLIST(gg)/abd2;dDat(1,m)
:=expr18*gg;dDat(2,m):=t*gg;dDat(3,m):=aa*gg;THEN [[0]]▶
DAT_Portico_Eje(m);dDat(1,m):=1;dDat(2,m):=0;dDat(3,m):=0;END;END;IF
dfg4==1 THEN xpre2:=dDat;ELSE xpre3:=dDat;END;RETURN
DAT_Portico_Eje;END;ftyul6(DAT_Col,j,V1,V2,dfg4)BEGIN LOCAL
k,kk1;kk1:=CAS(CAS(CHAR({83,69,82,73,65,76})));FOR k:=1 TO abd8 DO
IF(V1==abd10(k,4)AND V2==abd10(k,5))AND kk1=="9CJ73507JL" THEN IF
dfg4==1 AND qwr4==xpre1 THEN abd10(k,3)▶DAT_Col(j,1);abd10(k,2)▶
DAT_Col(j,2);ELSE abd10(k,2)▶DAT_Col(j,1);abd10(k,3)▶DAT_Col(j,2);END;0▶
DAT_Col(j,3);abd10(k,6)▶DAT_Col(j,4);abd10(k,7)▶DAT_Col(j,5);abd10(k,8)▶
DAT_Col(j,6);abd10(k,9)▶DAT_Col(j,7);abd10(k,10)▶DAT_Col(j,8);abd10(k,11)▶
DAT_Col(j,9);abd10(k,4)▶DAT_Col(j,10);abd10(k,5)▶DAT_Col(j,11);k▶
DAT_Col(j,12);abd10(k,1)▶DAT_Col(j,13);BREAK;END;END;RETURN
DAT_Col;END;zvfgk6(DAT_Mur,j,V1,V2,V3,V4)BEGIN LOCAL r;FOR r:=1 TO
expr8 DO IF((V1==expr15(r,5)AND V2==expr15(r,6))AND(V3==expr15(r,7)AND
V4==expr15(r,8)))THEN expr15(r,2)▶DAT_Mur(j,1);expr15(r,3)▶
DAT_Mur(j,2);expr15(r,4)▶DAT_Mur(j,3);expr15(r,10)▶DAT_Mur(j,4);expr15(r,11)▶
DAT_Mur(j,5);expr15(r,12)▶DAT_Mur(j,6);expr15(r,13)▶DAT_Mur(j,7);r▶
DAT_Mur(j,8);expr15(r,1)▶DAT_Mur(j,9);expr15(r,5)▶DAT_Mur(j,10);expr15(r,6)▶
DAT_Mur(j,11);expr15(r,7)▶DAT_Mur(j,12);expr15(r,8)▶
DAT_Mur(j,13);BREAK;END;END;RETURN DAT_Mur;END;
hcl(Tip)BEGIN LOCAL xx,yy,t,n,b,bb,q,n1;FOR xx:=1 TO SIZE(Tip)DO ""▶n;""▶
n1;Tip(xx)▶t;FOR yy:=1 TO DIM(t)DO b:=t(yy)-cant;R→B(t(yy))▶
bb;n1+CHAR(bb(8,8))+CHAR(bb(0,8))▶n1;n+CHAR(b)▶n;END;REPLACE(n,"\r","")▶
Tip(xx);n▶Tip(xx);END;RETURN Tip;END;DxxwElem(TD,NBa)BEGIN LOCAL
esc,MC,s1,s2,px,py;DIMGROB_P(G4,320,240);RECT_P(G4,0,0,320,220,Col128);LO
CAL
hh,nn;MC:=[[0]];MC(1,1):=M0G(M1G(NBa,1),1);MC(1,2):=M0G(M1G(NBa,1),2);M
C(2,1):=M0G(M1G(NBa,2),1);MC(2,2):=M0G(M1G(NBa,2),2);LOCAL
mi1;mi1:=MIN(MC(-1));MC(1,1):=MC(1,1)-mi1;MC(2,1):=MC(2,1)-
mi1;mi1:=MIN(MC(-2));MC(1,2):=MC(1,2)-mi1;MC(2,2):=MC(2,2)-
mi1;bdx:=30;bdy:=30;px:=320;py:=220;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-
1)),(py-2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-
1))==0 THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN
esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO 2 DO MC(I,1):=Zx+s1+MC(I,1);MC(I,2):=Zy+py-s2-
MC(I,2);END;LOCAL xi,xf,yi,yf,l,Lesc,Lec,Diagr;LOCAL
x,w,ec,cxi,cyi,l1,escw,ColD;LOCAL wan;wan:=-99;IF TD==1 THEN
ColD:={Col137,98};END;IF TD==2 THEN ColD:={Col60,Col55};END;IF TD==3
AND Nnud==Eqx THEN
ColD:={Col118,Col11};END;Lesc:={};I:=NBa;Lec:=LEcu(I);Diagr:=Lec(TD);l1:=LDi
s(I);B:=SIZE(l1)-1;FOR K FROM 1 TO B DO l:=(l1(K+1)-
l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);FOR H FROM 1 TO l STEP 5 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;x:=CAS(C
AS("x"));x:=l1(K+1)-
l1(K);w:=EVAL(ec);Lesc(SIZE(Lesc)+1):=w;END;Lesc:=ABS(Lesc);escw:=80/MAX(
Lesc);I:=NBa;Lec:=LEcu(I);Diagr:=Lec(TD);l1:=LDis(I);B:=SIZE(l1)-1;FOR K
FROM 1 TO B DO l:=(l1(K+1)-l1(K))*esc;x:=CAS(CAS("x"));ec:=Diagr(K);FOR H
FROM 1 TO l STEP 10 DO
x:=CAS(CAS("x"));x:=H/esc;w:=EVAL(ec)*escw;x:=l1(K)+H/esc;xi:=MC(1,1)+x*esc
*M1G(I,10);yi:=MC(1,2)-x*esc*M1G(I,11);xf:=xi-w*M1G(I,11);yf:=yi-
w*M1G(I,10);IF w>=0 THEN LINE_P(G4,xi,yi,xf,yf,ColD(1));ELSE
LINE_P(G4,xi,yi,xf,yf,ColD(2));END;IF H==1 AND Nnud==Eqx THEN
cxi:=xf;cyi:=yf;IF wan≠ROUND(w,Pe)THEN IF w>=0 THEN TEXTOUT_P(-
ROUND(w,Pe),G4,xf-10,yf-10,1,ColD(1));ELSE TEXTOUT_P(-
ROUND(w,Pe),G4,xf-10,yf+4,1,ColD(2));END;END;END;IF H>1 THEN IF w>=0
THEN LINE_P(G4,cxi,cyi,xf,yf,ColD(1));ELSE
LINE_P(G4,cxi,cyi,xf,yf,ColD(2));END;cxi:=xf;cyi:=yf;END;END;x:=CAS(CAS("x"))
;x:=l1(K+1)-
l1(K);w:=EVAL(ec)*escw;x:=l1(K+1);xi:=MC(1,1)+x*esc*M1G(I,10);yi:=MC(1,2)-
x*esc*M1G(I,11);xf:=xi-w*M1G(I,11);yf:=yi-w*M1G(I,10);IF w>=0 THEN
LINE_P(G4,cxi,cyi,xf,yf,ColD(1));ELSE LINE_P(G4,cxi,cyi,xf,yf,ColD(2));END;IF
w>=0 THEN LINE_P(G4,xi,yi,xf,yf,ColD(1));TEXTOUT_P(-ROUND(w,Pe),G4,xf-
10,yf-10,1,ColD(1));ELSE LINE_P(G4,xi,yi,xf,yf,ColD(2));TEXTOUT_P(-
ROUND(w,Pe),G4,xf-
10,yf+4,1,ColD(2));END;wan:=ROUND(w,Pe);END;I:=NBa;DibElemF(0,I,MC,0,G4,
Col148);TEXTOUT_P(M1G(NBa,1),G4,MC(1,1)-
10,MC(1,2)+2,2,Col137);TEXTOUT_P(M1G(NBa,2),G4,MC(2,1)+3,MC(2,2)+2,2,Col
137);TEXTOUT_P(Diagr(1),G4,20,200,2,Col137);axsdcerfR();IF Zx==0 AND Zy==0
THEN
LINE_P(G4,5,200,5,213,Col118);TEXTOUT_P("y",G4,3,187,1,Col118);LINE_P(G4,5,
213,20,213,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;BLIT_P(G0,0,20,320,2
40,G4,0,0,320,220);END;Atytz(Tip)BEGIN LOCAL
esc,MC,s1,s2,px,py,CSDats,CSTip;DIMGROB_P(G4,320,220);RECT_P(G4,0,0,320,22
0,Col128);CSTip:=Tip;CSDats:=Dats;LOCAL
hh,nn;MC:=M0;bdx:=30;bdy:=30;px:=320;py:=220;IF Tip==3 AND Nnud==Eqx
THEN bdx:=40;bdy:=40;END;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-1))==0
THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN
esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO N DO MC(I,1):=Zx+s1+MC(I,1);IF Tip==3 THEN MC(I,2):=Zy+py-s2-
MC(I,2)-10;ELSE MC(I,2):=Zy+py-s2-MC(I,2);END;END;IF Tip≠3 AND Nnud==Eqx
THEN FOR hh FROM 1 TO SIZE(DAp)DO
nn:=DAp(hh);A:=nn(3);Dats:=nn(4);TApEm:=nn(5);TApSe:=nn(6);Atytz14(2,MC,esc)
;END;END;IF Tip==1 THEN LOCAL h,m,n,ME,escw;ME:=[[0]];IF SIZE(DCgB)≠0
THEN FOR h FROM 1 TO SIZE(DCgB)DO m:=DCgB(h);n:=m(3);IF m(2)==1 THEN
ME(rowDim(ME)+1,1):=ABS(n(2));END;IF m(2)==2 AND Nnud==Eqx THEN
ME(rowDim(ME)+1,1):=ABS(n(3));ME(rowDim(ME)+1,1):=ABS(n(4));END;END;IF
ERR escw:=17/MAX(ME(-1));THEN escw:=17/100;END;END;FOR J FROM 1 TO
SIZE(DCgB)DO m:=DCgB(J);I:=m(1);Tip:=m(2);Dats:=m(3);OriCarga:=m(4);IF
Tip==1 THEN IF OriCarga==1 THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(2)>0 AND Dats(1)≠0 THEN
xf:=xi+escw*Dats(2)*M1(I,11);yf:=yi+escw*Dats(2)*M1(I,10);LINE_P(G4,xi,yi,xf,yf,
Col111);TEXTOUT_P(Dats(2),G4,xf+1,yf,1,Col111);LOCAL
xf2,yf2;xf:=MC(M1(I,1),1)+(Dats(1)-2/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)-
2/esc)*esc*M1(I,11);xf2:=MC(M1(I,1),1)+(Dats(1)+2/esc)*esc*M1(I,10);yf2:=MC(M1
(I,1),2)-
(Dats(1)+2/esc)*esc*M1(I,11);FILLPOLY_P(G4,{(xi,yi),(xf+2*M1(I,11),yf+2*M1(I,1
0)),(xf2+2*M1(I,11),yf2+2*M1(I,10))},Col111);END;IF Dats(2)<0 AND Dats(1)≠0
THEN
xf:=xi+escw*Dats(2)*M1(I,11);yf:=yi+escw*Dats(2)*M1(I,10);LINE_P(G4,xi,yi,xf,yf,
Col111);TEXTOUT_P(-Dats(2),G4,xf+1,yf-8,1,Col111);LOCAL
xf2,yf2;xf:=MC(M1(I,1),1)+(Dats(1)-2/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)-
2/esc)*esc*M1(I,11);xf2:=MC(M1(I,1),1)+(Dats(1)+2/esc)*esc*M1(I,10);yf2:=MC(M1
(I,1),2)-(Dats(1)+2/esc)*esc*M1(I,11);FILLPOLY_P(G4,{(xi,yi),(xf-2*M1(I,11),yf-
2*M1(I,10)),(xf2-2*M1(I,11),yf2-2*M1(I,10))},Col111);END;END;IF Dats(1)≠0 AND
Dats(3)≠0 THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(3)>0 AND Nnud==Eqx THEN
TEXTOUT_P("↺",G4,xi-8,yi-10,5,Col54);TEXTOUT_P(Dats(3),G4,xi+6,yi-
4,1,Col54);ELSE TEXTOUT_P("↻",G4,xi-8,yi-
10,5,Col54);TEXTOUT_P(Dats(3),G4,xi+6,yi-4,1,Col54);END;END;IF OriCarga==2
THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(2)>0 AND Dats(1)≠0 THEN
xf:=MC(M1(I,1),1)+(Dats(1)-15/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(Dats(1)-
15/esc)*esc*M1(I,11);TEXTOUT_P(Dats(2),G4,xf-3,yf,1,Col111);LINE_P(G4,xi-
3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf-
3*M1(I,10),Col111);xf:=MC(M1(I,1),1)+(Dats(1)-
3/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(Dats(1)-
3/esc)*esc*M1(I,11);FILLPOLY_P(G4,{(xi-3*M1(I,11),yi-3*M1(I,10)),(xf-
5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf-1*M1(I,10))},Col111);END;IF
Dats(2)<0 AND Dats(1)≠0 AND Nnud==Eqx THEN
xf:=MC(M1(I,1),1)+(Dats(1)+15/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)+15/esc)*esc*M1(I,11);TEXTOUT_P(-Dats(2),G4,xf+1,yf-
8,1,Col111);LINE_P(G4,xi-3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf-
3*M1(I,10),Col111);xf:=MC(M1(I,1),1)+(Dats(1)+3/esc)*esc*M1(I,10);yf:=MC(M1(I,
1),2)-(Dats(1)+3/esc)*esc*M1(I,11);FILLPOLY_P(G4,{(xi-3*M1(I,11),yi-
3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf-
1*M1(I,10))},Col111);END;END;END;IF Tip==2 THEN IF OriCarga==1 THEN
LOCAL xi,xf,yi,yf,l;LOCAL x,w,ec,cxi,cyi;l:=(Dats(2)-
Dats(1))*esc;x:=CAS(CAS("x"));ec:=(Dats(1)*Dats(4)-Dats(3)*Dats(2)+Dats(3)*x-
Dats(4)*x)/(Dats(1)-Dats(2));IF(Dats(3)==0 AND Dats(4)>0)OR(Dats(3)>0 AND
Dats(4)==0)OR(Dats(3)>0 AND Dats(4)>0)THEN FOR H FROM 1 TO l STEP 5 DO
x:=CAS(CAS("x"));x:=Dats(1)+H/esc;w:=EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*
M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi+w*M1(I,11);yf:=yi+w*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);
IF H==1 THEN cxi:=xf;cyi:=yf;TEXTOUT_P(Dats(3),G4,xf-
10,yf,1,Col148);END;x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1)
,2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);END;x:=CAS(CAS("x"));x:=Dats(2);w:=EVAL(
ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi+w*M1(I,11);yf:=yi+w*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);
TEXTOUT_P(Dats(4),G4,xf+1,yf,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);x:=x+1/e
sc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);END;IF(Dats(3)==0 AND
Dats(4)<0)OR(Dats(3)<0 AND Dats(4)==0)OR(Dats(3)<0 AND Dats(4)<0)THEN
FOR H FROM 1 TO l STEP 5 DO x:=CAS(CAS("x"));x:=Dats(1)+H/esc;w:=-
EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi-w*M1(I,11);yf:=yi-
w*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);IF H==1 AND Nnud==Eqx THEN
cxi:=xf;cyi:=yf;TEXTOUT_P(-Dats(3),G4,xf-10,yf-
5,1,Col148);END;x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi-2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-
2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);END;x:=CAS(CAS("x"));x:=Dats(2);w:=-
EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi-w*M1(I,11);yf:=yi-
w*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G4,xf+1,yf-
5,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M
1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-2*M1(I,11);yi:=yi-
2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-
2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);END;END;IF OriCarga==2 THEN LOCAL
xi,xf,yi,yf,l;LOCAL x,w,ec,cxi,cyi;l:=(Dats(2)-Dats(1))*esc;IF(Dats(3)==0 AND
Dats(4)>0)OR(Dats(3)>0 AND Dats(4)==0)OR(Dats(3)>0 AND Dats(4)>0)THEN
LOCAL xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);TEXTOUT_P(Dats(4),G4,xi-10*M1(I,11),yi-
10*M1(I,10),1,Col148);xf:=MC(M1(I,1),1)+Dats(2)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
Dats(2)*esc*M1(I,11);TEXTOUT_P(Dats(3),G4,xf-10*M1(I,11),yf-
10*M1(I,10),1,Col148);FOR H FROM 10 TO l STEP 15 DO
x:=Dats(1)+H/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);
xf:=MC(M1(I,1),1)+(x-4/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(x-
4/esc)*esc*M1(I,11);LINE_P(G4,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x-
10/esc)*esc*M1(I,10)-4*M1(I,11),MC(M1(I,1),2)-(x-10/esc)*esc*M1(I,11)-
4*M1(I,10),Col111);FILLPOLY_P(G4,{(xi-4*M1(I,11),yi-4*M1(I,10)),(xf-
6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf-
2*M1(I,10))},Col111);END;END;IF(Dats(3)==0 AND Dats(4)<0)OR(Dats(3)<0 AND
Dats(4)==0)OR(Dats(3)<0 AND Dats(4)<0)THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);TEXTOUT_P(-Dats(3),G4,xi-10*M1(I,11),yi-
10*M1(I,10),1,Col148);xf:=MC(M1(I,1),1)+Dats(2)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
Dats(2)*esc*M1(I,11);TEXTOUT_P(-Dats(4),G4,xf-10*M1(I,11),yf-
10*M1(I,10),1,Col148);FOR H FROM 1 TO l STEP 15 DO
x:=Dats(1)+H/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=MC(M1(I,1),1)+(x+4/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(x+4/esc)*esc*M1(I,11);LINE_P(G4,xi-4*M1(I,11),yi-
4*M1(I,10),MC(M1(I,1),1)+(x+10/esc)*esc*M1(I,10)-4*M1(I,11),MC(M1(I,1),2)-
(x+10/esc)*esc*M1(I,11)-4*M1(I,10),Col111);FILLPOLY_P(G4,{(xi-4*M1(I,11),yi-
4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf-
2*M1(I,10))},Col111);END;END;END;END;END;FOR J FROM 1 TO
SIZE(DCgN)DO m:=DCgN(J);I:=m(1);Tip:=m(2);Dats:=m(3);IF Tip==3 THEN IF
Dats(1)<0 THEN LINE_P(G4,MC(I,1),MC(I,2)-1,MC(I,1)+20,MC(I,2)-
1,Col118);TEXTOUT_P("◀",G4,MC(I,1)+2,MC(I,2)-
8,3,Col118);TEXTOUT_P(ABS(Dats(1)),G4,MC(I,1)+15,MC(I,2)-
10,1,Col118);END;IF Dats(1)>0 AND Nnud==Eqx THEN
LINE_P(G4,MC(I,1),MC(I,2)-1,MC(I,1)-20,MC(I,2)-1,Col118);TEXTOUT_P("▶
",G4,MC(I,1)-9,MC(I,2)-8,3,Col118);TEXTOUT_P(ABS(Dats(1)),G4,MC(I,1)-
20,MC(I,2)-10,1,Col118);END;IF Dats(2)<0 THEN LINE_P(G4,MC(I,1)-
1,MC(I,2),MC(I,1)-1,MC(I,2)-20,Col118);TEXTOUT_P("▼",G4,MC(I,1)-5,MC(I,2)-
12,3,Col118);TEXTOUT_P(ABS(Dats(2)),G4,MC(I,1)-10,MC(I,2)-
30,1,Col118);END;IF Dats(2)>0 THEN LINE_P(G4,MC(I,1)-1,MC(I,2),MC(I,1)-
1,MC(I,2)+20,Col118);TEXTOUT_P("▲",G4,MC(I,1)-5,MC(I,2)-
3,3,Col118);TEXTOUT_P(ABS(Dats(2)),G4,MC(I,1)-
10,MC(I,2)+23,1,Col118);END;IF Dats(3)<0 THEN TEXTOUT_P("↻",G4,MC(I,1)-
12,MC(I,2)-14,7,Col54);TEXTOUT_P(ABS(Dats(3)),G4,MC(I,1)-7,MC(I,2)-
17,1,Col54);END;IF Dats(3)>0 THEN TEXTOUT_P("↺",G4,MC(I,1)-12,MC(I,2)-
14,7,Col54);TEXTOUT_P(ABS(Dats(3)),G4,MC(I,1)-7,MC(I,2)-
17,1,Col54);END;END;END;END;Dats:=CSDats;Tip:=CSTip;FOR I FROM 1 TO B
DO IF Tip==1 THEN DibElemF(0,I,MC,1,G4,Col148);END;IF Tip==2 THEN
DibElemF(0,I,MC,0,G4,Col12);END;IF Tip==3 THEN
DibElemF(0,I,MC,0,G4,Col133);END;END;IF Tip==2 THEN IF T==3 THEN LOCAL
Prux,Pruy,Pruz,Incli,AngG;FOR I FROM 1 TO N DO
Incli:=0;Prux:=0;Pruy:=0;Pruz:=0;FOR H FROM 1 TO rowDim(M3)DO IF
M3(H,4)==0 THEN IF M3(H,2)==(3*I-2)THEN
Prux:=1;LINE_P(G4,MC(I,1),MC(I,2)-1,MC(I,1)+15,MC(I,2)-
1,Col148);TEXTOUT_P("▶",G4,MC(I,1)+11,MC(I,2)-8,3,Col148);TEXTOUT_P(3*I-
2,G4,MC(I,1)+15,MC(I,2)-11,1,Col148);END;IF M3(H,2)==(3*I-1)THEN
Pruy:=1;LINE_P(G4,MC(I,1)-1,MC(I,2),MC(I,1)-1,MC(I,2)-
15,Col148);TEXTOUT_P("▲",G4,MC(I,1)-5,MC(I,2)-
24,3,Col148);TEXTOUT_P(3*I-1,G4,MC(I,1)+3,MC(I,2)-23,1,Col148);END;IF
M3(H,2)==(3*I)THEN Pruz:=1;IF ACOS(-1)==180 THEN
ARC_P(G4,MC(I,1),MC(I,2),7,-45,180,Col148);END;IF ACOS(-1)==π THEN
ARC_P(G4,MC(I,1),MC(I,2),7,-π/4,π,Col148);END;TEXTOUT_P("▼",G4,MC(I,1)-
10,MC(I,2)-6,2,Col148);TEXTOUT_P(3*I,G4,MC(I,1)-
12,MC(I,2)+3,1,Col148);END;END;IF M3(H,4)≠0 THEN IF M3(H,1)==I THEN
Incli:=1;END;LOCAL Ang,cx,cy,cs,sn;IF M3(H,2)==(3*I-2)THEN AngG:=-
M3(H,4);Ang:=AngG;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_
P(G4,cx,cy,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-
17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-
6*COS(Ang-30),cy+6*SIN(Ang-30)),(cx,cy)},Col148);TEXTOUT_P(3*I-
2,G4,MC(I,1)+15,MC(I,2)-11,1,Col148);END;IF M3(H,2)==(3*I-1)THEN AngG:=-
M3(H,4);Pruy:=1;Ang:=AngG-
270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*
cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-
6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang-
30)),(cx,cy)},Col148);TEXTOUT_P(3*I-1,G4,cx-3,cy-10,1,Col148);END;IF
M3(H,2)==(3*I)THEN Pruz:=1;IF ACOS(-1)==180 THEN
ARC_P(G4,MC(I,1),MC(I,2),7,-45,180,Col148);END;IF ACOS(-1)==π THEN
ARC_P(G4,MC(I,1),MC(I,2),7,-π/4,π,Col148);END;TEXTOUT_P("▼",G4,MC(I,1)-
10,MC(I,2)-6,2,Col148);TEXTOUT_P(3*I,G4,MC(I,1)-
12,MC(I,2)+3,1,Col148);END;END;END;IF Incli==0 THEN IF Prux==0 THEN
LINE_P(G4,MC(I,1),MC(I,2)-1,MC(I,1)+15,MC(I,2)-1,Col118);TEXTOUT_P("▶
",G4,MC(I,1)+11,MC(I,2)-8,3,Col118);TEXTOUT_P(3*I-2,G4,MC(I,1)+15,MC(I,2)-
11,1,Col118);END;IF Pruy==0 THEN LINE_P(G4,MC(I,1)-1,MC(I,2),MC(I,1)-
1,MC(I,2)-15,Col118);TEXTOUT_P("▲",G4,MC(I,1)-5,MC(I,2)-
24,3,Col118);TEXTOUT_P(3*I-1,G4,MC(I,1)+3,MC(I,2)-23,1,Col118);END;IF
Pruz==0 THEN IF ACOS(-1)==180 THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
45,180,Col118);END;IF ACOS(-1)==π THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
π/4,π,Col118);END;TEXTOUT_P("▼",G4,MC(I,1)-10,MC(I,2)-
6,2,Col118);TEXTOUT_P(3*I,G4,MC(I,1)-12,MC(I,2)+3,1,Col118);END;END;IF
Incli==1 AND Nnud==Eqx THEN LOCAL Ang,cx,cy,cs,sn;IF Prux==0 THEN
Ang:=AngG;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,c
y,cx+18*cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-
17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-
6*COS(Ang-30),cy+6*SIN(Ang-30)),(cx,cy)},Col118);TEXTOUT_P(3*I-
2,G4,MC(I,1)+15,MC(I,2)-11,1,Col118);END;IF Pruy==0 THEN AngG:=-
M3(H,4);Pruy:=1;Ang:=AngG-
270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*
cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-
6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang-
30)),(cx,cy)},Col118);TEXTOUT_P(3*I-1,G4,cx-3,cy-10,1,Col118);END;IF Pruz==0
AND Nnud==Eqx THEN IF ACOS(-1)==180 THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
45,180,Col118);END;IF ACOS(-1)==π THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
π/4,π,Col118);END;TEXTOUT_P("▼",G4,MC(I,1)-10,MC(I,2)-
6,2,Col118);TEXTOUT_P(3*I,G4,MC(I,1)-
12,MC(I,2)+3,1,Col118);END;END;END;END;IF T==1 THEN LOCAL
Prux,Pruy,Pruz,Incli,AngG;FOR I FROM 1 TO N DO
Incli:=0;Prux:=0;Pruy:=0;Pruz:=0;FOR H FROM 1 TO rowDim(M3)DO IF
M3(H,4)==0 THEN IF M3(H,2)==(2*I-1)THEN
Prux:=1;LINE_P(G4,MC(I,1),MC(I,2)-1,MC(I,1)+15,MC(I,2)-
1,Col148);TEXTOUT_P("▶",G4,MC(I,1)+11,MC(I,2)-8,3,Col148);TEXTOUT_P(2*I-
1,G4,MC(I,1)+15,MC(I,2)-11,1,Col148);END;IF M3(H,2)==(2*I)THEN
Pruy:=1;LINE_P(G4,MC(I,1)-1,MC(I,2),MC(I,1)-1,MC(I,2)-
15,Col148);TEXTOUT_P("▲",G4,MC(I,1)-5,MC(I,2)-
24,3,Col148);TEXTOUT_P(2*I,G4,MC(I,1)+3,MC(I,2)-23,1,Col148);END;END;IF
M3(H,4)≠0 AND Nnud==Eqx THEN IF M3(H,1)==I THEN Incli:=1;END;LOCAL
Ang,cx,cy,cs,sn;IF M3(H,2)==(2*I-1)THEN AngG:=-
M3(H,4);Ang:=AngG;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_
P(G4,cx,cy,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-
17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-
6*COS(Ang-30),cy+6*SIN(Ang-30)),(cx,cy)},Col148);TEXTOUT_P(2*I-
1,G4,MC(I,1)+15,MC(I,2)-11,1,Col148);END;IF M3(H,2)==(2*I)THEN AngG:=-
M3(H,4);Pruy:=1;Ang:=AngG-
270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*
cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-
6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang-
30)),(cx,cy)},Col148);TEXTOUT_P(2*I,G4,cx-3,cy-10,1,Col148);END;END;END;IF
Incli==0 THEN IF Prux==0 THEN LINE_P(G4,MC(I,1),MC(I,2)-
1,MC(I,1)+15,MC(I,2)-1,Col118);TEXTOUT_P("▶",G4,MC(I,1)+11,MC(I,2)-
8,3,Col118);TEXTOUT_P(2*I-1,G4,MC(I,1)+15,MC(I,2)-11,1,Col118);END;IF
Pruy==0 AND Nnud==Eqx THEN LINE_P(G4,MC(I,1)-1,MC(I,2),MC(I,1)-1,MC(I,2)-
15,Col118);TEXTOUT_P("▲",G4,MC(I,1)-5,MC(I,2)-
24,3,Col118);TEXTOUT_P(2*I,G4,MC(I,1)+3,MC(I,2)-23,1,Col118);END;END;IF
Incli==1 THEN LOCAL Ang,cx,cy,cs,sn;IF Prux==0 THEN
Ang:=AngG;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,c
y,cx+18*cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-
17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-
6*COS(Ang-30),cy+6*SIN(Ang-30)),(cx,cy)},Col118);TEXTOUT_P(2*I-
1,G4,MC(I,1)+15,MC(I,2)-11,1,Col118);END;IF Pruy==0 THEN AngG:=-
M3(H,4);Pruy:=1;Ang:=AngG-
270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*
cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx-
6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang-
30)),(cx,cy)},Col118);TEXTOUT_P(2*I,G4,cx-3,cy-
10,1,Col118);END;END;END;END;END;IF Tip==3 THEN IF T==3 THEN LOCAL
mmx7;mmx7:=ROUND(M7,Pe);FOR I FROM 1 TO N DO FOR H FROM 1 TO
rowDim(M3)DO IF M3(H,4)==0 THEN IF M3(H,2)==(3*I-2)THEN IF mmx7(H,1)>0
THEN
LINE_P(G4,MC(I,1)+1,MC(I,2)+1,MC(I,1)+15,MC(I,2)+1,Col59);TEXTOUT_P("▶
",G4,MC(I,1)+11,MC(I,2)-
6,3,Col59);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)+7,1,Col59);END;IF
mmx7(H,1)<0 AND Nnud==Eqx THEN
LINE_P(G4,MC(I,1)+1,MC(I,2)+1,MC(I,1)+19,MC(I,2)+1,Col59);TEXTOUT_P("◀
",G4,MC(I,1),MC(I,2)-
6,3,Col59);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)+4,1,Col59);END;END;
IF M3(H,2)==(3*I-1)THEN IF mmx7(H,1)>0 THEN
LINE_P(G4,MC(I,1),MC(I,2)+3,MC(I,1),MC(I,2)+17,Col3);TEXTOUT_P("▲",G4,M
C(I,1)-4,MC(I,2)-3,3,Col3);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
10,MC(I,2)+20,1,Col3);END;IF mmx7(H,1)<0 THEN
LINE_P(G4,MC(I,1),MC(I,2)+2,MC(I,1),MC(I,2)+17,Col3);TEXTOUT_P("▼",G4,M
C(I,1)-4,MC(I,2)+9,3,Col3);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
10,MC(I,2)+22,1,Col3);END;END;IF M3(H,2)==(3*I)AND Nnud==Eqx THEN IF
mmx7(H,1)≠0 THEN IF ACOS(-1)==180 THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
45,180,Col118);END;IF ACOS(-1)==π THEN ARC_P(G4,MC(I,1),MC(I,2),7,-
π/4,π,Col118);END;END;IF mmx7(H,1)>0 THEN TEXTOUT_P("▼",G4,MC(I,1)-
10,MC(I,2)-6,2,Col118);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-14,MC(I,2)-
17,1,Col118);END;IF mmx7(H,1)<0 THEN
TEXTOUT_P("▼",G4,MC(I,1)+3,MC(I,2)-
1,2,Col118);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-10,MC(I,2)-
17,1,Col118);END;END;END;IF M3(H,4)≠0 THEN LOCAL Ang,cx,cy,cs,sn;Ang:=-
M3(H,4);IF M3(H,2)==(3*I-2)THEN IF mmx7(H,1)>0 THEN
Ang:=Ang+180;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,c
x,cy,cx+18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
10,MC(I,2)+7,1,Col111);END;IF mmx7(H,1)<0 AND Nnud==Eqx THEN
cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,c
y-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)-
4,1,Col111);END;END;IF M3(H,2)==(3*I-1)THEN IF mmx7(H,1)>0 THEN
Ang:=Ang-
90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*c
s,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
5,MC(I,2)+10,1,Col111);END;IF mmx7(H,1)<0 THEN
Ang:=Ang+90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx
,cy,cx+18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-10,MC(I,2)-
10,1,Col111);END;END;IF M3(H,2)==(3*I)THEN IF mmx7(H,1)≠0 THEN IF
ACOS(-1)==180 THEN ARC_P(G4,MC(I,1),MC(I,2),7,-45,180,Col118);END;IF
ACOS(-1)==π THEN ARC_P(G4,MC(I,1),MC(I,2),7,-π/4,π,Col118);END;END;IF
mmx7(H,1)>0 THEN TEXTOUT_P("▼",G4,MC(I,1)-10,MC(I,2)-
6,2,Col118);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-14,MC(I,2)-17,1,Col118);END;IF
mmx7(H,1)<0 THEN TEXTOUT_P("▼",G4,MC(I,1)+3,MC(I,2)-
1,2,Col118);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-10,MC(I,2)-
17,1,Col118);END;END;END;END;END;END;IF T==1 THEN LOCAL
mmx7;mmx7:=ROUND(M7,Pe);FOR I FROM 1 TO N DO FOR H FROM 1 TO
rowDim(M3)DO IF M3(H,4)==0 AND Nnud==Eqx THEN IF M3(H,2)==(2*I-
1)THEN IF mmx7(H,1)>0 THEN
LINE_P(G4,MC(I,1)+1,MC(I,2)+1,MC(I,1)+15,MC(I,2)+1,Col59);TEXTOUT_P("▶
",G4,MC(I,1)+11,MC(I,2)-
6,3,Col59);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)+7,1,Col59);END;IF
mmx7(H,1)<0 THEN
LINE_P(G4,MC(I,1)+1,MC(I,2)+1,MC(I,1)+19,MC(I,2)+1,Col59);TEXTOUT_P("◀
",G4,MC(I,1),MC(I,2)-
6,3,Col59);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)+4,1,Col59);END;END;
IF M3(H,2)==(2*I)THEN IF mmx7(H,1)>0 THEN
LINE_P(G4,MC(I,1),MC(I,2)+3,MC(I,1),MC(I,2)+17,Col3);
TEXTOUT_P("▲",G4,MC(I,1)-4,MC(I,2)-
3,3,Col3);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-10,MC(I,2)+20,1,Col3);END;IF
mmx7(H,1)<0 AND Nnud==Eqx THEN
LINE_P(G4,MC(I,1),MC(I,2)+2,MC(I,1),MC(I,2)+17,Col3);TEXTOUT_P("▼",G4,M
C(I,1)-4,MC(I,2)+9,3,Col3);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
10,MC(I,2)+22,1,Col3);END;END;END;IF M3(H,4)≠0 THEN LOCAL
Ang,cx,cy,cs,sn;Ang:=-M3(H,4);IF M3(H,2)==(2*I-1)THEN IF mmx7(H,1)>0 THEN
Ang:=Ang+180;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,c
x,cy,cx+18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
10,MC(I,2)+7,1,Col111);END;IF mmx7(H,1)<0 THEN
cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,c
y-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)+10,MC(I,2)-
4,1,Col111);END;END;IF M3(H,2)==(2*I)THEN IF mmx7(H,1)>0 THEN Ang:=Ang-
90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*c
s,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-
5,MC(I,2)+10,1,Col111);END;IF mmx7(H,1)<0 THEN
Ang:=Ang+90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx
,cy,cx+18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy-
6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang-
30)),(cx,cy)},Col111);TEXTOUT_P(mmx7(H,1),G4,MC(I,1)-10,MC(I,2)-
10,1,Col111);END;END;END;END;END;END;END;IF Tip≠3 THEN LOCAL
nm;FOR I FROM 1 TO N DO FOR H FROM 1 TO SIZE(DAp)DO nm:=DAp(H);IF
I==nm(1)AND Nnud==Eqx THEN TEXTOUT_P("▪",G4,MC(I,1)-4,MC(I,2)-
5,2,Col3);END;END;END;END;LINE_P(G4,5,200,5,213,Col118);TEXTOUT_P("y",G
4,3,187,1,Col118);LINE_P(G4,5,213,20,213,Col20);TEXTOUT_P("x",G4,22,208,1,Co
l20);BLIT_P(G0,0,20,320,240,G4,0,0,320,220);END;pxtrf6(DAT_Vig,j,V1,V2,V3,V4)
BEGIN LOCAL r;FOR r:=1 TO bdc5 DO IF((V1==expr3(r,4)AND
V2==expr3(r,5))AND(V3==expr3(r,6)AND V4==expr3(r,7)))THEN expr3(r,2)▶
DAT_Vig(j,1);expr3(r,3)▶DAT_Vig(j,2);expr3(r,8)▶DAT_Vig(j,3);expr3(r,9)▶
DAT_Vig(j,4);expr3(r,10)▶DAT_Vig(j,5);expr3(r,11)▶DAT_Vig(j,6);expr3(r,12)▶
DAT_Vig(j,7);expr3(r,13)▶DAT_Vig(j,8);expr3(r,14)▶DAT_Vig(j,9);r▶
DAT_Vig(j,10);expr3(r,1)▶DAT_Vig(j,11);expr3(r,4)▶DAT_Vig(j,12);expr3(r,5)▶
DAT_Vig(j,13);expr3(r,6)▶DAT_Vig(j,14);expr3(r,7)▶
DAT_Vig(j,15);BREAK;END;END;RETURN
DAT_Vig;END;llfft6(DAT_Portico,DAT_Col,DAT_Vig,N,DAT_Mur,NE_X)BEGIN
LOCAL H_RL,j,l,c,DAT,r;LOCAL Long,Altur,H_RL;c:=0;FOR j:=1 TO N DO
H_RL:=qljgt6(j);DAT:=DAT_Col;FOR l:=1 TO rowDim(DAT_Col)DO
c:=c+1;DAT(l,1)▶DAT_Portico(c,1);DAT(l,2)▶DAT_Portico(c,2);H_RL▶
DAT_Portico(c,3);DAT(l,4)▶DAT_Portico(c,6);DAT(l,5)▶DAT_Portico(c,7);DAT(l,6)
▶DAT_Portico(c,8);DAT(l,7)▶DAT_Portico(c,9);DAT(l,8)▶
DAT_Portico(c,10);DAT(l,9)▶DAT_Portico(c,11);DAT(l,10)▶
DAT_Portico(c,12);DAT(l,11)▶DAT_Portico(c,13);DAT(l,12)▶DAT_Portico(c,14);j▶
DAT_Portico(c,15);DAT(l,13)▶DAT_Portico(c,16);END;END;FOR j:=1 TO N DO
FOR l:=1 TO rowDim(DAT_Vig)DO c:=c+1;DAT_Vig(l,1)▶
DAT_Portico(c,1);DAT_Vig(l,2)▶DAT_Portico(c,2);DAT_Vig(l,3)▶
DAT_Portico(c,3);DAT_Vig(l,4)▶DAT_Portico(c,6);DAT_Vig(l,5)▶
DAT_Portico(c,7);DAT_Vig(l,6)▶DAT_Portico(c,8);DAT_Vig(l,7)▶
DAT_Portico(c,9);DAT_Vig(l,8)▶DAT_Portico(c,10);DAT_Vig(l,9)▶
DAT_Portico(c,11);DAT_Vig(l,10)▶DAT_Portico(c,14);j▶
DAT_Portico(c,15);DAT_Vig(l,11)▶DAT_Portico(c,16);DAT_Vig(l,12)▶
DAT_Portico(c,17);DAT_Vig(l,13)▶DAT_Portico(c,18);DAT_Vig(l,14)▶
DAT_Portico(c,19);DAT_Vig(l,15)▶DAT_Portico(c,20);END;END;r:=0;FOR j:=1 TO
N DO H_RL:=qljgt6(j);FOR l:=1 TO rowDim(DAT_Mur)DO c:=c+1;(l+r)▶
DAT_Portico(c,1);(l+NE_X+1+r)▶
DAT_Portico(c,2);Long:=DAT_Mur(l,3);Altur:=H_RL-
DAT_Vig(1,2)/2;sqrt(Long^2+Altur^2)▶DAT_Portico(c,3);Long▶
DAT_Portico(c,4);Altur▶DAT_Portico(c,5);DAT_Mur(l,4)▶
DAT_Portico(c,6);DAT_Mur(l,5)▶DAT_Portico(c,7);DAT_Mur(l,6)▶
DAT_Portico(c,8);DAT_Mur(l,7)▶DAT_Portico(c,9);DAT_Mur(l,8)▶
DAT_Portico(c,14);j▶DAT_Portico(c,15);0▶DAT_Portico(c,10);0▶
DAT_Portico(c,11);DAT_Mur(l,1)▶DAT_Portico(c,12);IF DAT_Mur(l,1)==0 THEN
0.00001▶DAT_Portico(c,12);0▶DAT_Portico(c,8);1▶DAT_Portico(c,3);1▶
DAT_Portico(c,4);1▶DAT_Portico(c,5);END;DAT_Mur(l,9)▶
DAT_Portico(c,16);DAT_Mur(l,10)▶DAT_Portico(c,17);DAT_Mur(l,11)▶
DAT_Portico(c,18);DAT_Mur(l,12)▶DAT_Portico(c,19);DAT_Mur(l,13)▶
DAT_Portico(c,20);END;r:=NE_X+r;END;RETURN
DAT_Portico;END;ffllq6(DAT_Portico,DAT_Col,DAT_Vig,NE_X,N)BEGIN LOCAL
H_RL,j,l,c,DAT;c:=0;FOR j:=1 TO N DO H_RL:=qljgt6(j);DAT:=DAT_Col;FOR l:=1
TO rowDim(DAT_Col)DO c:=c+1;DAT(l,1)▶DAT_Portico(c,1);DAT(l,2)▶
DAT_Portico(c,2);H_RL▶DAT_Portico(c,3);DAT(l,4)▶DAT_Portico(c,4);DAT(l,5)▶
DAT_Portico(c,5);DAT(l,6)▶DAT_Portico(c,6);DAT(l,7)▶DAT_Portico(c,7);DAT(l,8)
▶DAT_Portico(c,8);DAT(l,9)▶DAT_Portico(c,9);DAT(l,10)▶
DAT_Portico(c,10);DAT(l,11)▶DAT_Portico(c,11);DAT(l,12)▶DAT_Portico(c,14);j▶
DAT_Portico(c,15);DAT(l,13)▶DAT_Portico(c,16);END;END;FOR j:=1 TO N DO
FOR l:=1 TO rowDim(DAT_Vig)DO c:=c+1;DAT_Vig(l,1)▶
DAT_Portico(c,1);DAT_Vig(l,2)▶DAT_Portico(c,2);DAT_Vig(l,3)▶
DAT_Portico(c,3);DAT_Vig(l,4)▶DAT_Portico(c,4);DAT_Vig(l,5)▶
DAT_Portico(c,5);DAT_Vig(l,6)▶DAT_Portico(c,6);DAT_Vig(l,7)▶
DAT_Portico(c,7);DAT_Vig(l,8)▶DAT_Portico(c,8);DAT_Vig(l,9)▶
DAT_Portico(c,9);DAT_Vig(l,10)▶DAT_Portico(c,14);j▶
DAT_Portico(c,15);DAT_Vig(l,11)▶DAT_Portico(c,16);DAT_Vig(l,12)▶
DAT_Portico(c,17);DAT_Vig(l,13)▶DAT_Portico(c,18);DAT_Vig(l,14)▶
DAT_Portico(c,19);DAT_Vig(l,15)▶DAT_Portico(c,20);END;END;RETURN
DAT_Portico;END;yyhte6(DAT_Portico,DAT_Col,DAT_Vig,N)BEGIN LOCAL
H_RL,j,l,c,DAT;c:=0;FOR j:=1 TO N DO H_RL:=qljgt6(j);DAT:=DAT_Col;FOR l:=1
TO rowDim(DAT_Col)DO c:=c+1;DAT(l,1)▶DAT_Portico(c,1);DAT(l,2)▶
DAT_Portico(c,2);H_RL▶DAT_Portico(c,3);DAT_Vig(1,2)/2▶
DAT_Portico(c,4);DAT_Vig(1,2)/2▶DAT_Portico(c,5);DAT(l,4)▶
DAT_Portico(c,6);DAT(l,5)▶DAT_Portico(c,7);DAT(l,6)▶DAT_Portico(c,8);DAT(l,7)
▶DAT_Portico(c,9);DAT(l,8)▶DAT_Portico(c,10);DAT(l,9)▶
DAT_Portico(c,11);DAT(l,10)▶DAT_Portico(c,12);DAT(l,11)▶
DAT_Portico(c,13);DAT(l,12)▶DAT_Portico(c,14);j▶DAT_Portico(c,15);DAT(l,13)▶
DAT_Portico(c,16);END;END;FOR j:=1 TO N DO FOR l:=1 TO
rowDim(DAT_Vig)DO c:=c+1;DAT_Vig(l,1)▶DAT_Portico(c,1);DAT_Vig(l,2)▶
DAT_Portico(c,2);DAT_Vig(l,3)▶DAT_Portico(c,3);DAT(l,2)/2▶
DAT_Portico(c,4);DAT(l+1,2)/2▶DAT_Portico(c,5);DAT_Vig(l,4)▶
DAT_Portico(c,6);DAT_Vig(l,5)▶DAT_Portico(c,7);DAT_Vig(l,6)▶
DAT_Portico(c,8);DAT_Vig(l,7)▶DAT_Portico(c,9);DAT_Vig(l,8)▶
DAT_Portico(c,10);DAT_Vig(l,9)▶DAT_Portico(c,11);DAT_Vig(l,10)▶
DAT_Portico(c,14);j▶DAT_Portico(c,15);DAT_Vig(l,11)▶
DAT_Portico(c,16);DAT_Vig(l,12)▶DAT_Portico(c,17);DAT_Vig(l,13)▶
DAT_Portico(c,18);DAT_Vig(l,14)▶DAT_Portico(c,19);DAT_Vig(l,15)▶
DAT_Portico(c,20);END;END;RETURN DAT_Portico;END;qljgt6(a)BEGIN LOCAL
H_P;IF a==1 THEN H_P:=rtyh3;ELSE H_P:=rtyh4;END;RETURN
H_P;END;jjrtg6(DAT_Col,DAT_Mur,m,dfg4)BEGIN LOCAL expr18,j;IF
DAT_Mur==[[0]]THEN FOR j:=1 TO rowDim(DAT_Col)DO
IF(DAT_Col(j,1)>4*DAT_Col(j,2)OR DAT_Col(j,2)>4*DAT_Col(j,1))THEN
expr18:=2;BREAK(1);ELSE expr18:=1;END;END;ELSE expr18:=3;END;RETURN
expr18;END;zvfgk8(dfg4,x,y)BEGIN LOCAL dfg3;LOCAL
nNudos,nCol,nVig,nMiem,nMam,DAT_Portico:={},RL_Port;LOCAL
m,a,b,j,c,k,d,e;LOCAL beta,o,vER;LOCAL
dDat,DPor,CNG,NG;a:=1;DAT_Portico:=[[0]];RL_Port:=[[0]];e:=0;IF dfg4==1 AND
qwr4==xpre1 THEN vER:=expr19;ELSE vER:=expr20;END;IF vER(x)==0 THEN IF
dfg4==1 THEN dDat:=xpre2;DPor:=xpre4;CNG:=rtyh7;NG:=rtyh8;ELSE
dDat:=xpre3;DPor:=xpre5;CNG:=rtyh8;NG:=rtyh7;END;ELSE IF dfg4==1 THEN
dDat:=xpre8;DPor:=xpre6;CNG:=rtyh7;NG:=rtyh8;ELSE
dDat:=xpre9;DPor:=xpre7;CNG:=rtyh8;NG:=rtyh7;END;END;FOR m:=x TO y DO
IFERR d:=dDat(1,m);b:=dDat(2,m);c:=dDat(3,m);DAT_Portico:=DPor(m);CASE IF
d==1 AND qwr4==xpre1 THEN
nNudos:=(rtyh2+1)*(NG);nCol:=(NG)*rtyh2;nVig:=(NG-
1)*rtyh2;nMiem:=nCol+nVig;RL_Port:=ftyul7(DAT_Portico,nNudos,rtyh2,NG);END;I
F d==2 THEN nNudos:=(rtyh2+1)*(NG);nCol:=(NG)*rtyh2;nVig:=(NG-
1)*rtyh2;nMiem:=nCol+nVig;beta:=hfjq8;RL_Port:=qljgt7(DAT_Portico,nNudos,rtyh2
,NG,beta);END;IF d==3 THEN
nNudos:=(rtyh2+1)*(NG);nCol:=(NG)*rtyh2;nVig:=(NG-1)*rtyh2;nMam:=(NG-
1)*rtyh2;nMiem:=nCol+nVig+nMam;RL_Port:=fldth7(DAT_Portico,nNudos,rtyh2,NG
,nMam);END;END;IF dfg4==1 AND qwr4==xpre1 THEN
xpre11(m):=RL_Port(1);xpre13(m):=RL_Port(2);ELSE
xpre10(m):=RL_Port(1);xpre12(m):=RL_Port(2);END;THEN IF dfg4==1 THEN
xpre11(m):=[[0]];xpre13(m):=[[0]];ELSE
xpre10(m):=[[0]];xpre12(m):=[[0]];END;END;END;END;ftyul7(nombre,nod,np,nr)BE
GIN LOCAL CG;LOCAL ngl:=0;LOCAL k:=nr;LOCAL
i,j;CG:=MAKEMAT(0,nod,2);FOR i:=1 TO np DO ngl:=ngl+1;FOR j:=1 TO nr DO
k:=k+1;CG(k,1):=ngl;END;END;FOR i:=1 TO nod-nr DO
ngl:=ngl+1;k:=nr+i;CG(k,2):=ngl;END;LOCAL
ncol,mbr,nvig,ici,icf;ncol:=np*nr;mbr:=ncol+(nr-1)*np;nvig:=mbr-
ncol;ici:=0;icf:=nr;LOCAL ini:=MAKEMAT(0,ncol);LOCAL
fin:=MAKEMAT(0,ncol);FOR i:=1 TO ncol DO
ici:=ici+1;icf:=icf+1;ini(i):=ici;fin(i):=icf;END;LOCAL ii;ii:=ncol;FOR j:=1 TO np DO
ici:=j*nr;FOR i:=1 TO nr-1 DO
ii:=ii+1;ici:=ici+1;ini(ii):=ici;fin(ii):=ici+1;END;END;LOCAL k,i;LOCAL
VC:=MAKEMAT(0,mbr,4);FOR i:=1 TO mbr DO FOR k:=1 TO 2 DO
VC(i,k):=CG(ini(i),k);VC(i,k+2):=CG(fin(i),k);END;END;LOCAL
B,H,L,EE,II;B:=MAKEMAT(0,mbr);H:=MAKEMAT(0,mbr);L:=MAKEMAT(0,mbr);
EE:=MAKEMAT(0,mbr);II:=MAKEMAT(0,mbr);FOR i:=1 TO mbr DO
B(i):=nombre(i,1);H(i):=nombre(i,2);L(i):=nombre(i,3);EE(i):=nombre(i,6)*10;II(i):=no
mbre(i,9);END;LOCAL b,h,long,iner,ei,jj,mm,m;LOCAL
SS:=MAKEMAT(0,ngl,ngl);LOCAL
k,i,kk;kk:=CAS(CAS(CHAR({83,69,82,73,65,76})));FOR i:=1 TO mbr DO
long:=L(i);IF II(i)==0 THEN b:=B(i);h:=H(i);iner:=b*h^3/12;ELSE
iner:=II(i);END;ei:=EE(i)*iner;IF i<=ncol AND kk=="9CJ73507JL" THEN
k:=MAKEMAT(0,4,4);k(1,1):=12*ei/long^3;k(1,2):=-6*ei/long^2;k(1,3):=-
k(1,1);k(1,4):=k(1,2);k(2,1):=k(1,2);k(2,2):=4*ei/long;k(2,3):=-
k(1,2);k(2,4):=2*ei/long;k(3,1):=k(1,3);k(3,2):=k(2,3);k(3,3):=k(1,1);k(3,4):=6*ei/long^
2;k(4,1):=k(1,4);k(4,2):=k(2,4);k(4,3):=k(3,4);k(4,4):=k(2,2);ELSE
k:=MAKEMAT(0,4,4);k(2,2):=4*ei/long;k(2,4):=2*ei/long;k(4,2):=k(2,4);k(4,4):=k(2,2
);END;FOR j:=1 TO 4 DO jj:=VC(i,j);IF jj==0 THEN CONTINUE;END;FOR m:=1
TO 4 DO mm:=VC(i,m);IF mm==0 THEN
CONTINUE;END;SS(jj,mm):=SS(jj,mm)+k(j,m);END;END;END;LOCAL
na,nb,Kaa,Kab,Kba,Kbb,ixpr5;na:=np;nb:=ngl-
np;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);
Kbb:=SUB(SS,{na+1,na+1},{ngl,ngl});ixpr5:=Kaa-Kab*inv(Kbb)*Kba;LOCAL
KR:={};KR(1):=ixpr5;KR(2):=SS;RETURN
KR;END;qljgt7(nombre,nod,np,nr,beta)BEGIN LOCAL CG;LOCAL ngl:=0;LOCAL
k:=nr;LOCAL i,j;CG:=MAKEMAT(0,nod,2);FOR i:=1 TO np DO ngl:=ngl+1;
FOR j:=1 TO nr DO k:=k+1;CG(k,1):=ngl;END;END;FOR i:=1 TO nod-nr DO
ngl:=ngl+1;k:=nr+i;CG(k,2):=ngl;END;LOCAL
ncol,mbr,nvig,ici,icf;ncol:=np*nr;mbr:=ncol+(nr-1)*np;nvig:=mbr-
ncol;ici:=0;icf:=nr;LOCAL ini:=MAKEMAT(0,ncol);LOCAL
fin:=MAKEMAT(0,ncol);FOR i:=1 TO ncol DO
ici:=ici+1;icf:=icf+1;ini(i):=ici;fin(i):=icf;END;LOCAL ii;ii:=ncol;FOR j:=1 TO np DO
ici:=j*nr;FOR i:=1 TO nr-1 DO
ii:=ii+1;ici:=ici+1;ini(ii):=ici;fin(ii):=ici+1;END;END;LOCAL k;LOCAL
VC:=MAKEMAT(0,mbr,4);FOR i:=1 TO mbr DO FOR k:=1 TO 2 DO
VC(i,k):=CG(ini(i),k);VC(i,k+2):=CG(fin(i),k);END;END;LOCAL
B:=MAKEMAT(0,mbr);LOCAL H:=MAKEMAT(0,mbr);LOCAL
LL:=MAKEMAT(0,mbr);LOCAL EE:=MAKEMAT(0,mbr);LOCAL
II:=MAKEMAT(0,mbr);LOCAL GG:=MAKEMAT(0,mbr);LOCAL
CNI:=MAKEMAT(0,mbr);LOCAL CNF:=MAKEMAT(0,mbr);FOR i:=1 TO mbr DO
B(i):=nombre(i,1);H(i):=nombre(i,2);LL(i):=nombre(i,3);CNI(i):=nombre(i,4);CNF(i):=
nombre(i,5);EE(i):=nombre(i,8)*10;II(i):=nombre(i,11);GG(i):=nombre(i,9)*10;END;L
OCAL b,h,long,iner,c1,c2,L,area;LOCAL fi,ei,jj,mm,m,kf,a,kpf;LOCAL bp,t;LOCAL
SS:=MAKEMAT(0,ngl,ngl);LOCAL k,E,G;FOR i:=1 TO mbr DO long:=LL(i);IF
II(i)==0 AND qwr4==xpre1 THEN b:=B(i);h:=H(i);iner:=b*h^3/12;area:=b*h;ELSE
iner:=II(i);h:=6*iner^(1/4);b:=2*h;END;E:=EE(i);G:=GG(i);ei:=E*iner;c1:=CNI(i);c2:
=CNF(i);L:=long-c1-c2;IF i<=ncol THEN
k:=MAKEMAT(0,4,4);iner:=b*h^3/12;area:=b*h;fi:=(3*E*iner*beta)/(G*area*L*L);kf
:=((4*E*iner)*(1+fi))/(L*(1+4*fi));a:=((2*E*iner)*(1-
2*fi))/(L*(1+4*fi));kpf:=kf;b:=(kf+a)/L;bp:=b;t:=(b+bp)/L;k(1,1):=t;k(2,1):=-
(b+c1*t);k(3,1):=-t;k(4,1):=-
(bp+c2*t);k(2,2):=kf+2*c1*b+c1*c1*t;k(3,2):=b+c1*t;k(4,2):=a+c1*bp+c2*b+c1*c2*t;
k(3,3):=t;k(4,3):=bp+c2*t;k(4,4):=kpf+2*c2*bp+c2*c2*t;k(1,2):=k(2,1);k(1,3):=k(3,1);
k(1,4):=k(4,1);k(2,3):=k(3,2);k(2,4):=k(4,2);k(3,4):=k(4,3);ELSE
k:=MAKEMAT(0,4,4);iner:=b*h^3/12;area:=b*h;fi:=(3*E*iner*beta)/(G*area*L*L);kf
:=((4*E*iner)*(1+fi))/(L*(1+4*fi));a:=((2*E*iner)*(1-
2*fi))/(L*(1+4*fi));kpf:=kf;b:=(kf+a)/L;bp:=b;t:=(b+bp)/L;k(2,2):=kf+2*c1*b+c1*c1*t
;k(2,4):=a+c1*bp+c2*b+c1*c2*t;k(4,2):=k(2,4);k(4,4):=kpf+2*c2*bp+c2*c2*t;END;F
OR j:=1 TO 4 DO jj:=VC(i,j);IF jj==0 THEN CONTINUE;END;FOR m:=1 TO 4 DO
mm:=VC(i,m);IF mm==0 THEN
CONTINUE;END;SS(jj,mm):=SS(jj,mm)+k(j,m);END;END;END;LOCAL
na,nb,Kaa,Kab,Kba,Kbb,ixpr5;na:=np;nb:=ngl-
np;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);
Kbb:=SUB(SS,{na+1,na+1},{ngl,ngl});ixpr5:=Kaa-Kab*inv(Kbb)*Kba;LOCAL
KR:={};KR(1):=ixpr5;KR(2):=SS;RETURN KR;END;Atytz14(Tip,MC,esc)BEGIN
LOCAL α,nud,cx,cy;nud:=Dats(1);α:=Dats(2);cx:=MC(nud,1);cy:=MC(nud,2);IF A==1
THEN IF ACOS(-1)==180 THEN FILLPOLY_P(G4,{cx-
12*COS(α+45),cy+12*SIN(α+45),cx-
12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col137);END;IF ACOS(-1)==π THEN
FILLPOLY_P(G4,{cx-12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx-
12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col137);END;END;IF
A==2 THEN IF ACOS(-1)==180 THEN TEXTOUT_P("●",G4,cx-12*COS(α+70)-
4,cy+12*SIN(α+70)-7,3,Col30);TEXTOUT_P("●",G4,cx-12*COS(α+110)-
4,cy+12*SIN(α+110)-7,3,Col30);FILLPOLY_P(G4,{cx-
12*COS(α+45),cy+12*SIN(α+45),cx-
12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col137);LINE_P(G4,cx-
19*COS(α+55),cy+19*SIN(α+55),cx-
19*COS(α+125),cy+19*SIN(α+125),Col3);END;IF ACOS(-1)==π THEN
TEXTOUT_P("●",G4,cx-12*COS(π*(α+70)/180)-4,cy+12*SIN(π*(α+70)/180)-
7,3,Col30);TEXTOUT_P("●",G4,cx-12*COS(π*(α+110)/180)-
4,cy+12*SIN(π*(α+110)/180)-7,3,Col30);FILLPOLY_P(G4,{cx-
12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx-
12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col137);LINE_P(G4,cx-
19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx-
19*COS(π*(α+125)/180),cy+19*SIN(π*(α+125)/180),Col3);END;END;IF A==3
THEN IF TApEm==2 THEN BLIT_P(G4,cx-
10,cy,cx+11,cy+13,"ApEm",0,0,21,13);END;IF TApEm==4 THEN BLIT_P(G4,cx,cy-
10,cx+12,cy+11,"ApEm",30,20,43,41);END;IF TApEm==3 THEN BLIT_P(G4,cx-
9,cy-13,cx+12,cy,"ApEm",30,0,51,13);END;IF TApEm==1 THEN BLIT_P(G4,cx-
13,cy-10,cx,cy+11,"ApEm",0,20,13,41);END;END;IF A==4 THEN IF TApSe==2
THEN BLIT_P(G4,cx-10,cy,cx+11,cy+13,"ApSe1",0,0,21,13);END;IF TApSe==4
THEN BLIT_P(G4,cx,cy-10,cx+12,cy+11,"ApSe1",30,20,43,41);END;IF TApSe==3
THEN BLIT_P(G4,cx-9,cy-13,cx+12,cy,"ApSe1",30,0,51,13);END;IF TApSe==1
THEN BLIT_P(G4,cx-13,cy-10,cx,cy+11,"ApSe1",0,20,13,41);END;END;IF A==5
THEN LOCAL kx,ky,kθ;ky:=Dats(2);kx:=Dats(3);kθ:=Dats(4);IF kx>0 THEN
BLIT_P(G4,cx-18,cy-
10,cx+1,cy+10,CHAR({82,101,115,111,114,116,101}),0,27,19,46);END;IF kx<0
THEN BLIT_P(G4,cx,cy-
10,cx+19,cy+10,CHAR({82,101,115,111,114,116,101}),23,27,41,46);END;IF ky>0
THEN BLIT_P(G4,cx-
9,cy,cx+10,cy+20,CHAR({82,101,115,111,114,116,101}),0,0,19,20);END;IF ky<0
THEN BLIT_P(G4,cx-9,cy-
20,cx+10,cy,CHAR({82,101,115,111,114,116,101}),22,0,41,20);END;IF kθ≠0 AND
Nnud==Eqx THEN BLIT_P(G4,cx-9,cy-
9,cx+17,cy+10,CHAR({82,101,115,111,114,116,101}),6,54,34,73);END;END;IF
A==6 THEN IF Dats(2)≠0 THEN TEXTOUT_P("δx:"+Dats(2),G4,cx,cy-
2,1,Col111);END;IF Dats(3)≠0 THEN TEXTOUT_P("δy:"+Dats(3),G4,cx-
10,cy+33,1,Col111);END;IF Dats(4)≠0 THEN TEXTOUT_P("φ:"+Dats(4),G4,cx-
5,cy+2,1,Col111);END;END;FOR I FROM 1 TO B DO END;FOR I FROM 1 TO N
DO RECT_P(G4,MC(I,1)-1,MC(I,2)-1,MC(I,1)+1,MC(I,2)+1,Col12);END;FOR I
FROM 1 TO N DO IF I==nud AND Nnud==Eqx THEN RECT_P(G4,MC(I,1)-
1,MC(I,2)-1,MC(I,1)+1,MC(I,2)+1,Col12);END;END;IF Tip==1 THEN
BLIT_P(G0,0,20,320,240,G4,0+Zx,0+Zy,320+Zx,240+Zy);END;END;Lprop:={};InPr
op;Prop(cx,cy,anc,posf,nf,cont)BEGIN
RECT_P(cx+2,cy+2,cx+anc+2,cy+15*nf+5+2,Col135);RECT_P(cx,cy,cx+anc,cy+15*n
f+5,Col130);FOR I FROM 1 TO nf DO Rg1(I):={{cx,cy+15*(I-
1)},{cx+anc,cy+15*I}};TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I-
1)+5,2,Col142);TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I-
1)+5,2,Col142);TEXTOUT_P("✔",cx+3,cy+15*(I-1)+6,1,Col132);IF posf(I)==1 AND
Nnud==Eqx THEN TEXTOUT_P("✔",cx+3,cy+15*(I-1)+6,1,Col118);END;END;IF
cont==1 AND Nnud==Eqx THEN Atytzad25();END;END;Atytzad25()BEGIN LOCAL
touch1,h1,h2;REPEAT WAIT(-1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF
SIZE(touch1)THEN LOCAL m,p1,p2;FOR h1 FROM 1 TO SIZE(Rg1)DO
m:=Rg1(h1);p1:=m(1);p2:=m(2);IF p1(1)<=touch1(3)<=p2(1)AND
p1(2)<=touch1(4)<=p2(2)THEN CASE IF Lprop(h1)==0 AND Nnud==Eqx THEN
Lprop(h1):=1;END;IF Lprop(h1)==1 AND Nnud==Eqx THEN
Lprop(h1):=0;END;END;Prop(95,InProp,70,Lprop,B,1);BREAK(2);END;END;END;U
NTIL ISKEYDOWN(30)or ISKEYDOWN(4);END;TactilSec()BEGIN LOCAL
touch1;REPEAT WAIT(-1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF
SIZE(touch1)THEN IF 10<=touch1(3)<=90 THEN IF 53<=touch1(4)<73 THEN
RECT_P(17,55,83,73,Col130);TEXTOUT_P("1.General",20,60,1,Col148);WAIT(0.5);
TSec:=1;BREAK;END;IF 73<=touch1(4)<93 AND Nnud==Eqx THEN
RECT_P(17,75,83,93,Col130);TEXTOUT_P("2.Rectangular",20,80,1,Col148);WAIT(0
.5);TSec:=2;BREAK;END;IF 93<=touch1(4)<113 THEN
RECT_P(17,95,83,113,Col130);TEXTOUT_P("3.Circular",20,100,1,Col148);WAIT(0.
5);TSec:=3;BREAK;END;END;END;UNTIL
ISKEYDOWN(4);END;Atytz13()BEGIN LOCAL
secc;secc:={CHAR({71,101,110,101,114,97,108}),CHAR({82,101,99,116,97,110,103,
117,108,97,114}),CHAR({67,105,114,99,117,108,97,114})};RECT_P(2,23,96,190,Col
3,Col128);RECT_P(2,23,96,53,Col3,Col128);RECT_P(2,23,95,37,RGB(0,56,230));TE
XTOUT_P(CHAR({80,82,79,80,73,69,68,65,68}),5,25,2,Col128);TEXTOUT_P(CHA
R({80,82,79,80,73,69,68,65,68}),6,25,2,Col128);TEXTOUT_P(CHAR({78,111,109,98
,114,101,32,58}),5,41,1,Col1);TEXTOUT_P(CHAR({80,114,111,112,46}),54,42,1,Col
3);TEXTOUT_P(cnP,80,40,2,Col118);TEXTOUT_P(cnP,81,40,2,Col118);RECT_P(2,5
3,96,70,Col3,Col128);TEXTOUT_P("Sec.
:",5,58,1,Col1);TEXTOUT_P(secc(TSec),30,58,1,Col118);TEXTOUT_P("▼",87,55,3,
Col118);RECT_P(20,142,80,158,Col3);TEXTOUT_P(CHAR({84,111,100,111,115}),3
0,145,2,Col128);TEXTOUT_P(CHAR({84,111,100,111,115}),31,145,2,Col128);
RECT_P(10,167,90,183,Col3);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,105,
99,111,115}),20,170,2,Col128);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,105
,99,111,115}),21,170,2,Col128);IF TSec==1 AND Nnud==Eqx THEN
TEXTOUT_P("A",4,77,2,Col137);TEXTOUT_P("A",5,77,2,Col137);TEXTOUT_P("I"
,4,97,2,Col137);TEXTOUT_P("I",5,97,2,Col137);TEXTOUT_P("E",4,117,2,Col137);T
EXTOUT_P("E",5,117,2,Col137);TEXTOUT_P("m2",79,62+17,1,Col3);TEXTOUT_P
("m4",79,82+17,1,Col3);TEXTOUT_P("kN",80,97+17,1,Col3);LINE_P(78,107+17,94,
107+17,Col3);TEXTOUT_P("m2",80,109+17,1,Col3);Dats:={1,1,Elas};Regs:={{{13,5
8+17},{75,71+17}},{{13,78+17},{75,91+17}},{{13,98+17},{75,111+17}}};Datsbmq(
3,7);END;IF TSec==2 AND Nnud==Eqx THEN
TEXTOUT_P("b",15,77,2,Col137);TEXTOUT_P("b",16,77,2,Col137);TEXTOUT_P("
h",15,97,2,Col137);TEXTOUT_P("h",16,97,2,Col137);TEXTOUT_P("E",4,117,2,Col1
37);TEXTOUT_P("E",5,117,2,Col137);TEXTOUT_P("m",70,62+17,1,Col3);TEXTOU
T_P("m",70,82+17,1,Col3);TEXTOUT_P("kN",80,97+17,1,Col3);LINE_P(78,107+17,
94,107+17,Col3);TEXTOUT_P("m2",80,109+17,1,Col3);Dats:={0.25,0.45,Elas};Regs:
={{{25,58+17},{65,71+17}},{{25,78+17},{65,91+17}},{{13,98+17},{75,111+17}}};
Datsbmq(3,7);END;IF TSec==3 AND Nnud==Eqx THEN
TEXTOUT_P("d",15,77,2,Col137);TEXTOUT_P("d",16,77,2,Col137);TEXTOUT_P("
E",4,117,2,Col137);TEXTOUT_P("E",5,117,2,Col137);TEXTOUT_P("m",70,62+17,1,
Col3);TEXTOUT_P("kN",80,97+17,1,Col3);LINE_P(78,107+17,94,107+17,Col3);TE
XTOUT_P("m2",80,109+17,1,Col3);Dats:={0.25,Elas};Regs:={{{25,58+17},{65,71+1
7}},{{13,98+17},{75,111+17}}};Datsbmq(2,7);END;END;Atytzad21(Tip,Sig)BEGIN
NNudo:=100;IF NBarra<=B THEN LOCAL m;IF Sig==1 AND Nnud==Eqx THEN
Datsbmq111(NBarra):=VecC;NBarra:=NBarra+1;IF NBarra<=B THEN
m:=Datsbmq111(NBarra);VecC:={};VecC(1):=m(1);END;END;IF NBarra<=B THEN
Long:=sqrt((M0(M1(NBarra,2),2)-M0(M1(NBarra,1),2))^2+(M0(M1(NBarra,2),1)-
M0(M1(NBarra,1),1))^2);Atytz16(0);RECT_P(2,23,96,205,RGB(61,123,245),Col128);
RECT_P(2,23,95,37,RGB(0,56,230));RECT_P(2,37,96,58,RGB(61,123,245),Col128);T
EXTOUT_P(CHAR({67,65,82,71,65,83}),6,25,2,Col128);TEXTOUT_P(CHAR({67,6
5,82,71,65,83}),7,25,2,Col128);TEXTOUT_P(CHAR({69,108,101,109,101,110,116,11
1}),6,43,2,Col1);TEXTOUT_P("# "+NBarra,59,43,2,Col118);TEXTOUT_P("#
"+NBarra,59,43,2,Col118);TEXTOUT_P("➲",81,38,4,Col3);TEXTOUT_P(CHAR({80
,117,110,116,117,97,108}),4,64,1,Col148);TEXTOUT_P(CHAR({68,105,115,116,114,
105,98,117,105,100,97}),42,64,1,Col132);IF Tip==1 THEN IF OriCarga==1 THEN
RECT_P(7,146,48,171,Col132,Col128);RECT_P(52,146,93,171,Col12,Col129);END;I
F OriCarga==2 THEN
RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;L
INE_P(20,163,30,163,Col111);TEXTOUT_P("▶
",30,159,1,Col111);RECT_P(10,166,45,167,Col148);LINE_P(74,150,74,160,Col111);T
EXTOUT_P("▼",71,159,1,Col111);RECT_P(55,166,90,167,Col148);RECT_P(4,74,41
,76,Col118);TEXTOUT_P(CHAR({80,117,110,116,117,97,108}),4,64,1,Col148);TEX
TOUT_P(CHAR({68,105,115,116,114,105,98,117,105,100,97}),42,64,1,Col132);TEX
TOUT_P(CHAR({68,105,115,116,97,110,99,105,97,32,58}),7,87,1,Col137);TEXTOU
T_P(CHAR({70,117,101,114,122,97,32,58}),19,102,1,Col137);TEXTOUT_P(CHAR({
77,111,109,101,110,116,111,32,58}),3,117,1,Col137);RECT_P(5,180,48,198,Col3);TE
XTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR({65,99,1
01,112}),13,184,2,Col128);RECT_P(52,180,93,198,Col101);TEXTOUT_P("Elim",62,1
84,2,Col128);TEXTOUT_P("Elim",62,184,2,Col128);Dats:={0,0,0};Regs:={{{56,82},
{91,95}},{{56,97},{91,110}},{{56,112},{91,125}}};DatsbmqCargas(3,4);END;IF
Tip==2 AND Nnud==Eqx THEN IF OriCarga==1 THEN
RECT_P(52,146,93,171,Col12,Col129);RECT_P(7,146,48,171,Col132,Col128);END;I
F OriCarga==2 THEN
RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;F
OR I FROM 1 TO 4 DO LINE_P(10+5*(I-1),163,10+8*I,163,Col111);TEXTOUT_P("
▶
",8+8*(I),159,1,Col111);END;RECT_P(10,166,45,167,Col148);LINE_P(57,150,87,150
,Col111);FOR I FROM 1 TO 7 DO LINE_P(57+5*(I-1),150,57+5*(I-
1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,1
67,Col148);RECT_P(41,74,94,76,Col118);TEXTOUT_P(CHAR({80,117,110,116,117,
97,108}),4,64,1,Col132);TEXTOUT_P(CHAR({68,105,115,116,114,105,98,117,105,1
00,97}),42,64,1,Col148);TEXTOUT_P(CHAR({88,32,105,110,105,32,58}),10,87,1,Co
l137);TEXTOUT_P(CHAR({88,32,102,105,110,32,58}),10,102,1,Col137);TEXTOUT
_P(CHAR({87,32,105,110,105,32,58}),6,117,1,Col137);TEXTOUT_P(CHAR({87,32,
102,105,110,32,58}),6,132,1,Col137);RECT_P(5,180,48,198,Col3);TEXTOUT_P(CH
AR({65,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR({65,99,101,112}),13,18
4,2,Col128);RECT_P(52,180,93,198,Col101);TEXTOUT_P("Elim",62,184,2,Col128);
TEXTOUT_P("Elim",62,184,2,Col128);Dats:={0,0,0,0};Regs:={{{40,82},{90,95}},{{
40,97},{90,110}},{{40,112},{90,125}},{{40,127},{90,140}}};DatsbmqCargas(4,5);E
ND;END;END;Atytz16(0);END;Atytzad20(Sig)BEGIN NBarra:=100;IF NNudo<=N
THEN IF Sig==1 THEN
M0(NNudo,3):=Dats(1);M0(NNudo,4):=Dats(2);M0(NNudo,5):=Dats(3);Dats:={0,0,0}
;NNudo:=NNudo+1;END;IF NNudo<=N AND Nnud==Eqx THEN
RECT_P(2,23,96,145,RGB(61,123,245),Col128);RECT_P(2,23,95,37,RGB(0,56,230));
RECT_P(2,37,96,57,RGB(61,123,245),Col128);TEXTOUT_P("CARGAS",6,25,2,Col1
28);TEXTOUT_P("CARGAS",7,25,2,Col128);TEXTOUT_P("Nudo",5,42,2,Col1);TE
XTOUT_P("Nudo",6,42,2,Col1);TEXTOUT_P("#
"+NNudo,50,42,2,Col118);TEXTOUT_P("#
"+NNudo,51,42,2,Col118);TEXTOUT_P("➲",75,36,4,Col3);TEXTOUT_P("Fx
:",10,68,1,Col137);TEXTOUT_P("Fy :",10,83,1,Col137);TEXTOUT_P("Mz
:",8,98,1,Col137);RECT_P(20,120,80,138,Col3);TEXTOUT_P(CHAR({65,99,101,112,
116,97,114}),30,124,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,
124,2,Col128);Atytz16(0);Regs:={{{30,63},{90,76}},{{30,78},{90,91}},{{30,93},{90
,106}}};DatsbmqCargas(3,6);END;END;Atytz16(0);END;fldth7(nombre,nod,np,nr,nd)
BEGIN LOCAL CG;LOCAL ngl:=0;LOCAL k:=nr;LOCAL
i,j;CG:=MAKEMAT(0,nod,2);FOR i:=1 TO np DO ngl:=ngl+1;FOR j:=1 TO nr DO
k:=k+1;CG(k,1):=ngl;END;END;FOR i:=1 TO nod-nr DO
ngl:=ngl+1;k:=nr+i;CG(k,2):=ngl;END;LOCAL
ncol,mbr,nvig,ici,icf;ncol:=np*nr;mbr:=ncol+(nr-1)*np;nvig:=mbr-
ncol;ici:=0;icf:=nr;LOCAL ini:=MAKEMAT(0,ncol);LOCAL
fin:=MAKEMAT(0,ncol);FOR i:=1 TO ncol DO
ici:=ici+1;icf:=icf+1;ini(i):=ici;fin(i):=icf;END;LOCAL ii;ii:=ncol;FOR j:=1 TO np DO
ici:=j*nr;FOR i:=1 TO nr-1 DO
ii:=ii+1;ici:=ici+1;ini(ii):=ici;fin(ii):=ici+1;END;END;LOCAL
B:=MAKEMAT(0,mbr);LOCAL H:=MAKEMAT(0,mbr);LOCAL
L:=MAKEMAT(0,mbr+nd);LOCAL EE:=MAKEMAT(0,mbr);LOCAL
tt:=MAKEMAT(0,mbr);LOCAL Em;FOR i:=1 TO mbr DO
B(i):=nombre(i,1);H(i):=nombre(i,2);L(i):=nombre(i,3);EE(i):=nombre(i,8)*10;tt(i):=no
mbre(i,12);END;FOR i:=mbr+1 TO mbr+nd DO
ini(i):=nombre(i,1);fin(i):=nombre(i,2);L(i):=nombre(i,3);EE(i):=nombre(i,8)*10;tt(i):=
nombre(i,12);END;LOCAL k;LOCAL VC:=MAKEMAT(0,mbr,4);FOR i:=1 TO mbr
DO FOR k:=1 TO 2 DO
VC(i,k):=CG(ini(i),k);VC(i,k+2):=CG(fin(i),k);END;END;FOR i:=mbr+1 TO mbr+nd
DO VC(i,1):=CG(ini(i),1);VC(i,2):=0;VC(i,4):=0;VC(i,3):=CG(fin(i),1);END;LOCAL
icod:=0;LOCAL b,h,long,iner;LOCAL ei,jj,mm,m;LOCAL
SS:=MAKEMAT(0,ngl,ngl);LOCAL k,E,Em;LOCAL a,area,rig,nvig;LOCAL
dx,dy,CosT,SenT;FOR i:=1 TO mbr+nd DO IF i<=mbr THEN
b:=B(i);h:=H(i);long:=L(i);iner:=b*h^3/12;E:=EE(i);ei:=E*iner;END;CASE IF i<=ncol
THEN k:=MAKEMAT(0,4,4);k(1,1):=12*ei/long^3;k(1,2):=-6*ei/long^2;k(1,3):=-
k(1,1);k(1,4):=k(1,2);k(2,1):=k(1,2);k(2,2):=4*ei/long;k(2,3):=-
k(1,2);k(2,4):=2*ei/long;k(3,1):=k(1,3);k(3,2):=k(2,3);k(3,3):=k(1,1);k(3,4):=6*ei/long^
2;k(4,1):=k(1,4);k(4,2):=k(2,4);k(4,3):=k(3,4);k(4,4):=k(2,2);END;IF i>ncol AND
i<=mbr THEN
k:=MAKEMAT(0,4,4);k(2,2):=4*ei/long;k(2,4):=2*ei/long;k(4,2):=k(2,4);k(4,4):=k(2,2
);END;IF i>mbr THEN
long:=L(i);Em:=EE(i);a:=long/4;area:=a*tt(i);rig:=Em*area/long;nvig:=(nr-
1)*np;dx:=nombre(i,4);dy:=nombre(i,5);CosT:=dx/long;SenT:=dy/long;k:=MAKEMA
T(0,4,4);k(1,1):=rig*CosT^2;k(3,3):=k(1,1);k(1,3):=-
k(1,1);k(3,1):=k(1,3);END;END;FOR j:=1 TO 4 DO jj:=VC(i,j);IF jj==0 THEN
CONTINUE;END;FOR m:=1 TO 4 DO mm:=VC(i,m);IF mm==0 THEN
CONTINUE;END;SS(jj,mm):=SS(jj,mm)+k(j,m);END;END;END;LOCAL
na,nb,Kaa,Kab,Kba,Kbb,ixpr5;na:=np;nb:=ngl-
np;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);
Kbb:=SUB(SS,{na+1,na+1},{ngl,ngl});ixpr5:=Kaa-Kab*inv(Kbb)*Kba;LOCAL
KR:={};KR(1):=ixpr5;KR(2):=SS;RETURN KR;END;zvfgk7(xpe3,rtyh2)BEGIN
dfg4:=1;pxtrf7(dfg4,xpe3,rtyh2);dfg4:=2;pxtrf7(dfg4,xpe3,rtyh2);END;pxtrf7(dfg4,xpe
3,rtyh2)BEGIN LOCAL Mat_A;LOCAL j,k,m,a,f,e;LOCAL
Suma,MX,MY,nX,nY;MX:=qwr2/2;MY:=qwr3/2;LOCAL
AA,AB,AC,CLP,dist;Mat_A:=MAKEMAT(0,rtyh2,rtyh2*xpe3);a:=1;IF dfg4==1
THEN AA:=identity(rtyh2);AB:=MAKEMAT(0,rtyh2,rtyh2);e:=0;FOR j:=1 TO rtyh7
DO CLP:=SUB(dfg3,{a,1},{rtyh8+a-1,2});a:=a+rtyh8;dist:=MY-
CLP(1,2);AC:=dist*identity(rtyh2);FOR k:=1 TO rtyh2 DO FOR m:=1 TO rtyh2 DO
CASE IF xpe3==1 THEN Mat_A(k,m):=AA(k,m);END;IF xpe3==2 THEN
Mat_A(k,m):=AA(k,m);Mat_A(k,m+rtyh2):=AC(k,m);END;IF xpe3==3 THEN
Mat_A(k,m):=AA(k,m);Mat_A(k,m+rtyh2):=AB(k,m);Mat_A(k,m+2*rtyh2):=AC(k,m)
;END;END;END;END;zsc1(j):=CLP;xpre14(j):=Mat_A;e:=e+rtyh2;END;ELSE
AA:=MAKEMAT(0,rtyh2,rtyh2);AB:=identity(rtyh2);e:=0;FOR j:=1 TO rtyh8 DO
f:=0;CLP:=[[0]];FOR k:=1 TO rtyh7 DO
CLP(k,1):=dfg3(f+a,1);CLP(k,2):=dfg3(f+a,2);f:=f+rtyh8;END;a:=a+1;dist:=CLP(1,1)-
MX;AC:=dist*identity(rtyh2);FOR k:=1 TO rtyh2 DO FOR m:=1 TO rtyh2 DO CASE
IF xpe3==1 THEN Mat_A(k,m):=AA(k,m);END;IF xpe3==2 THEN
Mat_A(k,m):=AA(k,m);Mat_A(k,m+rtyh2):=AC(k,m);END;IF xpe3==3 THEN
Mat_A(k,m):=AA(k,m);Mat_A(k,m+rtyh2):=AB(k,m);Mat_A(k,m+2*rtyh2):=AC(k,m)
;END;END;END;END;zsc2(j):=CLP;xpre15(j):=Mat_A;e:=e+rtyh2;END;END;END;ff
llq9(V,H,x,y,Gi,xH,ly)BEGIN LOCAL h,t,lx;LOCAL
ex,ey,cx,cy,ccx,ccy,vX,vY;LOCAL cC,dh,dv,ax,ay,ap,vv,axo;LOCAL
ayo,pmx,pmy,pny:=CHAR({111,110}),pnx;V:=120*FLOOR(V/120)+360;H:=120*FL
OOR(H/120)+360;ex:=(H-360)/120+1;cx:=320/(ex);xH:=xH+pny;ey:=(V-
240)/120+1;pnx:=EXPR(xH);cy:=240/(ey);lx:=MID(pnx,137+2,7);DIMGROB_P(G8,3
20,240);REPEAT t:=B→R(WAIT(-1));vX:=0;vY:=0;CASE IF TYPE(t)==6 AND
qwr4==xpre1 THEN
cC:={0,0,0,0};vX:=0;vY:=0;ax:=B→R(MOUSE(0));ay:=B→R(MOUSE(1));ap:=B→R
(MOUSE(4));IF ap==2 AND lx==ly THEN IF vv==0 THEN
vv:=1;axo:=MOUSE(2);ayo:=MOUSE(3);END;IF ax>axo AND lx==ly THEN
cC(1):=cC(1)+(ax-axo);ELSE cC(3):=cC(3)+(axo-ax);END;IF ay>ayo AND lx==ly
THEN cC(2):=cC(2)+(ay-ayo);ELSE cC(4):=cC(4)+(ayo-
ay);END;axo:=ax;ayo:=ay;vX:=1;vY:=1;ELSE vv:=0;END;x:=MAX(MIN(x-
cC(1)+cC(3),H-320),0);y:=MAX(MIN(y-cC(2)+cC(4),V-
240),0);pmx:=FLOOR(x/160);pmy:=FLOOR(y/120);BLIT_P(G8,0,0,Gi,x,y,320+x,240
+y);IF vX==1 AND lx==ly AND H>320 THEN RECT_P(G8,0,240,320,240-
3,RedB,PlomoA);RECT_P(G8,cx*pmx,240,cx*(pmx+1),240-2,RedA);END;IF vY==1
AND lx==ly AND V>240 THEN RECT_P(G8,320,0,320-3,240,RedB,PlomoA);
RECT_P(G8,320,cy*pmy,320-
2,cy*(pmy+1),RedA);END;ccx:=FLOOR(x/120);ccy:=FLOOR(y/120);BLIT_P(G0,G8)
;END;IF TYPE(t)==0 THEN IF ISKEYDOWN(4)THEN BREAK;END;IF lx==ly
AND ISKEYDOWN(12)THEN y:=MIN(y+120*ISKEYDOWN(12),V);IF y>=V-240
AND lx==ly THEN y:=V-240;END;vY:=0;IF ccy<ey-1 AND lx==ly THEN
ccy:=ccy+1;ELSE vY:=1;END;END;IF lx==ly AND ISKEYDOWN(2)THEN
y:=MAX(y-120*ISKEYDOWN(2),0);vY:=0;IF ccy>0 THEN ccy:=ccy-1;ELSE
vY:=1;END;END;IF ISKEYDOWN(8)THEN
x:=MIN(x+120*ISKEYDOWN(8),H+360);y:=MIN(y+120*ISKEYDOWN(12),V);vX:
=0;IF x>=H-360 AND lx==ly THEN x:=H-360;END;IF ccx<ex-1 AND lx==ly THEN
ccx:=ccx+1;ELSE vX:=1;END;END;IF lx==ly AND ISKEYDOWN(7)THEN
x:=MAX(x-120*ISKEYDOWN(7),0);vX:=0;IF ccx>0 AND lx==ly THEN ccx:=ccx-
1;ELSE vX:=1;END;END;BLIT_P(G8,0,0,Gi,x,y,320+x,240+y);IF vX==0 THEN IF
ISKEYDOWN(7)OR ISKEYDOWN(8)THEN RECT_P(G8,0,240,320,240-
3,RedB,PlomoA);RECT_P(G8,cx*ccx,240,cx*(ccx+1),240-2,RedA);END;END;IF
vY==0 THEN IF ISKEYDOWN(2)OR ISKEYDOWN(12)THEN
RECT_P(G8,320,0,320-3,240,RedB,PlomoA);RECT_P(G8,320,cy*ccy,320-
2,cy*(ccy+1),RedA);END;END;BLIT_P(G0,G8);END;END;UNTIL
0;END;Atytz16(Tip)BEGIN LOCAL
esc,MC,s1,s2,px,py,CSDats,CSTip;DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,21
0,Col128);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,75,198,1,Col132
);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,76,198,1,Col132);CSTip:
=Tip;CSDats:=Dats;LOCAL hh,nn;FOR hh FROM 1 TO SIZE(DAp)DO
nn:=DAp(hh);A:=nn(3);Dats:=nn(4);TApEm:=nn(5);TApSe:=nn(6);Atytz17(2);END;M
C:=M0;px:=215;py:=200;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-1))==0
THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN
esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO N DO MC(I,1):=s1+MC(I,1);MC(I,2):=py-s2-MC(I,2);END;LOCAL
h,m,n,ME,escw;ME:=[[0]];IF SIZE(DCgB)≠0 THEN FOR h FROM 1 TO
SIZE(DCgB)DO m:=DCgB(h);n:=m(3);IF m(2)==1 THEN
ME(rowDim(ME)+1,1):=ABS(n(2));END;IF m(2)==2 AND Nnud==Eqx THEN
ME(rowDim(ME)+1,1):=ABS(n(3));ME(rowDim(ME)+1,1):=ABS(n(4));END;END;IF
ERR escw:=17/MAX(ME(-1));THEN escw:=17/100;END;END;FOR J FROM 1 TO
SIZE(DCgB)DO m:=DCgB(J);I:=m(1);Tip:=m(2);Dats:=m(3);OriCarga:=m(4);IF
Tip==1 THEN IF OriCarga==1 AND Nnud==Eqx THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(2)>0 AND Dats(1)≠0 THEN
xf:=xi+escw*Dats(2)*M1(I,11);yf:=yi+escw*Dats(2)*M1(I,10);LINE_P(G3,xi,yi,xf,yf,
Col111);TEXTOUT_P(Dats(2),G3,xf+1,yf,1,Col111);LOCAL
xf2,yf2;xf:=MC(M1(I,1),1)+(Dats(1)-2/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)-
2/esc)*esc*M1(I,11);xf2:=MC(M1(I,1),1)+(Dats(1)+2/esc)*esc*M1(I,10);yf2:=MC(M1
(I,1),2)-
(Dats(1)+2/esc)*esc*M1(I,11);FILLPOLY_P(G3,{(xi,yi),(xf+2*M1(I,11),yf+2*M1(I,1
0)),(xf2+2*M1(I,11),yf2+2*M1(I,10))},Col111);END;IF Dats(2)<0 AND Dats(1)≠0
THEN
xf:=xi+escw*Dats(2)*M1(I,11);yf:=yi+escw*Dats(2)*M1(I,10);LINE_P(G3,xi,yi,xf,yf,
Col111);TEXTOUT_P(-Dats(2),G3,xf+1,yf-8,1,Col111);LOCAL
xf2,yf2;xf:=MC(M1(I,1),1)+(Dats(1)-2/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)-
2/esc)*esc*M1(I,11);xf2:=MC(M1(I,1),1)+(Dats(1)+2/esc)*esc*M1(I,10);yf2:=MC(M1
(I,1),2)-(Dats(1)+2/esc)*esc*M1(I,11);FILLPOLY_P(G3,{(xi,yi),(xf-2*M1(I,11),yf-
2*M1(I,10)),(xf2-2*M1(I,11),yf2-2*M1(I,10))},Col111);END;END;IF Dats(1)≠0 AND
Dats(3)≠0 THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(3)>0 AND Nnud==Eqx THEN
TEXTOUT_P("↺",G3,xi-8,yi-10,5,Col54);TEXTOUT_P(Dats(3),G3,xi+6,yi-
4,1,Col54);ELSE TEXTOUT_P("↻",G3,xi-8,yi-
10,5,Col54);TEXTOUT_P(Dats(3),G3,xi+6,yi-4,1,Col54);END;END;IF OriCarga==2
THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);IF Dats(2)>0 AND Dats(1)≠0 THEN
xf:=MC(M1(I,1),1)+(Dats(1)-15/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(Dats(1)-
15/esc)*esc*M1(I,11);TEXTOUT_P(Dats(2),G3,xf-3,yf,1,Col111);LINE_P(G3,xi-
3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf-
3*M1(I,10),Col111);xf:=MC(M1(I,1),1)+(Dats(1)-
3/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(Dats(1)-
3/esc)*esc*M1(I,11);FILLPOLY_P(G3,{(xi-3*M1(I,11),yi-3*M1(I,10)),(xf-
5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf-1*M1(I,10))},Col111);END;IF
Dats(2)<0 AND Dats(1)≠0 THEN
xf:=MC(M1(I,1),1)+(Dats(1)+15/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(Dats(1)+15/esc)*esc*M1(I,11);TEXTOUT_P(-Dats(2),G3,xf+1,yf-
8,1,Col111);LINE_P(G3,xi-3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf-
3*M1(I,10),Col111);xf:=MC(M1(I,1),1)+(Dats(1)+3/esc)*esc*M1(I,10);yf:=MC(M1(I,
1),2)-(Dats(1)+3/esc)*esc*M1(I,11);FILLPOLY_P(G3,{(xi-3*M1(I,11),yi-
3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf-
1*M1(I,10))},Col111);END;END;END;IF Tip==2 THEN IF OriCarga==1 AND
Nnud==Eqx THEN LOCAL xi,xf,yi,yf,l;LOCAL x,w,ec,cxi,cyi;l:=(Dats(2)-
Dats(1))*esc;x:=CAS(CAS("x"));ec:=(Dats(1)*Dats(4)-Dats(3)*Dats(2)+Dats(3)*x-
Dats(4)*x)/(Dats(1)-Dats(2));IF(Dats(3)==0 AND Dats(4)>0)OR(Dats(3)>0 AND
Dats(4)==0)OR(Dats(3)>0 AND Dats(4)>0)THEN FOR H FROM 1 TO l STEP 5 DO
x:=CAS(CAS("x"));x:=Dats(1)+H/esc;w:=EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*
M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi+w*M1(I,11);yf:=yi+w*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);
IF H==1 THEN cxi:=xf;cyi:=yf;TEXTOUT_P(Dats(3),G3,xf-
10,yf,1,Col148);END;x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1)
,2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);END;x:=CAS(CAS("x"));x:=Dats(2);w:=EVAL(
ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi+w*M1(I,11);yf:=yi+w*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);
TEXTOUT_P(Dats(4),G3,xf+1,yf,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);x:=x+1/e
sc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi+2*M1(I,11);yi:=yi+2*M1(I,10);xf:=xi+1*M1(I,11);yf:=yi+1*M
1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);END;IF(Dats(3)==0 AND Nnud==Eqx AND
Dats(4)<0)OR(Dats(3)<0 AND Dats(4)==0)OR(Dats(3)<0 AND Dats(4)<0)THEN
FOR H FROM 1 TO l STEP 5 DO x:=CAS(CAS("x"));x:=Dats(1)+H/esc;w:=-
EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi-w*M1(I,11);yf:=yi-
w*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);IF H==1 THEN
cxi:=xf;cyi:=yf;TEXTOUT_P(-Dats(3),G3,xf-10,yf-
5,1,Col148);END;x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xi:=xi-2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-
2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);END;x:=CAS(CAS("x"));x:=Dats(2);w:=-
EVAL(ec)*escw;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=xi-w*M1(I,11);yf:=yi-
w*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G3,xf+1,yf-
5,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);x:=x+1/esc;xi:=MC(M1(I,1),1)+x*esc*M
1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-2*M1(I,11);yi:=yi-
2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x-
2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi-
2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi-
1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);END;END;IF OriCarga==2 AND
Nnud==Eqx THEN LOCAL xi,xf,yi,yf,l;LOCAL x,w,ec,cxi,cyi;l:=(Dats(2)-
Dats(1))*esc;IF(Dats(3)==0 AND Dats(4)>0)OR(Dats(3)>0 AND
Dats(4)==0)OR(Dats(3)>0 AND Dats(4)>0)THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);TEXTOUT_P(Dats(4),G3,xi-10*M1(I,11),yi-
10*M1(I,10),1,Col148);xf:=MC(M1(I,1),1)+Dats(2)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
Dats(2)*esc*M1(I,11);TEXTOUT_P(Dats(3),G3,xf-10*M1(I,11),yf-
10*M1(I,10),1,Col148);FOR H FROM 10 TO l STEP 15 DO
x:=Dats(1)+H/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=MC(M1(I,1),1)+(x-4/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-(x-
4/esc)*esc*M1(I,11);LINE_P(G3,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x-
10/esc)*esc*M1(I,10)-4*M1(I,11),MC(M1(I,1),2)-(x-10/esc)*esc*M1(I,11)-
4*M1(I,10),Col111);FILLPOLY_P(G3,{(xi-4*M1(I,11),yi-4*M1(I,10)),(xf-
6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf-
2*M1(I,10))},Col111);END;END;IF(Dats(3)==0 AND Dats(4)<0)OR(Dats(3)<0 AND
Dats(4)==0)OR(Dats(3)<0 AND Dats(4)<0)THEN LOCAL
xi,xf,yi,yf;xi:=MC(M1(I,1),1)+Dats(1)*esc*M1(I,10);yi:=MC(M1(I,1),2)-
Dats(1)*esc*M1(I,11);TEXTOUT_P(-Dats(3),G3,xi-10*M1(I,11),yi-
10*M1(I,10),1,Col148);xf:=MC(M1(I,1),1)+Dats(2)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
Dats(2)*esc*M1(I,11);TEXTOUT_P(-Dats(4),G3,xf-10*M1(I,11),yf-
10*M1(I,10),1,Col148);FOR H FROM 1 TO l STEP 15 DO
x:=Dats(1)+H/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-
x*esc*M1(I,11);xf:=MC(M1(I,1),1)+(x+4/esc)*esc*M1(I,10);yf:=MC(M1(I,1),2)-
(x+4/esc)*esc*M1(I,11);LINE_P(G3,xi-4*M1(I,11),yi-
4*M1(I,10),MC(M1(I,1),1)+(x+10/esc)*esc*M1(I,10)-4*M1(I,11),MC(M1(I,1),2)-
(x+10/esc)*esc*M1(I,11)-4*M1(I,10),Col111);FILLPOLY_P(G3,{(xi-4*M1(I,11),yi-
4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf-
2*M1(I,10))},Col111);END;END;END;END;END;FOR J FROM 1 TO
SIZE(DCgN)DO m:=DCgN(J);I:=m(1);Tip:=m(2);Dats:=m(3);IF Tip==3 THEN IF
Dats(1)<0 THEN LINE_P(G3,MC(I,1),MC(I,2)-1,MC(I,1)+20,MC(I,2)-
1,Col118);TEXTOUT_P("◀",G3,MC(I,1)+2,MC(I,2)-
8,3,Col118);TEXTOUT_P(ABS(Dats(1)),G3,MC(I,1)+15,MC(I,2)-
10,1,Col118);END;IF Dats(1)>0 THEN LINE_P(G3,MC(I,1),MC(I,2)-1,MC(I,1)-
20,MC(I,2)-1,Col118);TEXTOUT_P("▶",G3,MC(I,1)-9,MC(I,2)-
8,3,Col118);TEXTOUT_P(ABS(Dats(1)),G3,MC(I,1)-20,MC(I,2)-
10,1,Col118);END;IF Dats(2)<0 THEN LINE_P(G3,MC(I,1)-1,MC(I,2),MC(I,1)-
1,MC(I,2)-20,Col118);TEXTOUT_P("▼",G3,MC(I,1)-5,MC(I,2)-
12,3,Col118);TEXTOUT_P(ABS(Dats(2)),G3,MC(I,1)-10,MC(I,2)-
30,1,Col118);END;IF Dats(2)>0 THEN LINE_P(G3,MC(I,1)-1,MC(I,2),MC(I,1)-
1,MC(I,2)+20,Col118);TEXTOUT_P("▲",G3,MC(I,1)-5,MC(I,2)-
3,3,Col118);TEXTOUT_P(ABS(Dats(2)),G3,MC(I,1)-
10,MC(I,2)+23,1,Col118);END;IF Dats(3)<0 THEN TEXTOUT_P("↻",G3,MC(I,1)-
12,MC(I,2)-14,7,Col101);TEXTOUT_P(ABS(Dats(3)),G3,MC(I,1)-7,MC(I,2)-
17,1,Col101);END;IF Dats(3)>0 THEN TEXTOUT_P("↺",G3,MC(I,1)-12,MC(I,2)-
14,7,Col101);TEXTOUT_P(ABS(Dats(3)),G3,MC(I,1)-7,MC(I,2)-
17,1,Col101);END;END;END;FOR I FROM 1 TO B DO IF I==NBarra AND
Nnud==Eqx THEN DibElemF(0,I,MC,0,G3,Col118);ELSE
DibElemF(0,I,MC,0,G3,Col12);END;END;FOR I FROM 1 TO N DO IF I==NNudo
THEN TEXTOUT_P("●",G3,MC(I,1)-5,MC(I,2)-11,5,RGB(39,239,255));ELSE
RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col3);END;END;Dats:=CSDats;Tip:=CSTip;LINE_P(G3,5,19
0,5,203,Col118);TEXTOUT_P("y",G3,3,177,1,Col118);LINE_P(G3,5,203,20,203,Col2
0);TEXTOUT_P("x",G3,22,198,1,Col20);BLIT_P(G0,100,25,315,235,G3,0,0,215,210);
RETURN MC;END;jjrtg7(K,M,Io,Id,Ta,Iv)BEGIN LOCAL
Rk,Rm,tol,iteMAX,N,nN;Rk:=K;Rm:=M;N:=length(Rk);tol:=0.0001;iteMAX:=10;LO
CAL W:={0},W0:={0},U:=[[0]],cont,i,j,k;FOR i:=1 TO N DO
W0(i):=Rk(i,i)/Rm(i,i);END;LOCAL AA,BB,CC,dis,DD,Alfa,Gama;LOCAL
HKik,HMik,RKik,RMik,Uki;RKik:=MAKELIST(0,X,1,N,1);RMik:=MAKELIST(0,X,
1,N,1);LOCAL EpsW,Epsj;EXPR(Id+Io+Ta)▶
Epsj;U:=identity(N);cont:=0;Ta:=MID(Epsj,3,8);LOCAL aaaa:=ASC(Ta);WHILE 1
DO cont:=cont+1;FOR i:=1 TO N-1 DO FOR j:=i+1 TO N DO AA:=Rk(i,i)*Rm(i,j)-
Rk(i,j)*Rm(i,i);BB:=Rk(i,i)*Rm(j,j)-Rk(j,j)*Rm(i,i);CC:=Rk(j,j)*Rm(i,j)-
Rk(i,j)*Rm(j,j);dis:=(0.5*BB)^2+AA*CC;IF BB<0 AND qwr4==xpre1 THEN
DD:=0.5*BB-sqrt(dis);ELSE DD:=0.5*BB+sqrt(dis);END;IF DD==0 AND
qwr4==xpre1 THEN Alfa:=0;Gama:=-Rk(i,j)/Rk(j,j);ELSE Alfa:=CC/DD;Gama:=-
AA/DD;END;FOR k:=1 TO N DO IF k>j THEN
HKik:=Rk(i,k);HMik:=Rm(i,k);Rk(i,k):=Rk(i,k)+Rk(j,k)*Gama;Rm(i,k):=Rm(i,k)+Rm
(j,k)*Gama;Rk(j,k):=HKik*Alfa+Rk(j,k);
Rm(j,k):=HMik*Alfa+Rm(j,k);ELSE
RKik(k):=Rk(i,k);RMik(k):=Rm(i,k);Rk(i,k):=Rk(i,k)+Rk(k,j)*Gama;Rm(i,k):=Rm(i,k)
+Rm(k,j)*Gama;IF k==j THEN
Rk(j,k):=RKik(k)*Alfa+Rk(j,k);Rm(j,k):=RMik(k)*Alfa+Rm(j,k);END;END;END;RKi
k(j):=RKik(i)*Alfa+RKik(j);RMik(j):=RMik(i)*Alfa+RMik(j);Id:=ASC(Ta);Io:=0;FO
R k:=1 TO 8 DO Io:=Io+Id(k);END;nN:=N*Io/Iv;FOR k:=1 TO nN DO IF k<=i THEN
HKik:=Rk(k,i);HMik:=Rm(k,i);Rk(k,i):=Rk(k,i)+Rk(k,j)*Gama;Rm(k,i):=Rm(k,i)+Rm
(k,j)*Gama;Rk(k,j):=HKik*Alfa+Rk(k,j);Rm(k,j):=HMik*Alfa+Rm(k,j);ELSE
Rk(k,j):=RKik(k)*Alfa+Rk(k,j);Rm(k,j):=RMik(k)*Alfa+Rm(k,j);END;END;Id:=Io/Iv;
FOR k:=Id TO N DO
Uki:=U(k,i);U(k,i):=U(k,i)+U(k,j)*Gama;U(k,j):=Uki*Alfa+U(k,j);END;END;END;FO
R k:=1 TO N DO W(k):=Rk(k,k)/Rm(k,k);END;FOR k:=1 TO N DO EpsW:=(W(k)-
W0(k))/W0(k);IF(abs(EpsW)>tol)AND(cont<30)THEN W0(k):=W(k);ELSE
BREAK(2);END;END;IF(cont>iteMAX)THEN BREAK(1);END;END;FOR i:=1 TO
N DO FOR j:=1 TO N DO U(i,j):=-U(i,j)/sqrt(Rm(j,j));END;END;LOCAL
NM1;NM1:=N-1;FOR k:=1 TO NM1 DO I:=N-k;FOR j:=1 TO I DO IF
W(j)>W(j+1)AND qwr4==xpre1 THEN AA:=W(j);W(j):=W(j+1);W(j+1):=AA;FOR
i:=1 TO N DO
BB:=U(i,j);U(i,j):=U(i,j+1);U(i,j+1):=BB;END;END;END;END;LOCAL
EV:={};EV(2):=U;EV(1):=W;RETURN EV;END;tlitg7(dfg4)BEGIN LOCAL
i,x,y,k,V,H,Gi:=G2;LOCAL Per:={},CoC:={},Acel:={},AcelI:={},vv,TxTb;LOCAL
DIR,Ro,rx,ry;V:=1000;H:=320;IF dfg4==1 THEN DIR:=CHAR({88});Ro:=tgh7;ELSE
DIR:=CHAR({89});Ro:=tgh8;END;DIMGROB_P(G2,H,V);RECT(G2);RECT_P(G2,{
0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({69,83,80,69,67,84,82,79,32,6
8,69,32,82,69,83,80,85,69,83,84,65,32,68,73,82,69,67,67,73,79,78,32})+DIR,G2,40,1.5
,3,White);LOCAL
dx,dy,sa;dx:=5;dy:=20;TEXTOUT_P(CHAR({49,45,69,115,112,101,99,116,114,111,3
2,69,108,97,115,116,105,99,111}),G2,dx,dy,3,RedA);rx:=CHAR({118,101,114});dy:=d
y+20;vv:=0;FOR i:=1 TO 300 DO vv:=vv+0.02;Per(i):=vv;END;FOR i:=1 TO 300 DO
CASE IF Per(i)<xpe1 AND qwr4==xpre1 THEN CoC(i):=2.5;END;IF Per(i)<=xpe2
AND Per(i)>=xpe1 THEN CoC(i):=2.5*(xpe1/Per(i));END;IF Per(i)>xpe2 THEN
CoC(i):=2.5*(xpe1*xpe2)/(Per(i)^2);END;END;END;FOR i:=1 TO 300 DO
Acel(i):=tgh2*CoC(i)*pft3*tgh4*tgh3;END;dy:=dy+40;LOCAL
MaxS,Fe_X,Fe_Y;MaxS:=((FLOOR(MAX(Acel)/5))+1)*5;Fe_X:=240/(MAX(Per));Fe
_Y:=160/MaxS;dx:=38;dy:=dy-25;LOCAL vd:=0,hd;FOR i:=1 TO MaxS/5 DO
vd:=vd+5*Fe_Y;LINE_P(G2,dx,dy+160-vd,dx+240,dy+160-
vd,Plomo);TEXTOUT_P(i*5,G2,dx-15,dy+160-vd,1,Plomo);END;FOR i:=1 TO 6 DO
hd:=hd+1*Fe_X;LINE_P(G2,dx+hd,dy,dx+hd,dy+160,Plomo);TEXTOUT_P(i,G2,dx+
hd-
3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,Str
awRed);ry:=CHAR({115,105});TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1
*Fe_X-
30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,Stra
wRed);TEXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,Str
awRed);LINE_P(G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+
240,dy+160,Red);TEXTOUT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-
5,2,Red);LINE_P(G2,dx-1,dy,dx-
1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,4
7,115,50,41}),G2,dx-25,dy-16,2,Red);TxTb:=CHAR({74,55,51,53,48,51,81});FOR
i:=1 TO 300 DO PIXON_P(G2,dx+Per(i)*Fe_X,dy+160-
Acel(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160-
Acel(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(Acel),2),G2,dx-35,dy+160-
Max(Acel)*Fe_Y-5,2,Blue);dy:=250;dx:=5;TEXTOUT_P("",G2,dx,dy,3,RedA);FOR
i:=1 TO 300 DO AcelI(i):=tgh2*CoC(i)*pft3*tgh4*tgh3/Ro;END;LOCAL
MaxSI,Fe_X,Fe_Y;MaxSI:=((FLOOR(MAX(AcelI)/5))+1)*5;Fe_X:=240/(MAX(Per));
Fe_Y:=160/MaxSI;dx:=38;dy:=dy+50;LOCAL vd:=0,hd;FOR i:=1 TO MaxSI/5 DO
vd:=vd+5*Fe_Y;LINE_P(G2,dx,dy+160-vd,dx+240,dy+160-
vd,Plomo);TEXTOUT_P(i*5,G2,dx-15,dy+160-vd,1,Plomo);END;FOR i:=1 TO 6 DO
hd:=hd+1*Fe_X;LINE_P(G2,dx+hd,dy,dx+hd,dy+160,Plomo);TEXTOUT_P(i,G2,dx+
hd-
3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,Str
awRed);TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1*Fe_X-
30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,Stra
wRed);TEXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,Str
awRed);LINE_P(G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+
240,dy+160,Red);TEXTOUT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-
5,2,Red);LINE_P(G2,dx-1,dy,dx-
1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,4
7,115,50,41}),G2,dx-25,dy-16,2,Red);FOR i:=1 TO 300 DO
PIXON_P(G2,dx+Per(i)*Fe_X,dy+160-
AcelI(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160-
AcelI(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(AcelI),2),G2,dx-35,dy+160-
Max(AcelI)*Fe_Y-5,2,Blue);dy:=dy-
50;sa:=rx+ry;ffllq9(dy,0,x,y,Gi,sa,TxTb);END;ffllq3(Ini,Nom,x,y,L,let,ColA,ColB,Col
C,ColD)BEGIN LOCAL
i,c,cc;c:=length(Nom);cc:=c;RECT_P(x,y,x+L,y+3,ColD,ColA);FOR i:=1 TO c DO
RECT_P({x,y+20*i-17},{x+L,y+20*i+1},ColA);TEXTOUT_P("▷
"+Nom(i),x+5,y+20*i-11,let,ColB);END;RECT_P(x,y+20*Ini-
17,x+L,y+20*Ini+1,ColB,ColC);TEXTOUT_P("▷ "+Nom(Ini),x+5,y+20*Ini-
11,let,ColD);LOCAL
mx,my,tgh3:=1,v:=Ini,vo:=Ini,bbb3;bbb3:=CAS(CAS(CHAR({83,69,82,73,65,76})));R
EPEAT Accion:=B→R(WAIT(-1));CASE IF TYPE(Accion)==6 THEN IF
Accion(1)==0 THEN mx:=Accion(2);my:=Accion(3);FOR j:=1 TO c DO IF
x<mx<x+L AND(y+20*(j-1)+4)<my<(y+20*(j-1)+24)AND bbb3=="9CJ73507JL"
THEN v:=j;FOR i:=1 TO c DO RECT_P({x,y+20*i-
17},{x+L,y+20*i+1},ColA);TEXTOUT_P("▷ "+Nom(i),x+5,y+20*i-
11,let,ColB);END;RECT_P(x,y+20*j-17,x+L,y+20*j+1,ColB,ColC);TEXTOUT_P("▷
"+Nom(v),x+5,y+20*v-11,let,ColD);WAIT(0.2);BREAK(2);END;END;IF(mx<x OR
mx>x+L)OR(my<y OR my>(y+20*c-17))THEN v:=0;BREAK;END;END;END;IF
ISKEYDOWN(2)THEN vo:=v;v:=v-1;IF v<1 THEN v:=c;vo:=1;END;FOR i:=1 TO c
DO RECT_P({x,y+20*i-17},{x+L,y+20*i+1},ColA);TEXTOUT_P("▷
"+Nom(i),x+5,y+20*i-11,let,ColB);END;RECT_P(x,y+20*v-
17,x+L,y+20*v+1,ColB,ColC);TEXTOUT_P("̞▷ "+Nom(v),x+5,y+20*(v)-
11,let,ColD);END;IF ISKEYDOWN(12)THEN vo:=v;v:=v+1;IF v>c THEN
v:=1;END;FOR i:=1 TO c DO RECT_P({x,y+20*i-
17},{x+L,y+20*i+1},ColA);TEXTOUT_P("▷ "+Nom(i),x+5,y+20*i-
11,let,ColB);END;RECT_P(x,y+20*v-17,x+L,y+20*v+1,ColB,ColC);TEXTOUT_P("▷
"+Nom(v),x+5,y+20*(v)-11,let,ColD);END;IF ISKEYDOWN(30)THEN
BREAK;END;IF ISKEYDOWN(4)THEN IF Ini==1 THEN v:=0;BREAK;ELSE
v:=vo;BREAK;END;END;END;UNTIL tgh3==2;RETURN
v;END;hdljt7(T1,T2,x,y,L,H,s)BEGIN
RECT_P(x,y,x+L,y+H,RedA,PlomoA);TEXTOUT_P(T1,x+5,y+4,1,RedA);TEXTOUT
_P(T2,x+9.5,y+16,1,RedA);WAIT(s);END;ldljt7(T1,T2,x,y,L,H,s)BEGIN
RECT_P(x,y,x+L,y+H,AzulTit,PlomoA);TEXTOUT_P(T1,x+8,y+4,2,AzulTit);TEXT
OUT_P(T2,x+8,y+16,2,AzulTit);WAIT(s);END;tdljt7(T1,T2,x,y,L,H,s)BEGIN
LOCAL
R_Ace,R_Can,Cond,mx,my;FILLPOLY_P({(0,0),(320,0),(320,240),(0,240),(0,0)},Plo
mo,150);RECT_P(x,y,x+L,y+H,BlueClasic,Fondo);RECT_P(x+1,y+1,x+L-1,y+H-
1,BlueClasic,Fondo);TEXTOUT_P(CHAR({63}),x+4,y,7,RedA);TEXTOUT_P(T1,x+1
9,y+4,2,AzulTit);TEXTOUT_P(T2,x+19,y+16,2,AzulTit);R_Ace:={{x+L/2-45-
15,y+33},{x+L/2-
5,y+55}};RECT_P(R_Ace(1),R_Ace(2),RedA,Plomo);TEXTOUT_P(CHAR({65,99,10
1,112,116,97,114}),R_Ace(1,1)+5,R_Ace(1,2)+5,2);R_Can:={{x+L/2+10,y+33},{x+L/
2+15+50,y+55}};RECT_P(R_Can(1),R_Can(2),RedA,Plomo);TEXTOUT_P(CHAR({6
7,97,110,99,101,108,97,114}),R_Can(1,1)+4,R_Can(1,2)+5,2);REPEAT WAIT(-1)▶
Accion;IF TYPE(Accion)==6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);CASE IF(R_Ace(1,1))<mx<R_Ace(2,1)AND
R_Ace(1,2)<my<R_Ace(2,2)THEN
Cond:=1;RECT_P(R_Ace(1),R_Ace(2),RedA,RedB);TEXTOUT_P(CHAR({65,99,101,
112,116,97,114}),R_Ace(1,1)+5,R_Ace(1,2)+4,1);WAIT(0.1);BREAK;END;IF(R_Can
(1,1))<mx<R_Can(2,1)AND R_Can(1,2)<my<R_Can(2,2)THEN
Cond:=0;RECT_P(R_Can(1),R_Can(2),RedA,RedB);TEXTOUT_P(CHAR({67,97,110,
99,101,108,97,114}),R_Can(1,1)+4,R_Can(1,2)+4,1);WAIT(0.1);BREAK;END;END;
END;ELSE IF Accion=4 THEN Cond:=0;BREAK;END END;UNTIL 0;RETURN
Cond;END;ldljtr7(T1,x,y,xca,Lca,col,L,H,s)BEGIN LOCAL
k,La,xn,l;La:=trunc(Lca/10);RECT_P(x,y,x+L,y+H,DarkBlue,White);xn:=x+xca;RECT
_P(x+1,y+1,xn-1,y+H-1,col);FOR k:=1 TO La DO RECT_P(xn+1,y+1,xn+10*k-
1,y+H-
1,PlomoA);TEXTOUT_P(T1,x+8,y+2,1,DarkBlue);WAIT(s);END;END;InicioAn()BE
GIN
RECT_P(5,25,113,123,Col140);RECT_P(4,24,112,122,Col136);RECT_P(3,23,111,121
,Col133);RECT_P(2,22,110,120,Col131);LOCAL
cx,cy;cx:=12;cy:=25;FILLPOLY_P({cx,cy,cx+9,cy,cx+14,cy+5,cx+14,cy+15,cx,cy+15
},RGB(255,255,255));TEXTOUT_P("●",cx-4,cy,7,Col5);TEXTOUT_P("+",cx-
2,cy+6,3,RGB(255,255,255));LINE_P(cx+9,cy,cx+9,cy+5,RGB(126,125,127));LINE_P
(cx+9,cy+5,cx+14,cy+5,RGB(126,125,127));TEXTOUT_P(CHAR({78,117,101,118,11
1}),33,29,2,Col148);cx:=7;cy:=47;RECT_P(cx,cy+4,cx+22,cy+17,Col5);FILLPOLY_P
({cx+1,cy,cx+9,cy,cx+14,cy+3,cx+1,cy+3},Col5);TEXTOUT_P(CHAR({65,98,114,10
5,114}),33,50,2,Col148);cx:=8;cy:=70;RECT_P(cx,cy,cx+20,cy+16,Col5);RECT_P(cx
+3,cy,cx+17,cy+6,RGB(255,255,255));RECT_P(cx+3,cy+10,cx+16,cy+16,RGB(255,2
55,255));RECT_P(cx+5,cy+11,cx+7,cy+15,RGB(0,0,0));TEXTOUT_P(CHAR({71,117
,97,114,100,97,114}),33,74,2,Col148);RECT_P(10,102,27,102,Col137);RECT_P(10,10
7,27,107,Col137);RECT_P(10,112,27,112,Col137);RECT_P(21,99,24,105,Col131,Col1
37);RECT_P(13,104,16,110,Col131,Col137);RECT_P(21,109,24,115,Col131,Col137);
TEXTOUT_P(CHAR({67,111,110,102,105,103,117,114,97,99,105,243,110}),33,102,2,
Col148);LINE_P(8,93,102,93,Col135);fsrvtha();END;fsrvtha()BEGIN LOCAL
touch1,cx,cy;REPEAT WAIT(-1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF
SIZE(touch1)THEN IF 0<=touch1(3)<=80 THEN IF 25<=touch1(4)<45 AND
Nnud==Eqx THEN
WN:=1;WB:=1;W:=1;M0:=[[0]];M1:=[[0]];M2:=[[0]];M3:=[[0]];Datsbmq111:={};DC
gN:={};DCgB:={};DAp:={};DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,210,Col
128);FILLPOLY_P({5,22,110,22,110,45,5,45},Col133);cx:=12;cy:=25;FILLPOLY_P(
{cx,cy,cx+9,cy,cx+14,cy+5,cx+14,cy+15,cx,cy+15},RGB(255,255,255));TEXTOUT_P
("●",cx-4,cy,7,Col5);TEXTOUT_P("+",cx-
2,cy+6,3,RGB(255,255,255));LINE_P(cx+9,cy,cx+9,cy+5,RGB(126,125,127));LINE_P
(cx+9,cy+5,cx+14,cy+5,RGB(126,125,127));TEXTOUT_P(CHAR({78,117,101,118,11
1}),33,29,2,Col148);WAIT(0.5);axsdcerf();RECT_P(2,23,96,110,RGB(61,123,245),Col
128);RECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P(CHAR({78,117,101,118,111
}),5,25,2,Col128);TEXTOUT_P(CHAR({78,117,101,118,111}),6,25,2,Col128);TEXT
OUT_P(CHAR({78,117,100,111,115,32,58}),26,45,1,Col1);TEXTOUT_P(CHAR({69,
108,101,109,101,110,116,111,115,32,58}),5,65,1,Col1);RECT_P(20,85,80,103,Col3);T
EXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,89,2,Col128);TEXTOUT_P(CH
AR({65,99,101,112,116,97,114}),30,89,2,Col128);LINE_P(G3,5,190,5,203,Col118);T
EXTOUT_P("y",G3,3,177,1,Col118);LINE_P(G3,5,203,20,203,Col20);TEXTOUT_P("
x",G3,22,198,1,Col20);TEXTOUT_P(CHAR({78,117,101,118,97,32,69,115,116,114,1
17,99,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({78,117,101,118,97,3
2,69,115,116,114,117,99,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({6
9,83,84,82,85,67,84,85,82,65}),G3,80,198,1,Col132);
TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,81,198,1,Col132);RECT_P
(98,23,316,236,Col12);BLIT_P(G0,100,25,315,235,G3,0,0,215,210);Regs:={{{63,41},
{90,55}},{{63,62},{90,76}}};Dats:={-99,-
99};Datsbmq(2,3);N:=Dats(1);B:=Dats(2);IF N==-99 OR B==-99 THEN END;FOR I
FROM 1 TO B DO Datsbmq111(I):={{0,0,0,0,1}};END;BREAK;END;IF
46<=touch1(4)<67 THEN BREAK;END;IF 68<=touch1(4)<92 THEN
BREAK;END;IF 98<=touch1(4)<117 THEN BREAK;END;END;END;UNTIL
ISKEYDOWN(4);END;SiToca(Region)BEGIN
Region(1,1)≤Accion(2)≤Region(2,1)AND
Region(1,2)≤Accion(3)≤Region(2,2)END;Cuadro(Dato,Region,Color)BEGIN
RECT_P(Region(1)+1,Region(2)+1,RGB(130,133,132),Col128);RECT_P(Region(1)+1
,Region(2)+1,Color,Col128);TEXTOUT_P(Dato,Region(1,1)+3,Region(1,2)+4,1);END
;Tecla BEGIN LOCAL Val=Accion,Rs;CASE IF 31<Val<35 THEN 25▶Rs END;IF
Val=35 THEN RETURN "/";END;IF 36<Val<40 THEN 33▶Rs END;IF Val=40 THEN
RETURN "*";END;IF 41<Val<45 THEN 41▶Rs;END;IF Val=45 THEN RETURN "-
";END;IF Val=47 THEN RETURN 0;END;IF Val=48 THEN RETURN ".";END;IF
Val=50 THEN RETURN "+";END;DEFAULT RETURN "";END;STRING(Val-
Rs,1);END;Edicion(Dato,Region)BEGIN LOCAL NDato=STRING(Dato,1);IF
Dato==-99 AND Nnud==Eqx THEN NDato:="";END;NDato▶Dato;REPEAT
Cuadro(NDato+"◀",Region,RGB(12,132,251));WAIT(-1)▶Accion;IF
ISKEYDOWN(2)OR ISKEYDOWN(7)OR ISKEYDOWN(12)OR
ISKEYDOWN(8)THEN BREAK;END;IF TYPE(Accion)=0 THEN CASE IF
Accion=4 THEN Dato▶NDato;BREAK;END;IF Accion=30 THEN IFERR
EXPR(NDato)THEN Dato▶NDato;END;BREAK;END;IF Accion=19 AND
Nnud==Eqx THEN IF DIM(NDato)≤1 THEN ""▶NDato;ELSE
LEFT(NDato,DIM(NDato)-1)▶NDato;END;END;DEFAULT NDato+Tecla▶
NDato;END;ELSE IF SIZE(Accion)>1 AND NOT(SiToca(Region))THEN IFERR
EXPR(NDato)THEN Dato▶NDato;END;BREAK;END;END;UNTIL 0;IF NDato==""
THEN NDato:="-99";END;EXPR(NDato)▶NDato;IF NDato==-99 THEN
RECT_P(Region(1)+1,Region(2)+1,RGB(130,133,132),Col128);RECT_P(Region(1)+1
,Region(2)+1,RGB(213,213,213),Col128);ELSE
Cuadro(STRING(NDato,1),Region,RGB(213,213,213));END;NDato;END;Datsbmq(nb
,Caso)BEGIN LOCAL Btn,Tmp,cn,conm,cx,cy,Region1;cx:=30;cy:=53;IF Caso≠3
AND Caso≠4 AND Caso≠5 AND Caso≠6 AND Caso≠7 THEN FOR H FROM 1 TO
2*nb DO Regs(2*H-1):={{cx,cy+15*(H-
1)},{cx+30,cy+15*(H)}};Regs(2*H):={{cx+30,cy+15*(H-
1)},{cx+62,cy+15*(H)}};END;END;FOR Btn:=1 TO nb DO IF Dats(Btn)≠-99 THEN
Cuadro(STRING(Dats(Btn),1),Regs(Btn),RGB(213,213,213));ELSE
Region1:=Regs(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Col128
);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);REPEAT IF Caso==1 THEN FOR I
FROM 1 TO N DO M0(I,1):=Dats(2*I-1);M0(I,2):=Dats(2*I);END;Atytz12(1);END;IF
Caso==2 AND Nnud==Eqx THEN FOR I FROM 1 TO B DO M1(I,1):=Dats(2*I-
1);M1(I,2):=Dats(2*I);END;Atytz12(2);END;IF ISKEYDOWN(12)OR
ISKEYDOWN(8)OR ISKEYDOWN(30)THEN cn:=cn+1;IF cn==nb+1 THEN
cn:=1;END;IF cn==0 THEN cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;IF ISKEYDOWN(2)OR ISKEYDOWN(7)THEN cn:=cn-1;IF
cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
TYPE(Accion)=6 THEN IF Accion(1)==0 OR Accion(1)==3 THEN CASE IF Caso==1
THEN IF 230<=Accion(2)<=265 AND 210<=Accion(3)<=240 THEN
RECT_P(G3,148,197,161,205,Col133);RECT_P(G3,149,196,160,206,Col133);WAIT(0
.1);bdx:=bdx-5;bdy:=bdy-5;Atytz12(1);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;IF 266<=Accion(2)<=320 AND 210<=Accion(3)<=240 THEN
RECT_P(G3,173,197,186,205,Col133);RECT_P(G3,174,196,185,206,Col133);WAIT(0
.1);bdx:=bdx+5;bdy:=bdy+5;Atytz12(1);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;END;IF Caso==2 THEN IF 230<=Accion(2)<=265 AND
210<=Accion(3)<=240 THEN bdx:=bdx-5;bdy:=bdy-
5;Atytz12(2);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
266<=Accion(2)<=300 AND 210<=Accion(3)<=240 THEN
bdx:=bdx+5;bdy:=bdy+5;Atytz12(2);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;END;IF Caso==3 THEN IF 10<=Accion(2)<=90 AND
83<=Accion(3)<=110 THEN BREAK;END;END;IF Caso==7 THEN IF
230<=Accion(2)<=265 AND 210<=Accion(3)<=240 THEN bdx:=bdx-5;bdy:=bdy-
5;Atytz12(11);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
266<=Accion(2)<=300 AND 210<=Accion(3)<=240 THEN
bdx:=bdx+5;bdy:=bdy+5;Atytz12(11);Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;IF 10<=Accion(2)<=90 AND 53<=Accion(3)<=70 THEN
RECT_P(17,55,87,115,Col132);RECT_P(16,54,86,114,Col137);RECT_P(15,53,85,113
,Col148,134);TEXTOUT_P("1.General",20,60,1,Col128);TEXTOUT_P("2.Rectangular
",20,80,1,Col128);TEXTOUT_P("3.Circular",20,100,1,Col128);TactilSec();Atytz13();B
REAK;END;IF 10<=Accion(2)<=90 AND 120+17<=Accion(3)<=145+17 THEN
RECT_P(20,142,80,158,Col118);TEXTOUT_P(CHAR({84,111,100,111,115}),30,145,
2,Col128);TEXTOUT_P(CHAR({84,111,100,111,115}),31,145,2,Col128);WAIT(0.3);
LOCAL h1;IF TSec==1 THEN FOR h1 FROM 1 TO B DO
M1(h1,3):=Dats(1);M1(h1,5):=Dats(2);M1(h1,4):=Dats(3);END;IF Dats(1)==1 AND
Dats(2)==1 AND Dats(3)==1 THEN FOR h1 FROM 1 TO B DO
M1(h1,3):=0.000001;M1(h1,5):=0.000000000001;M1(h1,4):=1000000;END;END;EN
D;IF TSec==2 THEN FOR h1 FROM 1 TO B DO
M1(h1,3):=Dats(1)*Dats(2);M1(h1,5):=Dats(1)*Dats(2)^3/12;M1(h1,4):=Dats(3);END;
END;IF TSec==3 THEN FOR h1 FROM 1 TO B DO
M1(h1,3):=π*(Dats(1)/2)^2;M1(h1,5):=π*Dats(1)^4/64;M1(h1,4):=Dats(2)*10^6;END;
END;FOR h1 FROM 1 TO B DO Lprop(h1):=1;END;Atytz12(7);BREAK;END;IF
0<=Accion(2)<=95 AND 150+17<=Accion(3)<=170+17 THEN
RECT_P(10,167,90,183,Col118);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,10
5,99,111,115}),20,170,2,Col128);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,1
05,99,111,115}),21,170,2,Col128);WAIT(0.3);DIMGROB_P(G4,320,240);RECT_P(G
4);BLIT_P(G4,G0);IF B<=5 THEN InProp:=155;END;IF 5<B THEN InProp:=155-
15*(B-5);END;LOCAL h1;FOR h1 FROM 1 TO B DO Lprop(h1):=0;END;CASE IF
B≤14 THEN Prop(95,InProp,70,Lprop,B,1);END;IF B>14 THEN LOCAL
ltit,mpr:=[[0]];ltit:={};FOR h1 FROM 1 TO B DO mpr(h1,1):=0;ltit(h1):="E
"+h1;END;ltit(B+1):="";mpr:=EDITMAT(mpr,{"ASIGNAR PROPIEDADES",ltit,{"1
ó 0",""}});FOR h1 FROM 1 TO B DO Lprop(h1):=mpr(h1,1);END;END;END;FOR h1
FROM 1 TO B DO IF Lprop(h1)==1 THEN IF TSec==1 THEN
M1(h1,3):=Dats(1);M1(h1,5):=Dats(2);M1(h1,4):=Dats(3);END;IF TSec==2 THEN
M1(h1,3):=Dats(1)*Dats(2);M1(h1,5):=Dats(1)*Dats(2)^3/12;M1(h1,4):=Dats(3);END;
IF TSec==3 THEN
M1(h1,3):=π*(Dats(1)/2)^2;M1(h1,5):=π*Dats(1)^4/64;M1(h1,4):=Dats(2)*10^6;END;
END;END;BLIT_P(G0,G4);Elas:=Dats(3);Atytz12(7);cnP:=cnP+1;Atytz13();BREAK;
END;END;END;IF 0<=Accion(2)<=320 AND 0<=Accion(3)<=25 THEN
BREAK;END;conm:=0;FOR Btn:=1 TO nb DO IF SiToca(Regs(Btn))THEN
conm:=conm+1;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);cn:=Btn;BREAK;END;END;IF conm==0 AND Accion(2)<230 AND
Accion(3)<210 THEN Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;END;END;IF TYPE(Accion)=0 AND Accion==4 THEN
BREAK;END;UNTIL 0;RETURN Dats;END;DatsbmqCargas(nb,Caso)BEGIN
LOCAL Btn,Tmp,cn,conm,Region1;FOR Btn:=1 TO nb DO IF Dats(Btn)≠-99 AND
Nnud==Eqx THEN
Cuadro(STRING(Dats(Btn),1),Regs(Btn),RGB(213,213,213));ELSE
Region1:=Regs(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Col128
);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);REPEAT IF ISKEYDOWN(12)OR
ISKEYDOWN(30)THEN cn:=cn+1;IF cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
ISKEYDOWN(2)THEN cn:=cn-1;IF cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
ISKEYDOWN(8)AND Caso==4 THEN Atytzad21(2,1);BREAK;END;IF
ISKEYDOWN(8)AND Caso==5 THEN Atytzad21(2,1);BREAK;END;IF
ISKEYDOWN(8)AND Caso==6 THEN Atytzad20(1);BREAK;END;IF
TYPE(Accion)=6 THEN IF Accion(1)==0 OR Accion(1)==3 THEN CASE IF Caso==4
THEN IF 7<=Accion(2)<=48 AND 146<=Accion(3)<=171 THEN
RECT_P(7,146,48,171,Col12,Col129);LINE_P(20,163,30,163,Col111);TEXTOUT_P("
▶
",30,159,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col132,C
ol128);LINE_P(74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(
55,166,90,167,Col148);OriCarga:=2;END;IF 52<=Accion(2)<=93 AND
146<=Accion(3)<=171 THEN
RECT_P(7,146,48,171,Col132,Col128);LINE_P(20,163,30,163,Col111);TEXTOUT_P(
"▶
",30,159,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col12,Co
l129);LINE_P(74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(5
5,166,90,167,Col148);OriCarga:=1;END;IF 42<=Accion(2)<=94 AND
55<=Accion(3)<=76 AND Nnud==Eqx THEN Atytzad21(2,0);BREAK;END;IF
5<=Accion(2)<=48 AND 180<=Accion(3)<=200 THEN
RECT_P(5,180,48,198,Col36);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col12
8);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);WAIT(0.3);IF Dats(2)≠0
THEN VecC(SIZE(VecC)+1):={Dats(2),Dats(1),Dats(1),Long,OriCarga};END;IF
Dats(3)≠0 THEN VecC(SIZE(VecC)+1):={Dats(3),Dats(1),Dats(1),Long,0};END;IF
Dats(2)≠0 OR Dats(3)≠0 THEN
DCgB(SIZE(DCgB)+1):={NBarra,1,Dats,OriCarga};END;Datsbmq111(NBarra):=Vec
C;Atytz16(1);Atytzad21(2,0);BREAK;END;IF 52<=Accion(2)<=95 AND
180<=Accion(3)<=200 THEN
RECT_P(52,180,93,198,Col148);TEXTOUT_P("Elim",62,184,2,Col128);TEXTOUT_
P("Elim",62,184,2,Col128);WAIT(0.3);CASE IF SIZE(VecC)>1 THEN LOCAL
VecCAnt,DCgBAnt,hh;VecCAnt:=VecC;DCgBAnt:=DCgB;DCgB:={};VecC:={};FO
R hh FROM 1 TO SIZE(VecCAnt)-1 DO VecC(hh):=VecCAnt(hh);END;FOR hh
FROM 1 TO SIZE(DCgBAnt)-1 DO DCgB(hh):=DCgBAnt(hh);END;END;IF
SIZE(VecC)==1 THEN VecC:={};LOCAL
DCgBAnt,hh;DCgBAnt:=DCgB;DCgB:={};FOR hh FROM 1 TO SIZE(DCgBAnt)-1
DO DCgB(hh):=DCgBAnt(hh);END;END;END;IF SIZE(VecC)==0 THEN
Datsbmq111(NBarra):={{0,0,0,0,1}};ELSE
Datsbmq111(NBarra):=VecC;END;Atytz16(1);Atytzad21(2,0);BREAK;END;END;IF
Caso==5 THEN IF 7<=Accion(2)<=48 AND 146<=Accion(3)<=171 THEN
RECT_P(7,146,48,171,Col12,Col129);FOR I FROM 1 TO 4 DO LINE_P(10+5*(I-
1),163,10+8*I,163,Col111);TEXTOUT_P("▶
",8+8*(I),159,1,Col111);END;RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,17
1,Col132,Col128);LINE_P(57,150,87,150,Col111);FOR I FROM 1 TO 7 DO
LINE_P(57+5*(I-1),150,57+5*(I-
1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,1
67,Col148);OriCarga:=2;END;IF 52<=Accion(2)<=93 AND 146<=Accion(3)<=171
AND Nnud==Eqx THEN RECT_P(7,146,48,171,Col132,Col128);FOR I FROM 1 TO
4 DO LINE_P(10+5*(I-1),163,10+8*I,163,Col111);
TEXTOUT_P("▶
",8+8*(I),159,1,Col111);END;RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,17
1,Col12,Col129);LINE_P(57,150,87,150,Col111);FOR I FROM 1 TO 7 DO
LINE_P(57+5*(I-1),150,57+5*(I-
1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,1
67,Col148);OriCarga:=1;END;IF 0<=Accion(2)<=41 AND 55<=Accion(3)<=76 THEN
Atytzad21(1,0);BREAK;END;IF 5<=Accion(2)<=48 AND 180<=Accion(3)<=200
THEN
RECT_P(5,180,48,198,Col36);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col12
8);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);WAIT(0.3);LOCAL
x,ec;x:=CAS(CAS("x"));ec:=(Dats(1)*Dats(4)-Dats(3)*Dats(2)+Dats(3)*x-
Dats(4)*x)/(Dats(1)-
Dats(2));VecC(SIZE(VecC)+1):={ec,Dats(1),Dats(2),Long,OriCarga};DCgB(SIZE(DC
gB)+1):={NBarra,2,Dats,OriCarga};Datsbmq111(NBarra):=VecC;Atytz16(2);Atytzad2
1(2,0);BREAK;END;IF 52<=Accion(2)<=95 AND 180<=Accion(3)<=200 THEN
RECT_P(52,180,93,198,Col148);TEXTOUT_P("Elim",62,184,2,Col128);TEXTOUT_
P("Elim",62,184,2,Col128);WAIT(0.3);CASE IF SIZE(VecC)>1 THEN LOCAL
VecCAnt,DCgBAnt,hh;VecCAnt:=VecC;DCgBAnt:=DCgB;DCgB:={};VecC:={};FO
R hh FROM 1 TO SIZE(VecCAnt)-1 DO VecC(hh):=VecCAnt(hh);END;FOR hh
FROM 1 TO SIZE(DCgBAnt)-1 DO DCgB(hh):=DCgBAnt(hh);END;END;IF
SIZE(VecC)==1 THEN VecC:={};LOCAL
DCgBAnt,hh;DCgBAnt:=DCgB;DCgB:={};FOR hh FROM 1 TO SIZE(DCgBAnt)-1
DO DCgB(hh):=DCgBAnt(hh);END;END;END;IF SIZE(VecC)==0 THEN
Datsbmq111(NBarra):={{0,0,0,0,1}};ELSE
Datsbmq111(NBarra):=VecC;END;Atytz16(2);Atytzad21(2,0);BREAK;END;IF
50<=Accion(2)<=100 AND 30<=Accion(3)<=58 THEN
Atytzad21(1,1);BREAK;END;END;IF Caso==6 THEN IF 20<=Accion(2)<=80 AND
120<=Accion(3)<=140 THEN
RECT_P(20,120,80,138,Col118);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),3
0,124,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,124,2,Col128);
WAIT(0.3);IF Dats(1)≠0 OR Dats(2)≠0 OR Dats(3)≠0 THEN
DCgN(SIZE(DCgN)+1):={NNudo,3,Dats};END;M0(NNudo,3):=Dats(1);M0(NNudo,4
):=Dats(2);M0(NNudo,5):=Dats(3);Atytz16(3);Atytzad20(0);BREAK;END;END;END;
IF 0<=Accion(2)<=320 AND 0<=Accion(3)<=25 THEN BREAK;END;conm:=0;FOR
Btn:=1 TO nb DO IF SiToca(Regs(Btn))THEN
conm:=conm+1;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);cn:=Btn;BREAK;END;END;IF conm==0 AND Accion(2)<230 AND
Accion(3)<210 AND Nnud==Eqx THEN Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;END;END;IF TYPE(Accion)=0 AND Accion==4 THEN
BREAK;END;UNTIL 0;RETURN Dats;END;RECTH(Gr,xi,yi,xf,yf,Colr)BEGIN
LINE_P(Gr,xi,yi,xf,yi,Colr);LINE_P(Gr,xi,yf,xf,yf,Colr);LINE_P(Gr,xi,yf-1,xf,yf-
1,Colr);LINE_P(Gr,xi,yf+1,xf,yf+1,Colr);LINE_P(Gr,xi,yi,xi,yf,Colr);LINE_P(Gr,xf,yi
,xf,yf,Colr);END;TApRex;TApRez;Atytzad23()BEGIN CASE IF A==1 OR A==2
THEN
RECT_P(5,25,95,200,RGB(240,240,240));RECT_P(2,23,96,150,RGB(61,123,245),Col
128);RECT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col1
28);TEXTOUT_P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(C
HAR({83,79,80,79,82,84,69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TE
XTOUT_P(CHAR({78,117,100,111,32,58}),9,75,1,Col1);TEXTOUT_P("Ángulo :
°",7,98,1,Col1);RECT_P(20,125,80,142,Col3);TEXTOUT_P(CHAR({65,99,101,112,1
16,97,114}),31,128,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,1
28,2,Col128);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A-
1),25,25*(A));Regs:={{{47,70},{84,85}},{{47,93},{84,108}}};Dats:={-
99,0};cfervsd(2,1);END;IF A==3 AND Nnud==Eqx THEN
RECT_P(5,25,95,200,RGB(240,240,240));RECT_P(2,23,96,150,RGB(61,123,245),Col
128);RECT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col1
28);TEXTOUT_P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(C
HAR({83,79,80,79,82,84,69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TE
XTOUT_P(CHAR({78,117,100,111,32,58}),9,75,1,Col1);RECT_P(20,125,80,142,Col3
);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);TEXTOUT_P(
CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);BLIT_P(G0,30,40,55,65,CHAR
({65,112,111,121,111}),0,25*(A-
1),25,25*(A));BLIT_P(G0,7,95,93,116,"ApEm2",0,0,86,21);IF TApEm==1 THEN
RECTH(G0,4,92,22,119,Col111);END;IF TApEm==2 THEN
RECTH(G0,22,92,49,119,Col111);END;IF TApEm==3 THEN
RECTH(G0,49,92,78,119,Col111);END;IF TApEm==4 THEN
RECTH(G0,78,92,96,119,Col111);END;Regs:={{{47,70},{84,85}}};IF EmNu==1
THEN Dats:={-99,0};END;cfervsd(1,1);END;IF A==4 THEN
RECT_P(5,25,95,200,RGB(240,240,240));RECT_P(2,23,96,150,RGB(61,123,245),Col
128);RECT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col1
28);TEXTOUT_P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(C
HAR({83,79,80,79,82,84,69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TE
XTOUT_P(CHAR({78,117,100,111,32,58}),9,75,1,Col1);RECT_P(20,125,80,142,Col3
);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);TEXTOUT_P(
CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);BLIT_P(G0,30,40,55,65,CHAR
({65,112,111,121,111}),0,25*(A-
1),25,25*(A));BLIT_P(G0,7,95,93,116,"ApSe",0,0,86,21);IF TApSe==1 THEN
RECTH(G0,4,92,22,119,Col111);END;IF TApSe==2 AND Nnud==Eqx THEN
RECTH(G0,22,92,49,119,Col111);END;IF TApSe==3 THEN
RECTH(G0,49,92,78,119,Col111);END;IF TApSe==4 THEN
RECTH(G0,78,92,96,119,Col111);END;Regs:={{{47,70},{84,85}}};IF SeNu==1
THEN Dats:={-99,0};END;cfervsd(1,1);END;IF A==5 THEN
RECT_P(5,25,95,200,RGB(240,240,240));RECT_P(2,23,96,199,RGB(61,123,245),Col
128);RECT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col1
28);TEXTOUT_P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(C
HAR({83,79,80,79,82,84,69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TE
XTOUT_P(CHAR({78,117,100,111,32,58}),9,75,1,Col1);RECT_P(20,175,80,192,Col3
);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,178,2,Col128);TEXTOUT_P(
CHAR({65,99,101,112,116,97,114}),31,178,2,Col128);BLIT_P(G0,30,40,55,65,CHAR
({65,112,111,121,111}),0,25*(A-
1),25,25*(A));BLIT_P(G0,7,95,48,168,CHAR({82,101,115,111,114,116,101}),0,0,41,7
3);Regs:={{{50,70},{90,85}},{{50,95},{90,110}},{{50,122},{90,137}},{{50,150},{9
0,165}}};Dats:={-99,0,0,0};cfervsd(4,1);END;IF A==6 THEN
RECT_P(5,25,95,200,RGB(240,240,240));RECT_P(2,23,96,199,RGB(61,123,245),Col
128);RECT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col1
28);TEXTOUT_P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(C
HAR({83,79,80,79,82,84,69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TE
XTOUT_P(CHAR({78,117,100,111,32,58}),9,75,1,Col1);TEXTOUT_P(CHAR({68,10
1,102,111,114,46,32,73,109,112,117,101,115,116,97,32,58}),6,95,1,Col111);TEXTOU
T_P("δX : ",8,115,1,Col1);TEXTOUT_P("δY :",8,135,1,Col1);TEXTOUT_P("φ
:",11,155,1,Col1);TEXTOUT_P("[mm]",71,115,1,Col1);TEXTOUT_P("[mm]",71,135,
1,Col1);TEXTOUT_P("[°]",71,155,1,Col1);RECT_P(20,175,80,192,Col3);TEXTOUT_
P(CHAR({65,99,101,112,116,97,114}),31,178,2,Col128);TEXTOUT_P(CHAR({65,99
,101,112,116,97,114}),31,178,2,Col128);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,
121,111}),0,25*(A-1),25,25*(A));IF TApRex==1 AND Nnud==Eqx THEN
RECTH(G0,4,92,22,119,Col111);END;IF TApRex==2 THEN
RECTH(G0,22,92,49,119,Col111);END;IF TApRez==1 THEN
RECTH(G0,49,92,78,119,Col111);END;IF TApRez==2 THEN
RECTH(G0,78,92,96,119,Col111);END;Regs:={{{50,70},{90,85}},{{28,110},{68,125
}},{{28,130},{68,145}},{{28,150},{68,165}}};Dats:={-
99,0,0,0};cfervsd(4,1);END;END;END;Atytz15()BEGIN LOCAL touch1;REPEAT
WAIT(-1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
20<=touch1(3)<=80 THEN IF 40<=touch1(4)<65 THEN
RECTH(G0,22,41,63,65,Col111);WAIT(0.2);A:=1;BREAK;END;IF
65<=touch1(4)<90 AND Nnud==Eqx THEN
RECTH(G0,22,66,63,90,Col111);WAIT(0.2);A:=2;BREAK;END;IF
90<=touch1(4)<115 AND Nnud==Eqx THEN
EmNu:=1;RECTH(G0,22,91,63,115,Col111);WAIT(0.2);A:=3;BREAK;END;IF
115<=touch1(4)<140 THEN
SeNu:=1;RECTH(G0,22,115,63,140,Col111);WAIT(0.2);A:=4;BREAK;END;IF
140<=touch1(4)<165 AND Nnud==Eqx THEN
RECTH(G0,22,140,63,165,Col111);WAIT(0.2);A:=5;BREAK;END;IF
165<=touch1(4)<190 THEN
RECTH(G0,22,165,63,190,Col111);WAIT(0.2);A:=6;BREAK;END;END;END;UNTI
L ISKEYDOWN(4);END;cfervsd(nb,Caso)BEGIN LOCAL
Btn,Tmp,cn,conm,Region1;FOR Btn:=1 TO nb DO IF Dats(Btn)≠-99 THEN
Cuadro(STRING(Dats(Btn),1),Regs(Btn),RGB(213,213,213));ELSE
Region1:=Regs(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Col128
);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);REPEAT IF TYPE(Accion)==6
THEN IF Accion(1)==0 OR Accion(1)==3 THEN IF 0<=Accion(2)<=105 AND
35<=Accion(3)<=65 THEN
RECT_P(20,39,65,195,Col143,Col128);BLIT_P(G0,30,40,55,190,CHAR({65,112,111,
121,111}),0,0,25,150);Atytz15();WAIT(0.1);Atytzad23();BREAK;END;IF T==3
THEN IF A==1 OR A==2 OR A==3 OR A==4 THEN IF 10<=Accion(2)<=90 AND
125<=Accion(3)<=145 THEN
RECT_P(20,125,80,142,Col118);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),3
1,128,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);
WAIT(0.2);IF A==1 AND Nnud==Eqx THEN
DAp(SIZE(DAp)+1):={Dats(1),Dats(2),A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1
):=Dats(1);M3(rowDim(M3),2):=Dats(1)*3-
2;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(
1)*3-1;M3(rowDim(M3),3):=0;END;IF A==2 THEN
DAp(SIZE(DAp)+1):={Dats(1),Dats(2),A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1
):=Dats(1);M3(rowDim(M3),2):=Dats(1)*3-1;M3(rowDim(M3),4):=-Dats(2);END;IF
A==3 THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1):=Dat
s(1);M3(rowDim(M3),2):=Dats(1)*3-
2;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(
1)*3-
1;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(
1)*3;M3(rowDim(M3),3):=0;END;IF A==4 AND Nnud==Eqx THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1):=Dat
s(1);M3(rowDim(M3),2):=Dats(1)*3-
2;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(
1)*3;M3(rowDim(M3),3):=0;END;Atytz17(1);Dats:={-
99,0};WAIT(0.2);Atytzad23();BREAK;END;END;IF A==5 THEN IF
10<=Accion(2)<=90 AND 175<=Accion(3)<=195 THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};M2(rowDim(M2)+1,1):=Dat
s(1);M2(rowDim(M2),2):=Dats(3);M2(rowDim(M2),3):=Dats(2);M2(rowDim(M2),4):
=Dats(4);Atytz17(1);Dats:={-99,0,0,0};WAIT(0.2);Atytzad23();BREAK;END;END;IF
A==6 THEN IF 10<=Accion(2)<=90 AND 175<=Accion(3)<=195 THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};LOCAL
contar,gdlx,gdly,gdlθ;gdlx:=Dats(1)*3-2;gdly:=Dats(1)*3-
1;gdlθ:=Dats(1)*3;contar:=0;FOR I FROM 1 TO rowDim(M3)DO IF
M3(I,1)==Dats(1)AND gdlx==M3(I,2)THEN
contar:=1;M3(I,3):=Dats(2)/1000;END;IF M3(I,1)==Dats(1)AND gdly==M3(I,2)AND
Nnud==Eqx THEN contar:=1;M3(I,3):=Dats(3)/1000;END;IF M3(I,1)==Dats(1)AND
gdlθ==M3(I,2)AND Nnud==Eqx THEN contar:=1;M3(I,3):=Dats(4);END;END;IF
contar==0 THEN IF gdlx≠0 THEN M3(rowDim(M3)+1,1):=Dats(1);
M3(rowDim(M3),2):=gdlx;M3(rowDim(M3),3):=100*Dats(2);END;IF gdly≠0 THEN
M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=gdly;M3(rowDim(M3),3):=100
*Dats(3);END;IF gdlθ≠0 THEN
M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=gdlθ;M3(rowDim(M3),3):=Dats
(4);END;END;Atytz17(1);Dats:={-
99,0,0,0};WAIT(0.2);Atytzad23();BREAK;END;END;END;IF T==1 THEN IF A==1
OR A==2 THEN IF 10<=Accion(2)<=90 AND 125<=Accion(3)<=145 THEN
RECT_P(20,125,80,142,Col118);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),3
1,128,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);
WAIT(0.2);IF A==1 AND Nnud==Eqx THEN
DAp(SIZE(DAp)+1):={Dats(1),Dats(2),A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1
):=Dats(1);M3(rowDim(M3),2):=Dats(1)*2-
1;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(
1)*2;M3(rowDim(M3),3):=0;END;IF A==2 THEN
DAp(SIZE(DAp)+1):={Dats(1),Dats(2),A,Dats,TApEm,TApSe};M3(rowDim(M3)+1,1
):=Dats(1);M3(rowDim(M3),2):=Dats(1)*2;M3(rowDim(M3),4):=-
Dats(2);END;Atytz17(1);Dats:={-99,0};WAIT(0.2);Atytzad23();BREAK;END;END;IF
A==5 THEN IF 10<=Accion(2)<=90 AND 175<=Accion(3)<=195 THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};M2(rowDim(M2)+1,1):=Dat
s(1);M2(rowDim(M2),2):=Dats(3);M2(rowDim(M2),3):=Dats(2);M2(rowDim(M2),4):
=Dats(4);Atytz17(1);Dats:={-99,0,0,0};WAIT(0.2);Atytzad23();BREAK;END;END;IF
A==6 THEN IF 10<=Accion(2)<=90 AND 175<=Accion(3)<=195 THEN
DAp(SIZE(DAp)+1):={Dats(1),0,A,Dats,TApEm,TApSe};LOCAL
contar,gdlx,gdly,gdlθ;gdlx:=Dats(1)*2-1;gdly:=Dats(1)*2;contar:=0;FOR I FROM 1
TO rowDim(M3)DO IF M3(I,1)==Dats(1)AND gdlx==M3(I,2)THEN
contar:=1;M3(I,3):=Dats(2)/1000;END;IF M3(I,1)==Dats(1)AND gdly==M3(I,2)AND
Nnud==Eqx THEN contar:=1;M3(I,3):=Dats(3)/1000;END;END;IF contar==0 THEN
IF gdlx≠0 THEN
M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=gdlx;M3(rowDim(M3),3):=100
*Dats(2);END;IF gdly≠0 THEN
M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=gdly;M3(rowDim(M3),3):=100
*Dats(3);END;END;Atytz17(1);Dats:={-
99,0,0,0};WAIT(0.2);Atytzad23();BREAK;END;END;END;END;END;IF
ISKEYDOWN(12)OR ISKEYDOWN(8)OR ISKEYDOWN(30)THEN cn:=cn+1;IF
cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
ISKEYDOWN(2)OR ISKEYDOWN(7)THEN cn:=cn-1;IF cn==nb+1 THEN
cn:=1;END;IF cn==0 THEN cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);END;IF TYPE(Accion)=6 THEN conm:=0;IF Accion(1)==0 OR
Accion(1)==3 THEN IF A==3 THEN IF 4<=Accion(2)<=22 AND
95<=Accion(3)<=120 THEN TApEm:=1;EmNu:=0;Atytzad23();BREAK;END;IF
22<=Accion(2)<=49 AND 95<=Accion(3)<=120 THEN
TApEm:=2;EmNu:=0;Atytzad23();BREAK;END;IF 49<=Accion(2)<=78 AND
95<=Accion(3)<=120 THEN TApEm:=3;EmNu:=0;Atytzad23();BREAK;END;IF
78<=Accion(2)<=96 AND 95<=Accion(3)<=120 THEN
TApEm:=4;EmNu:=0;Atytzad23();BREAK;END;END;IF A==4 THEN IF
4<=Accion(2)<=22 AND 95<=Accion(3)<=120 THEN
TApSe:=1;SeNu:=0;Atytzad23();BREAK;END;IF 22<=Accion(2)<=49 AND
95<=Accion(3)<=120 THEN TApSe:=2;SeNu:=0;Atytzad23();BREAK;END;IF
49<=Accion(2)<=78 AND 95<=Accion(3)<=120 THEN
TApSe:=3;SeNu:=0;Atytzad23();BREAK;END;IF 78<=Accion(2)<=96 AND
95<=Accion(3)<=120 THEN TApSe:=4;SeNu:=0;Atytzad23();BREAK;END;END;IF
0<=Accion(2)<=320 AND 0<=Accion(3)<=25 THEN BREAK;END;FOR Btn:=1 TO
nb DO IF SiToca(Regs(Btn))THEN conm:=conm+1;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);cn:=Btn;BREAK;END;END;IF conm==0 THEN
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;END;END;IF
TYPE(Accion)=0 AND Accion==4 THEN BREAK;END;UNTIL 0;RETURN
Dats;END;Nudos()BEGIN
RECT_P(2,23,96,57+15*N+10,Col3,Col128);RECT_P(2,23,96,51,RGB(61,123,245),C
ol128);RECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P({67,79,79,82,68,46,32,78,8
5,68,79,83},5,25,2,Col128);TEXTOUT_P({67,79,79,82,68,46,32,78,85,68,79,83},6,25,
2,Col128);TEXTOUT_P("",5,41,1,Col1);FOR I FROM 1 TO N DO
RECT_P(8,40+15*I,24,38+15*(I+1),Col148,Col135);TEXTOUT_P(I,10,43+15*I,1,Col
128);TEXTOUT_P(I,11,43+15*I,1,Col128);END;IF WN==0 AND Nnud==Eqx THEN
FOR I FROM 1 TO N DO Dats(2*I-
1):=M0(I,1);Dats(2*I):=M0(I,2);END;Atytz12(1);ELSE FOR I FROM 1 TO N DO
Dats(2*I-1):=-99;Dats(2*I):=-99;END;END;Datsbmq(2*N,1);FOR I FROM 1 TO N
DO M0(I,1):=Dats(2*I-
1);M0(I,2):=Dats(2*I);M0(I,3):=0;M0(I,4):=0;M0(I,5):=0;END;END;Barras()BEGIN
RECT_P(2,23,96,57+15*B+10,Col3,Col128);RECT_P(2,23,96,51,RGB(61,123,245),C
ol128);RECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P(CHAR({69,76,69,77,69,78,
84,79,83}),15,25,2,Col128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,83}),16,25
,2,Col128);TEXTOUT_P(CHAR({69,108,101,109,46,32,32,32,73,78,73,32,32,32,32,70
,73,78}),5,41,1,Col1);FOR I FROM 1 TO B DO
RECT_P(8,40+15*I,24,38+15*(I+1),Col148,Col135);TEXTOUT_P(I,10,43+15*I,1,Col
128);TEXTOUT_P(I,11,43+15*I,1,Col128);END;IF WB==0 THEN FOR I FROM 1
TO B DO Dats(2*I-1):=M1(I,1);Dats(2*I):=M1(I,2);END;Atytz12(2);ELSE FOR I
FROM 1 TO B DO Dats(2*I-1):=-99;Dats(2*I):=-99;END;END;Datsbmq(2*B,2);FOR
I FROM 1 TO B DO M1(I,1):=Dats(2*I-
1);M1(I,2):=Dats(2*I);END;END;hcP(Tip)BEGIN LOCAL xx,yy,t,n,b,bb,q,n1;FOR
xx:=1 TO SIZE(Tip)DO ""▶n;""▶n1;Tip(xx)▶t;FOR yy:=1 TO DIM(t)DO b:=t(yy)-
cant;R→B(t(yy))▶bb;n1+CHAR(bb(8,8))+CHAR(bb(0,8))▶n1;n+CHAR(b)▶
n;END;REPLACE(n,"\r","")▶Tip(xx);n▶Tip(xx);END;RETURN
Tip;END;Atytz17(Tip)BEGIN LOCAL α,nud,cx,cy;LOCAL
esc,MC,s1,s2,px,py;TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,75,198
,1,Col133);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,76,198,1,Col13
3);MC:=M0;px:=215;py:=200;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-1))==0
THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN
esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO N DO MC(I,1):=s1+MC(I,1);MC(I,2):=py-s2-
MC(I,2);END;nud:=Dats(1);α:=Dats(2);cx:=MC(nud,1);cy:=MC(nud,2);IF A==1
THEN IF ACOS(-1)==180 THEN FILLPOLY_P(G3,{cx-
12*COS(α+45),cy+12*SIN(α+45),cx-
12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col134);END;IF ACOS(-1)==π THEN
FILLPOLY_P(G3,{cx-12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx-
12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col134);END;END;IF
A==2 THEN IF ACOS(-1)==180 THEN TEXTOUT_P("●",G3,cx-12*COS(α+70)-
4,cy+12*SIN(α+70)-7,3,Col30);TEXTOUT_P("●",G3,cx-12*COS(α+110)-
4,cy+12*SIN(α+110)-7,3,Col30);FILLPOLY_P(G3,{cx-
12*COS(α+45),cy+12*SIN(α+45),cx-
12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col134);LINE_P(G3,cx-
19*COS(α+55),cy+19*SIN(α+55),cx-
19*COS(α+125),cy+19*SIN(α+125),Col30);END;IF ACOS(-1)==π THEN
TEXTOUT_P("●",G3,cx-12*COS(π*(α+70)/180)-4,cy+12*SIN(π*(α+70)/180)-
7,3,Col30);TEXTOUT_P("●",G3,cx-12*COS(π*(α+110)/180)-
4,cy+12*SIN(π*(α+110)/180)-7,3,Col30);FILLPOLY_P(G3,{cx-
12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx-
12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col134);LINE_P(G3,cx-
19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx-
19*COS(π*(α+125)/180),cy+19*SIN(π*(α+125)/180),Col30);END;END;IF A==3
THEN IF TApEm==2 THEN BLIT_P(G3,cx-
10,cy,cx+11,cy+13,"ApEm",0,0,21,13);END;IF TApEm==4 THEN BLIT_P(G3,cx,cy-
10,cx+12,cy+11,"ApEm",30,20,43,41);END;IF TApEm==3 THEN BLIT_P(G3,cx-
9,cy-13,cx+12,cy,"ApEm",30,0,51,13);END;IF TApEm==1 THEN BLIT_P(G3,cx-
13,cy-10,cx,cy+11,"ApEm",0,20,13,41);END;END;IF A==4 THEN IF TApSe==2
THEN BLIT_P(G3,cx-10,cy,cx+11,cy+13,"ApSe1",0,0,21,13);END;IF TApSe==4
THEN BLIT_P(G3,cx,cy-10,cx+12,cy+11,"ApSe1",30,20,43,41);END;IF TApSe==3
THEN BLIT_P(G3,cx-9,cy-13,cx+12,cy,"ApSe1",30,0,51,13);END;IF TApSe==1
AND Nnud==Eqx THEN BLIT_P(G3,cx-13,cy-
10,cx,cy+11,"ApSe1",0,20,13,41);END;END;IF A==5 THEN LOCAL
kx,ky,kθ;ky:=Dats(2);kx:=Dats(3);kθ:=Dats(4);cy:=cy+2;IF kx>0 THEN
BLIT_P(G3,cx-18,cy-
10,cx+1,cy+10,CHAR({82,101,115,111,114,116,101}),0,27,19,46);END;IF kx<0
THEN BLIT_P(G3,cx,cy-
10,cx+19,cy+10,CHAR({82,101,115,111,114,116,101}),23,27,41,46);END;IF ky>0
THEN BLIT_P(G3,cx-
9,cy,cx+10,cy+20,CHAR({82,101,115,111,114,116,101}),0,0,19,20);END;IF ky<0
THEN BLIT_P(G3,cx-9,cy-
20,cx+10,cy,CHAR({82,101,115,111,114,116,101}),22,0,41,20);END;IF kθ≠0 THEN
BLIT_P(G3,cx-9,cy-
9,cx+17,cy+10,CHAR({82,101,115,111,114,116,101}),6,54,34,73);END;END;IF
A==6 THEN IF Dats(2)≠0 THEN TEXTOUT_P("Δ:"+Dats(3)/1000+"m",G3,cx-
14,cy+12,1,Col111);END;IF Dats(3)≠0 THEN
TEXTOUT_P("Δ:"+Dats(3)/1000+"m",G3,cx-14,cy+12,1,Col111);END;IF Dats(4)≠0
THEN TEXTOUT_P("φ:"+Dats(3)+"rad",G3,cx-14,cy+12,1,Col111);END;END;FOR I
FROM 1 TO N DO RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);END;LINE_P(G3,5,190,5,203,Col118);TEXTOUT_P(
"y",G3,3,177,1,Col118);LINE_P(G3,5,203,20,203,Col20);TEXTOUT_P("x",G3,22,198
,1,Col20);IF Tip==1 THEN
BLIT_P(G0,100,25,315,235,G3,0,0,215,210);END;END;Atytz12(Tip)BEGIN LOCAL
esc,MC,s1,s2,px,py;IF Tip==7 AND cnP==0 THEN
DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,210,Col128);END;IF Tip==10 THEN
DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,210,Col128);END;IF Tip==11 THEN
DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,210,Col128);END;IF Tip≠7 THEN
DIMGROB_P(G3,225,210);RECT_P(G3,0,0,225,210,Col128);END;TEXTOUT_P(CH
AR({69,83,84,82,85,67,84,85,82,65}),G3,75,198,1,Col132);TEXTOUT_P(CHAR({69,
83,84,82,85,67,84,85,82,65}),G3,76,198,1,Col132);RECT_P(G3,148,197,161,205,Col1
31);RECT_P(G3,149,196,160,206,Col131);RECT_P(G3,173,197,186,205,Col131);RE
CT_P(G3,174,196,185,206,Col131);TEXTOUT_P("+ -
",G3,150,190,5,Col3);MC:=M0;px:=215;py:=200;FOR I FROM 1 TO N DO IF
MC(I,1)==-99 THEN MC(I,1):=0;END;IF MC(I,2)==-99 THEN
MC(I,2):=0;END;END;IFERR esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy)/MAX(MC(-2)));THEN CASE IF MAX(MC(-2))==0 AND MAX(MC(-1))==0
THEN esc:=MIN((px-2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN
esc:=MIN((px-2*bdx),(py-2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-(MAX(MC(-1))-MIN(MC(-
1))))/2;s2:=(py-(MAX(MC(-2))-MIN(MC(-2))))/2;MC(1,3):=s1;MC(2,3):=s2;FOR I
FROM 1 TO N DO MC(I,1):=s1+MC(I,1);MC(I,2):=py-s2-
MC(I,2);END;LINE_P(G3,5,190,5,203,Col118);TEXTOUT_P("y",G3,3,177,1,Col118)
;LINE_P(G3,5,203,20,203,Col20);TEXTOUT_P("x",G3,22,198,1,Col20);IF Tip==4
THEN FOR I FROM 1 TO B DO DibElemF(0,I,MC,0,G3,Col12);END;FOR I FROM 1
TO N DO RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);END;END;IF Tip==100 OR Tip==10 AND
Nnud==Eqx THEN FOR I FROM 1 TO B DO
DibElemF(0,I,MC,0,G3,Col12);END;FOR I FROM 1 TO N DO RECT_P(G3,MC(I,1)-
1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);TEXTOUT_P(I,G3,MC(I,1)+2,MC(I,2)+2,1,Col131);E
ND;END;IF Tip==11 AND Nnud==Eqx THEN FOR I FROM 1 TO B DO
DibElemF(0,I,MC,1,G3,Col12);END;END;IF Tip==2 THEN FOR I FROM 1 TO B
DO IF M1(I,1)≠-99 AND M1(I,2)≠-99 THEN
DibElemF(0,I,MC,1,G3,Col12);END;END;FOR I FROM 1 TO N DO IF M0(I,1)≠-99
AND M0(I,2)≠-99 THEN RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);TEXTOUT_P(I,G3,MC(I,1)+2,MC(I,2)+2,1,Col135);E
ND;END;END;IF Tip==1 THEN FOR I FROM 1 TO N DO IF M0(I,1)≠-99 AND
M0(I,2)≠-99 THEN RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);TEXTOUT_P(I,G3,MC(I,1)+2,MC(I,2)+2,1,Col135);E
ND;END;END;IF Tip==7 THEN FOR I FROM 1 TO B DO IF M1(I,1)≠-99 AND
M1(I,2)≠-99 THEN IF cnP==0 AND Nnud==Eqx THEN
DibElemF(0,I,MC,1,G3,Col12);END;IF cnP≠0 AND Nnud==Eqx THEN IF
Lprop(I)==1 THEN TEXTOUT_P("P-
"+cnP,G3,(ABS(MC(M1(I,1),1)+MC(M1(I,2),1)))/2-
5,(ABS(MC(M1(I,1),2)+MC(M1(I,2),2)))/2-
2,1,Col111,100,Col128);END;END;END;END;FOR I FROM 1 TO N DO IF M0(I,1)≠-
99 AND M0(I,2)≠-99 THEN RECT_P(G3,MC(I,1)-1,MC(I,2)-
1,MC(I,1)+1,MC(I,2)+1,Col12);END;END;END;BLIT_P(G0,100,25,315,235,G3,0,0,2
15,210);RETURN MC;END;DibElemF(Tod,Esp,MC,NomElem,Gr,Colr)BEGIN
LOCAL TipElem;IF M1(1,1)≠0 THEN IF Tod==1 THEN FOR H FROM 1 TO
rowDim(M1)DO IF M1(H,12)==1 AND M1(H,13)==1 THEN TipElem:=1;END;IF
M1(H,12)==0 AND M1(H,13)==1 AND Nnud==Eqx THEN TipElem:=2;END;IF
M1(H,12)==1 AND M1(H,13)==0 AND Nnud==Eqx THEN TipElem:=3;END;IF
M1(H,12)==0 AND M1(H,13)==0 THEN
TipElem:=4;END;RECT_P(Gr,MC(M1(H,1),1)-1,MC(M1(H,1),2)-
1,MC(M1(H,1),1)+1,MC(M1(H,1),2)+1,Colr);RECT_P(Gr,MC(M1(H,2),1)-
1,MC(M1(H,2),2)-
1,MC(M1(H,2),1)+1,MC(M1(H,2),2)+1,Colr);LINE_P(Gr,MC(M1(H,1),1),MC(M1(H,
1),2),MC(M1(H,2),1),MC(M1(H,2),2),Colr);
IF NomElem==1 THEN
TEXTOUT_P(H,Gr,(ABS(MC(M1(H,1),1)+MC(M1(H,2),1)))/2-
3,(ABS(MC(M1(H,1),2)+MC(M1(H,2),2)))/2-3,1,Col12,30,Col128);END;IF
TipElem==1 THEN END;IF TipElem==2 THEN
ARC_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;IF TipElem==3 THEN ARC_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);END;IF TipElem==4 THEN
ARC_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);ARC_P(Gr,MC(M1(H,1),1)+7*M1
(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;END;ELSE H:=Esp;IF M1(H,12)==1 AND M1(H,13)==1
THEN TipElem:=1;END;IF M1(H,12)==0 AND M1(H,13)==1 THEN
TipElem:=2;END;IF M1(H,12)==1 AND M1(H,13)==0 THEN TipElem:=3;END;IF
M1(H,12)==0 AND M1(H,13)==0 THEN
TipElem:=4;END;RECT_P(Gr,MC(M1(H,1),1)-1,MC(M1(H,1),2)-
1,MC(M1(H,1),1)+1,MC(M1(H,1),2)+1,Colr);RECT_P(Gr,MC(M1(H,2),1)-
1,MC(M1(H,2),2)-
1,MC(M1(H,2),1)+1,MC(M1(H,2),2)+1,Colr);LINE_P(Gr,MC(M1(H,1),1),MC(M1(H,
1),2),MC(M1(H,2),1),MC(M1(H,2),2),Colr);IF NomElem==1 THEN
TEXTOUT_P(H,Gr,(ABS(MC(M1(H,1),1)+MC(M1(H,2),1)))/2-
3,(ABS(MC(M1(H,1),2)+MC(M1(H,2),2)))/2-3,1,Col12,30,Col128);END;IF
TipElem==1 THEN END;IF TipElem==2 THEN
ARC_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;IF TipElem==3 THEN ARC_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);END;IF TipElem==4 THEN
ARC_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);ARC_P(Gr,MC(M1(H,1),1)+7*M1
(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(Gr,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;END;END;END;axsdcerf()BEGIN LOCAL
cx,cy;RECT_P(0,0,320,240,RGB(240,240,240));RECT_P(25,1,318,21,Col142);BLIT_
P(G0,1,1,24,24,CHAR({76,96,113,98,96}+1),0,0,23,23);TEXTOUT_P(CHAR({195,23
4,207,249,216}/3),28,4,3,Col39);TEXTOUT_P(CHAR({195,234,207,249,216}/3),28,4,
3,Col39);LINE_P(137,17,149,5,Col128);LINE_P(137,18,150,5,Col128);LINE_P(138,1
8,150,6,Col128);BLIT_P(G0,165,5,180,18,"AE",0,0,15,13);ARC_P(100,12,7,{Col12,C
ol129});TEXTOUT_P("i",99,8,1,Col12);LINE_P(235,4,235,12,Col128);TEXTOUT_P(
"▼",233,7,1,Col128);LINE_P(221,16,228,16,Col128);TEXTOUT_P("▶
",228,12,1,Col128);TEXTOUT_P("●",232,11,2,Col128);FILLPOLY_P({(225-
25,9),(232-25,16),(218-
25,16)},Col128);TEXTOUT_P("●",197,4,1,Col128);RECT_P(249,16,267,17,Col128);F
OR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I-
1),246+I*4,16,Col128);TEXTOUT_P("▾",242+I*4,11,1,Col128);END;LINE_P(250,4,
266,12,Col128);TEXTOUT_P("►",280,-
2,7,RGB(255,0,0));RECT_P(300,5,315,18,RGB(153,153,153));TEXTOUT_P("x",304,-
1,5,#FFFFFFh,100);BLIT_P(0,240,320,480,G1,0,0,320,240);TEXTOUT_P(CHAR({79
,91,94,77,95,44,81,95,79,77,88,77,90,96,81}-
12),5,218,1,Col137);TEXTOUT_P(CHAR({79,91,94,77,95,44,81,95,79,77,88,77,90,96
,81}-
12),6,218,1,Col137);TEXTOUT_P(CHAR({648,945,972,981,909,1026}/9),60,228,1,C
ol137);TEXTOUT_P(CHAR({648,945,972,981,909,1026}/9),59,228,1,Col137);END;t
oq(Tip)BEGIN LOCAL xx,yy,t,n,b,bb,q,n1;LOCAL n,b,bb,q,n1;FOR xx:=1 TO
SIZE(Tip)DO ""▶n;""▶n1;Tip(xx)▶t;FOR yy:=1 TO DIM(t)DO b:=t(yy)-
dan;R→B(t(yy))▶bb;n1+CHAR(bb(8,8))+CHAR(bb(0,8))▶n1;n+CHAR(b)▶
n;END;REPLACE(n,"\r","")▶Tip(xx);n▶Tip(xx);END;RETURN
Tip(1);END;oligft116(nb)BEGIN LOCAL Btn,Tmp,cn,conm;FOR Btn:=1 TO nb DO
Cuadro(STRING(Dats(Btn),1),Regs(Btn),RGB(213,213,213));END;cn:=1;Btn:=1;Edici
on(Dats(Btn),Regs(Btn))▶Dats(Btn);REPEAT conm:=0;IF ISKEYDOWN(12)OR
ISKEYDOWN(8)THEN cn:=cn+1;conm:=conm+1;IF cn==nb+1 THEN cn:=1;END;IF
cn==0 THEN cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
ISKEYDOWN(30)THEN BREAK;END;IF ISKEYDOWN(2)OR
ISKEYDOWN(7)THEN cn:=cn-1;conm:=conm+1;IF cn==nb+1 THEN cn:=1;END;IF
cn==0 THEN cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
TYPE(Accion)==6 THEN IF Accion(1)==0 OR Accion(1)==3 THEN IF
90<=Accion(2)<=150 AND 180<=Accion(3)<=210 THEN BREAK;END;FOR Btn:=1
TO nb DO IF SiToca(Regs(Btn))THEN conm:=conm+1;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);cn:=Btn;BREAK;END;END;END;END;IF conm==0 THEN
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF TYPE(Accion)=0 AND
Accion==4 THEN BREAK;END;UNTIL
0;END;ColM:=RGB(38,167,224);ColE:=RGB(0,132,240);ColN:=RGB(39,239,255);Co
laxsdcerf:=RGB(61,123,245);oligft115(nb,Caso);oligft110(nb);oligft111(nb);DatsGri1:
={};RegsGri1:={};DatsGri2:={};RegsGri2:={};axsdcerfP();axsdcerfGrid();GX:={};GY
:={};Datsbmqa19();SelecElem();PropGeoElem(cn);DibElem(Tod,Esp);SelecTipElem(T
ip);fsrvthaGrilla(Tp);esc;cn;cx;cy;pb;la1;la2;la3;lx;ly;ElemSelec;NomElem:=1;TipEle
m:=1;dsawr()BEGIN
DIMGROB_P(G1,320,720);RECT_P(G1,Col128);RECT_P(G1,0,0,320,240,Col128);R
ECT_P(G1,25,1,318,21,Col142);BLIT_P(G1,1,1,24,24,CHAR({76,96,113,98,96}+1),0,
0,23,23);TEXTOUT_P(CHAR({195,234,207,249,216}/3),G1,28,4,3,Col39);TEXTOUT
_P(CHAR({195,234,207,249,216}/3),G1,28,4,3,Col39);LINE_P(G1,137,17,149,5,Col1
28);LINE_P(G1,137,18,150,5,Col128);LINE_P(G1,138,18,150,6,Col128);BLIT_P(G1,
165,5,180,18,"AE",0,0,15,13);ARC_P(G1,100,12,7,{Col12,Col129});TEXTOUT_P("i"
,G1,99,8,1,Col12);LINE_P(G1,235,4,235,12,Col128);TEXTOUT_P("▼",G1,233,7,1,C
ol128);LINE_P(G1,221,16,228,16,Col128);TEXTOUT_P("▶
",G1,228,12,1,Col128);TEXTOUT_P("●",G1,232,11,2,Col128);FILLPOLY_P(G1,{(22
5-25,9),(232-25,16),(218-
25,16)},Col128);TEXTOUT_P("●",G1,197,4,1,Col128);RECT_P(G1,249,16,267,17,R
GB(200,200,200));FOR I FROM 1 TO 5 DO LINE_P(G1,246+I*4,4+2*(I-
1),246+I*4,16,Col128);TEXTOUT_P("▾",G1,242+I*4,11,1,Col128);END;LINE_P(G1
,250,4,266,12,RGB(180,180,180));TEXTOUT_P("►",G1,280,-
2,7,Col118);RECT_P(G1,300,5,315,18,RGB(153,153,153));TEXTOUT_P("x",G1,304,-
1,5,#FFFFFFh,100);BLIT_P(G1,0,240,320,480,G1,0,0,320,240);axsdcerfP();END;axsd
cerfP()BEGIN BLIT_P(G0,0,0,320,240,G1,0,0,320,240);LOCAL touch;REPEAT
WAIT(-1)▶touch;IF TYPE(touch)=6 THEN IF touch(1)=0 OR touch(1)=3 THEN IF
0<=touch(3)<=20 THEN IF 87<=touch(2)<=111 THEN
Datsbmq19();axsdcerfP();BREAK;END;IF 131<=touch(2)<=156 AND Nnud==Eqx
THEN
BLIT_P(G1,0,0,320,240,G1,0,480,320,720);DibElem(1,0);RECT_P(G1,132,3,155,19,C
ol20);RECT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col148);LINE_P(G
1,137,18,150,5,Col148);LINE_P(G1,138,18,150,6,Col148);BLIT_P(G0,G1);WAIT(0.3
);Datsbmqa19();la1:={};FOR I FROM 1 TO rowDim(M1)DO la1(2*I-
1):=M1(I,1);la1(2*I):=M1(I,2);END;la1:=SORT(la1);la2:={};la2(1):=la1(1);FOR I
FROM 2 TO SIZE(la1)DO IF la1(I-1)≠la1(I)THEN
la2(SIZE(la2)+1):=la1(I);END;END;LOCAL
mmx0,conteo;mmx0:=[[0,0,0,0,0]];conteo:=0;FOR I FROM 1 TO SIZE(la2)DO
mmx0(I,1):=M0(la2(I),1);mmx0(I,2):=M0(la2(I),2);conteo:=conteo+mmx0(I,2);END;
M0:=mmx0;FOR I FROM 1 TO SIZE(la2)DO FOR H FROM 1 TO rowDim(M1)DO
IF M1(H,1)==la2(I)AND NElm==Eqy THEN M1(H,1):=I;END;IF
M1(H,2)==la2(I)AND Nnud==Eqx THEN
M1(H,2):=I;END;END;END;N:=rowDim(M0);B:=rowDim(M1);IF
conteo==M0(1,2)*N THEN FOR I FROM 1 TO N DO M0(I,2):=0;END;END;FOR I
FROM 1 TO B DO
Datsbmq111(I):={{0,0,0,0,1}};M1(I,3):=0.000001;M1(I,4):=1000000;M1(I,5):=0.0000
00000001;END;IF MAX(M1(-14))==0 OR MAX(M1(-15))==0 THEN T:=1;END;IF
MAX(M1(-14))==1 OR MAX(M1(-15))==1 THEN LOCAL nni,nri,nnf,nrf;FOR I
FROM 1 TO N DO nni:=0;nnf:=0;nri:=0;nrf:=0;FOR H FROM 1 TO rowDim(M1)DO
IF M1(H,1)==I AND NElm==Eqy THEN nni:=nni+1;IF M1(H,12)==0 THEN
nri:=nri+1;END;END;IF M1(H,2)==I THEN nnf:=nnf+1;IF M1(H,13)==0 AND
Nnud==Eqx THEN nrf:=nrf+1;END;END;END;IF(nni+nnf)==(nri+nrf)THEN FOR H
FROM 1 TO rowDim(M1)DO IF M1(H,1)==I THEN M1(H,14):=1;BREAK;END;IF
M1(H,2)==I THEN
M1(H,15):=1;BREAK;END;END;END;END;T:=3;END;BLIT_P(G1,0,0,320,23,G1,0,
240,320,263);BREAK;END;IF 157<=touch(2)<=320 AND Nnud==Eqx THEN
RETURN touch;BREAK;END;END;IF 270<=touch(2)<=320 AND
225<=touch(3)<=240 AND NElm==Eqy THEN
DatsGri1:={};RegsGri1:={};DatsGri2:={};RegsGri2:={};FOR I FROM 1 TO
SIZE(GX)DO DatsGri1(I):=GX(I);END;FOR I FROM 1 TO SIZE(GY)DO
DatsGri2(I):=GY(I);END;RECT_P(270,225,317,238,Col148,Col146);RECT_P(269,22
6,318,237,Col148,Col146);RECT_P(270,226,317,237,Col146,Col146);TEXTOUT_P(C
HAR({69,100,105,116,45,71,114,105,108,108}),272,228,1,Col128);oligft110(SIZE(GX
));BLIT_P(G1,0,0,320,240,G1,0,240,320,480);fsrvthaGrilla(1);axsdcerfP();BREAK;EN
D;IF 0<=touch(2)<=30 AND 0<=touch(3)<=25 THEN
BLIT_P(G1,0,0,320,240,G1,0,240,320,480);Inicio();axsdcerfP();BREAK;END;END;E
ND;IF TYPE(touch)=0 AND touch==4 THEN W:=0;BREAK;END;UNTIL
0;END;axsdcerfGrid()BEGIN LOCAL
cxi,cyi,ancho,alto,Nom;cxi:=75;cyi:=35;ancho:=175;alto:=175;Nom:=CHAR({78,117,1
01,118,111});RECT_P(cxi,cyi,cxi+ancho,cyi+alto,Col12,Col129);RECT_P(cxi,cyi,cxi+
ancho,cyi+17,Col12);TEXTOUT_P(Nom,cxi+5,cyi+3,2,Col128);RECT_P(cxi+ancho-
16,cyi+2,cxi+ancho-2,cyi+15,Col132);TEXTOUT_P("x",cxi+ancho-12,cyi-
5,5,#FFFFFFh,100);RECT_P(cxi+5,cyi+26,cxi+ancho-
5,cyi+77,Col133,Col129);TEXTOUT_P(CHAR({78,250,109,101,114,111,32,100,101,3
2,71,114,105,108,108,97,115}),cxi+10,cyi+22,1,Colaxsdcerf,100,Col129);TEXTOUT_
P(CHAR({68,105,114,101,99,99,105,243,110,32,88}),cxi+18,cyi+41,1,Col148);TEXT
OUT_P(CHAR({68,105,114,101,99,99,105,243,110,32,89}),cxi+18,cyi+60,1,Col148);
RECT_P(cxi+5,cyi+91,cxi+ancho-
5,cyi+142,Col133,Col129);TEXTOUT_P(CHAR({69,115,112,97,99,105,97,109,105,10
1,110,116,111}),cxi+10,cyi+87,1,Colaxsdcerf,100,Col129);TEXTOUT_P(CHAR({68,1
05,114,101,99,99,105,243,110,32,88}),cxi+18,cyi+106,1,Col148);TEXTOUT_P(CHA
R({68,105,114,101,99,99,105,243,110,32,89}),cxi+18,cyi+125,1,Col148);RECT_P(cxi
+ancho-32,cyi+106,cxi+ancho-10,cyi+126,Col3,Col131);TEXTOUT_P("✍",cxi+ancho-
28,cyi+105,4,Col148);RECT_P(90,186,150,204,Col12,Col131);RECT_P(91,187,149,2
03,Col12,Col131);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,189,2,Col148
);RECT_P(170,186,230,204,Col135,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,
108,97,114}),179,189,2,Col148);Regs:={{{165,70},{210,85}},{{165,89},{210,104}},{
{165,135},{210,150}},{{165,154},{210,169}}};Dats:={3,3,4,3};oligft115(4,3);fsrvtha
Grilla(1);END;Inicio()BEGIN
RECT_P(5,25,113,123,Col140);RECT_P(4,24,112,122,Col136);RECT_P(3,23,111,121
,Col133);RECT_P(2,22,110,120,Col131);LOCAL
cx,cy;cx:=12;cy:=25;FILLPOLY_P({(cx,cy),(cx+9,cy),(cx+14,cy+5),(cx+14,cy+15),(c
x,cy+15)},RGB(255,255,255));TEXTOUT_P("●",cx-
4,cy,7,Col5);TEXTOUT_P("+",cx-
2,cy+6,3,RGB(255,255,255));LINE_P(cx+9,cy,cx+9,cy+5,RGB(126,125,127));LINE_P
(cx+9,cy+5,cx+14,cy+5,RGB(126,125,127));TEXTOUT_P(CHAR({78,117,101,118,11
1}),33,29,2,Col148);cx:=7;
cy:=47;RECT_P(cx,cy+4,cx+22,cy+17,Col5);FILLPOLY_P({cx+1,cy,cx+9,cy,cx+14,c
y+3,cx+1,cy+3},Col5);TEXTOUT_P(CHAR({65,98,114,105,114}),33,50,2,Col148);cx
:=8;cy:=70;RECT_P(cx,cy,cx+20,cy+16,Col5);RECT_P(cx+3,cy,cx+17,cy+6,RGB(255
,255,255));RECT_P(cx+3,cy+10,cx+16,cy+16,RGB(255,255,255));RECT_P(cx+5,cy+
11,cx+7,cy+15,RGB(0,0,0));TEXTOUT_P(CHAR({71,117,97,114,100,97,114}),33,74,
2,Col148);RECT_P(10,102,27,102,Col137);RECT_P(10,107,27,107,Col137);RECT_P(
10,112,27,112,Col137);RECT_P(21,99,24,105,Col131,Col137);RECT_P(13,104,16,11
0,Col131,Col137);RECT_P(21,109,24,115,Col131,Col137);TEXTOUT_P(CHAR({67,
111,110,102,105,103,117,114,97,99,105,243,110}),33,102,2,Col148);LINE_P(8,93,102
,93,Col135);LOCAL touch1;REPEAT WAIT(-
1);touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN IF
0<=touch1(3)<=80 AND NElm==Eqy THEN IF 25<=touch1(4)<45 AND Nnud==Eqx
THEN
WN:=1;WB:=1;W:=1;M0:=[[0]];M1:=[[0]];M2:=[[0]];M3:=[[0]];M4:=[[0]];M5:=[[0]];
M6:=[[0]];M7:=[[0]];M8:=[[0]];M9:=[[0]];Datsbmq111:={};DCgN:={};DCgB:={};DA
p:={};GX:={};GY:={};L1:={};L2:={};L3:={};L4:={};L5:={};L6:={};L7:={};L8:={};
L9:={};L0:={};FILLPOLY_P({5,22,110,22,110,45,5,45},Col133,100);cx:=12;cy:=25;
FILLPOLY_P({(cx,cy),(cx+9,cy),(cx+14,cy+5),(cx+14,cy+15),(cx,cy+15)},RGB(255,2
55,255));TEXTOUT_P("●",cx-4,cy,7,Col5);TEXTOUT_P("+",cx-
2,cy+6,3,RGB(255,255,255));LINE_P(cx+9,cy,cx+9,cy+5,RGB(126,125,127));LINE_P
(cx+9,cy+5,cx+14,cy+5,RGB(126,125,127));TEXTOUT_P(CHAR({78,117,101,118,11
1}),33,29,2,Col148);WAIT(0.5);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);axsdcerfGrid
();BREAK;END;END;END;UNTIL
ISKEYDOWN(4);END;pxtrf3(Dato,Region,Tam)BEGIN LOCAL
NDato:=Dato,mx,my;NDato▶Dato;REPEAT
ldljt2(NDato+"✍",Region,MCuad,FCuad,Tam);Accion:=B→R(WAIT(-1));IF
TYPE(Accion)=0 THEN CASE IF Accion==4 THEN Dato▶NDato;BREAK;END;IF
Accion==30 THEN IFERR EXPR(NDato)THEN NDato▶NDato;END;BREAK;END;IF
Accion==19 THEN IF DIM(NDato)≤1 THEN " "▶NDato;ELSE
LEFT(NDato,DIM(NDato)-1)▶NDato;END;END;DEFAULT NDato+jjrtg2 ▶
NDato;END;ELSE IF SIZE(Accion)<1 AND
NOT(Region(1,1)<Accion(2)<Region(2,1)AND
Region(1,2)<Accion(3)<Region(2,2))THEN IFERR EXPR(NDato)THEN Dato▶
NDato;END;BREAK;END;END;UNTIL 0;IFERR EXPR(NDato)▶NDato;THEN
NDato▶
NDato;END;ldljt2(NDato,Region,AzulTit,White,Tam);NDato;END;zvfgk3(Dato,Regio
n,Ayuda,Texto)BEGIN LOCAL
NDato:=STRING(Dato,1),mx,my,j,ss;LEFT(EXPR(Texto),8)▶Accion;ASC(Accion)▶
Accion;FOR j:=1 TO 8 DO ss:=ss+Accion(j);END;ss▶Accion;NDato▶Dato;IF
Accion==456 THEN REPEAT
fldth3(NDato+"✍",Region,MCuad,FCuad);RECT_P({5,225},{320,240},Fondo);TEXT
OUT_P(Ayuda,5,227,2);Accion:=B→R(WAIT(-1));IF TYPE(Accion)=0 THEN CASE
IF Accion==4 AND ss==gpk2 THEN Dato▶NDato;BREAK;END;IF Accion==30 AND
ss==gpk2 THEN IFERR EXPR(NDato)THEN Dato▶NDato;END;BREAK;END;IF
Accion==19 AND ss==gpk2 THEN IF DIM(NDato)≤1 THEN " "▶NDato;ELSE
LEFT(NDato,DIM(NDato)-1)▶NDato;END;END;DEFAULT NDato+jjrtg2 ▶
NDato;END;ELSE IF SIZE(Accion)<1 AND
NOT(Region(1,1)<Accion(2)<Region(2,1)AND
Region(1,2)<Accion(3)<Region(2,2))THEN IFERR EXPR(NDato)THEN Dato▶
NDato;END;BREAK;END;END;UNTIL
0;END;RECT_P({5,223},{320,240},Fondo);EXPR(NDato)▶
NDato;fldth3(STRING(NDato,1),Region,AzulTit,White);NDato;END;yyhte3(Dato,Reg
ion,Ayuda)BEGIN LOCAL NDato:=STRING(Dato,1),mx,my;NDato▶Dato;REPEAT
fldth3(NDato+"✍",Region,MCuad,FCuad);RECT_P({5,225},{235,240},Fondo);TEXT
OUT_P(Ayuda,5,227,2);Accion:=B→R(WAIT(-1));IF TYPE(Accion)=0 THEN CASE
IF Accion==4 AND qwr4==xpre1 THEN Dato▶NDato;BREAK;END;IF Accion==30
AND qwr4==xpre1 THEN IFERR EXPR(NDato)THEN Dato▶
NDato;END;BREAK;END;IF Accion==19 THEN IF DIM(NDato)≤1 THEN " "▶
NDato;ELSE LEFT(NDato,DIM(NDato)-1)▶NDato;END;END;DEFAULT
NDato+jjrtg2 ▶NDato;END;ELSE IF SIZE(Accion)<1 AND
NOT(Region(1,1)<Accion(2)<Region(2,1)AND
Region(1,2)<Accion(3)<Region(2,2))THEN IFERR EXPR(NDato)THEN Dato▶
NDato;END;BREAK;END;END;UNTIL
0;RECT_P({5,223},{235,240},Fondo);EXPR(NDato)▶
NDato;fldth3(STRING(NDato,1),Region,AzulTit,White);NDato;END;qljgt3(Ayuda,Va
lor)BEGIN
RECT_P({5,225},{320,240},Fondo);TEXTOUT_P(Ayuda+Valor,5,227,2);END;ldljt2(
Dato,Region,ColorA,ColorB,Tam)BEGIN
RECT_P(Region(1),Region(2),ColorA,ColorB);TEXTOUT_P(Dato,Region(1)+4,Tam);
END;fldth3(Dato,Region,ColorA,ColorB)BEGIN
RECT_P(Region(1),Region(2),ColorA,ColorB);TEXTOUT_P(Dato,Region(1)+4,1);EN
D;ftyul3(Dato,Region,Unid,ColorA,ColorB)BEGIN
RECT_P(Region(1),Region(2),ColorA,ColorB);TEXTOUT_P(Dato+CHAR({32})+Uni
d,Region(1)+4,1);END;jjrtg3(Dato,Region,ColorA,ColorB)BEGIN LOCAL
L,xf,yf;L:=Region(2,1);xf:=Region(2,1);yf:=Region(2,2);RECT_P(Region(1),Region(2)
,ColorA,PlomoA);TEXTOUT_P(Dato,Region(1)+4,1);TEXTOUT_P(" ▼ ",L-
12,Region(1,2),3);TEXTOUT_P(CHAR({124}),L-14,Region(1,2)-
3,4);END;ffllq2(Dato,Region,ColorA,ColorB,G2)BEGIN
RECT_P(G2,Region(1),Region(2),BlueClasic,PlomoA);TEXTOUT_P(Dato,G2,Region
(1)+4,1);END;jjrtg2()BEGIN LOCAL Val=Accion,Rs;CASE IF 31≤Val<35 THEN 25▶
Rs END;IF Val=35 THEN RETURN CHAR({47});END;IF 36≤Val<40 THEN 33▶Rs
END;IF Val=40 THEN RETURN CHAR({42});END;IF 41≤Val<45 THEN 41▶Rs
END;IF Val=45 THEN RETURN CHAR({45});END;IF Val=47 THEN RETURN
CHAR({48});END;IF Val=48 THEN RETURN CHAR({46});END;IF Val=50 THEN
RETURN " + ";END;DEFAULT RETURN "";END;STRING(Val-
Rs,1);END;llfft2(num)BEGIN LOCAL Val=Accion,Rs;CASE IF 31≤Val<35 THEN 25
▶Rs END;IF Val=35 THEN RETURN CHAR({47});END;IF 37≤Val<40 THEN 33▶Rs
END;IF Val=40 THEN RETURN CHAR({42});END;IF 41≤Val<45 THEN 41▶Rs
END;IF Val=45 THEN RETURN CHAR({45});END;IF Val=47 THEN RETURN
CHAR({48});END;IF Val=48 THEN RETURN CHAR({46});END;IF Val=50 THEN
RETURN " + ";END;DEFAULT RETURN "";END;STRING(Val-
Rs,1);END;tlitg2(num,rtyh9)BEGIN CASE IF ABS(num)<0.0000001 THEN
num:=0;END;IF 1>num>0 THEN num:=ROUND(num,-rtyh9);END;IF num>=1 THEN
num:=ROUND(num,rtyh9);END;IF-1<num<0 THEN num:=ROUND(num,-
rtyh9);END;IF num<=-1 THEN num:=ROUND(num,rtyh9);END;IF num==0 THEN
num:=0;END;END;RETURN num;END;ldljtr2(list,rtyh9)BEGIN LOCAL
N:=length(list),j;FOR j:=1 TO N DO list(j):=tlitg2(list(j),rtyh9);END;RETURN
list;END;hdljt2(Matr,rtyh9)BEGIN LOCAL
Nf:=rowDim(Matr),Nc:=colDim(Matr),i,j;FOR j:=1 TO Nc DO FOR i:=1 TO Nf DO
Matr(i,j):=tlitg2(Matr(i,j),rtyh9);END;END;RETURN
Matr;END;tdljt2(vect,rtyh9)BEGIN LOCAL N:=length(vect),j;FOR j:=1 TO N DO
vect(j):=tlitg2(vect(j),rtyh9);END;RETURN
vect;END;pxtrf10(Gr,Matr,xo,yo,rtyh9,TCol,cSI,SI,cNOM,NOM)BEGIN LOCAL
Nf:=rowDim(Matr),Nc:=colDim(Matr),i,k;LOCAL
lx,ly,DimCol:={},ELa,ELb,MC;Matr:=hdljt2(Matr,rtyh9);FOR k:=1 TO Nc DO
ELb:=STRING(Matr(1,k));FOR i:=1 TO Nf DO ELa:=STRING(Matr(i,k));IF
DIM(ELa)>=DIM(ELb)THEN
ELb:=STRING(Matr(i,k));DimCol(k):=DIM(ELa);END;END;END;lx:=0;FOR i:=1 TO
Nc DO TEXTOUT_P(i,Gr,xo+lx,yo+ly-
10,1,PlomoA);lx:=lx+7*DimCol(i)+12;END;FOR k:=1 TO Nf DO ly:=ly+15;
TEXTOUT_P(k,Gr,xo+lx+10,yo+ly-10,1,PlomoA);END;ly:=0;FOR k:=1 TO Nf DO
lx:=0;FOR i:=1 TO Nc DO
TEXTOUT_P(Matr(k,i),Gr,xo+lx,yo+ly,3,TCol);lx:=lx+7*DimCol(i)+12;END;ly:=ly+
15;END;RECT_P(Gr,{xo-10,yo},{xo-
9,yo+ly},RedA);RECT_P(Gr,{xo+lx,yo},{xo+lx+1,yo+ly},RedA);LOCAL
mid:=yo+ly/2;IF cSI==1 THEN
TEXTOUT_P(CHAR({32,46,46,46,32,40,32})+SI+CHAR({32,41}),Gr,xo+lx+18,mid,
1,RedA);END;LOCAL mid:=yo+ly/2-6;IF cNOM==1 THEN
TEXTOUT_P(NOM+CHAR({32,61}),Gr,xo-8*DIM(NOM+2)-
10,mid,2,RedA);END;lx:=lx;lagr3:=lx+20;lagr4:=ly+20;END;tlitg10(Gr,Matr,xo,yo,rty
h9,TCol,cSI,SI,cNOM,NOM,TS,ColTS,cTL,TL)BEGIN LOCAL
Nf:=rowDim(Matr),Nc:=colDim(Matr),i,k;LOCAL
lx,ly,DimCol:={},ELa,ELb,MC;LOCAL
DimColA:={},DimColB:={},DimC:={};Matr:=hdljt2(Matr,rtyh9);FOR k:=1 TO Nc
DO ELb:=STRING(Matr(1,k));FOR i:=1 TO Nf DO ELa:=STRING(Matr(i,k));IF
DIM(ELa)>=DIM(ELb)THEN
ELb:=STRING(Matr(i,k));DimColB(k):=DIM(ELa);END;END;END;lx:=0;FOR i:=1
TO Nc DO ELa:=DIM(TS(i));DimColA(i):=ELa;END;FOR k:=1 TO Nc DO
DimCol(k):=MAX(DimColA(k),DimColB(k));END;lx:=0;FOR i:=1 TO Nc DO
TEXTOUT_P(TS(i),Gr,xo+lx,yo+ly-10,1,ColTS);lx:=lx+7*DimCol(i)+12;END;IF
cTL==1 THEN FOR k:=1 TO Nf DO
ly:=ly+15;TEXTOUT_P(TL(k),Gr,xo+lx+10,yo+ly-
10,1,PlomoA);ELa:=DIM(TL(k));DimC(k):=ELa;END;ELSE FOR k:=1 TO Nf DO
ly:=ly+15;TEXTOUT_P(k,Gr,xo+lx+10,yo+ly-10,1,PlomoA);END;END;ly:=0;FOR
k:=1 TO Nf DO lx:=0;FOR i:=1 TO Nc DO
TEXTOUT_P(Matr(k,i),Gr,xo+lx,yo+ly,3,TCol);lx:=lx+7*DimCol(i)+12;END;ly:=ly+
15;END;RECT_P(Gr,{xo-10,yo},{xo-
9,yo+ly},RedA);RECT_P(Gr,{xo+lx,yo},{xo+lx+1,yo+ly},RedA);LOCAL
mid:=yo+ly/2,dx,ad;ad:=CAS(CAS(CHAR({83,69,82,73,65,76})));IF
ad=="9CJ73507JL" THEN IF cTL==1 THEN dx:=7*DimC(1);IF cSI==1 THEN
TEXTOUT_P(CHAR({32,46,46,46,32,40,32})+SI+CHAR({32,41}),Gr,xo+lx+dx,mid,
1,RedA);END;ELSE IF cSI==1 THEN
TEXTOUT_P(CHAR({32,46,46,46,32,40,32})+SI+CHAR({32,41}),Gr,xo+lx+18,mid,
1,RedA);END;END;END;LOCAL mid:=yo+ly/2-6;IF cNOM==1 THEN
TEXTOUT_P(NOM+CHAR({32,61}),Gr,xo-8*DIM(NOM+2)-
10,mid,2,RedA);END;lx:=lx;lagr3:=lx+20;lagr4:=ly+20;END;zvfgk10(Gr,Matr,xo,yo,rt
yh9,Tex,TCol)BEGIN LOCAL Nf:=rowDim(Matr),Nc:=colDim(Matr),i,k;LOCAL
lx,ly,DimColA:={},DimColB:={},ELa,ELb,MC,DimCol:={};Matr:=hdljt2(Matr,rtyh9);
FOR k:=1 TO Nc DO
ELa:=DIM(Tex(k));DimColA(k):=ELa;END;Matr:=hdljt2(Matr,rtyh9);FOR k:=1 TO
Nc DO ELb:=STRING(Matr(1,k));FOR i:=1 TO Nf DO ELa:=STRING(Matr(i,k));IF
DIM(ELa)>=DIM(ELb)THEN
ELb:=STRING(Matr(i,k));DimColB(k):=DIM(ELa);END;END;END;FOR k:=1 TO Nc
DO DimCol(k):=MAX(DimColA(k),DimColB(k));END;lx:=0;FOR i:=1 TO Nc DO
TEXTOUT_P(Tex(i),Gr,xo+lx,yo+ly-
18,3,RedA);lx:=lx+8*DimCol(i)+12;END;RECT_P(Gr,{xo-10,yo+ly-19},{xo+lx-
5,yo+ly-20},RedA);RECT_P(Gr,{xo-10,yo+ly-2},{xo+lx-5,yo+ly-
0.5},RedA);ly:=0;FOR k:=1 TO Nf DO lx:=0;FOR i:=1 TO Nc DO
TEXTOUT_P(Matr(k,i),Gr,xo+lx,yo+ly,3,TCol);lx:=lx+8*DimCol(i)+12;RECT_P(Gr,
{xo+lx-5,yo-20},{xo+lx-5,yo+ly+15},RedA);END;ly:=ly+15;END;RECT_P(Gr,{xo-
10,yo+ly},{xo+lx-5,yo+ly-0.5},RedA);RECT_P(Gr,{xo-10,yo-20},{xo-
9,yo+ly},RedA);RECT_P(Gr,{xo+lx-5,yo-15},{xo+lx-
4,yo+ly},RedA);lx:=lx;lagr3:=lx+20;lagr4:=ly+20;END;yyhte10(Gr,Tx,Num,Den,xo,y
o,L,TCol)BEGIN LOCAL
nN,nD,nT;nN:=DIM(Num);nD:=DIM(Den);nT:=DIM(Tx);TEXTOUT_P(Tx,Gr,xo+4,y
o+5,2,TCol);TEXTOUT_P(Num,Gr,xo+nT*7+2,yo,2,TCol);RECT_P(Gr,{xo+nT*7,yo
+12},{xo+nT*7+L,yo+12.30},TCol);TEXTOUT_P(Den,Gr,xo+nT*8+5,yo+17,2,TCol)
;END;ffllq10(Gr,Eeq,xo,yo,L,H,TCol)BEGIN
RECT_P(Gr,{xo,yo},{xo+L,yo+H},TCol,PlomoA);RECT_P(Gr,{xo+0.2,yo+0.2},{xo+
L-0.2,yo+H-
0.2},TCol,PlomoA);TEXTOUT_P(Eeq,Gr,xo+5,yo+5,2,TCol);END;jjrtg10(Gr,Te,Ts,x
o,yo,TCol)BEGIN LOCAL
nN;nN:=DIM(Te);TEXTOUT_P(Te,Gr,xo,yo,2,TCol);TEXTOUT_P(Ts,Gr,xo+8*nN,y
o-5,1,TCol);END;llfft10(Gr,Te,Ts,xo,yo,TCol)BEGIN LOCAL
nN;nN:=DIM(Te);TEXTOUT_P(Te,Gr,xo,yo,2,TCol);TEXTOUT_P(Ts,Gr,xo+8*nN,y
o+8,1,TCol);END;fsrvthaGrilla(Tp)BEGIN IF SIZE(GX)≠0 AND SIZE(GY)≠0 THEN
M0:=MAKEMAT(0,1,5);M1:=MAKEMAT(0,1,5);cn:=0;cx:=0;cy:=0;FOR I FROM 1
TO SIZE(GY)+1 DO cn:=cn+1;M0(cn,1):=cx;M0(cn,2):=cy;FOR J FROM 1 TO
SIZE(GX)DO cn:=cn+1;cx:=cx+GX(J);M0(cn,1):=cx;M0(cn,2):=cy;END;IFERR
cy:=cy+GY(I);THEN BREAK;END;cx:=0;END;la1:={};la2:={};cn:=0;FOR I FROM 1
TO SIZE(GY)+1 DO FOR J FROM 1 TO SIZE(GX)+1 DO
cn:=cn+1;la2(J):=cn;END;la1(I):=la2;END;cn:=0;FOR I FROM 1 TO SIZE(GY)+1 DO
la2:=la1(I);FOR J FROM 2 TO SIZE(GX)+1 DO cn:=cn+1;M1(cn,1):=la2(J-
1);M1(cn,2):=la2(J);END;END;la3:={};FOR I FROM 2 TO SIZE(GY)+1 DO
la2:=la1(I-1);la3:=la1(I);FOR J FROM 1 TO SIZE(GX)+1 DO
cn:=cn+1;M1(cn,1):=la2(J);M1(cn,2):=la3(J);END;END;LOCAL
s1,s2,px,py;MC:=M0;Zx:=0;Zy:=0;px:=320;py:=240;bdx:=35;bdy:=35;IFERR
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-2*bdy)/MAX(MC(-2)));THEN CASE IF
MAX(MC(-2))==0 AND MAX(MC(-1))==0 AND NElm==Eqy THEN esc:=MIN((px-
2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN esc:=MIN((px-2*bdx),(py-
2*bdy)/MAX(MC(-2)));END;IF MAX(MC(-2))==0 AND NElm==Eqy THEN
esc:=MIN((px-2*bdx)/MAX(MC(-1)),(py-
2*bdy))END;END;END;MC:=esc*MC;s1:=(px-MAX(MC(-1)))/2;s2:=(py-MAX(MC(-
2)))/2;FOR I FROM 1 TO rowDim(M0)DO
MC(I,1):=Zx+s1+MC(I,1);MC(I,2):=Zy+py-s2-
MC(I,2);END;MC:=ROUND(MC,0);FOR I FROM 1 TO rowDim(MC)DO
MC(I,1):=MC(I,1)-15;MC(I,2):=MC(I,2)+15;END;IFERR FOR I FROM 1 TO
SIZE(GX)DO IF I<SIZE(GX)THEN TEXTOUT_P(GX(I),G1,(MC(M1(I,1),1)-
3+MC(M1(I+1,1),1)-3)/2,228,1,Col130);ELSE
TEXTOUT_P(GX(I),G1,(MC(M1(I,1),1)-3+MC(M1(I,2),1)-
3)/2,228,1,Col130);END;ARC_P(G1,MC(M1(I,1),1),231,7,Col131);TEXTOUT_P(CH
AR({64+I}),G1,MC(M1(I,1),1)-
3,228,1,Col131);LINE_P(G1,MC(M1(I,1),1),MC(M1(I,1),2),MC(M1(I,1),1),224,Col12
9);IF I==SIZE(GX)THEN
ARC_P(G1,MC(M1(I,2),1),231,7,Col131);LINE_P(G1,MC(M1(I,2),1),MC(M1(I,1),2),
MC(M1(I,2),1),224,Col129);TEXTOUT_P(CHAR({64+I+1}),G1,MC(M1(I,2),1)-
3,228,1,Col131);END;END;FOR I FROM 1 TO SIZE(GY)DO
TEXTOUT_P(GY(I),G1,5,(MC(M1(I*(SIZE(GX)),2),2)-
4+MC(M1(I*(SIZE(GX))+1,2),2)-
4)/2,1,Col131);LINE_P(G1,16,MC(M1(I*(SIZE(GX)),2),2),MC(M1(I*(SIZE(GX)),2),
1),MC(M1(I*(SIZE(GX)),2),2),Col129);ARC_P(G1,9,MC(M1(I*(SIZE(GX)),2),2),7,C
ol131);TEXTOUT_P(I,G1,7,MC(M1(I*(SIZE(GX)),2),2)-4,1,Col131);IF
I==SIZE(GY)THEN
LINE_P(G1,16,MC(I*(SIZE(GX)+1)+1,2),MC(M1(I*(SIZE(GX)+1),2),1),MC(I*(SIZ
E(GX)+1)+1,2),Col129);ARC_P(G1,9,MC(I*(SIZE(GX)+1)+1,2),7,Col131);TEXTOU
T_P(I+1,G1,7,MC(I*(SIZE(GX)+1)+1,2)-4,1,Col131);END;END;THEN END;FOR I
FROM 1 TO rowDim(M1)DO
LINE_P(G1,MC(M1(I,1),1),MC(M1(I,1),2),MC(M1(I,2),1),MC(M1(I,2),2),RGB(230,2
30,230));END;BLIT_P(G1,0,480,320,720,G1,0,0,320,240);IF Tp==1 THEN
RECT_P(G1,270,225,317,238,Col3,Col131);RECT_P(G1,269,226,318,237,Col3,Col13
1);RECT_P(G1,270,226,317,237,Col131,Col131);TEXTOUT_P(CHAR({69,100,105,1
16,45,71,114,105,108,108}),G1,272,228,1);END;BLIT_P(G0,0,0,320,240,G1,0,0,320,2
40);L3:={};FOR I FROM 1 TO rowDim(M0)DO L3(SIZE(L3)+1):={MC(I,1)-
9,MC(I,2)-
9,MC(I,1)+9,MC(I,2)+9};END;M1:=[[0]];END;END;EXAGONO_P(cx,cy,Gr,Etiq,Col
B,ColF)BEGIN LINE_P(Gr,cx-8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-4,cy,cx-
4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-
4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-
4,cy,ColB);END;Datsbmqa19()BEGIN ElemSelec:={};IF M1(1,1)==0 THEN
cn:=0;ELSE cn:=rowDim(M1);END;TipElem:=1;LOCAL
touch,touch1,ps;ps:=0;REPEAT SelecTipElem(TipElem);WAIT(-1)▶touch;IF
TYPE(touch)==6 THEN IF touch(1)==0 OR touch(1)==3 THEN IF 0<=touch(2)<=280
AND 25<=touch(3)<=230 THEN FOR I FROM 1 TO SIZE(L3)DO la1:=L3(I);IF
la1(1)<=touch(2)<=la1(3)AND la1(2)<=touch(3)<=la1(4)AND Nnud==Eqx THEN
ElemSelec:={};BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);BLIT_P(G0,0,0
,320,240,G1,0,0,320,240);SelecTipElem(TipElem);TEXTOUT_P("●",MC(I,1)-
5,MC(I,2)-11,5,RGB(39,239,255));REPEAT
touch1:=MOUSE();touch1:=B→R(touch1(1));IF SIZE(touch1)THEN FOR J FROM 1
TO SIZE(L3)DO la1:=L3(J);IF la1(1)<=touch1(3)<=la1(3)AND
la1(2)<=touch1(4)<=la1(4)AND I≠J THEN
LINE_P(MC(I,1),MC(I,2),MC(J,1),MC(J,2),ColE);cn:=cn+1;M1(cn,1):=I;M1(cn,2):=J;
PropGeoElem(cn);TEXTOUT_P("●",MC(J,1)-5,MC(J,2)-
11,5,ColN);WAIT(0.2);ps:=1;BREAK(3);END;END;END;IF ISKEYDOWN(4)AND
Nnud==Eqx THEN ps:=1;BREAK(2);END;UNTIL 0;END;END;IF ps==1 THEN
SelecElem();BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);BLIT_P(G0,0,0,3
20,240,G1,0,0,320,240);END;IF ps==0 AND M1(1,1)≠0 THEN FOR I FROM 1 TO
rowDim(M1)DO L1:=L2(I);FOR J FROM 1 TO SIZE(L1)DO la1:=L1(J);IF
la1(1)<=touch(2)<=la1(3)AND la1(2)<=touch(3)<=la1(4)AND Nnud==Eqx THEN
ElemSelec(SIZE(ElemSelec)+1):=I;BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(
0,I);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);BREAK(2);END;END;END;END;ps:=0;
ELSE IF 157<=touch(2)<=320 AND 0<=touch(3)<=23 THEN RETURN
touch;BREAK;END;IF 292<=touch(2)<=320 AND 32<=touch(3)<=53 AND
NElm==Eqy THEN
TipElem:=1;SelecTipElem(1);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);END;IF 292<=touch(2)<=320 AND
57<=touch(3)<=78 THEN
TipElem:=2;SelecTipElem(2);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);END;IF 292<=touch(2)<=320 AND
82<=touch(3)<=103 AND Nnud==Eqx THEN
TipElem:=3;SelecTipElem(3);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);END;IF 292<=touch(2)<=320 AND
107<=touch(3)<=128 AND NElm==Eqy THEN
TipElem:=4;SelecTipElem(4);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);DibElem(1,0);
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);END;END;END;END;IF
ISKEYDOWN(4)AND SIZE(ElemSelec)≠0 THEN
ElemSelec:={};DibElem(1,0);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);touch:=100;EN
D;IF ISKEYDOWN(19)AND SIZE(ElemSelec)≠0 THEN FOR H FROM 1 TO
SIZE(ElemSelec)DO M1(ElemSelec(H),1):=-1;L2(ElemSelec(H)):=-1;END;FOR H
FROM 1 TO SIZE(ElemSelec)DO FOR J FROM 1 TO rowDim(M1)DO IF M1(J,1)==-
1 THEN M1:=DELROW(M1,J);BREAK;END;END;END;la1:=L2;L2:={};FOR H
FROM 1 TO SIZE(la1)DO IF TYPE(la1(H))==6 THEN
L2(SIZE(L2)+1):=la1(H);END;END;cn:=rowDim(M1);IF M1(1,1)==0 AND
NElm==Eqy THEN
cn:=0;END;ElemSelec:={};BLIT_P(G1,0,0,320,240,G1,0,480,320,720);RECT_P(G1,1
32,3,155,19,Col20);RECT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col14
8);LINE_P(G1,137,18,150,5,Col148);LINE_P(G1,138,18,150,6,Col148);DibElem(1,0);
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);touch:=100;END;IF TYPE(touch)=0 AND
touch==4 THEN BREAK;END;UNTIL 0;END;PropGeoElem(cn)BEGIN
lx:=M0(M1(cn,2),1)-M0(M1(cn,1),1);ly:=M0(M1(cn,2),2)-
M0(M1(cn,1),2);M1(cn,8):=sqrt(lx^2+ly^2);M1(cn,9):=ACOS(lx/M1(cn,8));M1(cn,10)
:=lx/M1(cn,8);M1(cn,11):=ly/M1(cn,8);IF TipElem==1 THEN
M1(cn,12):=1;M1(cn,13):=1;M1(cn,14):=1;M1(cn,15):=1;END;IF TipElem==2 THEN
M1(cn,12):=0;M1(cn,13):=1;M1(cn,14):=0;M1(cn,15):=1;END;IF TipElem==3 THEN
M1(cn,12):=1;M1(cn,13):=0;M1(cn,14):=1;M1(cn,15):=0;END;IF TipElem==4 AND
NElm==Eqy THEN
M1(cn,12):=0;M1(cn,13):=0;M1(cn,14):=0;M1(cn,15):=0;END;END;ColR:=RGB(85,1
97,208);
DibElem(Tod,Esp)BEGIN LOCAL TipElemA;IF M1(1,1)≠0 THEN IF Tod==1 THEN
TipElemA:=TipElem;FOR H FROM 1 TO rowDim(M1)DO IF M1(H,12)==1 AND
M1(H,13)==1 AND Nnud==Eqx THEN TipElem:=1;END;IF M1(H,12)==0 AND
M1(H,13)==1 THEN TipElem:=2;END;IF M1(H,12)==1 AND M1(H,13)==0 AND
Nnud==Eqx THEN TipElem:=3;END;IF M1(H,12)==0 AND M1(H,13)==0 THEN
TipElem:=4;END;RECT_P(G1,MC(M1(H,1),1)-1,MC(M1(H,1),2)-
1,MC(M1(H,1),1)+1,MC(M1(H,1),2)+1,Col12);RECT_P(G1,MC(M1(H,2),1)-
1,MC(M1(H,2),2)-
1,MC(M1(H,2),1)+1,MC(M1(H,2),2)+1,Col12);LINE_P(G1,MC(M1(H,1),1),MC(M1(
H,1),2),MC(M1(H,2),1),MC(M1(H,2),2),Col12);IF NomElem==1 THEN
TEXTOUT_P(H,G1,(ABS(MC(M1(H,1),1)+MC(M1(H,2),1)))/2-
3,(ABS(MC(M1(H,1),2)+MC(M1(H,2),2)))/2-3,1,Col12,30,Col128);END;IF
TipElem==1 THEN END;IF TipElem==2 THEN
ARC_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;IF TipElem==3 THEN ARC_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);END;IF TipElem==4 AND
NElm==Eqy THEN ARC_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);ARC_P(G1,MC(M1(H,1),1)+7*M
1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;END;TipElem:=TipElemA;ELSE
H:=Esp;TipElemA:=TipElem;IF M1(H,12)==1 AND M1(H,13)==1 THEN
TipElem:=1;END;IF M1(H,12)==0 AND M1(H,13)==1 THEN TipElem:=2;END;IF
M1(H,12)==1 AND M1(H,13)==0 THEN TipElem:=3;END;IF M1(H,12)==0 AND
M1(H,13)==0 THEN TipElem:=4;END;RECT_P(G1,MC(M1(H,1),1)-
1,MC(M1(H,1),2)-
1,MC(M1(H,1),1)+1,MC(M1(H,1),2)+1,Col111);RECT_P(G1,MC(M1(H,2),1)-
1,MC(M1(H,2),2)-
1,MC(M1(H,2),1)+1,MC(M1(H,2),2)+1,Col111);LINE_P(G1,MC(M1(H,1),1),MC(M1(
H,1),2),MC(M1(H,2),1),MC(M1(H,2),2),Col111);IF NomElem==1 THEN
TEXTOUT_P(H,G1,(ABS(MC(M1(H,1),1)+MC(M1(H,2),1)))/2-
3,(ABS(MC(M1(H,1),2)+MC(M1(H,2),2)))/2-3,1,Col111,30,Col128);END;IF
TipElem==1 THEN END;IF TipElem==2 THEN
ARC_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;IF TipElem==3 THEN ARC_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);END;IF TipElem==4 THEN
ARC_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,2),1)-
7*M1(H,10),MC(M1(H,2),2)+7*M1(H,11),Col128);ARC_P(G1,MC(M1(H,1),1)+7*M
1(H,10),MC(M1(H,1),2)-
7*M1(H,11),2,Col111);PIXON_P(G1,MC(M1(H,1),1)+7*M1(H,10),MC(M1(H,1),2)-
7*M1(H,11),Col128);END;TipElem:=TipElemA;END;END;END;SelecTipElem(Tip)B
EGIN
RECT_P(270,225,318,238,Col12,Col129);TEXTOUT_P("KN,m,C",272,228,1,Col148)
;TEXTOUT_P("▼",309,227,2,Col135);TipElem:=Tip;RECT_P(290,30,317,130,Col14
5,Col128);IF NomElem==1 THEN END;IF NomElem==0 THEN END;IF TipElem==1
THEN
RECT_P(292,32,313,53,Col130,Col130);RECT_P(315,32,316,53,ColM);END;IF
TipElem==2 THEN
RECT_P(292,57,313,78,Col130,Col130);RECT_P(315,57,316,78,ColM);END;IF
TipElem==3 AND NElm==Eqy THEN
RECT_P(292,82,313,103,Col130,Col130);RECT_P(315,82,316,103,ColM);END;IF
TipElem==4 AND Nnud==Eqx THEN
RECT_P(292,107,313,128,Col130,Col130);RECT_P(315,107,316,128,ColM);END;cy:
=34;cx:=294;LINE_P(cx,cy+16,cx+16,cy,Col12);LINE_P(cx,cy+17,cx+17,cy,Col12);L
INE_P(cx+1,cy+17,cx+17,cy+1,Col12);cy:=62;cx:=297;LINE_P(cx,cy+10,cx+10,cy,C
ol12);LINE_P(cx,cy+11,cx+11,cy,Col12);LINE_P(cx+1,cy+11,cx+11,cy+1,Col12);TE
XTOUT_P("●",293,69,2,Col12);cy:=87;cx:=297;LINE_P(cx,cy+10,cx+10,cy,Col12);L
INE_P(cx,cy+11,cx+11,cy,Col12);LINE_P(cx+1,cy+11,cx+11,cy+1,Col12);TEXTOUT
_P("●",306,81,2,Col12);cy:=112;cx:=297;LINE_P(cx,cy+10,cx+10,cy,Col12);LINE_P(
cx,cy+11,cx+11,cy,Col12);LINE_P(cx+1,cy+11,cx+11,cy+1,Col12);TEXTOUT_P("●",
293,119,2,Col12);TEXTOUT_P("●",306,106,2,Col12);END;SelecElem()BEGIN IF
M1(1,1)≠0 THEN LOCAL
xi,yi,x,l,xa,ya;B:=rowDim(M1);I:=rowDim(M1);L1:={};CASE IF
M0(M1(I,2),2)==M0(M1(I,1),2)AND Nnud==Eqx THEN
lx:={MC(M1(I,1),1),MC(M1(I,2),1)};ly:={MC(M1(I,1),2),MC(M1(I,2),2)};lx:=SORT(
lx);ly:=SORT(ly);L1(1):={lx(1)+10,ly(1)-7,lx(2)-10,ly(2)+7};END;IF
M0(M1(I,2),1)==M0(M1(I,1),1)THEN
lx:={MC(M1(I,1),1),MC(M1(I,2),1)};ly:={MC(M1(I,1),2),MC(M1(I,2),2)};lx:=SORT(
lx);ly:=SORT(ly);L1(1):={lx(1)-7,ly(1)+10,lx(2)+7,ly(2)-10};END;IF 1==1 THEN
l:=M1(I,8)*esc;FOR H FROM 16 TO l-5 STEP 15 DO
x:=H/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);IF
16<H<l-5 THEN
L1(SIZE(L1)+1):=ROUND({MIN(xa,xi),MIN(ya,yi),MAX(xa,xi),MAX(ya,yi)},0);EN
D;xa:=xi;ya:=yi;END;END;END;L2(I):=L1;LOCAL
x1,x2,y1,y2,x1a,x2a,y1a,y2a;I:=rowDim(M1);L1:=L2(I);FOR J FROM 1 TO
SIZE(L1)DO la1:=L1(J);x1:=la1(1);y1:=la1(2);x2:=la1(3);y2:=la1(4);IF 1<J AND
NElm==Eqy THEN
L1(SIZE(L1)+1):={MIN(((x1a+x1)/2),((x2a+x2)/2)),MIN(((y1a+y1)/2),((y2a+y2)/2)),
MAX(((x1a+x1)/2),((x2a+x2)/2)),MAX(((y1a+y1)/2),((y2a+y2)/2))};END;x1a:=la1(1);
y1a:=la1(2);x2a:=la1(3);y2a:=la1(4);END;L2(I):=L1;END;END;oligft115(nb,Caso)BE
GIN LOCAL Btn,Tmp,cn,conm,cx,cy,Region1;cx:=30;cy:=53;FOR Btn:=1 TO nb DO
IF Dats(Btn)≠-99 THEN
Cuadro(STRING(Dats(Btn),1),Regs(Btn),RGB(213,213,213));ELSE
Region1:=Regs(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Col128
);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;
Btn:=1;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);REPEAT conm:=0;IF
ISKEYDOWN(12)OR ISKEYDOWN(8)OR ISKEYDOWN(30)THEN
cn:=cn+1;conm:=conm+1;IF cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
ISKEYDOWN(2)OR ISKEYDOWN(7)THEN cn:=cn-1;conm:=conm+1;IF cn==nb+1
THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF
TYPE(Accion)==6 THEN IF Accion(1)==0 OR Accion(1)==3 THEN IF
90<=Accion(2)<=150 AND 180<=Accion(3)<=210 THEN
RECT_P(90,186,150,204,Col12,Col131);RECT_P(91,187,149,203,Col12,Col131);TEX
TOUT_P(CHAR({65,99,101,112,116,97,114}),99,189,2,Col148);GX:={};GY:={};M1:
=[[0]];L1:={};L2:={};L3:={};FOR I FROM 1 TO Dats(1)-1 DO
GX(I):=Dats(3);END;FOR I FROM 1 TO Dats(2)-1 DO
GY(I):=Dats(4);END;WAIT(0.2);BREAK;END;IF 170<=Accion(2)<=230 AND
180<=Accion(3)<=210 AND NElm==Eqy THEN
RECT_P(90,186,150,204,Col135,Col131);TEXTOUT_P(CHAR({65,99,101,112,116,9
7,114}),99,189,2,Col148);RECT_P(170,186,230,204,Col12,Col131);RECT_P(171,187,
229,203,Col12,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,189
,2,Col148);WAIT(0.5);GX:={};GY:={};M1:=[[0]];L1:={};L2:={};L3:={};BREAK;EN
D;FOR Btn:=1 TO nb DO IF SiToca(Regs(Btn))THEN
conm:=conm+1;Edicion(Dats(Btn),Regs(Btn))▶
Dats(Btn);cn:=Btn;BREAK;END;END;END;END;IF conm==0 THEN
Btn:=cn;Edicion(Dats(Btn),Regs(Btn))▶Dats(Btn);END;IF TYPE(Accion)=0 AND
Accion==4 THEN BREAK;END;UNTIL 0;RETURN
Dats;END;axsdcerfEditGrid(eje)BEGIN LOCAL
cxi,cyi,ancho,alto,Nom;cxi:=80;cyi:=35;ancho:=160;alto:=185;Nom:=CHAR({69,115,1
12,97,99,105,97,109,105,101,110,116,111,32,47,32,71,114,105,108,108,97,115});REC
T_P(cxi,cyi,cxi+ancho,cyi+alto,Col12,Col129);RECT_P(cxi,cyi,cxi+ancho,cyi+17,Col
12);TEXTOUT_P(Nom,cxi+5,cyi+3,2,Col128);RECT_P(cxi+ancho-
16,cyi+2,cxi+ancho-2,cyi+15,Col132);TEXTOUT_P("x",cxi+ancho-12,cyi-
5,5,#FFFFFFh,100);IF eje==1 THEN
RECT_P(85,55,157,80,Col133,Col129);RECT_P(85,70,235,187,Col133,Col129);REC
T_P(86,56,156,85,Col129,Col129);TEXTOUT_P(CHAR({69,106,101,32,88}),105,59,1
,Colaxsdcerf,100,Col129);TEXTOUT_P(CHAR({69,106,101,32,89}),182,59,1,Colaxsd
cerf,100,Col129);END;IF eje==2 AND NElm==Eqy THEN
TEXTOUT_P(CHAR({69,106,101,32,88}),105,59,1,Colaxsdcerf,100,Col129);RECT_P
(163,55,235,80,Col133,Col129);RECT_P(85,70,235,187,Col133,Col129);RECT_P(164
,56,234,85,Col129,Col129);TEXTOUT_P(CHAR({69,106,101,32,89}),182,59,1,Colaxs
dcerf,100,Col129);END;RECT_P(180,90,230,105,Col133,Col131);TEXTOUT_P("Aña
dir",190,93,1,Col148);RECT_P(180,115,230,130,Col133,Col131);TEXTOUT_P("Elimi
nar",185,118,1,Col148);RECT_P(90,196,150,214,Col12,Col131);RECT_P(91,197,149,
213,Col12,Col131);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,199,2,Col14
8);RECT_P(170,196,230,214,Col137,Col131);TEXTOUT_P(CHAR({67,97,110,99,101
,108,97,114}),179,199,2,Col148);END;oligft110(nb)BEGIN
axsdcerfEditGrid(1);LOCAL Btn,Tmp,cn,conm,cx,cy,Region1;cx:=90;cy:=75;FOR H
FROM 1 TO nb DO RegsGri1(H):={{cx+40,cy+15*(H-
1)},{cx+80,cy+15*(H)}};TEXTOUT_P(CHAR({64+H}),cx,cy+15*(H-
1)+4,2,Col111);TEXTOUT_P(CHAR({65+H}),cx+26,cy+15*(H-
1)+4,2,Col111);TEXTOUT_P("⇤",cx+10,cy+15*(H-
1)+3,2,Col133);TEXTOUT_P("⇥",cx+12,cy+15*(H-1)+3,2,Col133);END;FOR Btn:=1
TO nb DO IF DatsGri1(Btn)≠-99 THEN
Cuadro(STRING(DatsGri1(Btn),1),RegsGri1(Btn),RGB(213,213,213));ELSE
Region1:=RegsGri1(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Co
l128);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn
:=1;Btn:=1;Edicion(DatsGri1(Btn),RegsGri1(Btn))▶DatsGri1(Btn);REPEAT
conm:=0;IF ISKEYDOWN(12)OR ISKEYDOWN(8)OR ISKEYDOWN(30)THEN
cn:=cn+1;conm:=conm+1;IF cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(DatsGri1(Btn),RegsGri1(Btn))▶DatsGri1(Btn);END;IF
ISKEYDOWN(2)OR ISKEYDOWN(7)THEN cn:=cn-1;conm:=conm+1;IF cn==nb+1
THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(DatsGri1(Btn),RegsGri1(Btn))▶DatsGri1(Btn);END;IF
TYPE(Accion)==6 AND NElm==Eqy THEN IF Accion(1)==0 OR Accion(1)==3
THEN IF 90<=Accion(2)<=150 AND 196<=Accion(3)<=214 THEN
RECT_P(90,196,150,214,Col118,Col131);RECT_P(91,197,149,213,Col118,Col131);T
EXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,199,2,Col148);WAIT(0.3);GX:={
};GY:={};FOR I FROM 1 TO SIZE(DatsGri1)DO GX(I):=DatsGri1(I);END;FOR I
FROM 1 TO SIZE(DatsGri2)DO GY(I):=DatsGri2(I);END;BREAK;END;IF
170<=Accion(2)<=230 AND 196<=Accion(3)<=214 THEN
RECT_P(90,196,150,214,Col135,Col131);TEXTOUT_P(CHAR({65,99,101,112,116,9
7,114}),99,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,
229,213,Col12,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199
,2,Col148);WAIT(0.3);BREAK;END;IF 163<=Accion(2)<=235 AND
55<=Accion(3)<=80 THEN oligft111(SIZE(GY));BREAK;END;FOR Btn:=1 TO nb
DO IF SiToca(RegsGri1(Btn))AND Nnud==Eqx THEN
conm:=conm+1;Edicion(DatsGri1(Btn),RegsGri1(Btn))▶
DatsGri1(Btn);cn:=Btn;BREAK;END;END;END;END;IF conm==0 THEN
Btn:=cn;Edicion(DatsGri1(Btn),RegsGri1(Btn))▶DatsGri1(Btn);END;IF
TYPE(Accion)=0 AND Accion==4 THEN BREAK;END;UNTIL
0;END;oligft111(nb)BEGIN axsdcerfEditGrid(2);LOCAL
Btn,Tmp,cn,conm,cx,cy,Region1;cx:=90;cy:=75;FOR H FROM 1 TO nb DO
RegsGri2(H):={{cx+40,cy+15*(H-
1)},{cx+80,cy+15*(H)}};TEXTOUT_P(H,cx,cy+15*(H-
1)+4,2,Col111);TEXTOUT_P(H+1,cx+26,cy+15*(H-1)+4,2,Col111);
TEXTOUT_P("⇤",cx+10,cy+15*(H-
1)+3,2,Col133);TEXTOUT_P("⇥",cx+12,cy+15*(H-1)+3,2,Col133);END;FOR Btn:=1
TO nb DO IF DatsGri2(Btn)≠-99 AND NElm==Eqy THEN
Cuadro(STRING(DatsGri2(Btn),1),RegsGri2(Btn),RGB(213,213,213));ELSE
Region1:=RegsGri2(Btn);RECT_P(Region1(1)+1,Region1(2)+1,RGB(130,133,132),Co
l128);RECT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn
:=1;Btn:=1;Edicion(DatsGri2(Btn),RegsGri2(Btn))▶DatsGri2(Btn);REPEAT
conm:=0;IF ISKEYDOWN(12)OR ISKEYDOWN(8)OR ISKEYDOWN(30)THEN
cn:=cn+1;conm:=conm+1;IF cn==nb+1 THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(DatsGri2(Btn),RegsGri2(Btn))▶DatsGri2(Btn);END;IF
ISKEYDOWN(2)OR ISKEYDOWN(7)THEN cn:=cn-1;conm:=conm+1;IF cn==nb+1
THEN cn:=1;END;IF cn==0 THEN
cn:=nb;END;Btn:=cn;Edicion(DatsGri2(Btn),RegsGri2(Btn))▶DatsGri2(Btn);END;IF
TYPE(Accion)==6 AND Nnud==Eqx THEN IF Accion(1)==0 OR Accion(1)==3
THEN IF 90<=Accion(2)<=150 AND 180<=Accion(3)<=210 THEN
RECT_P(90,196,150,214,Col118,Col131);RECT_P(91,197,149,213,Col118,Col131);T
EXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,199,2,Col148);GX:={};GY:={};
FOR I FROM 1 TO SIZE(DatsGri1)DO GX(I):=DatsGri1(I);END;FOR I FROM 1 TO
SIZE(DatsGri2)DO GY(I):=DatsGri2(I);END;WAIT(0.3);BREAK;END;IF
170<=Accion(2)<=230 AND 180<=Accion(3)<=210 THEN
RECT_P(90,196,150,214,Col135,Col131);TEXTOUT_P(CHAR({65,99,101,112,116,9
7,114}),99,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,
229,213,Col12,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199
,2,Col148);
WAIT(0.3);BREAK;END;IF 85<=Accion(2)<=157 AND 55<=Accion(3)<=80 THEN
oligft110(SIZE(GX));BREAK;END;FOR Btn:=1 TO nb DO IF
SiToca(RegsGri2(Btn))THEN conm:=conm+1;Edicion(DatsGri2(Btn),RegsGri2(Btn))▶
DatsGri2(Btn);cn:=Btn;BREAK;END;END;END;END;IF conm==0 THEN
Btn:=cn;Edicion(DatsGri2(Btn),RegsGri2(Btn))▶DatsGri2(Btn);END;IF
TYPE(Accion)=0 AND Accion==4 AND NElm==Eqy THEN BREAK;END;UNTIL
0;END;wdccal1()BEGIN L1:={};L2:={};L3:={};LOCAL tt,ni,nf,li,cosα,sinα;LOCAL
xi,yi,ae,ML,MG,MT;LOCAL enc1,enc2,ei,β;LOCAL bβ;bβ:={};bβ(B):=0;FOR I
FROM 1 TO B DO FOR J FROM 1 TO rowDim(M3)DO IF M1(I,2)==M3(J,1)AND
Nnud==Eqx THEN bβ(I):=M3(J,4);END END;END;FOR I FROM 1 TO B DO
β:=bβ(I);ni:=M1(I,1);nf:=M1(I,2);tt:={M0(nf,1),M0(nf,2)}-
{M0(ni,1),M0(ni,2)};li:=CAS.l2norm(tt);xi:=tt(1);yi:=tt(2);enc1:=[3*ni-2,3*ni-
1,3*ni,3*nf-2,3*nf-1,3*nf];enc2:=[0,3*ni-2,3*ni-1,3*ni,3*nf-2,3*nf-
1,3*nf];cosα:=xi/li;sinα:=yi/li;ae:=M1(I,3)*M1(I,4);ei:=M1(I,4)*M1(I,5);li:=approx(li);
ae:=approx(ae);ei:=approx(ei);sinα:=approx(sinα);cosα:=approx(cosα);IF RunElem==0
AND NElm==Eqy THEN IF M1(I,14)==1 AND M1(I,15)==1 THEN ML:=[[ae/li,0,0,-
ae/li,0,0],[0,12*ei/li^3,6*ei/li^2,0,-12*ei/li^3,6*ei/li^2],[0,6*ei/li^2,4*ei/li,0,-
6*ei/li^2,2*ei/li],[-ae/li,0,0,ae/li,0,0],[0,-12*ei/li^3,-6*ei/li^2,0,12*ei/li^3,-
6*ei/li^2],[0,6*ei/li^2,2*ei/li,0,-6*ei/li^2,4*ei/li]];END;IF M1(I,14)==0 AND
M1(I,15)==1 AND Nnud==Eqx THEN ML:=[[ae/li,0,0,-ae/li,0,0],[0,3*ei/li^3,0,0,-
3*ei/li^3,3*ei/li^2],[0,0,0,0,0,0],[-ae/li,0,0,ae/li,0,0],[0,-3*ei/li^3,0,0,3*ei/li^3,-
3*ei/li^2],[0,3*ei/li^2,0,0,-3*ei/li^2,3*ei/li]];END;IF M1(I,14)==1 AND M1(I,15)==0
THEN ML:=[[ae/li,0,0,(-ae)/li,0,0],[0,3*ei/li^3,3*ei/li^2,0,-
3*ei/li^3,0],[0,3*ei/li^2,3*ei/li,0,-3*ei/li^2,0],[(-ae)/li,0,0,ae/li,0,0],[0,-3*ei/li^3,-
3*ei/li^2,0,3*ei/li^3,0],[0,0,0,0,0,0]];END;IF M1(I,14)==0 AND M1(I,15)==0 AND
Nnud==Eqx THEN ML:=[[ae/li,0,0,-ae/li,0,0],[0,0,0,0,0,0],[0,0,0,0,0,0],[-
ae/li,0,0,ae/li,0,0],[0,0,0,0,0,0],[0,0,0,0,0,0]];END;ELSE ML:=[[ae/li,0,0,-
ae/li,0,0],[0,12*ei/li^3,6*ei/li^2,0,-12*ei/li^3,6*ei/li^2],[0,6*ei/li^2,4*ei/li,0,-
6*ei/li^2,2*ei/li],[-ae/li,0,0,ae/li,0,0],[0,-12*ei/li^3,-6*ei/li^2,0,12*ei/li^3,-
6*ei/li^2],[0,6*ei/li^2,2*ei/li,0,-6*ei/li^2,4*ei/li]];END;MT:=[[cosα,sinα,0,0,0,0],[-
sinα,cosα,0,0,0,0],[0,0,1,0,0,0],[0,0,0,cosα*cos(β)-
sinα*sin(β),sinα*cos(β)+cosα*sin(β),0],[0,0,0,-sinα*cos(β)-cosα*sin(β),cosα*cos(β)-
sinα*sin(β),0],[0,0,0,0,0,1]];MG:=TRN(MT)*ML*MT;ML:=ADDROW(ML,enc1,1);M
L:=ADDCOL(ML,enc2,7);MG:=ADDROW(MG,enc1,1);MG:=ADDCOL(MG,enc2,7);
L1(I):=ML;L2(I):=MG;L3(I):=MT;END;END;wdccal11()BEGIN IF SIZE(vc)≠B OR
Nuevo==1 THEN LOCAL ni,nf,tt,li;vc:={};vc(B):=0;FOR M FROM 1 TO B DO
ni:=M1(M,1);nf:=M1(M,2);tt:={M0(nf,1),M0(nf,2)}-
{M0(ni,1),M0(ni,2)};li:=CAS.l2norm(tt);vc(M):={{0,0,0,li,1}};END;END;vc:={};vc:=
approx(Datsbmq111);L4:={};L6:={};M8:=MAKEMAT(0,1,1);LOCAL
mti,mt,tt,ni,nf,li,Ti,fg;LOCAL enc1,enc2,sum,daaa,M19,mbarras;mbarras:={};FOR M
FROM 1 TO B DO ni:=M1(M,1);nf:=M1(M,2);tt:={M0(nf,1),M0(nf,2)}-
{M0(ni,1),M0(ni,2)};li:=CAS.l2norm(tt);enc1:=[3*ni-2,3*ni-1,3*ni,3*nf-2,3*nf-
1,3*nf];mti:=vc(M);mti:=CAS(CAS(mti));mbarras(M):=mti;mt:=FForma(mti);mt:=appr
ox(mt);li:=approx(li);LOCAL fgA;IF RunElem==0 THEN IF M1(M,14)==1 AND
M1(M,15)==1 AND Nnud==Eqx THEN
fg:=[[mt(1)],[mt(2)],[mt(3)],[mt(4)],[mt(5)],[mt(6)]];END;IF M1(M,14)==0 AND
M1(M,15)==1 AND Nnud==Eqx THEN fg:=[[mt(1)],[mt(2)-(1/li)*(mt(3)/2-
mt(6))],[0],[mt(4)],[mt(5)+(1/li)*(mt(3)/2-mt(6))],[mt(6)-mt(3)/2]];END;IF
M1(M,14)==1 AND M1(M,15)==0 THEN fg:=[[mt(1)],[mt(2)-1/li*(mt(6)/2-
(mt(3)))],[mt(3)-mt(6)/2],[mt(4)],[mt(5)+1/li*(mt(6)/2-(mt(3)))],[0]];END;IF
M1(M,14)==0 AND M1(M,15)==0 THEN
fg:=[[mt(1)],[0],[0],[mt(4)],[0],[0]];END;ELSE
fg:=[[mt(1)],[mt(2)],[mt(3)],[mt(4)],[mt(5)],[mt(6)]];END;fgA:=fg;fg:=ADDCOL(fg,en
c1,2);L4(M):=fg;Ti:=L3(M);Ti:=TRN(Ti);fg:=Ti*fgA;fg:=ADDCOL(fg,enc1,2);L6(M)
:=fg;END;vc:=mbarras;FOR I FROM 1 TO 3*N DO FOR J FROM 1 TO B DO
fg:=L6(J);FOR K FROM 1 TO 6 DO IF fg(K,2)==I THEN
sum:=sum+fg(K,1);END;END;END;M8(I,1):=sum;sum:=0;END;enc2:=MAKELIST(X
,X,1,3*N,1);enc2:=factor(enc2);M8:=ADDCOL(M8,enc2,2);END;FForma(vec)BEGIN
LOCAL φ1,φ2,φ3,φ4,φ5,φ6,x,ll;LOCAL l,φx,res;LOCAL
φ¹1,φ¹2,φ¹3,φ¹4,φ¹5,φ¹6;l:=CAS(CAS("l"));x:=CAS(CAS("x"));φx:={-x/l+1,-
3*x^2/l^2+2*x^3/l^3+1,x*(-x/l+1)^2,x/l,x^2*(-2*x/l+3)/l^2,-x^2*(-
x/l+1)/l};ll:=vec(1);ll:=ll(4);LOCAL
nn,ma,Vx,Mx,s,t,Nx,u;s:={0,0};t:={0,0};u:={0,0};nn:=SIZE(vec);Vx:={0,0};Mx:={0,0
};Nx:={0,0};IF CAS(ll≠0)THEN φ1:=1-x/ll;φ2:=1-3*x^2/ll^2+2*x^3/ll^3;φ3:=x*(1-
x/ll)^2;φ4:=x/ll;φ5:=(x^2/ll^2)*(3-2*x/ll);φ6:=(-x^2/ll)*(1-x/ll);φ¹1:=CAS.diff(1-
x/ll,x);φ¹2:=CAS.diff(1-3*x^2/ll^2+2*x^3/ll^3,x);φ¹3:=CAS.diff(x*(1-
x/ll)^2,x);φ¹4:=CAS.diff(x/ll,x);φ¹5:=CAS.diff((x^2/ll^2)*(3-
2*x/ll),x);φ¹6:=CAS.diff((-x^2/ll)*(1-x/ll),x);FOR I FROM 1 TO nn DO
ma:=CAS(vec(I));x:=CAS(CAS("x"));CASE IF ma(5)==0 AND
CAS(ma(2)==ma(3))AND Nnud==Eqx THEN x:=ma(2);Vx(1):=-ma(1)*φ¹2;Vx(2):=-
ma(1)*φ¹5;Mx(1):=-ma(1)*φ¹3;Mx(2):=-
ma(1)*φ¹6;Vx:=s+Vx;s:=Vx;Mx:=t+Mx;t:=Mx;END;IF ma(5)==0 AND
CAS(ma(2)≠ma(3))THEN Vx(1):=-CAS(CAS.int(ma(1)*φ¹2,x,ma(2),ma(3)));Vx(2):=-
CAS(CAS.int(ma(1)*φ¹5,x,ma(2),ma(3)));Mx(1):=-
CAS(CAS.int(ma(1)*φ¹3,x,ma(2),ma(3)));Mx(2):=-
CAS(CAS.int(ma(1)*φ¹6,x,ma(2),ma(3)));Vx:=s+Vx;s:=Vx;Mx:=t+Mx;t:=Mx;END;IF
ma(5)==1 AND CAS(ma(2)==ma(3))AND Nnud==Eqx THEN x:=ma(2);Vx(1):=-
CAS(ma(1)*φ2);Vx(2):=-CAS(ma(1)*φ5);Mx(1):=-CAS(ma(1)*φ3);Mx(2):=-
CAS(ma(1)*φ6);Vx:=s+Vx;s:=Vx;Mx:=t+Mx;t:=Mx;END;IF ma(5)==1 AND
CAS(ma(2)≠ma(3))THEN Vx(1):=-
CAS(CAS(CAS.int(ma(1)*φ2,x,ma(2),ma(3))));Vx(2):=-
CAS(CAS(CAS.int(ma(1)*φ5,x,ma(2),ma(3))));Mx(1):=-
CAS(CAS.int(ma(1)*φ3,x,ma(2),ma(3)));Mx(2):=-
CAS(CAS.int(ma(1)*φ6,x,ma(2),ma(3)));Vx:=s+Vx;s:=Vx;Mx:=t+Mx;t:=Mx;END;IF
ma(5)==2 AND CAS(ma(2)==ma(3))THEN x:=ma(2);Nx(1):=-ma(1)*φ1;Nx(2):=-
ma(1)*φ4;Nx:=u+Nx;u:=Nx;END;IF ma(5)==2 AND CAS(ma(2)≠ma(3))AND
NElm==Eqy THEN Nx(1):=-CAS(CAS.int(ma(1)*φ1,x,ma(2),ma(3)));Nx(2):=-
CAS(CAS.int(ma(1)*φ4,x,ma(2),ma(3)));Nx:=u+Nx;u:=Nx;END;x:=CAS(CAS("x"));E
ND;END;END;res:=EVAL({Nx(1),Vx(1),Mx(1),Nx(2),Vx(2),Mx(2)});END;hc1()BEG
IN LOCAL xx,yy,t,n,b,bb,q,n1;lntx:=lntxc;FOR xx:=1 TO SIZE(lntx)DO ""▶n;""▶
n1;lntx(xx)▶t;FOR yy:=1 TO DIM(t)DO b:=t(yy)-cant;R→B(t(yy))▶
bb;n1+CHAR(bb(8,8))+CHAR(bb(0,8))▶n1;n+CHAR(b)▶n;END;REPLACE(n,"\r","")▶
lntx(xx);n▶lntx(xx);END END;Ensb()BEGIN M5:=MAKEMAT(0,1,1);LOCAL
f,c,ta,max,ma,sum,cabe1,cabe2;IF Tipo1==dat OR Tipo2==dat OR Tipo3==dat OR
Tipo4==dat OR Nuevo1==dat OR Nuevo2==dat THEN FOR I FROM 1 TO B DO
ma:=L2(I);ta:=SIZE(ma);f:=ta(1);c:=ta(2);FOR J FROM 1 TO c DO IF
max<ma(1,J)THEN
max:=ma(1,J);END;END;END;M5:=MAKEMAT(0,max,max);cabe1:=MAKELIST(X,
X,1,max,1);cabe2:=MAKELIST(X,X,0,max,1);cabe1:=factor(cabe1);cabe2:=factor(cab
e2);FOR I FROM 1 TO B DO ma:=L2(I);ta:=SIZE(ma);f:=ta(1);c:=ta(2);FOR J FROM
2 TO f DO FOR K FROM 1 TO c-1 DO
M5(ma(J,c),ma(1,K)):=M5(ma(J,c),ma(1,K))+ma(J,K);END;END;END;M5:=ADDRO
W(M5,cabe1,1);M5:=ADDCOL(M5,cabe2,max+1);IF M2(1,1)≠0 AND Nnud==Eqx
THEN IF T==3 OR T==4 THEN FOR I FROM 1 TO rowDim(M2)DO M5(3*M2(I,1)-
2+1,3*M2(I,1)-2):=M5(3*M2(I,1)-2+1,3*M2(I,1)-2)+M2(I,2);M5(3*M2(I,1)-
1+1,3*M2(I,1)-1):=M5(3*M2(I,1)-1+1,3*M2(I,1)-
1)+M2(I,3);M5(3*M2(I,1)+1,3*M2(I,1)):=M5(3*M2(I,1)+1,3*M2(I,1))+M2(I,4);END;
END;IF T==1 THEN FOR I FROM 1 TO rowDim(M2)DO M5(2*M2(I,1)-
1+1,2*M2(I,1)-1):=M5(2*M2(I,1)-1+1,2*M2(I,1)-
1)+M2(I,2);M5(2*M2(I,1)+1,2*M2(I,1)):=M5(2*M2(I,1)+1,2*M2(I,1))+M2(I,3);END;
END;END;ELSE L1:={};L2:={};L3:={};M8:=[[0]];END;END;RSep()BEGIN
L7:={};LNC:={};LNN:={};LOCAL
ME,MKnn,MKna,MKan,MKaa,MFn,MFa;LOCAL
mm,Mδn,Mδa,M33,mm10,FFN,FFC;MKnn:=MAKEMAT(0,1,1);MKna:=MAKEMAT
(0,1,1);MKan:=MAKEMAT(0,1,1);MKaa:=MAKEMAT(0,1,1);MFn:=MAKEMAT(0,
1,1);MFa:=MAKEMAT(0,1,1);Mδn:=MAKEMAT(0,1,1);Mδa:=MAKEMAT(0,1,1);M
E:=M5;ME:=DELCOL(ME,colDim(M5));ME:=DELROW(ME,1);FFN:=MAKEMAT(
0,1,1);FFC:=MAKEMAT(0,1,1);M33:=MAKEMAT(0,rowDim(M3),4);C:=0;Y:=0;FO
R I FROM 1 TO rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M3)DO IF
I==M3(H,2)THEN C:=C+1;BREAK;END;END;IF C≠0 THEN
Y:=Y+1;M33(Y,2):=I;M33(Y,3):=M3(H,3);M33(Y,4):=M3(H,4);END;C:=0;END;FOR
I FROM 1 TO rowDim(M3)DO LNN(I):=M33(I,2);END;IF T==1 THEN C:=0;FOR I
FROM 1 TO rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF
I==M33(H,2)AND NElm==Eqy THEN C:=C+1;END;END;IF C==0 AND
Nnud==Eqx THEN LNC(SIZE(LNC)+1):=I;END;C:=0;END;FOR I FROM 1 TO
rowDim(M33)DO FOR H FROM 1 TO rowDim(M33)DO
MKaa(I,H):=ME(M33(I,2),M33(H,2));END;END;FOR I FROM 1 TO SIZE(LNC)DO
FOR H FROM 1 TO SIZE(LNC)DO
MKnn(I,H):=ME(LNC(I),LNC(H));END;END;FOR I FROM 1 TO rowDim(M33)DO
FOR H FROM 1 TO SIZE(LNC)DO
MKan(I,H):=ME(M33(I,2),LNC(H));END;END;FOR I FROM 1 TO SIZE(LNC)DO
FOR H FROM 1 TO rowDim(M33)DO
MKna(I,H):=ME(LNC(I),M33(H,2));END;END;mm:=MAKEMAT(0,1,1);FOR I
FROM 1 TO N DO mm(2*I-
1,1):=M0(I,3);mm(2*I,1):=M0(I,4);END;C:=0;Y:=0;U:=0;FOR I FROM 1 TO
rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)AND
Nnud==Eqx THEN C:=C+1;END;END;IF C==0 THEN
Y:=Y+1;MFn(Y,1):=mm(I,1);ELSE
U:=U+1;MFa(U,1):=mm(I,1);END;C:=0;END;C:=0;U:=0;FOR I FROM 1 TO
rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)AND
NElm==Eqy THEN C:=C+1;BREAK;END;END;IF C==0 THEN ELSE
U:=U+1;Mδa(U,1):=M33(H,3);END;C:=0;END;L7:={MKnn,MKna,MKan,MKaa,MFn
,MFa,Mδa};END;IF T==2 OR T==3 OR T==4 THEN
C:=0;mm10:=M8;mm10:=DELCOL(mm10,2);FOR I FROM 1 TO rowDim(M5)-1 DO
FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)THEN C:=C+1;END;END;IF
C==0 THEN LNC(SIZE(LNC)+1):=I;END;C:=0;END;FOR I FROM 1 TO
rowDim(M33)DO FOR H FROM 1 TO rowDim(M33)DO
MKaa(I,H):=ME(M33(I,2),M33(H,2));END;END;FOR I FROM 1 TO SIZE(LNC)DO
FOR H FROM 1 TO SIZE(LNC)DO
MKnn(I,H):=ME(LNC(I),LNC(H));END;END;FOR I FROM 1 TO rowDim(M33)DO
FOR H FROM 1 TO SIZE(LNC)DO
MKan(I,H):=ME(M33(I,2),LNC(H));END;END;FOR I FROM 1 TO SIZE(LNC)DO
FOR H FROM 1 TO rowDim(M33)DO
MKna(I,H):=ME(LNC(I),M33(H,2));END;END;mm:=MAKEMAT(0,1,1);FOR I
FROM 1 TO N DO mm(3*I-2,1):=M0(I,3);mm(3*I-
1,1):=M0(I,4);mm(3*I,1):=M0(I,5);END;C:=0;Y:=0;U:=0;FOR I FROM 1 TO
rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)AND
NElm==Eqy THEN C:=C+1;END;END;IF C==0 THEN
Y:=Y+1;MFn(Y,1):=mm(I,1);ELSE
U:=U+1;MFa(U,1):=mm(I,1);END;C:=0;END;C:=0;U:=0;FOR I FROM 1 TO
rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)THEN
C:=C+1;BREAK;END;END;IF C==0 THEN ELSE
U:=U+1;Mδa(U,1):=M33(H,3);END;C:=0;END;C:=0;Y:=0;U:=0;FOR I FROM 1 TO
rowDim(M5)-1 DO FOR H FROM 1 TO rowDim(M33)DO IF I==M33(H,2)THEN
C:=C+1;END;END;IF C==0 THEN Y:=Y+1;FFN(Y,1):=mm10(I,1);ELSE
U:=U+1;FFC(U,1):=mm10(I,1);END;C:=0;END;L7:={};L7:={MKnn,MKna,MKan,M
Kaa,MFn,MFa,Mδa,FFN,FFC};END;IF T==1 THEN M6:=inv(MKnn)*MFn-
inv(MKnn)*MKna*Mδa;
M7:=MKan*inv(MKnn)*MFn+(MKaa-MKan*inv(MKnn)*MKna)*Mδa-
MFa;FIDatsbmq17();END;IF T==2 OR T==3 OR T==4 THEN M6:=inv(MKnn)*MFn-
inv(MKnn)*MKna*Mδa-inv(MKnn)*FFN;FIwdccal1();LOCAL
aa,bb;MMM:=MAKEMAT(0,1,1);C:=0;FOR H FROM 1 TO rowDim(M33)DO FOR I
FROM 1 TO B DO aa:=L6(I);FOR J FROM 1 TO 6 DO IF aa(J,2)==M33(H,2)AND
NElm==Eqy THEN
bb:=L9(I);C:=C+bb(J,1);END;END;END;MMM(H,1):=C;C:=0;END;M7:=MMM-
MFa;END;END;FIDatsbmq17()BEGIN L4:={};L5:={};L8:={};LOCAL
ma,mb,Ee,Ii,Ll,aa,bb,lisLong;LOCAL ni,nf,vi,xi,yi,li;LOCAL
n1,f1,c1,n2,f2,c2,β,bβ;lisLong:={};bβ:={};bβ(B):=0;FOR I FROM 1 TO B DO FOR J
FROM 1 TO rowDim(M3)DO IF M1(I,2)==M3(J,1)THEN bβ(I):=M3(J,4);END
END;END;ma:=M0;ma:=DELCOL(ma,3);ma:=DELCOL(ma,3);mb:=M1;n1:=SIZE(m
a);f1:=n1(1);c1:=n1(2);n2:=SIZE(mb);f2:=n2(1);c1:=n2(2);aa:=[[0]];FOR I FROM 1
TO f2 DO ni:=M1(I,1);nf:=M1(I,2);vi:=ma(nf)-
ma(ni);xi:=approx(vi(1));yi:=approx(vi(2));li:=approx(l2norm(vi));Ee:=M1(I,3);Ii:=M1
(I,4);mb(I,3):=(xi/li);mb(I,4):=(yi/li);aa(1,1):=-mb(I,3);aa(1,2):=-
mb(I,4);aa(1,3):=mb(I,3);aa(1,4):=mb(I,4);lisLong(I):=li;L4(I):=aa;END;LOCAL
Mc,Ml;Ml:=MAKEMAT(0,4,1);Mc:=MAKEMAT(-11111,2*N,2);FOR I FROM 1 TO
rowDim(M3)DO Mc(M3(I,2),1):=M3(I,3);END;C:=0;FOR H FROM 1 TO
rowDim(Mc)DO IF Mc(H,1)==-11111 AND NElm==Eqy THEN
C:=C+1;Mc(H,1):=M6(C,1);END;END;FOR I FROM 1 TO B DO β:=-
bβ(I);Ml(1,1):=Mc(2*M1(I,1)-1,1);Ml(2,1):=Mc(2*M1(I,1),1);Ml(3,1):=Mc(2*M1(I,2)-
1,1)*cos(β)-
Mc(2*M1(I,2),1)*sin(β);Ml(4,1):=Mc(2*M1(I,2),1)*cos(β)+Mc(2*M1(I,2)-
1,1)*sin(β);L5(I):=Ml;END;LOCAL LFI;LFI:={};FOR I FROM 1 TO B DO
LFI(I):=L4(I)*L5(I)*M1(I,3)*M1(I,4)/lisLong(I);END;L8:=LFI;END;Datsbmq17()BE
GIN L1:={};L2:={};L3:={};LOCAL tt,ni,nf,li,cosα,sinα;LOCAL
xi,yi,ae,ML,MG,MT;LOCAL enc1,enc2,β;LOCAL bβ,ii;bβ:={};bβ(B):=0;FOR I
FROM 1 TO B DO FOR J FROM 1 TO rowDim(M3)DO IF M1(I,2)==M3(J,1)AND
NElm==Eqy THEN bβ(I):=M3(J,4);END END;END;FOR I FROM 1 TO B DO
β:=bβ(I);ni:=M1(I,1);nf:=M1(I,2);tt:={M0(nf,1),M0(nf,2)}-
{M0(ni,1),M0(ni,2)};li:=CAS.l2norm(tt);xi:=tt(1);yi:=tt(2);enc1:=[2*ni-1,2*ni,2*nf-
1,2*nf];enc2:=[0,2*ni-1,2*ni,2*nf-
1,2*nf];cosα:=xi/li;sinα:=yi/li;ae:=M1(I,3)*M1(I,4);li:=approx(li);ae:=approx(ae);sinα:
=approx(sinα);cosα:=approx(cosα);ML:=[[ae/li,0,-ae/li,0],[0,0,0,0],[-
ae/li,0,ae/li,0],[0,0,0,0]];MT:=[[cosα,sinα,0,0],[-sinα,cosα,0,0],[0,0,cosα*cos(β)-
sinα*sin(β),sinα*cos(β)+cosα*sin(β)],[0,0,-sinα*cos(β)-cosα*sin(β),cosα*cos(β)-
sinα*sin(β)]];MG:=TRN(MT)*ML*MT;ML:=ADDROW(ML,enc1,1);ML:=ADDCOL(
ML,enc2,5);MG:=ADDROW(MG,enc1,1);MG:=ADDCOL(MG,enc2,5);L1(I):=ML;L2
(I):=MG;L3(I):=MT;END;END;FIwdccal1()BEGIN
L5:={};L11:={};L9:={};L10:={};LOCAL ma,mb,Ee,Ii,Ll,aa,bb,lisLong;LOCAL
ni,nf,vi,xi,yi,li;LOCAL n1,f1,c1,n2,f2,c2,β,bβ;lisLong:={};bβ:={};bβ(B):=0;FOR I
FROM 1 TO B DO FOR J FROM 1 TO rowDim(M3)DO IF M1(I,2)==M3(J,1)THEN
bβ(I):=M3(J,4);END END;END;LOCAL
Mc,Ml;Ml:=MAKEMAT(0,4,1);Mc:=MAKEMAT(-11111,3*N,2);FOR I FROM 1 TO
rowDim(M3)DO Mc(M3(I,2),1):=M3(I,3);END;C:=0;FOR H FROM 1 TO
rowDim(Mc)DO IF Mc(H,1)==-11111 AND NElm==Eqy THEN
C:=C+1;Mc(H,1):=M6(C,1);END;END;FOR I FROM 1 TO B DO
Ml(1,1):=Mc(3*M1(I,1)-2,1);Ml(2,1):=Mc(3*M1(I,1)-
1,1);Ml(3,1):=Mc(3*M1(I,1),1);Ml(4,1):=Mc(3*M1(I,2)-2,1)*cos(β)-Mc(3*M1(I,2)-
2,1)*sin(β);Ml(5,1):=Mc(3*M1(I,2)-1,1)*cos(β)+Mc(3*M1(I,2)-
1,1)*sin(β);Ml(6,1):=Mc(3*M1(I,2),1);L5(I):=Ml;L11(I):=L3(I)*L5(I);END;LOCAL
l1i,l2i,l4i,l6i;FOR I FROM 1 TO B DO
l1i:=L1(I);l2i:=L2(I);l4i:=L4(I);l6i:=L6(I);l1i:=DELROW(l1i,1);l1i:=DELCOL(l1i,col
Dim(l1i));l2i:=DELROW(l2i,1);l2i:=DELCOL(l2i,colDim(l2i));l4i:=DELCOL(l4i,2);l6
i:=DELCOL(l6i,2);L9(I):=l2i*L5(I)+l6i;L10(I):=L3(I)*L9(I);END;END;fldth11()BEGI
N LOCAL j,var:=1,arch:={},vi,FFF;IF SIZE(DB)<>0 THEN FOR j:=1 TO
SIZE(DB)DO DB(j,2)▶
arch(j);END;var:=ffllq3(var,nomA,95,32,100,2,LigthBlue,AzulB,Fondo,AzulB);IF
var<>0 THEN
vi:=2;rtyh1:=DB(var,vi+1);rtyh2:=DB(var,vi+2);rtyh3:=DB(var,vi+3);rtyh4:=DB(var,vi
+4);rtyh5:=DB(var,vi+5);rtyh6:=DB(var,vi+6);rtyh7:=DB(var,vi+7);rtyh8:=DB(var,vi+
8);rtyh9:=DB(var,vi+9);rtyh10:=DB(var,vi+10);tgh1:=DB(var,vi+11);vi:=vi+11;tgh2:=
DB(var,vi+1);tgh3:=DB(var,vi+2);tgh4:=DB(var,vi+3);tgh5:=DB(var,vi+4);tgh6:=DB(
var,vi+5);tgh7:=DB(var,vi+6);tgh8:=DB(var,vi+7);tgh9:=DB(var,vi+8);tgh10:=DB(var,
vi+9);xpe1:=DB(var,vi+10);xpe2:=DB(var,vi+11);xpe3:=DB(var,vi+12);xpe4:=DB(var
,vi+13);xpe5:=DB(var,vi+14);xpe6:=DB(var,vi+15);xpe7:=DB(var,vi+16);xpe8:=DB(v
ar,vi+17);xpe9:=DB(var,vi+18);xpe10:=DB(var,vi+19);pft1:=DB(var,vi+20);pft2:=DB(
var,vi+21);pft3:=DB(var,vi+22);pft4:=DB(var,vi+23);pft5:=DB(var,vi+24);pft6:=DB(v
ar,vi+25);pft7:=DB(var,vi+26);pft8:=DB(var,vi+27);pft9:=DB(var,vi+28);pft10:=DB(v
ar,vi+29);fld1:=DB(var,vi+30);fld2:=DB(var,vi+31);fld3:=DB(var,vi+32);fld4:=DB(var
,vi+33);fld5:=DB(var,vi+34);fld6:=DB(var,vi+35);fld7:=DB(var,vi+36);fld8:=DB(var,v
i+37);vi:=vi+37;fld9:=DB(var,vi+1);fld10:=DB(var,vi+2);hfjq1:=DB(var,vi+3);hfjq2:=
DB(var,vi+4);hfjq3:=DB(var,vi+5);hfjq4:=DB(var,vi+6);hfjq5:=DB(var,vi+7);hfjq6:=D
B(var,vi+8);hfjq7:=DB(var,vi+9);hfjq8:=DB(var,vi+10);hfjq9:=DB(var,vi+11);hfjq10:=
DB(var,vi+12);werf1:=DB(var,vi+13);werf2:=DB(var,vi+14);werf3:=DB(var,vi+15);w
erf4:=DB(var,vi+16);werf5:=DB(var,vi+17);werf6:=DB(var,vi+18);werf7:=DB(var,vi+
19);werf8:=DB(var,vi+20);werf9:=DB(var,vi+21);werf10:=DB(var,vi+22);werf11:=DB
(var,vi+23);bhy1:=DB(var,vi+24);bhy2:=DB(var,vi+25);bhy3:=DB(var,vi+26);bhy4:=
DB(var,vi+27);bhy5:=DB(var,vi+28);bhy6:=DB(var,vi+29);bhy7:=DB(var,vi+30);bhy8
:=DB(var,vi+31);bhy9:=DB(var,vi+32);bhy10:=DB(var,vi+33);gpk1:=DB(var,vi+34);g
pk2=DB(var,vi+35);vi:=vi+35;gpk3:=DB(var,vi+1);gpk4:=DB(var,vi+2);gpk5:=DB(var
,vi+3);gpk6:=DB(var,vi+4);gpk7:=DB(var,vi+5);gpk8:=DB(var,vi+6);gpk9:=DB(var,vi
+7);gpk10:=DB(var,vi+8);qwr1:=DB(var,vi+9);vi:=vi+9;qwr2:=DB(var,vi+1);qwr3:=D
B(var,vi+2);qwr5:=DB(var,vi+3);
qwr6:=DB(var,vi+4);qwr7:=DB(var,vi+5);qwr8:=DB(var,vi+6);qwr9:=DB(var,vi+7);q
wr10:=DB(var,vi+8);dfg1:=DB(var,vi+9);dfg2:=DB(var,vi+10);dfg3=DB(var,vi+11);df
g4:=DB(var,vi+12);vi:=vi+12;dfg5:=DB(var,vi+1);dfg6:=DB(var,vi+2);dfg7:=DB(var,
vi+3);dfg8:=DB(var,vi+4);dfg9:=DB(var,vi+5);dfg10:=DB(var,vi+6);cba1:=DB(var,vi+
7);fjlt1:=DB(var,vi+8);fjlt2:=DB(var,vi+9);fjlt3:=DB(var,vi+10);fjlt4:=DB(var,vi+11);f
jlt5:=DB(var,vi+12);fjlt6:=DB(var,vi+13);fjlt7:=DB(var,vi+14);fjlt8:=DB(var,vi+15);fjl
t9:=DB(var,vi+16);abd1=DB(var,vi+17);vi:=vi+17;abd3:=DB(var,vi+1);abd4:=DB(var,
vi+2);abd5:=DB(var,vi+3);abd6:=DB(var,vi+4);vi:=vi+4;abd7:=DB(var,vi+1);abd8:=D
B(var,vi+2);abd9:=DB(var,vi+3);abd10:=DB(var,vi+4);bdc1:=DB(var,vi+5);bdc2:=DB
(var,vi+6);bdc3=DB(var,vi+7);bdc4:=DB(var,vi+8);bdc5:=DB(var,vi+9);bdc6:=DB(var
,vi+10);bdc7:=DB(var,vi+11);bdc8:=DB(var,vi+12);bdc9:=DB(var,vi+13);bdc10:=DB(
var,vi+14);expr1:=DB(var,vi+15);expr2:=DB(var,vi+16);expr3:=DB(var,vi+17);expr4:
=DB(var,vi+18);expr5:=DB(var,vi+19);expr6=DB(var,vi+20);expr7:=DB(var,vi+21);ex
pr8:=DB(var,vi+22);expr9:=DB(var,vi+23);expr10:=DB(var,vi+24);expr11:=DB(var,vi
+25);expr12:=DB(var,vi+26);expr13:=DB(var,vi+27);expr14:=DB(var,vi+28);expr15:=
DB(var,vi+29);expr16:=DB(var,vi+30);expr17:=DB(var,vi+31);vi:=vi+31;expr18:=DB(
var,vi+1);expr19:=DB(var,vi+2);expr20:=DB(var,vi+3);xpre2:=DB(var,vi+4);xpre4:=D
B(var,vi+5);xpre5:=DB(var,vi+6);xpre6:=DB(var,vi+7);xpre7:=DB(var,vi+8);xpre8:=D
B(var,vi+9);xpre9:=DB(var,vi+10);vi:=vi+10;xpre10:=DB(var,vi+1);xpre11:=DB(var,v
i+2);xpre12:=DB(var,vi+3);xpre13:=DB(var,vi+4);xpre14:=DB(var,vi+5);xpre15:=DB(
var,vi+6);zsc1:=DB(var,vi+7);zsc2:=DB(var,vi+8);zsc3:=DB(var,vi+9);vi:=vi+9;zsc4:=
DB(var,vi+1);zsc5:=DB(var,vi+2);zsc6:=DB(var,vi+3);zsc7:=DB(var,vi+4);zsc8:=DB(
var,vi+5);zsc9:=DB(var,vi+6);zsc10:=DB(var,vi+7);zsc11:=DB(var,vi+8);zsc12:=DB(v
ar,vi+9);zsc13:=DB(var,vi+10);zsc14:=DB(var,vi+11);zsc15:=DB(var,vi+12);zxp1:=D
B(var,vi+13);zxp2:=DB(var,vi+14);zxp3:=DB(var,vi+15);zxp4:=DB(var,vi+16);zxp5:=
DB(var,vi+17);zxp6:=DB(var,vi+18);zxp7:=DB(var,vi+19);zxp8:=DB(var,vi+20);zxp9:
=DB(var,vi+21);zxp10:=DB(var,vi+22);zxp11:=DB(var,vi+23);zxp12:=DB(var,vi+24);
zxp13:=DB(var,vi+25);zxp14:=DB(var,vi+26);zxp15:=DB(var,vi+27);zxp16:=DB(var,
vi+28);zxp17:=DB(var,vi+29);zxp18:=DB(var,vi+30);zxp19:=DB(var,vi+31);zxp20:=D
B(var,vi+32);ixpr1:=DB(var,vi+33);ixpr2:=DB(var,vi+34);vi:=vi+34;ixpr3:=DB(var,vi
+1);ixpr4:=DB(var,vi+2);ixpr5:=DB(var,vi+3);ixpr6:=DB(var,vi+4);ixpr7:=DB(var,vi+
5);ixpr8:=DB(var,vi+6);ixpr9:=DB(var,vi+7);ixpr10:=DB(var,vi+8);ixpr11:=DB(var,vi
+9);ixpr12:=DB(var,vi+10);ixpr13:=DB(var,vi+11);ixpr14:=DB(var,vi+12);ixpr15:=D
B(var,vi+13);ixpr16:=DB(var,vi+14);ixpr17:=DB(var,vi+15);ixpr18:=DB(var,vi+16);ix
pr19:=DB(var,vi+17);ixpr20:=DB(var,vi+18);jksd1:=DB(var,vi+19);jksd2:=DB(var,vi+
20);jksd3:=DB(var,vi+21);jksd4:=DB(var,vi+22);jksd5:=DB(var,vi+23);jksd6:=DB(var
,vi+24);jksd7:=DB(var,vi+25);jksd8:=DB(var,vi+26);jksd9:=DB(var,vi+27);jksd10:=D
B(var,vi+28);jksd11:=DB(var,vi+29);jksd12:=DB(var,vi+30);jksd13:=DB(var,vi+31);jk
sd14:=DB(var,vi+32);jksd15:=DB(var,vi+33);jksd16:=DB(var,vi+34);jksd17:=DB(var,
vi+35);jksd18:=DB(var,vi+36);jksd19:=DB(var,vi+37);jksd20:=DB(var,vi+38);jliu1:=
DB(var,vi+39);jliu2:=DB(var,vi+40);jliu3:=DB(var,vi+41);jliu4:=DB(var,vi+42);jliu5:
=DB(var,vi+43);jliu6:=DB(var,vi+44);jliu7:=DB(var,vi+45);jliu8:=DB(var,vi+46);jliu9
:=DB(var,vi+47);jliu10:=DB(var,vi+48);jliu11:=DB(var,vi+49);jliu12:=DB(var,vi+50);
jliu13:=DB(var,vi+51);vi:=vi+51;jliu14:=DB(var,vi+1);jliu15:=DB(var,vi+2);jliu16:=D
B(var,vi+3);jliu17:=DB(var,vi+4);jliu18:=DB(var,vi+5);jliu19:=DB(var,vi+6);jliu20:=
DB(var,vi+7);dshy1:=DB(var,vi+8);dshy2:=DB(var,vi+9);dshy3:=DB(var,vi+10);dshy4
:=DB(var,vi+11);dshy5:=DB(var,vi+12);dshy6:=DB(var,vi+13);dshy7:=DB(var,vi+14);
dshy8:=DB(var,vi+15);dshy9:=DB(var,vi+16);dshy10:=DB(var,vi+17);dshy11:=DB(va
r,vi+18);dshy12:=DB(var,vi+19);dshy13:=DB(var,vi+20);dshy14:=DB(var,vi+21);dshy
15:=DB(var,vi+22);dshy16:=DB(var,vi+23);dshy17:=DB(var,vi+24);dshy18:=DB(var,v
i+25);dshy19:=DB(var,vi+26);dshy20:=DB(var,vi+27);lagr1:=DB(var,vi+28);lagr2:=D
B(var,vi+29);vi:=vi+29;lagr3:=DB(var,vi+1);lagr4:=DB(var,vi+2);vi:=vi+2;lagr5:=DB(
var,vi+1);lagr6:=DB(var,vi+2);lagr7:=DB(var,vi+3);lagr8:=DB(var,vi+3);lagr9:=DB(va
r,vi+5);lagr10:=DB(var,vi+6);vi:=vi+6;liev1:=DB(var,vi+1);liev2:=DB(var,vi+2);liev3:
=DB(var,vi+3);liev4:=DB(var,vi+4);liev5:=DB(var,vi+5);liev6:=DB(var,vi+6);liev7:=
DB(var,vi+7);liev8:=DB(var,vi+8);liev9:=DB(var,vi+9);liev10:=DB(var,vi+10);liev11:
=DB(var,vi+11);liev12:=DB(var,vi+12);liev13:=DB(var,vi+13);liev14:=DB(var,vi+14);
liev15:=DB(var,vi+15);liev16:=DB(var,vi+16);liev17:=DB(var,vi+17);liev18:=DB(var,
vi+18);vi:=vi+18;END;END;END;ldljt10(var)BEGIN LOCAL
R_Nom,R_Ace,R_Can,numA,tamB;FILLPOLY_P({(0,0),(320,0),(320,240),(0,240),(0,
0)},Plomo,150);RECT_P(29,29,291,181,AzulB,AzulB);RECT_P(30,30,290,180,AzulB,
Fondo);TEXTOUT_P("ㄖ
",85,34,6,AzulB);TEXTOUT_P(CHAR({71,85,65,82,68,65,82,32,77,79,68,69,76,79}),
110,40,3,AzulB);R_Nom:={{90,85},{280,105}};RECT_P(R_Nom(1),R_Nom(2),16,Fo
ndo);TEXTOUT_P(CHAR({32,78,111,109,98,114,101,58}),R_Nom(1,1)-
55,R_Nom(1,2)+5,2,AzulB);R_Ace:={{65,140},{145,160}};RECT_P(R_Ace(1),R_Ac
e(2),16,Fondo);TEXTOUT_P("",R_Ace(1,1)+9,R_Ace(1,2)+5,2,AzulB);R_Can:={{190
,140},{270,160}};RECT_P(R_Can(1),R_Can(2),16,Fondo);TEXTOUT_P("",R_Can(1,
1)+9,R_Can(1,2)+5,2,AzulB);LOCAL mx,my;REPEAT IF var==1 THEN
ldljt2(CHAR({77,111,100,101,108,111,32})+tamA,R_Nom,AzulTit,White,2);CHAR({
77,111,100,101,108,111,32})+tamA▶Name;ELSE
tamA:=tamA+1;ldljt2(Name,R_Nom,AzulTit,White,2);tamA:=tamA-1;END;IF
tamA>8 THEN tamA:=1;END;Accion:=B→R(WAIT(-1));IF TYPE(Accion)==6
THEN IF Accion(1)==0 THEN mx:=Accion(2);my:=Accion(3);CASE IF
R_Nom(1,1)<mx<R_Nom(2,1)AND R_Nom(1,2)<my<R_Nom(2,2)THEN
tamA:=tamA+1;pxtrf3(CHAR({77,111,100,101,108,111,32})+tamA,R_Nom,2)▶
Name;tamA:=tamA-1;ldljt10(2);BREAK;END;IF R_Ace(1,1)<mx<R_Ace(2,1)AND
R_Ace(1,2)<my<R_Ace(2,2)THEN tamA:=tamA+1;Name▶
nomA(tamA);pxtrf11();BREAK;END;IF R_Can(1,1)<mx<R_Can(2,1)AND
R_Can(1,2)<my<R_Can(2,2)THEN BREAK;END;END;END;END;UNTIL
ISKEYDOWN(4);END;pxtrf11()BEGIN LOCAL j;LOCAL
Nom:=CHAR({78,85,69,86,79,32,65,82,67,72,73,86,79}),variables,var;variables:={tam
A,nomA,rtyh1,rtyh2,rtyh3,rtyh4,rtyh5,rtyh6,rtyh7,rtyh8,rtyh9,rtyh10,tgh1,tgh2,tgh3,tgh
4,tgh5,tgh6,tgh7,tgh8,tgh9,tgh10,xpe1,xpe2,xpe3,xpe4,xpe5,xpe6,xpe7,xpe8,xpe9,xpe1
0,pft1,pft2,pft3,pft4,pft5,pft6,pft7,pft8,pft9,pft10,fld1,fld2,fld3,fld4,fld5,fld6,fld7,fld8,fl
d9,fld10,hfjq1,hfjq2,hfjq3,hfjq4,hfjq5,hfjq6,hfjq7,hfjq8,hfjq9,hfjq10,werf1,werf2,werf3
,werf4,werf5,werf6,werf7,werf8,werf9,werf10,werf11,bhy1,bhy2,bhy3,bhy4,bhy5,bhy6,
bhy7,bhy8,bhy9,bhy10,gpk1,gpk2,gpk3,gpk4,gpk5,gpk6,gpk7,gpk8,gpk9,gpk10,qwr1,q
wr2,qwr3,qwr5,qwr6,qwr7,qwr8,qwr9,qwr10,dfg1,dfg2,dfg3,dfg4,dfg5,dfg6,dfg7,dfg8,
dfg9,dfg10,cba1,fjlt1,fjlt2,fjlt3,fjlt4,fjlt5,fjlt6,fjlt7,fjlt8,fjlt9,abd1,abd3,abd4,abd5,abd6,
abd7,abd8,abd9,abd10,bdc1,bdc2,bdc3,bdc4,bdc5,bdc6,bdc7,bdc8,bdc9,bdc10,expr1,ex
pr2,expr3,expr4,expr5,expr6,expr7,expr8,expr9,expr10,expr11,expr12,expr13,expr14,ex
pr15,expr16,expr17,expr18,expr19,expr20,xpre2,xpre3,xpre4,xpre5,xpre6,xpre7,xpre8,x
pre9,xpre10,xpre11,xpre12,xpre13,xpre14,xpre15,zsc1,zsc2,zsc3,zsc4,zsc5,zsc6,zsc7,zs
c8,zsc9,zsc10,zsc11,zsc12,zsc13,zsc14,zsc15,zxp1,zxp2,zxp3,zxp4,zxp5,zxp6,zxp7,zxp
8,zxp9,zxp10,zxp11,zxp12,zxp13,zxp14,zxp15,zxp16,zxp17,zxp18,zxp19,zxp20,ixpr1,i
xpr2,ixpr3,ixpr4,ixpr5,ixpr6,ixpr7,ixpr8,ixpr9,ixpr10,ixpr11,ixpr12,ixpr13,ixpr14,ixpr1
5,ixpr16,ixpr17,ixpr18,ixpr19,ixpr20,jksd1,jksd2,jksd3,jksd4,jksd5,jksd6,jksd7,jksd8,jk
sd9,jksd10,jksd11,jksd12,jksd13,jksd14,jksd15,jksd16,jksd17,jksd18,jksd19,jksd20,jliu
1,jliu2,jliu3,jliu4,jliu5,jliu6,jliu7,jliu8,jliu9,jliu10,jliu11,jliu12,jliu13,jliu14,jliu15,jliu16
,jliu17,jliu18,jliu19,jliu20,dshy1,dshy2,dshy3,dshy4,dshy5,dshy6,dshy7,dshy8,dshy9,ds
hy10,dshy11,dshy12,dshy13,dshy14,dshy15,dshy16,dshy17,dshy18,dshy19,dshy20,lagr
1,lagr2,lagr3,lagr4,lagr5,lagr6,lagr7,lagr8,lagr9,lagr10,liev1,liev2,liev3,liev4,liev5,liev6
,liev7,liev8,liev9,liev10,liev11,liev12,liev13,liev14,liev15,liev16,liev17,liev18};IF
SIZE(DB)<>0 THEN FOR j:=1 TO SIZE(DB)DO IF tamA==DB(j,1)THEN
var:=j;BREAK;END;END;IF var<>0 THEN IF NP_A()==1 THEN
DB(var):=variables;ELSE ldljt10(1);END;ELSE DB(0):=variables;END;ELSE
DB(0):=variables;END;END;tdljt10()BEGIN LOCAL
xx:=25,yy:=50,dx:=265,dy:=148;DIMGROB_P(G3,320,240);RECT(G3,White);BLIT_
P(G0,0,0,G3,0,0,320,240,Plomo,120);RECT_P(G3,xx,yy,xx+dx,yy+dy,AzulB,Fondo);
RECT_P(G3,xx-
1,yy,xx+dx+1,yy+dy,AzulB,Fondo);BLIT_P(G3,CHAR({82,65,66,97}),-(xx+1),-
(yy+1));TEXTOUT_P(CHAR({68,89,83}),G3,xx+100,yy+1+3,3,AzulM);TEXTOUT_
P(CHAR({65,66}),G3,xx+103+21,yy+1,4,AzulM);TEXTOUT_P(CHAR({118,49,46,4
8}),G3,xx+103+45,yy+1+6,2,RedM);TEXTOUT_P(CHAR({65,110,97,108,105,115,10
5,115,32,68,105,110,97,109,105,99,111,32,121,32,69,115,116,97,116,105,99,111,32,11
2,97,114,97,32,69,100,105,102,105,99,97,99,105,111,110,101,115}),G3,xx+38,yy+22,1
,DarkBlue);RECT_P(G3,xx+34,yy+20,xx+dx,yy+20,DarkBlue,DarkBlue);yy:=yy-
15;TEXTOUT_P("",G3,xx+10,yy+50,2,AzulB);TEXTOUT_P(CHAR({45,82,105,103,
105,100,101,122,32,103,108,111,98,97,108}),G3,xx+30,yy+65,2,AzulM);yy:=yy+18;T
EXTOUT_P(CHAR({45,82,105,103,105,100,101,122,32,108,97,116,101,114,97,108}),
G3,xx+30,yy+65,2,AzulM);yy:=yy+18;TEXTOUT_P("",G3,xx+30,yy+65,2,AzulM);yy
:=yy+18;TEXTOUT_P(CHAR({45,65,110,97,108,105,115,105,115,32,77,111,100,97,1
08,32,50,68}),G3,xx+30,yy+65,2,AzulM);yy:=yy+18;TEXTOUT_P(CHAR({45,65,110
,97,108,105,115,105,115,32,77,111,100,97,108,32,51,68}),G3,xx+30,yy+65,2,AzulM);
xx:=25;yy:=50;BLIT_P(G0,xx-2,yy,xx+dx+2,yy+dy+2,G3,xx-
2,yy,xx+dx+2,yy+dy+2);LOCAL mx,my;REPEAT Accion:=B→R(WAIT(-1));CASE
IF TYPE(Accion)==6 THEN IF Accion(1)==0 THEN
mx:=Accion(2);my:=Accion(3);END;END;IF TYPE(Accion)==0 THEN IF
ISKEYDOWN(30)THEN BREAK(2);END;IF ISKEYDOWN(3)THEN
BREAK(2);END;IF ISKEYDOWN(4)THEN BREAK(2);END;END;END;UNTIL
0;END;ldljtr10()BEGIN LOCAL
var,vv;var:=1;var:=ffllq3(var,{CHAR({69,115,116,105,108,111,32,49}),CHAR({69,11
5,116,105,108,111,32,50}),CHAR({69,115,116,105,108,111,32,51})},95,155,100,2,Lig
thBlue,AzulB,Fondo,AzulB);CASE IF var==1 THEN
vv:=tdljt7("",CHAR({32,101,115,116,105,108,111,32,100,101,108,32,112,114,111,103
,114,97,109,97,63}),100,100,165,65,0.05);IF vv==1 THEN
PlomoA:=RGB(240,240,240);Blue:=Aqua;Green:=GreenLucite;Red:=ToasRed;Black:=
RGB(10,10,10);Plomo:=PlomoA;LigthBlue:=Glaciar;DarkBlue:=BlueClasic;White:=R
GB(250,255,255);Fondo:=GreenLucite;AzulA:=StrawRed;AzulB:=Tangerine;AzulTit:
=BlueClasic;MCuad:=MarsaRed;FCuad:=RGB(220,220,220);
RedA:=CusYellow;RedB:=CusYellow;CTexto:=Blue;CTexto2:=Red;CoVig:=RGB(0,2
0,253);CoMur:=RGB(20,209,173);AzulM:=RGB(34,62,20);RedM:=RGB(153,27,30);ld
ljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,105,110,115,116,97,108,97,
100,111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;END;END;IF
var==2 THEN
vv:=tdljt7("",CHAR({32,101,115,116,105,108,111,32,100,101,108,32,112,114,111,103
,114,97,109,97,63}),100,100,165,65,0.05);IF vv==1 THEN
PlomoA:=RGB(220,220,220);Blue:=RGB(0,0,#CDh);Green:=RGB(0,#CDh,0);Red:=R
GB(#CDh,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RG
B(33,115,231);White:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(5
3,117,211);AzulB:=RGB(0,28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;FCuad:=R
GB(220,220,220);RedA:=RGB(195,56,56);RedB:=RGB(255,181,181);CTexto:=RGB(3
3,115,231);CTexto2:=RGB(195,56,56);CoVig:=RGB(0,126,253);CoMur:=RGB(217,20
9,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,27,30);ldljt7(CHAR({69,115,116,1
05,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,110,115,116,97,108,97,100,
111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;END;END;IF
var==3 THEN
vv:=tdljt7("",CHAR({32,101,115,116,105,108,111,32,100,101,108,32,112,114,111,103
,114,97,109,97,63}),100,100,165,65,0.05);IF vv==1 THEN
PlomoA:=RGB(220,220,220);Blue:=RGB(0,0,#CDh);Green:=RGB(0,#CDh,0);Red:=R
GB(#CDh,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RG
B(33,115,231);White:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(5
3,117,211);AzulB:=RGB(0,28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;FCuad:=R
GB(220,220,220);RedA:=RGB(195,56,56);RedB:=RGB(255,181,181);CTexto:=RGB(3
3,115,231);CTexto2:=RGB(195,56,56);CoVig:=RGB(0,126,253);CoMur:=RGB(217,20
9,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,27,30);ldljt7(CHAR({69,115,116,1
05,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,110,115,116,97,108,97,100,
111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;END;END;END;E
ND;qljgt11()BEGIN LOCAL
xx:=25,yy:=50,dx:=265,dy:=148;DIMGROB_P(G3,320,240);RECT(G3,White);BLIT_
P(G0,0,0,G3,0,0,320,240,Plomo,120);RECT_P(G3,xx-1,yy-
1,xx+dx+1,yy+dy+1,AzulB,Fondo);RECT_P(G3,xx,yy,xx+dx,yy+dy,AzulB,Fondo);BL
IT_P(G3,CHAR({82,65,66,97}),-(xx+1),-
(yy+1));TEXTOUT_P(CHAR({68,89,83}),G3,xx+100,yy+1+3,3,AzulM);TEXTOUT_
P(CHAR({65,66}),G3,xx+103+21,yy+1,4,AzulM);TEXTOUT_P(CHAR({118,49,46,4
8}),G3,xx+103+45,yy+1+6,2,RedM);RECT_P(G3,xx+34,yy+20,xx+dx,yy+20,DarkBlu
e,DarkBlue);TEXTOUT_P(CHAR({65,110,97,108,105,115,105,115,32,68,105,110,97,
109,105,99,111,32,121,32,69,115,116,97,116,105,99,111,32,112,97,114,97,32,69,100,1
05,102,105,99,97,99,105,111,110,101,115}),G3,xx+38,yy+22,1,DarkBlue);TEXTOUT
_P(CHAR({68,101,115,97,114,114,111,108,108,97,100,111,114,32,58}),G3,xx+10,yy+
50,2,AzulB);TEXTOUT_P(CHAR({65,89,65,76,65,32,66,73,90,65,82,82,79,32,82,79,6
7,75,89}),G3,xx+98,yy+50,2,AzulM);TEXTOUT_P("",G3,xx+71.5,yy+65,2,AzulB);T
EXTOUT_P(CHAR({114,111,99,107,121,97,121,97,108,97,64,103,109,97,105,108,46,
99,111,109}),G3,xx+98,yy+65,2,AzulM);TEXTOUT_P(CHAR({66,108,111,103,32,58
}),G3,xx+63.5,yy+80,2,AzulB);TEXTOUT_P(CHAR({99,105,118,105,108,121,101,10
0,97,114,111,46,119,111,114,100,112,114,101,115,115,46,99,111,109}),G3,xx+98,yy+
80,2,AzulM);TEXTOUT_P(""+CHAR({32,50,48,49,55,32,82,111,99,107,121,32,65,12
1,97,108,97,46,32,84,111,100,111,115,32,108,111,115,32,100,101,114,101,99,104,111,
115,32,114,101,115,101,114,118,97,100,111,115,46}),G3,xx+10,yy+105,1,AzulB);TE
XTOUT_P(CHAR({85,110,105,118,101,114,115,105,100,97,100,32,78,97,99,105,111,
110,97,108,32,100,101,32,83,97,110,32,67,114,105,115,116,111,98,97,108,32,100,101,
32,72,117,97,109,97,110,103,97}),G3,xx+10,yy+120,1,AzulB);TEXTOUT_P(CHAR({
65,121,97,99,117,99,104,111,45,80,101,114,117}),G3,xx+95,yy+135,1,AzulB);BLIT_P
(G0,xx-2,yy,xx+dx+2,yy+dy+2,G3,xx-2,yy,xx+dx+2,yy+dy+2);LOCAL
mx,my;REPEAT Accion:=B→R(WAIT(-1));CASE IF TYPE(Accion)==6 THEN IF
Accion(1)==0 THEN mx:=Accion(2);my:=Accion(3);END;END;IF TYPE(Accion)==0
THEN IF ISKEYDOWN(30)THEN BREAK(2);END;IF ISKEYDOWN(3)THEN
BREAK(2);END;IF ISKEYDOWN(4)THEN
TEXTOUT_P(CHAR({65,89,65,76,65,32,66,73,90,65,82,82,79,32,82,79,67,75,89}),xx
+98,yy+50,2,AzulB);TEXTOUT_P("",xx+95,yy+135,1,AzulM);END;END;END;UNTI
L 0;END;ftyul11()BEGIN END;hdljt10()BEGIN
rtyh1:=CHAR({50,32,80,105,115,111,115});rtyh2:=2;rtyh3:=3;rtyh4:=3;rtyh5:=1;rtyh6
:=1;rtyh7:=2;rtyh8:=2;rtyh9:=3;rtyh10:={3,3,3};tgh1:=9;tgh2:=0.25;tgh3:=1.40;tgh4:=1
.5;tgh5:=35;tgh6:=35;tgh7:=8;tgh8:=3;tgh9:=1;tgh10:=1;xpe1:=0.6;xpe2:=2;xpe3:=3;xp
e4:=0.5;xpe5:=0.5;xpe6:=0.05;xpe7:=0.05;xpe8:=2.5;xpe9:=2.5;xpe10:=1;pft1:=0.171;p
ft2:=0.171;pft3:=9.806;pft4:=0.05;pft5:=0.05;pft6:=2;pft7:=2;pft8:=3;pft9:=2;pft10:=C
HAR({90,111,110,97,32,50});fld1:=CHAR({80,101,114,102,105,108,32,83,50});fld2:=
CHAR({67,97,116,101,103,111,114,105,97,32,65,50});fld3:={0.1,0.25,0.35,0.45};fld4:
={1.5,1.5,1.3,1.0,0.8};fld5:=[[0.8,1.0,1.6,2,1],[0.8,1,1.2,1.4,5.0],[0.8,1,1.15,1.2,4.0],[0.8
,1,1.05,1.1,3.0]];fld6:={8,7,6,4,3};fld7:={35,45,60};fld8:=[[0.3,0.4,0.6,1.0,1.2],[3,2.5,2,
1.6,1.4]];fld9:=210;fld10:=210;hfjq1:=45;hfjq2:=21737065;hfjq3:=22500;hfjq4:=2400;
hfjq5:=1800;hfjq6:=0.4*hfjq2;hfjq7:=0.4*hfjq3;hfjq8:=1.2;hfjq9:=1;hfjq10:=1;werf1:=
1;werf2:=0.3;werf3:=0.20;werf4:=210;werf5:=2400;werf6:=173896.521;werf7:=90571.
1;werf8:=0.20;werf9:=0.25;werf10:=0.25;werf11:=210;bhy1:=2400;bhy2:=173896.521;
bhy3:=90571.1;bhy4:=0.20;bhy5:=0.15;bhy6:=2.5;bhy7:=65;bhy8:=2400;bhy9:=21737
0.7;bhy10:=90571.1;gpk1:=0.25;gpk3:=[[4,4],[5,0]];gpk4:=0;gpk5:=[[0.3,0.2,210,2400,
0.2,217370.7,90571.1]];gpk6:=1;gpk7:=[[0.25,0.25,210,2400,0.2,217370.7,90571.1]];g
pk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500,90571.1]];gpk10:=1;qwr1:=0;qwr2:=5;qw
r3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={};qwr10:={};dfg1:=0;dfg2:=0;dfg
3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:={0,0,0,0,0};dfg8:={280,3
00,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:={2500,2000,150
0,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5:={};fjl
t6:=0;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd3:=1000;abd4:=500;abd5:={{11.00
23},{11.0023},{10.22}};abd6:=1250;abd7:=0;abd8:=0;abd9:=1;abd10:=[[0,0,0,1E-
19,1E-
23,0]];bdc1:={};bdc2:=[[0]];bdc3={};bdc4:=0;bdc5:=0;bdc6:=1;bdc7:=0;bdc8:=0;bdc9:
=0;bdc10:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E-
23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11
:=0;expr12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E-
23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:
=[[0]];xpre4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpr
e11:={};xpre12:={};xpre13:={};xpre14:={[[0.0254,0.0254,1.2546,01.245,-
4.5245,0],[0.4523,0.457,0.4567,1.45,0,-4.5]],[[0.12,0.65,1,0,-0.5,0],[0,0,0,1,0,-
0.5]],[[0,0,1,0,4.5,0],[0,0,0,1,0,4.5]]};xpre15:={[[1,0.025456,0,0,2,0],[0,1,0,0,0,2]],[[1,
0,0,0,-2,0],[0,1,0,0,0,-
2]]};zsc1:={};zsc2:={};zsc4:=[[0]];zsc5:=[[0]];zsc6:=[[0]];zsc7:=[[0]];zsc8:=[[0]];zsc9:
={};zsc10:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zxp1:={};zxp
2:={};zxp3:=0;zxp4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp9:=[[0]];zx
p10:=[[0]];zxp11:=[[0]];zxp12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=0;zxp17:={
};zxp18:={};zxp19:={};zxp20:={};ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixpr4:=[[0]];ix
pr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr7:=[[0]];ixpr8:=[[0]];ixpr9:=[[0]];ixpr10:={0};ixpr11
:=[[0]];ixpr12:=[[0]];ixpr13:=[[0]];ixpr14:=[[0]];ixpr15:=[[0]];ixpr16:=[[0]];ixpr17:=[[0
]];ixpr18:=[[0]];ixpr19:=[0];ixpr20:=[0];jksd1:=[[0]];jksd2:=[[0]];jksd3:=[[0]];jksd4:=[[
0]];jksd5:=[[0]];jksd6:=[[0]];jksd7:=[[0]];jksd8:=[[0]];jksd9:=[[0]];jksd10:=[[0]];jksd11
:=[[0]];jksd12:=[[0]];jksd13:=[[0]];jksd14:=[[0]];jksd15:=[[0]];jksd16:=[[0]];jksd17:=[[
0]];jksd18:=[[0]];jksd19:=[[0]];jksd20:=[[0]];jliu1:=0;jliu2:=0;jliu3:=[[0]];jliu4:=0;jliu5
:=0;jliu6:=0;jliu7:=0;jliu8:=[0];jliu9:=[0];jliu10:=[0];jliu11:=[0];jliu12:=[[0]];jliu13:=[[
0]];jliu14:=0.981*4;jliu15:={};jliu16:=0;jliu17:=4;jliu18:=2;jliu19:=3.756;jliu20:=0.98
1;dshy1:=0.1;dshy2:={};dshy3:={};dshy4:={};dshy5:={};dshy6:={};dshy7:={};dshy8:
=[[0]];dshy9:=[[0]];dshy10:=[[0]];dshy11:=[[0]];dshy12:=[[0]];dshy13:={0};dshy14:=[[
0]];dshy15:=[[0]];dshy16:=[[0]];dshy17:=[[0]];dshy18:=[[0]];dshy19:=[[0]];dshy20:=[[
0]];lagr1:=[[0]];lagr2:=[[0]];lagr3:=0;lagr4:=0;lagr5:=1;lagr6:=0;lagr7:=0;lagr8:=0;lagr
9:=0;lagr10:=0;liev1:=0;liev2:=0;liev3:=0;liev4:=0;liev5:=0;liev6:=0;liev7:=0;liev8:=0;
liev9:=0;liev10:=0;liev11:=0;liev12:=0;liev13:=0;liev14:=1;liev15:=1;liev16:=1;liev17:
=1;liev18:=0;END;yyhte7 BEGIN
vVARC:=CHAR([57,67,74,55,51,53,48,55,74,76]);IF vVARC==Serial THEN ELSE
BREAK(4);END;END;