Anesh 14q3n
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report 2z6p3t
Overview 5o1f4z
& View Anesh as PDF for free.
More details 6z3438
- Words: 15,461
- Pages: 305
#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;vars:=CHAR([51,67, 68,54,50,52,48,48,75,81]);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;xpe5:=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;pft 7:=2;pft8:=3;pft9:=2;pft10:=CHAR({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.3 5,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;h fjq6:=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;werf 10:=0.25;werf11:=210;bhy1:=2400;bhy2:=173896.521;bhy3:=90571.1;bhy4:=0.20;bhy5:=0.15;b hy6:=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]];gpk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500,90571.1]]; gpk10:=1;qwr1:=0;qwr2:=5;qwr3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={};qwr10:={ };dfg1:=0;dfg2:=0;dfg3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:={0,0,0,0,0}; dfg8:={280,300,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:={2500,2000, 1500,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5:={};fjlt6:=0 ;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd2:=246;abd3:=1000;abd4:=500;abd5:={{11.0023 },{11.0023},{10.22}};abd6:=1250;abd7:=0;abd8:=0;abd9:=1;abd10:=[[0,0,0,1E-19,1E23,0]];bdc1:={};bdc2:=[[0]];bdc3={};bdc4:=0;bdc5:=0;bdc6:=1;bdc7:=0;bdc8:=0;bdc9:=0;bdc1 0:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11:=0;expr 12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:=[[0]];xp re4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpre11:={};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]];zsc 9:={};zsc10:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zxp1:={};zxp2:={};z xp3:=0;zxp4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp9:=[[0]];zxp10:=[[0]];zxp11 :=[[0]];zxp12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=0;zxp17:={};zxp18:={};zxp19:={};z xp20:={};ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixpr4:=[[0]];ixpr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr 7:=[[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]];jksd1 6:=[[0]];jksd17:=[[0]];jksd18:=[[0]];jksd19:=[[0]];jksd20:=[[0]];jliu1:=0;jliu2:=0;jliu3:=[[0]];jliu 4:=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;lagr8:=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: 3CD62400KQ\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();EXPORT DB:={};nomA:={CHAR({77,111,100,101,108,111,32,49})};tamA:=0;Name:=CHAR({32});Me nP:={CHAR({68,69}),CHAR({68,73,66}),CHAR({32}),CHAR({82,85,78}),CHAR({82,69,83, 85,76,84}),CHAR({73,78})};Aqua:=RGB(157,198,216);BlueScuba:=RGB(0,178,202);GreenLu cite:=RGB(125,207,182);BlueClasic:=RGB(29,79,137);StrawRed:=RGB(227,134,144);Tangerin e:=RGB(246,146,86);CusYellow:=RGB(234,217,139);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);Red:=RGB(#CDh,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;Li gthBlue:=RGB(150,177,210);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;MC uad:=MarsaRed;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);CoMur:=RG B(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,27,30);liev1:=0;liev2:=0;liev3:=0;l iev4:=0;liev5:=0;liev6:=0;liev7:=0;liev8:=0;liev9:=0;liev10:=0;liev11:=0;liev12:=0;liev13:=0;lie v14:=1;liev15:=1;liev16:=1;liev17:=1;liev18:=0;fldth1();ftyul1();qljgt1();pxtrf1();zvfgk1();yyhte 1();ffllq1();llfft1();jjrtg1();tlitg1();hdljt1();ldljtr1();tdljt1();ldljt1();fldth2();ftyul2();qljgt2();pxtrf2 ();zvfgk2();yyhte2();ffllq2();llfft2();jjrtg2();tlitg2();hdljt2();ldljtr2();tdljt2();ldljt2();fldth3();ftyul 3();qljgt3();pxtrf3();zvfgk3();yyhte3();ffllq3();llfft3();jjrtg3();tlitg3();hdljt3();ldljtr3();tdljt3();ldlj t3();fldth4();ftyul4();qljgt4();pxtrf4();zvfgk4();yyhte4();ffllq4();llfft4();jjrtg4();tlitg4();hdljt4();ld ljtr4();tdljt4();ldljt4();fldth5();ftyul5();qljgt5();pxtrf5();zvfgk5();yyhte5();ffllq5();llfft5();jjrtg5();t litg5();hdljt5();ldljtr5();tdljt5();ldljt5();fldth6();ftyul6();qljgt6();pxtrf6();zvfgk6();yyhte6();ffllq6( );llfft6();jjrtg6();tlitg6();hdljt6();ldljtr6();tdljt6();llfft12();ldljt6();fldth7();ftyul7();qljgt7();pxtrf7() ;zvfgk7();yyhte7();ffllq7(xpe3);llfft11();llfft7();jjrtg7();tlitg7();hdljt7();ldljtr7();tdljt7();ldljt7();fl dth8();ftyul8();qljgt8();pxtrf8();zvfgk8();yyhte8();ffllq8();llfft8();jjrtg8();tlitg8();hdljt8();ldljtr8() ;tdljt8();ldljt8();fldth9();ftyul9();qljgt9();pxtrf9();zvfgk9();yyhte9();ffllq9();llfft9();jjrtg9();tlitg9( );hdljt9();ldljtr9();tdljt9();ldljt9();fldth10();ftyul10();qljgt10();pxtrf10();zvfgk10();yyhte10();ffllq 10();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,67,79,77,8 0,82,69,32,101,115,116,97,32,97,112,108,105,99,97,99,105,243,110,32}),90,100,130,35,0.5);W AIT(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({51,67,68,54,50,52,48,48,75,81})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({51,67,68,54,50,52,48,48,75,81})THEN RECT_P(124,100,196,112,DarkBlue,White);FOR k:=1 TO 3 DO RECT_P(125,100+1,125+10*k,1121,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),133,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,1121,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),133,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,2 28,31,240,PlomoA);TEXTOUT_P("",Gp,8,225.5,3,Black);TEXTOUT_P(CHAR({88,58}),Gp,3 5,230,1,Black);TEXTOUT_P(CHAR({89,58}),Gp,70,230,1,Black);LINE_P(Gp,104,228,104,24 0,Plomo);TEXTOUT_P(CHAR({67,32})+"┅ "+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHAR({86,3 2})+"┅ "+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHAR({65,3 2})+"┅ "+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,228,360,2 40,PlomoA);TEXTOUT_P("",Gp,260,229,1,AzulTit);LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf4,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);axsd cerfOpc2(cx,cy,anc,posf,pst,Lm,cont,Mnu1,Mnu2);toq(Tip);MTanx(Mnu1,Mnu2);Inicio();Nudo s();Barras();Atytzad23();Atytzad22();Atytzad20(Sig);Atytzad21(Tip,Sig);Atytz13();LMax:={};T itu7:={{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨 ","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁 䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣
䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨"," 䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘 䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙 䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤 䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚 䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁 䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣 䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};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);TEXTOUT_P(CHAR({8 9,58,32}),Gp,70,230,1,Black);LINE_P(Gp,104,228,104,240,Plomo);TEXTOUT_P(CHAR({67,3 2})+"┅ "+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHAR({86,3 2})+"┅ "+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHAR({65,3 2})+"┅ "+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,228,360,2 40,PlomoA);LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf4,2,PlomoA);RECT_P(Gp,36,16,320,19,AzulTit);RECT_P(Gp,0,227,320,228,AzulB);END;jjrtg 1()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,35,30,Azul Tit);R_DE:={{36,0},{92,16}};RECT_P(Gp,R_DE(1),R_DE(2),Fondo);zvfgk1(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);yyhte1(R_DI(1,1)+5,8.5,AzulTit);TEX TOUT_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},{206,16}};RECT_P(Gp,R_CA(1),R_CA(2),Fondo);TEX TOUT_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_C A(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},{32 0,16}};RECT_P(Gp,R_OT(1),R_OT(2),Fondo);TEXTOUT_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);RECT_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()B EGIN 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,222),(0,222)},Fond o);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}};RE CT_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,10 5}};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},{91,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,180},{91,22 0}};RECT_P(R_pro(1,1),R_pro(1,2),R_pro(2,1),R_pro(2,2),AzulB,AzulB);TEXTOUT_P(CHA R({68,89,83,65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);TEXTOUT_P(CHAR({68,89,83, 65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);FILLPOLY_P({(36,30),(36,20),(94,20),(94,22 0),(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_De(1,1)<mx
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}),Di mV,DimH});ELSE bdc2:=EDITMAT(bdc2,{CHAR({68,97,116,111,115,45,67,111,108,117,109,110,97,115}),Dim V,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,3 2,118,105,103,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({66,97,115,101}),CHAR({80,101,114,97,108,116,1 01}),CHAR({88,49,32,40,67,71,41}),CHAR({89,49,32,40,67,71,41}),CHAR({88,50,32,40,67,7 1,41}),CHAR({89,50,32,40,67,71,41}),CHAR({76,79,78,71,46}),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({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,104,1,Red A);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({45,45,45,4 6}),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}),CHAR({72,32,40,109,41}),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}),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,100,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,100,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,8
4,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({1 08});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}),dx22,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}};TEXTO UT_P(CHAR({75,61,32}),dx22,R_Rig(1,2)+3,2);ftyul3(STRING(DHRig,1),R_Rig,CHAR({107,103,102,47,99,109,50}),Azu lTit,White);dx:=60;rx:=CHAR({115});dy:=dy+30;R_Int:={{dx,dy},{dx+70,dy+18}};TEXTOU T_P("∆T= ",dx22,R_Int(1,2)+3,2);ftyul3(STRING(DHInt,1),R_Int,rx,AzulTit,White);dx:=60;bx:=sy+sx;dy:=dy +30;R_To:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,111,61,32}),dx22,R_To(1,2)+3,2);ftyul3(STRING(DHTo,1),R_To,rx,AzulTit,White);dx:=200;ax:=CHAR({114 });dy:=dy;R_Tf:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,102,61,32}),dx22,R_Tf(1,2)+3,2);ftyul3(STRING(DHTf,1),R_Tf,rx,AzulTit,White);dx:=60;nx:=CHAR({101}) ;dy:=dy+40;R_Dec:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P("rtyh9= ",dx27,R_Dec(1,2)+3,2);ftyul3(STRING(DHDec,1),R_Dec,"",AzulTit,White);dx:=180;dy:=dy;R_Fu nc:={{dx,dy},{dx+90,dy+18}};RECT_P({R_Func(1,1),R_Func(1,2)},{R_Func(2,1),R_Func(2,2 )},DarkBlue,Plomo);TEXTOUT_P(CHAR({70,117,110,99,105,111,110}),R_Func(1,1)+25,R_F unc(1,2)+3,2);dx:=220;ay:=CHAR({105});by:=ax+ay;dy:=dy+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)},Da rkBlue,Plomo);TEXTOUT_P(CHAR({82,101,112,111,114,116,101}),R_Repor(1,1)+15,R_Repo r(1,2)+3,2);REPEAT 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
1();BREAK;END;IF R_Func(1,1)<mx
t1)/2;delA:=(h/3)*(a1*cos(DHW*t1)+4*(((a1+a2)/2)*cos(DHW*(t1+t2)/2))+a2*cos(DHW*t2)); Asum:=Asum+delA;Mat(i,4):=delA;Mat(i,5):=Asum;delB:=(h/3)*(a1*sin(DHW*t1)+4*(((a1+a 2)/2)*sin(DHW*(t1+t2)/2))+a2*sin(DHW*t2));Bsum:=Bsum+delB;Mat(i,6):=delB;Mat(i,7):=Bs um;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,DHD ec);yyhte7;tlitg10(G2,Mat,40,dy,3,AzulTit,2,CHAR({116,110,102}),0,"",{CHAR({116,32,40,11 5,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,109,47,115,41}),CHAR({97,40,99,109, 47,115,50,41})},Blue,0,"");dy:=dy+20*Fil;TEXTOUT_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/(MAX(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+x13,dy+ya+3,1,Plomo);LINE_P(G2,dx+x1,dy,dx+x1,dy+ya,Plomo);TEXTOUT_P(tlitg2(yy(i),1),G 2,dx-18,dy+y1+2,1,Plomo);LINE_P(G2,dx,dy+y1+10,dx+xa10,dy+y1+10,Plomo);END;LINE_P(G2,dx,dy+ya+1,dx+xa,dy+ya+1,Red);LINE_P(G2,dx,dy+y a,dx+xa,dy+ya,Red);TEXTOUT_P(CHAR({116,40,115,41}),G2,dx+xa+8,dy+ya5,2,Red);LINE_P(G2,dx-1,dy,dx1,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:=120yy(i)*Fe_Y;x2:=dhT(i+1,1)*Fe_X;y2:=120yy(i+1)*Fe_Y;LINE_P(G2,dx+x1,dy+y1+10,dx+x2,dy+y2+10,Blue);LINE_P(G2,dx+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+y 2+10+1,Blue);END;x:=0;y:=0;ffllq9(dy,H,x,y,Gi,sa,TxTb);END;pxtrf9()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:=f fllq3(1,{CHAR({77,101,116,114,97,100,111,45,67,97,114,103,97,115}),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,AzulTit,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,1 01,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),CHAR({68,101,11 4,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,5 1,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,5 1,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,5 1,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,5 1,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,5 1,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,1 01,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),CHAR({68,101,11 4,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,5 1,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,5 1,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,5 1,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,5 1,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,5 1,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,5 0,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,5 0,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,5 0,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,5 0,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,5 0,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,5 0,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},{32 0,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({77,69,84,82,65,68,79,32,68,69,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=="3CD62400KQ" 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,111,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,3 2,40,107,103,102,41}),G2,dx,dy,2,Blue);dy:=dy+40;zvfgk10(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({6 5,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;T EXTOUT_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,dx,dy,2,Blue);zvfgk10(G2, CMT,dx+5,dy+35,3,{CHAR({80,105,115,111}),CHAR({67,77})},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({49,46,49,4 5,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,1 15,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*(rtyh2+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,dy20,2,AzulTit);dy:=dy+20;dx:=5;TEXTOUT_P(CHAR({51,45,80,101,115,111,32,112,97,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,{CHA R({80,105,115,111}),CHAR({67,77}),CHAR({37,32,67,86})},AzulTit);TxTb:=CHAR({74,55,5 1,53,48,51,81});dy:=dy+(18*(rtyh2+1));x:=0;y:=0;dt:=nx+ny;dy:=dy240;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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{3 20,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,White);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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);dy:=dy+30;TEXTOUT_P(CHAR({49,4 6,49,45,82,105,103,105,100,101,122,32,76,97,116,101,114,97,108}),G2,dx,dy,2,Blue);dx:=dx+7 0;rx:=CHAR({118,101,114});ffllq10(G2,""+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);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+15,2,Azul Tit);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+15+dyy,2, Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,45,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+15,2,Azul Tit);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,dy+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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{3 20,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,White);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;TEXT OUT_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+30,3,RedA);dy:=dy+30;rx:=CHAR({118,101,114});TEXTOUT_P(CHA R({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+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,"",C on,Blue,0,"");dy:=dy+15*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,46,50,45,70,114,101,99,117,1 01,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),G2,dx,dy+15,2,Blue);ffllq 10(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}),"",CHAR({32,84,32,40,115,41})},AzulTit);dy:=d y+(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,AzulTit);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,CHAR({32} ),1,"г"+dir);dy:=dy+(15*(rtyh2+1))+20;TEXTOUT_P(CHAR({53,45,65,99,101,108,101,114,97, 99,105,111,110,32,101,115,112,101,99,116,114,97,108}),G2,dx,dy+15,3,RedA);dy:=dy+15;ffllq 10(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;TEXT OUT_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}),CHAR({32,67,32}),CHAR({ 83,97,32,40,109,47,115,50,41}),CHAR({67,47,82})},AzulTit);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,a nchoG4,altoG4);varcaq(Tipp);oligft116(nb);Atytz12(Tip);Atytz17(Tip);Atytz16();Atytz(Tip);At ytz14(Tip,MC,esc);Atytz15();TactilAtytzad20();TactilAtytzad21();oligftq10(Rg);TactilR2(Rg);e jx:=Titl(12);Tactilaxsdcerf(Tip);mvre(w,h);Atytzad25();TactilMR();DxxwElem(TD,NBa);oligft 125(cxi,cyi,TipC,nf,nc,alf,anc,Colr1,Colr2,mat,Tfu,Tc,Tf);DatsIn:=Titu7(26);Col1:=RGB(0,51,1 02);Col2:=RGB(51,102,153);Col3:=RGB(51,102,204);Col4:=RGB(0,51,153);Col5:=RGB(0,0,1 53);h(Tip);Col6:=RGB(0,0,204);Col7:=RGB(0,0,10);Col8:=RGB(0,102,102);Col9:=RGB(0,1 02,153);Col10:=RGB(0,153,204);Col11:=RGB(0,102,204);Col12:=RGB(0,51,204);Col13:=RG B(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);Col 19:=RGB(0,204,255);Col20:=RGB(0,153,255);Col21:=RGB(0,102,255);Col22:=RGB(51,102,2 55);Col23:=RGB(51,51,204);Col24:=RGB(102,102,153);Col25:=RGB(51,153,102);Col26:=RG B(0,204,153);Col27:=RGB(0,255,204);Col28:=RGB(0,255,255);Col29:=RGB(51,204,255);Col3 0:=RGB(51,153,255);Col31:=RGB(102,153,255);Col32:=RGB(102,102,255);Col33:=RGB(102, 0,255);Col34:=RGB(102,0,204);Col35:=RGB(51,153,51);Col36:=RGB(0,204,102);Col37:=RG B(0,255,153);Col38:=RGB(102,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:=R GB(153,51,255);Col45:=RGB(153,0,255);Col46:=RGB(0,102,0);Col47:=RGB(0,204,0);Col48:= RGB(0,255,0);Col49:=RGB(102,255,153);Col50:=RGB(153,255,204);Col51:=RGB(204,255,25 5);Col52:=RGB(204,204,255);Col53:=RGB(204,153,255);Col54:=RGB(204,102,255);Col55:=R
GB(204,51,255);Col56:=RGB(204,0,255);Col57:=RGB(153,0,204);Col58:=RGB(0,51,0);Col59: =RGB(0,153,51);Col60:=RGB(51,204,51);Col61:=RGB(102,255,102);Col62:=RGB(153,255,15 3);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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{32 0,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,White);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({40,51,47,51,41}),G2,292,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({54,45,70,117,101,114,122,97,115,32,76,97,116,10 1,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,99,105,11 1,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tlitg10(G2,FMo2D,50,dy+50,2,AzulTit,1,CHAR({1 16,110,102}),0,"",Con,Blue,0,"");TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+30+(15*(rtyh 2+1));TEXTOUT_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+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:=aa1;END;tlitg10(G2,VMo2D,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,DarkBlue, 1,CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,117,108,111,32,1 00,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,117,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,"",7 0,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,dy+50,3,AzulTit,0,CHAR({116,1 10,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,70,32,40,116,110,102,41})},DarkBlue,1,CoF);dy:=dy+15*(rtyh2+2)+ 45;dx:=dx+25;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*HH H},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+ 1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,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);TEXTOUT_P("▶
",G2,dx+ecx*VFR(aa,2),dy+ecy*HH11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dy:=dy+vg+25;sx:=rx+ry;dx:=5;TEXTOUT_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,1 10,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,105,109,111}),G2,dx,dy+15,2,Blue);dy:=dy+15;f fllq10(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;TEXTO UT_P(CHAR({86,109,105,110,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,110,102}),G2,10 0,dy+45,3,AzulTit);dy:=dy+45;TEXTOUT_P(CHAR({57,46,50,32,86,101,114,105,102,105,99, 97,99,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})+V m80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_P(CHAR({67,117,1 09,112,108,101,32,99,111,110,32,108,97,32,99,111,110,100,105,99,105,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);E LSE TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(jliu1+CHAR({32,32,60,32,32})+V m80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXTOUT_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,Azu lTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,48,45,68,101,115,112,108,97,122,97,109,105,1 01,110,116,111,32,101,108,97,115,116,105,99,111,32,101,110,32,101,108,32,67,77,32,40,99,10 9,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",125,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))+3 0;TEXTOUT_P(CHAR({49,49,45,68,101,115,112,108,97,122,97,109,105,101,110,116,111,32,1 05,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,11 1,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,qi,50,dy+60,2,AzulTit,0,CHAR({32}),1 ,CHAR({113,105})+dir);dy:=dy+30+(15*(rtyh2+1))+30;TEXTOUT_P(CHAR({49,50,45,67,11 1,110,116,114,111,108,32,100,101,32,68,101,114,105,118,97,115,32,100,101,32,112,105,115,11 1}),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,105,115,1 11}),100,dy+26,55,AzulTit);dy:=dy+50;TEXTOUT_P("➧"+CHAR({68,105,114,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}),"",CHAR({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),DP3D(1,3))*1 00;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,dx+0.4*ec x*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,dy10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,115,111,1 15}),G2,dx35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR({48}),G 2,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+vgccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-ccy1.5},{dx+ccx+1.5,dy+vgccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+vgccy+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,NomElem,Gr,Colr);WN ;WB;NBarra:=1;NNudo:=1;Long;bdx:=25;bdy:=25;VecC:={};Datsbmq111:={};DAp:={};DCg B:={};DCgN:={};Eqx:=toq({ncap(5)});L0G;L1G;L2G;L3G;L4G;L5G;L6G;L7G;L8G;L9G;L10 G;L11G;M0G;M1G;M2G;M3G;M4G;M5G;M6G;M7G;M8G;M9G;NG;BG;Datsbmq111G;MC; Eqy:=toq({ejx(2)});Col63:=RGB(204,255,204);Col64:=RGB(255,255,255);Col65:=RGB(255,2 04,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);Col7 3:=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:=RGB(51,51, 0);Col84:=RGB(102,153,0);Col85:=RGB(153,255,51);Col86:=RGB(204,255,102);Col87:=RGB (255,255,153);Col88:=RGB(255,204,153);Col89:=RGB(255,153,153);Col90:=RGB(255,102,15 3);Col91:=RGB(255,51,153);Col92:=RGB(204,51,153);Col93:=RGB(153,0,153);Col94:=RGB( 102,102,51);Col95:=RGB(153,204,0);Col96:=RGB(204,255,51);Col97:=RGB(255,255,102);Col 98:=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,102);Col104:=RGB(153,153,10 2);Col105:=RGB(204,204,0);Col106:=RGB(255,255,0);Col107:=RGB(255,204,0);Col108:=RG B(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(153,102,51);Col114:=RGB(204,153,0);Col115:=RGB( 255,153,0);Col116:=RGB(204,102,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);C ol123:=RGB(204,51,0);Col124:=RGB(153,51,0);Col125:=RGB(153,0,0);Col126:=RGB(128,0,0 );Col127:=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(19 1,191,191);Col134:=RGB(179,179,179);Col135:=RGB(166,166,166);Col136:=RGB(153,153,15 3);Col137:=RGB(140,140,140);Col138:=RGB(128,128,128);Col139:=RGB(115,115,115);Col14 0:=RGB(102,102,102);Col141:=RGB(89,89,89);Col142:=RGB(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 89504E470D0A1A0A0000000D494844520000001A000000960803000000F7E6685F00000054 504C5445FFFFFFC0DCC0A0A0A4808080C0C0C0FFFBF0606080A0C0C080A080806080A0 A080A6CAF00000008080C04020006060C0404080A0A0C04020806060402020400000402000 40A080C08060C080A0C0E020404040409A5A7DA20000001C74524E5300000000000000000 0000000000000000000000000000000000000003A2359AE000001DB494441547801ED958B6
EC3200C4563B0B307F4B526DDD6FDFF7FCE26A140822B358BB6A9DB95A2A29E181CB 836CD0F09001462ACB5A8126B41477823222186AAF985A81AC2406A6C5889D54ED9834 D229594CC142467654CCEE62432B066A6FAF7DDA174B3C9619A7A8C6E9BC101E64644 8F82AEAC052AA931BA1C302831AC27D0C8248E26A6012526677312D9305B32705EB804 C50661B6C9C30E99622B215FEB794445498F69D4D0300716F946CB131A934E17B81CB26 228EBE28F54495D0438D3B821A41AA021B336AAAC958E0FD9347C9AF4086C001EE6FE 0A04789EF0524188A7006ED61293172DA4270EFFF52DC2F92D1577DFE806581F99D4B6C 6E1A58B8885D8A82159CE0D4DDEBE30CC1AFA0E519AB044A6A136B5510A9D07A5B7 A18C28B525BDF4B82CA1454E83DBA9E11FA0FC6A115B73A3E3F4E4071311C347DFCB 0B99E749CC4EDC16E5BAE454EEADE939BF51D17621A22568A7DD27CEFABDA32A247 768B72F9B123AA90E76133FC7AEDBE5D7D7C1FBFED4F57DDF89F679987BDD9FDE1C B941E58CBC8CEF5C3D3D2277F4AD533E8B36DBF5B777FAD7A508FC7B1C45E4E78AA 8727134BF52A8D75C155110A34139BAF2BD937EB25AF6E775D159A4B3256B2D11F90F7 B0B1ACF82D1EC5048F1A720DBE6FA9A3F3F01D2051491028558CB0000000049454E44A E426082;ICON ApEm2 89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060000000F 504C5445848484FFFFFFB5B5B5373737B6B6B664F85B5E0000000574524E530000000000C 26B06B10000009D494441547801CD93DB0D80200C459109282E00372E60D8C0B8FF4C3E9 06AA1463EED4D881FC77272A366F0C04C5F3302914CE86541C6DB4E364443E875B0956F E2473F9414D655BE371B386FBECCCAB5AA2FB3E0898AEF98781476B97CA774ACDBDF 01D6F5386B765FB35CBE0F368FCA66DF37365F52D8EC3B9DBE92BDE567A55FC9CAB2 9B7E5D2C5159D1AFE5A8ECB3DF666DCDBA5F7CBFD4FDBFB90D8A7F543628B8E12D 0000000049454E44AE426082;ICON Resorte 89504E470D0A1A0A0000000D4948445200000029000000490803000000974AFF9E00000156 504C5445FFFFFFC3BEEA1416047E77BE7F7F7FC3BEF22122137D75D0000000C2BEF17D 76D6C3C3C37092BEC8BFE7C1BFF17C77D4F1EFFF7A7CD2222113BEBEF1C1C0F17C78 D6F2EFFF7B7DD1BCBEF1C1C2EF1C1C076E69DCF6F1FFF1EEFF7A79D2222212C0C0F7 C0C2FB72739D0C0C0C434168ADA8EFE8E1FFF4EFFF8787D62020137B7BBEDEDFFFE4 E8FFB5B6FFA2A0D657567A1C1C10312D6E8881D9D9D4FFE5E3FFCED1FF53539D00001 D585859A8A7EEE4E4FFEEEEFFB4B0ED8C8A9F93929F9292999090958E8F959394978D8 D9F8382948B8B846162541B1A2815143B6B67B2E3E1F7EFF4FFE0E4FF9FA0FF2C2A5B94 93B2BBB9FFEEEBFF9792C0171711000028100D3E12113C0F0F370D0D310F0F3011113412 12371D1B3F1311294F4C71EBE7FFEAE7F7D9D3FBD0CBFFD4D0FFCECCFFCDCDFFCC CEFFCBCFFFCDD1FFDCDDFFC5C0FF726AFF100E31353361918DD6CCC7FC5757573F48 CC47ED5ED90000007274524E530000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000CD073F7D00000304494441547801ED955757EA401485A317E3D 044020A0252A448B18152941A9A3445AA284A55B0502EFFFFE52601B2920C02BEDFFDC 2CCCEB7C864CE9E33C85C1B9B7FE83182F060D1CFB6D06D060960D1CFF8A880410A67 1201F17C483FDB4125BB08242926833C39BAB70F930A4C0979072AB5E61072B53A3DE41 98E8C26B3E598E35A6D7607973C393D3BBF70BA2EAF58AEDBE3F55DDFF867B3403014 8EE07834164F246F53E90C93CCE6EEEE41FEA1404D0AC5122857AA8FB5A7E77AEAE5B 5D1A4DC56BBD37D7BEFF53F3EBFBE07C3D19832C7A3E1E0FBEBF3A3DF7B7FEB76D A2DCA6C365E5F52F5E7A7DA63B55206A5E2EC5F1FF2E0FE2E9765BE36934EDD2613F1 5814C723E1503030B3FD37D73EAFC7CDFA96AB4B97F3E2FCECF484FBE90EBBCDCAB
18E2D6693F1C800EDA75EA785BC438D5A7500B94A4C0117737F0F9543A60C93C2E4AE0 4DDA127F350898108CA178208503E3D5E965904D946B7E8F1B27380207F363790FFFA8D7 840B80625043C065980814CB3B5801C17035CF02ADD68C36461540A72C9CBD46B0722FD 0F4310E280C7AEDB972E44DEE407E53087B43893A93788BC06DF95081B3C345F24EAEF 5CD2E1BBFFAAE24C6E775F633A8F3FF798A458A6D4DBBD779F8FF889E140BEC327B3 BB2D90ECA98D67B1A77ED66DD52AA4228A0418A6B379721FB5E8E9910A254490E48FE AE8345AFBC8796C3A0C031429922AB45677B6FF143B33AAF72402B2DF6FF177E407861 3FCF1F3CE6BD72B6562E6CEF79EE3E726CD3EAB85E3D5AF7B9F835BA3F77AE2C2CC E9CA91CA37B886AAF9964A3A2D9C1D0D9707F91B88ECBEDCBAB8CD3B04860F7E88E CBCA62EB9850F964605384BED46FA8A4B068AE305A96B35337040E7996527799948F2BF 7EADBFA4D6E244A456B2243721B58A25C0C9841AAD4209905EE744F4772548DC5B2B5 0F2DD08C111CB24D8A5E40C2497C942A1B84DC909793712E85A24D15200838413CC783 B75C92E21595F44B2BCC520B44BB3DB7BE1F161ED3CB15272C160E139A3CA3EADE66 45A4DDE0FE48284FC7C74A7A913D2F15876C859495EBF1BAC4D72C17FBEF3A96B92E E72B50000000049454E44AE426082;ICON ApSe 89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060000001E 504C5445C3C3C3FFFFFFFFFBF07F7F7F000000C0C0C0C0DCC0808080A0A0A4A0A0807 DC215480000000A74524E530000000000000000000073A018680000014B4944415478018DD 3CF6AC2401006F04D43C1A3A3A6F6E826081EB5035DAF85BC402CDBA44791D25ED3C 54E8EFE21CD5E7BF07DBBD14D14096DE634AB3F86F9960D73FC3E3EC17F35C0D94B97 DDB8AB3696D64AB28ED888365663CE12B1A7567371CC16B27F6107A16D6EA52DE69C6 CEA7B2C8246EBED6012C101263B3B37E5C6EA4034D815F2FD7A48DBE7293FD9AF6CC C24E9261BA3AF4A1B2B7ECEF64A647708EB32672F878F08327EFF5D6523C9221AD2F15 F40AA6A06200ACA883244D71C066148A92CB3D556109EEDB151E6A7CA82B1B2B62EC ECD28A2A2B625AF2C79265B6CF7BDD3304921599A55AF962FF7253AB004B5B50145057 9EA3310D1D5A5985669936D51BC5B3BC2A3DD06B86CB00FDAECDB1B5ADBD3DCFB 8184F7F2EBCB2E779895D9FCCAB2FA0D384D569AB78371AB773657F945B63FADEAA8 0D93A2D55C7C9C8E98F3D6F27BF3BBBFD9569D593180BD010000000049454E44AE4260 82;ICON ApSe1 89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330000001E 504C5445FFFFFF000000C3C3C3C0C0C0A0A0A4FFFBF0A0A080C0DCC07F7F7F80808029 8F6D7B0000000A74524E530000000000000000000073A0186800000154494441547801D5D23 16BC2401407F057D2D066339B6EA1ADE0188816B3498DD4DB8E122163A15F406807DDC 4A6F06E134C4BDEB76DE2DD85F8523F40FF93DC2FB9F7CF7950E7CA079BFBC8E42EE 0E42C200DE10DD20570DAA05C1E3D9A4DF792538CABB2A6B894E037E99D369CC3470 885BC7E0640B2D9D5A404154405E26807A808DB74FA59568B158D30AF1E23122DAA750 73709A40718AFAB2175DAA3330A0539E577A642DBD2167EC113CD325C737213E9BCC2 58BAF3E6DB2CDD35A71670FAD70956B7D86B2FF4D159EB4F1C8E36E734A0F8531FE78 37A52E7542C734D63B524F6D6F44BD324BAE5E44A4D2174090C25199B45DB85A688924 B351EAB2BC2CB1FCD86E491B99E757C7F404E686B74086C8DA843DEC1D688F92CFA3 1A78109A35C981A13B16584E9CCCC723D46655363D521676236445EA314F9A51A7B91E B7F3952ECAD3E6E869A82F7CEDD7065D05EF823BFFD587E6190342DD50000000049454 E44AE426082;ICON Marca 89504E470D0A1A0A0000000D4948445200000017000000170803000000D7F42492000001AA 504C54452B2A281B1A1836353417161522201E2A2927201F1D000000FFFFFFFDFDFD5F5E 5C0F0E0C2524222B29272322200E0D0B8E8E8DF7F6F6F2F3F3E0E0DE3E3E3C1413112726
242B2A2726252311100E4F4E4DF2F2F0FBFAF99F9E9ED1D0D0BFBFBD262524191816292 82628272532312FD2D1D00D0C0A555553F1F0F09F9E9C1E1D1B2E2D2B3736342C2B2993 9392F1F1F1ECECEC2A2926353432393836242321171614757572FCFDFDF3F4F47B7A792D 2C2AD7D7D6FCFCFC21201E3837356564620605038F8E8B5A5959181715C8C8C7CECECD 08060422211E1D1C1A9D9C9B898886100F0D555554242320AFAEAF333230959493EFF0F0 15141112110FB3B2B20E0D0A1312101514120807058A8988E6E6E6DFDEDEE3E3E2CDCC CCE3E3E3DFDFDEEFEFEFFEFEFE7E7D7C828180828281838281C0C0BF1716131D1C198 F8E8DADACAD3534313433310A0806CDCDCCE3E2E20C0B085959572625227C7B795757 56ACABAAE9E9E941403F4141408D8C8A161513A7A6A51A19172524216A6A6871706F29 28258D8C8BC9C9CA949391D7D7D7959593F8F8F8484745BEBEBE282624444442D3D2D1 B5B5B31C1C1A30D3EB870000008E74524E5300000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000841156850000016049444154780165D1F757E2401007F0450D3B7207582E10F 550D96003391112152C57B060458982A262EFBD37EC9EDDFFD95D547881F969F7332F937 9FB45A9D26465E77028AD382DC690ABFBF65DD5D11B8C7938BF00A0F0076F4A76CC42 517109E09F965200282BB712331B4044ABAD8202D692CAAA6A7AA8B1DA09871CB5CE5 F50072EA8773B3C92DCE082C626AFCF8738B919A04507D02AB489D26FED9FBFF4937F0 684FCEDD0D18901BA442717E8869E5E1EA0AF3FE10338C8DC430283301452923E2C531F 096B22A363100DF16A1F9F988C4D4D67F80C7C94CAD9FCD9B9F905EF62A62F2D0B766 545E5AB788DEDB3CED17DA2FCC6A76FC216DADE815D31C83C86F700F6A9072CF46F0 77CC4496CCC0FA3F47A24D097938FD9F144B1BB4DA7836CA5B3B89478E773E305BB5E 86AFF035C08DCF4F9261856F69E30EF0FFFB0725150C42242E3DB20C6C11292DE227FEF 9E5150B5C46F27AE94DF33518A17709CF49AFB792BAC30000000049454E44AE426082;IC ON ApEm 89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330000000F 504C5445FFFFFF373737B5B5B5848484B6B6B6A66EB3660000000574524E530000000000C 26B06B10000008F494441547801D591610AC3200C859DBB80191EA0A41E407A84E2FDCF 545A62CC92C87E7563EF41097CD80F6338F380C089B5D7A095AB913A24117296009CA4 D1F92D6DBF6607F5F9336ACD4552ADD085130D1B57A3E7D26B903D347EF8CFA911F1E D1E2F449A5607D162E26651DF0C5A44FB745DF54BAE2C5D05C6E30164E93268B80C1A AEF2B37BDDE80A73D73C07A2AA2C018B76DC770000000049454E44AE426082;ICON AE 89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD20000000 9504C5445F2F2F2FFFFFF000000856950AA0000000374524E53000000FA76C4DE0000003A 494441547801458BB10940211043E30EAEA085F35C61794B1D88554A714AC3FFA00FF248 914064251936DBFA155E3A26EB40F03697DE44D8F73D495C120944FBDAB700000000494 54E44AE426082;ICON AE2 89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD20000000 9504C5445000000EFEFEFF2F2F28390F6460000000374524E53000000FA76C4DE000000344 9444154780145C9210E00200C43D10A0E500462B799005F31EE7F159689F1C54B93E27765 91AC8093034773C3D58B49BD45F700FB0F07BEEE850B540000000049454E44AE426082;R g1:={};Rg2:={};Dats:={};Regs:={};LEcu:={};LDis:={};LApDia:={};ec;Zx;Zy;OriCarga;Ndas: =hcl(DatsIn);Pe;cnP;TSec;Elas;TApEm;TApSe;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:={};EXPORT 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:={};LEcu2:={};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:=ASC(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:=cy5;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,3,White);TEXTO UT_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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170qwr2*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,76,97,116,
101,114,97,108}),G2,dx,dy,2,Blue);dx:=dx+70;lx:=CHAR({118,101,114});ffllq10(G2,"ixpr5=" +CHAR({32}),dx+20,dy+14,140,27,AzulTit);llfft10(G2,CHAR({75}),CHAR({65,65}),dx+50,d y+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);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,A zulTit);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+15+dyy,2, Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,45,109}),0,"");dyy :=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,1 11,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;TEXTOUT_P(CHAR({49,46,5 0,45,77,97,116,114,105,122,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,1 10}),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("➧"+CHAR({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,AzulT it,1,CHAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR( {68,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(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,dy+45+dy y,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,111,111,114,100,101,110,9 7,100,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,2,Blue);ffllq10(G2,"",110,dy+15,115,2 3,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);TEXTOUT_P(CHAR({40,4 9,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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170qwr2*qwr5/2,y0:=117.5+qwr3*qwr5/2;dy:=dy+18;TEXTOUT_P(CHAR({49,46,49,45,82,105,1 03,105,100,101,122,32,76,97,116,101,114,97,108}),G2,dx,dy,2,Blue);TEXTOUT_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,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({10 9}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR({68,105,114,10 1,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(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,dy+45+dyy,2,AzulTit,1,C HAR({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,100,101,110,97,100,97,115,32 ,100,101,32,112,105,115,111}),G2,dx,dy,2,Blue);ffllq10(G2,"",110,dy+15,115,23,AzulTit);dy:= dy+25;pxtrf10(G2,ixpr5,50,dy+35,2,AzulTit,1,CHAR({116,110,45,109}),0,"");dy:=dy+50;END; ffllq9(dy,H,x,y,Gi,e,TxTb);END;llfft9(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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=1000;DIMGROB_P(G2,H,V);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,3,White);TEXTO UT_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,100,101,3 2,77,97,115,97}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({50,46,49,45,77,97,115,97,32,116,11 4,97,115,108,97,99,105,111,110,97,108}),G2,dx,dy+15,2,Blue);ffllq10(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,Azul Tit);dy:=dy+60;pxtrf10(G2,ixpr8,50,dy+40,2,AzulTit,1,CHAR({116,110,102,47,103,42,109,50} ),0,"");dy:=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,32,112,105 ,115,111}),G2,dx,dy+15,2,Blue);pxtrf10(G2,ixpr6,50,dy+40,3,AzulTit,1,CHAR({116,110,102,4 5,115,50,47,109}),0,"");dy:=dy+15*3*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,45,80,114,111,1 12,105,101,100,97,100,101,115,32,68,105,110,97,109,105,99,97,115}),G2,dx,dy,3,RedA);TEX TOUT_P(CHAR({51,46,49,45,77,111,100,111,115,32,100,101,32,118,105,98,114,97,99,105,11 1,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({32}),1," Φ ",Con,Blue,0,"");dy:=dy+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({51,46,49,45,70,114,101,99,1 17,101,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),G2,dx,dy+15,2,Blue);f fllq10(G2,"",100,dy+35,130,23,AzulTit);dy:=dy+50;zvfgk10(G2,ixpr11,50,dy+55,3,{CHAR({6 9,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));TEXTOUT_P(CH AR({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,3,RedA);ffllq10(G2,CHAR({32}),120,dy+20,85,43,Azul Tit);TxTb:=CHAR({74,55,51,53,48,51,81});yyhte10(G2,CHAR({114,61,32}),"",100,dy+26,52, AzulTit);dy:=dy+65;TEXTOUT_P(CHAR({52,46,49,32,68,105,114,101,99,99,105,111,110,32,1 00,101,32,97,110,97,108,105,115,105,115}),G2,dx,dy+15,2,Blue);TEXTOUT_P("➧"+CHAR({6 8,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,BB,50,dy+5
5,2,AzulTit,0,CHAR({32}),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,11 0,32,109,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=="3CD62400KQ" 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,AzulTit,0,CHA R({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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,51,47,53,41}),G2,2 92,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({53,45,65,99,101,108,101,114,97,99,105,111,110,3 2,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);d y:=dy+65;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,d y+15,2,AzulTit);zvfgk10(G2,TAS,50,dy+55,3,{"ixpr9",CHAR({84,32,40,115,41}),CHAR({32,6 7,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);ffllq10(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,101,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));TEXTOUT_P(CHAR({55,4 5,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,114});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:=aa1;END;tlitg10(G2,VMo,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,DarkBlue,1, CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,117,108,111,32,10 0,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,117,101,114,122,97,32,114,1 01,115,117,108,116,97,110,116,101,32,67,81,67,32,40,116,110,102,41}),G2,dx,dy,3,RedA);ffllq 10(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,dy+50,3,AzulTit,0,CH
AR({116,110,102}),0,"",{CHAR({67,111,114,116,97,110,116,101,32,86}),CHAR({70,117,101, 114,122,97,32,70})},DarkBlue,1,CoF);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+15*(rtyh 2+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*HH H},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+ 1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,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);TEXTOUT_P("", G2,dx+ecx*VFR(aa,2),dy+ecy*HH11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dx:=5;yyhte7;dy:=dy+50;ffllq9(dy,H,x,y,Gi,e,TxTb);E ND;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=1500;H:=2000;DIMGROB_P(G2,H,V);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,52,47,53,41}),G2,2 92,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({57,45,67,97,108,99,117,108,111,32,100,101,32,10 8,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,116,111,32,100,101,32,116,111,114,11 5,105,111,110,32,97,99,99,105,100,101,110,116,97,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,"",10 0,dy+35,95,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,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(CHAR({57,46,50,32,71,105,114,111,115,32,112,111,114,32,116,111,114,115,10 5,111,110,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+3 0,2,AzulTit);qTA:=list2mat(qTA,1);pxtrf10(G2,qTA,60,dy+60,2,AzulTit,1,CHAR({114,97,100} ),1,CHAR({81})+dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_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,d x,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(Con,Col);E ND;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,AzulTit);tlitg10(G2,qPor,65,dy +60,2,AzulTit,1,CHAR({109}),1,"qT"+dir,Con,DarkBlue,1,CoF);dy:=dy+30+(15*(rtyh2+2));T EXTOUT_P(CHAR({57,46,52,32,70,117,101,114,122,97,115,32,108,97,116,101,114,97,108,32, 101,110,32,99,97,100,97,32,112,111,114,116,105,99,111,32,112,111,114,32,116,111,114,115,10 5,111,110,32,97,99,99,105,100,101,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,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G2,FPTA,60,d y+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({57,46,53,32 ,70,117,101,114,122,97,115,32,101,110,32,67,101,110,116,114,111,32,100,101,32,77,97,115,97, 32,112,111,114,32,116,111,114,115,105,111,110,32,97,99,99,105,100,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,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G 2,FTA,60,dy+60,2,AzulTit,1,CHAR({116,110,102}),1,CHAR({70,84,65})+dir);dy:=dy150;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=6000;H:=320;DIMGROB_P(G2,H,V);RECT(G2); RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,53,47,53,41}),G2,29 2,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,48,45,70,117,101,114,122,97,32,108,97,116,10 1,114,97,108,32,116,111,116,97,108,32,101,110,32,67,101,110,116,114,111,32,100,101,32,77,9 7,115,97,46}),G2,dx,dy,3,RedA);ffllq10(G2,"",120,dy+20,70,23,AzulTit);dy:=dy+20;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);tlitg10(G2,FT,50,dy+60,3,AzulTit,1,CHAR({116,110,102}),1,CHAR({7 0,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);TEXTOUT_P("▶ ",
G2,dx+ecx*FT(aa,1),dy+ecy*HH11,5,RedA);TEXTOUT_P(FT(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,77}),G2,dx40,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,32}),G2,dx,dy,3,R edA);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+60,2,Azul Tit,1,CHAR({116,110,102}),1,CHAR({86})+dir,{CHAR({49})},PlomoA,1,CcoF);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+ecy*HH H},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:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,116,101,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,77}),G2,dx20,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,105,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,10 5,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,110,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,1 10,102}),G2,100,dy+45,3,AzulTit);dy:=dy+45;TEXTOUT_P(CHAR({49,50,46,50,32,86,101,11 4,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})+V m80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_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);ELS E TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(VB+CHAR({32,32,60,32,32})+V m80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXTOUT_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,Azu lTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,51,45,68,101,115,112,108,97,122,97,109,105,1 01,110,116,111,32,101,108,97,115,116,105,99,111,32,101,110,32,101,108,32,67,77,32,40,99,10 9,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",125,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);LOCAL qeex:=list2mat(qe,1);pxtrf10(G2,qeex,50,dy+60,2,AzulTit,0,CHAR({32}),1,CHAR({113,101}) +dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,52,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("➧"+CH AR({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})+di r);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,53,45,67,111,110,116,114,111,108,3
2,100,101,32,68,101,114,105,118,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,3,RedA);ff llq10(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,105,115,1 11}),100,dy+26,55,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+50;TEXTOUT_P(" ➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G 2,DP3D,50,dy+60,3,AzulTit,0,CHAR({32}),1,"Δ"+dir,{CHAR({113,105,45,49,45,113,105}),"Δ Deriva",CHAR({76,105,109,105,116}),CHAR({86,101,114,105,102})},DarkBlue,1,CoF);dy:=d y+55+(15*(rtyh2+2));LOCAL MaxDer:=SUB(DP3D,{1,2},{rtyh2,2}),Mmm,dist;Mmm:=MAX(MAX(MaxDer),DP3D(1,3))*1 00;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,dx+0.4*ec x*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,dy10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,115,111,1 15}),G2,dx35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR({48}),G 2,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+vgccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-ccy1.5},{dx+ccx+1.5,dy+vgccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+vgccy+2,1,DarkBlue);END;dx:=5;dy:=dy;x:=0;y:=0;yyhte7;ffllq9(dy,H,x,y,Gi,e,TxTb);END;ldljtr 9(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(G2,{0,1},{ 320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,79,83,32,65,78,65,7 6,73,83,73,83,32,68,73,78,65,77,73,67,79,32,51,68}),G2,45,1.5,3,White);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},{320,dy+35} };RECT_P(R_TTA(1),R_TTA(2),AzulM);TEXTOUT_P(CHAR({32,67,65,76,67,85,76,79,83,3 2,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,d y+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,65,76,32,5 1,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_Mo3D(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,65,76,32,5 0,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_Mo2D(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}};IF 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_Es3D(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,65,84,73,6 7,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_Es2D(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,68,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,8 2,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_AIs(1,2),5,AzulA);END;LO CAL 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,Az ulM);dy:=dy+128;TEXTOUT_P(CHAR({86,69,82,73,70,73,67,65,78,68,79,32,67,65,76,67,85,7 6,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,99,105,11 1,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,114,116,1
05,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,1 14,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,99,105,11 1,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,114,116,1 05,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);E ND;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,1 14,105,122,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,110}),130,dy,2,Az ulM);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,RedM);WAIT(tt);EN D;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;dfg4:=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(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,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;IFERR ixpr5:=ixpr3+ixpr4;RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,1 14,105,122,32,100,101,32,82,105,103,105,100,101,122,32,101,110,32,67,46,80,46}),130,dy,2,A zulM);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,RedM);WAIT(tt);EN D;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,108,105,11 5,105,115,32,68,105,110,97,109,105,99,111,46,46,46}),130,dy,2,AzulM);ffllq8(xpe3,rtyh9,CHA
R({115,101}),CHAR({97,108}));RECT_P({130,dy},{320,dy+17},White);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;E ND;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,115,105,11 5,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,11 4,105,122,32,100,101,32,82,105,103,105,100,101,122,32,88,46,46,46}),130,dy,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,101,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,1 16,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,Azul M);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,108,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(t t);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,116,97,11 6,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,116,97,11 6,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,110,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
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;ELSE 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(dfg9)*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):=ΣLI ST(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:={};Nuevo:=1;v c:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M2;L0(6):=M3;REC T_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(2),85,108,1,Col 148);Datsbmq17();RECT_P(70,122,115,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOU T_P(lntx(3),115,108,1,Col148);RECT_P(70,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);RE CT_P(68,105,252,118,Col130);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);RE CT_P(70,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;IF T==3 THEN RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(1),115,108,1,Col148);L0:={};Nuevo:=1;v c:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M2;L0(6):=M3;REC T_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(2),85,108,1,Col
148);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(70,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,Col130);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,Col 148);RECT_P(70,122,205,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(7),1 20,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();RSep();END;FCAE2 D()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(EV2Y(2),rtyh 9);zsc9:=ldljtr2(EV2X(1),rtyh9);zsc10:=ldljtr2(EV2Y(1),rtyh9);zsc11:=MAKEMAT(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):=zsc 10(j);zsc12(j,2):=sqrt(ABS(zsc12(j,1)));zsc12(j,3):=2*PI/zsc12(j,2);END;zsc11:=hdljt2(zsc11,rt yh9);zsc12:=hdljt2(zsc12,rtyh9);LOCAL bb,PA,Num,NUM_x:={},DEN_x:={},NUM_y:={},DEN_y:={};bb:=MAKEMAT(1,rtyh2,1);FO R 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*zsc 6*TRN(PA);DEN_x(j):=Num(1,1);PA:=TRN(SUB(zsc8,{1,j},{rtyh2,j}));Num:=PA*zsc6*bb;N UM_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)
=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):=zxp1(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;zxp 5:=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(zxp7,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:=a1;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:=a1;END;END;zxp10:=hdljt2(zxp10,rtyh9);zxp10:=hdljt2(zxp10,rtyh9);zxp11:=MAKEMAT(0,rty h2,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;V 1:=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(rtyh2,1);z xp14:=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:=MAKE MAT(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(z xp18,4);zxp19:=MAKEMAT(0,rtyh2,1);zxp19:=0.75*tgh7*zxp17;zxp20:=MAKEMAT(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(j1,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;fldth8(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);ix pr11:=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;ixp r11:=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:=m1;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(ixp r9)*ixpr6*ixpr9);NUM_y:=(TRN(ixpr9)*ixpr6)*ixpr13;DEN_y:=diag(TRN(ixpr9)*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)
=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):=ixpr1 5(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):=i xpr16(j);END;ixpr17:=hdljt2(ixpr17,rtyh9);ixpr18:=hdljt2(ixpr18,rtyh9);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(jks d1,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:=a1;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:=b1;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;V 1:=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;V 1:=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(jksd6,rtyh9); LOCAL CTAx,CTAy;CTAx:=llfft8(jksd5,pft4,qwr3,rtyh7,xpre14,xpre11,xpe3);jksd7:=CTAx(1);jksd7:=t dljt2(jksd7,rtyh9);jksd9:=CTAx(2);jksd9:=tdljt2(jksd9,rtyh9);jksd11:=CTAx(3);jksd11:=hdljt2(j ksd11,rtyh9);jksd13:=CTAx(4);jksd13:=hdljt2(jksd13,rtyh9);jksd15:=CTAx(5);jksd15:=hdljt2(j ksd15,rtyh9);CTAy:=llfft8(jksd6,pft5,qwr2,rtyh8,xpre15,xpre10,xpe3);jksd8:=CTAy(1);jksd8:=t dljt2(jksd8,rtyh9);jksd10:=CTAy(2);jksd10:=tdljt2(jksd10,rtyh9);jksd12:=CTAy(3);jksd12:=hdlj t2(jksd12,rtyh9);jksd14:=CTAy(4);jksd14:=hdljt2(jksd14,rtyh9);jksd16:=CTAy(5);jksd16:=hdljt 2(jksd16,rtyh9);LOCAL FF;jksd17:=MAKEMAT(0,rtyh2,1);FF:=SUB(jksd5,{1,2},{rtyh2,2});jksd17:=FF+jksd15;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:=(t
gh2*tgh4*jliu5*tgh3)/(tgh8)*abd6;jliu3(rtyh2+1,1):=jliu6;jliu3(rtyh2+1,2):=jliu7;jliu3:=hdljt2(jl iu3,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);FOR j:=1 TO xpe3*rtyh2 DO IF j
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(j2*rtyh2);END;END;qTA:=MAKEMAT(0,xpe3*rtyh2);qTA:=inv(ixpr5)*vMTo;Mat_A:=MAK EMAT(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:=RLX_Port*p i_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);LOCA L 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;ANESH();BREAK;EN D;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),(23225,16),(21825,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;Atytzad 23();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,Col128);TE XTOUT_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;NNudo:=1 ;Dats:={0,0,0};Atytzad20(0);NNudo:=100;Atytz16(0);ANESH();BREAK;END;IF 243<=touch(2)<=274 THEN OriCarga:=1;RECT_P(245,2,270,20,Col20);RECT_P(244,3,271,19,Col20);RECT_P(249,16,267 ,17,Col148);FOR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I1),246+I*4,16,Col118);TEXTOUT_P("▾ ",242+I*4,11,1,Col118);END;LINE_P(250,4,266,12,C ol118);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;FOR 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;IF 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();asd f1();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);RECT_P(70,1 22,250,128,Col3);awsde(320,220,30,30,320,240);PRes(1);ANESH();BREAK;END;END;END;I F 242<=touch(2)<=267 AND 210<=touch(3)<=240 THEN bdx:=bdx5;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+rtyh2;END;I F 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*rtyh2,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=="3CD62400KQ" THEN xpe9:=2.5*(xpe1*xpe2)/(xpe9*xpe9);END;END;xpe8:=tlitg2(xpe8,3);xpe9:=tlitg2(xpe9,3);END ;tlitg8()BEGIN rtyh9:=3;hdljt8(1);hdljt8(2);tdljt8();dshy11:=hdljt2(dshy11,rtyh9);EDITMAT(dshy11);ldljtr8(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(ds hy12,rtyh9);EDITMAT(dshy12,CHAR({77,111,100,111,115,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);EN D;dshy15:=hdljt2(dshy15,rtyh9);EDITMAT(dshy15,CHAR({80,114,111,112,105,101,100,97,10 0,101,115,32,68,105,110,97,109,105,99,97,115}));dshy17:=[1,0,0];dshy18:=[0,1,0];LOCAL NUM_x,DEN_x,NUM_y,DEN_y;NUM_x:=(TRN(dshy12)*dshy11)*dshy17;DEN_x:=diag(TR N(dshy12)*dshy11*dshy12);NUM_y:=(TRN(dshy12)*dshy11)*dshy18;DEN_y:=diag(TRN(dsh y12)*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);EDITMAT(dshy1 6);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)
1,109,97,32,97,105,115,108,97,100,111,32,99,97,100,97,32,109,111,100,111,32,32,89}));LOCA L 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,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,101,32,88}));EDITMAT(qry,CHAR({68,101,115,112,1 08,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,101,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}));EDITMA T(vry,CHAR({86,101,108,32,109,97,120,105,109,97,115,32,100,101,32,108,97,32,98,97,115,10 1,32,89}));LOCAL asx:=MAKEMAT(0,3),asy:=MAKEMAT(0,3);asx:=inv(TRN(dshy11))*(dshy14*vrx+dshy8*qr x);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,32,105,110,103,114,101,11 5,97,32,83,117,112,101,114,101,115,116,114,117,116,117,114,97,32,88}));EDITMAT(asy,CHA R({65,99,101,108,101,114,97,99,105,111,110,32,105,110,103,114,101,115,97,32,83,117,112,10 1,114,101,115,116,114,117,116,117,114,97,32,89}));ffllq7(3);ixpr6:=hdljt2(ixpr6,rtyh9);EDITM AT(ixpr6,CHAR({77,97,116,114,105,122,32,100,101,32,109,97,115,97,32,100,101,32,108,97,3 2,115,117,112,101,114,101,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}));E DITMAT(ry,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,89}));LOCAL FxAI:=[0],FyAI:=[0];FxAI:=ixpr6*rx*asx;FyAI:=ixpr6*ry*asy;FxAI:=tdljt2(FxAI,rtyh9);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:=tdljt2(qeAIx,r tyh9);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,C HAR({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:=tdljt2(qiAIx,rt yh9);qiAIy:=tdljt2(qiAIy,rtyh9);EDITMAT(qiAIx,CHAR({68,101,115,112,108,97,122,97,109,1 05,101,110,116,111,115,32,105,110,101,108,97,115,116,105,99,111,115,32,88}));EDITMAT(qi AIy,CHAR({68,101,115,112,108,97,122,97,109,105,101,110,116,111,115,32,105,110,101,108,9 7,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(j1);Dr_y:=qiAIy(j)-qiAIy(j1);END;lagr1(j,1):=Dr_x;lagr2(j,1):=Dr_y;lagr1(j,2):=Dr_x/rtyh10(j);lagr2(j,2):=Dr_y/rtyh10(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);EDITMAT(lagr1, CHAR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,120}));EDITMAT(lagr2,CH AR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,121}));END;hdljt8(dfg4)BEGI N 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):=AC;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_Po rt)*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:=m1;END;END;ldljt8(Na,Nd)BEGIN LOCAL VD,TFrAI,aux,MAam:={},VI:=CHAR({114,105}),Rr;Rr:=zsc3;VD:=jjrtg7(dshy8,dshy11,VI,N d,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);aaa 2:=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,PlomoA,AzulTit,Fondo,AzulTit);CASE IF vv==1 AND aaa2=="3CD62400KQ" THEN hdljt1();END;IF vv==2 AND aaa2=="3CD62400KQ" THEN ldljt1();END;IF vv==3 AND aaa2=="3CD62400KQ" THEN fldth2();END;IF vv==4 AND aaa2=="3CD62400KQ" THEN zvfgk2();END;END;END;Lmnzx:={{"䳸䴖䴧䴜䴖䴨"," 䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖
","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭 䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚 䴖䴘䴘䴞䴤䴣䴚䴨"}};axsdcerfOpc1(cx,cy,anc,posf,pst,Lm,cont)BEGIN BLIT_P(G0,G5);LOCAL nf,PxEl;PxEl:=CHAR({47,43,45}+7);nf:=SIZE(Lm);RECT_P(cx1,cy1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);RECT_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);REC T_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*I1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I1)+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*(I1)+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:={};LOCAL bx,by,nxR_Cont:={},R_Acep:={};LOCAL dist,mx,my,ss,nx;RECT(Fondo);RECT_P({0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CH AR({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}),7 0,3,2,White);RECT_P({10,25},{137,100},DarkBlue,Fondo);TEXTOUT_P("",15,20,2,Black,90, Fondo);TEXTOUT_P("",15,35,2);TEXTOUT_P(CHAR({72,32,80,105,115,111,115,58}),15,55, 2);TEXTOUT_P(CHAR({72,32,84,105,112,105,99,97,58}),15,75,2);sx:=CHAR({114});R_NP: ={{75,352},{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:=CH AR({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,105,108,108,97,115}),R_EG(1,1)+3,R_EG(1, 2)+3,2);R_Acep:={{195,204},{255,222}};RECT_P(R_Acep(1),R_Acep(2),DarkBlue,Plomo);T EXTOUT_P(CHAR({65,99,101,112,116,97,114}),R_Acep(1,1)+8,R_Acep(1,2)+3,2);sy:=CHA R({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,105,115,111,115})}; REPEAT jjrtg3(rtyh1,R_NP,AzulTit,White);fldth3(STRING(rtyh3,1),R_HPP,AzulTit,White);fldth3(STRI NG(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);TEXTOUT_P(CHAR({80,105,11 5,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},{31 0,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);LIN E_P(145,195,145,195-20,Plomo);TEXTOUT_P(CHAR({121}),145+2,19525,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
0 THEN rtyh2:=NPi;rtyh1:=nPis(rtyh2);END;hdljt1();BREAK;END;IF R_HPP(1,1)<mx
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:=(V13)/qwr3;END;IF qwr3==0 THEN Fe_X:=(H-13)/qwr2;Fe_Y:=V13;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:=y0d1;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:=y0qwr3*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:=(V15)/tgh1;ELSE qwr5:=(V-15);END;LOCAL xi,yi,xf,yf;xi:=xc-25;yi:=yc+V/25;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,yiHac+1},RedA);TEXTOUT_P(CHAR({80,105,115,111,32})+j,xf+5,yiHac,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,pst,Lm,co nt,Mnu1,Mnu2)BEGIN LOCAL nf;LOCAL PxEl;nf:=SIZE(Lm);PxEl:=CHAR({47,43,45}+7);RECT_P(cx-1,cy1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);RECT_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);REC T_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*I1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I1)+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*(I1)+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:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗 䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪 䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧 䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴅䴪䴣䴩䴤䴨䳕䴃䴤䴩䴖䴗䴡䴚䴨"," 䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨","䴉䴖䴗䴪䴡䴖䴘䴞䴤䴣䴚䴨"}};Lmns:={"䳺䴨䴩䴧䴪䴘䴩䴪䴧 䴖","䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨䴖䴢䴞䴚䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕䴇䳣䳕䳺䴡䴚䴢䴚䴣䴩䴤 ","䴂䴖䴩䴧䴞䴯䳕䴇䳣䳕䳺䴨䴩䴧䴪䴘䴩䴪䴧䴖","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䳻䴪䴚䴧䴯䴖 䴨","䳹䴚䴨䴥䴡䴖䴯䳣䳕䳛䳕䳼䴞䴧䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨","䳹䴞 䴖䴜䴧䴖䴢䴖䴨"};oligftq10()BEGIN LOCAL touch1,h1,h2,Lmns,rtc,Ancs,PyEl;Ancs:={130,135,100,90,80,70,70,120};Lmns:={};PyEl:=CHA R({59,59,86,92}-11);FOR H FROM 1 TO SIZE(Lmnsc)DO Lmns(H):=h(Lmnsc(H));END;LOCAL LmnsP;LmnsP:=h(Lmns);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*(h1rtc),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*(UV),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}};RECT_P(R_C ol(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),DarkBlue,AzulTit);TEXTOUT_P(CHAR({65,76,6 6}),R_Alba(1,1)+12,R_Alba(1,2)+25,3,White);R_AIs:={{0,180},{50,240}};RECT_P(R_AIs(1), R_AIs(2),DarkBlue,AzulTit);TEXTOUT_P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+25, 3,White);nx:=CHAR({114,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_vE,R_vCE,R_vCG,R_vO;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);wer f8:=tlitg2(werf8,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(CHA R({67,79,76}),R_Col(1,1)+12,R_Col(1,2)+35,3,Black);dx:=180;dy:=15;Lx:=100;Ly:=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,Ly,CHAR({67}),gpk5,gpk6,hfj q9);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,97}),dx+5,dy+7,2,Plomo);vy:=CHAR({97});LIN E_P(dx+5,dy+75-5,dx+20,dy+755,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+755,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({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({76,120,32,58}),10+dx,50+d y,2);TEXTOUT_P(CHAR({76,121,32,58}),10+dx,70+dy,2);R_vCB:={{30+dx,50+dy2},{75+dx,50+dy+14}};R_vCH:={{30+dx,70+dy2},{75+dx,70+dy+14}};fldth3(STRING(werf2,1),R_vCB,AzulTit,White);fldth3(STRING(werf3 ,1),R_vCH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx5,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+d x,130+dy,2);R_vCfc:={{35+dx,50+dy-2},{90+dx,50+dy+14}};R_vE:={{35+dx,70+dy2},{90+dx,70+dy+14}};R_vO:={{35+dx,90+dy2},{90+dx,90+dy+14}};R_vCE:={{35+dx,110+dy2},{90+dx,110+dy+14}};R_vCG:={{35+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(werf4,1),R_vCfc,AzulTit,White);fldth3(STRING(werf 5,1),R_vE,AzulTit,White);fldth3(STRING(werf8,1),R_vO,AzulTit,White);fldth3(STRING
(werf6,1),R_vCE,AzulTit,White);fldth3(STRING(werf7,1),R_vCG,AzulTit,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,Fondo);vy:=C HAR({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);bhy1:=tlitg2(bhy1,3);bhy4: =tlitg2(bhy4,3);bhy2:=tlitg2(bhy2,1);bhy3:=tlitg2(bhy3,1);dx:=180;dy:=15;ay:=CHAR({101});L x:=100;Ly:=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,Ly,CHAR ({86}),gpk7,gpk8,hfjq10);dx:=dx;dy:=dy+Ly+18;RECT_P({dx,dy+5},{dx+Lx,dy+75},DarkBlu e,White);TEXTOUT_P(CHAR({86,105,115,116,97}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+7 5-5,dx+20,dy+755,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+7525,1,Plomo);CASE IF liev17==1 THEN dx:=80;dy:=-22;RECT_P({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,32,58}),10+dx,50+dy,2); TEXTOUT_P(CHAR({72,32,58}),10+dx,70+dy,2);R_vVB:={{30+dx,50+dy2},{75+dx,50+dy+14}};R_vVH:={{30+dx,70+dy2},{75+dx,70+dy+14}};fldth3(STRING(werf9,1),R_vVB,AzulTit,White);fldth3(STRING(werf1 0,1),R_vVH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx5,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+d x,130+dy,2);R_vVfc:={{35+dx,50+dy-2},{90+dx,50+dy+14}};R_vVPE:={{35+dx,70+dy2},{90+dx,70+dy+14}};R_vVPO:={{35+dx,90+dy2},{90+dx,90+dy+14}};R_vVE:={{35+dx,110+dy2},{90+dx,110+dy+14}};R_vVG:={{35+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(werf11,1),R_vVfc,AzulTit,White);fldth3(STRING(bh y1,1),R_vVPE,AzulTit,White);fldth3(STRING(bhy4,1),R_vVPO,AzulTit,White);fldth3(STRIN G(bhy2,1),R_vVE,AzulTit,White);fldth3(STRING(bhy3,1),R_vVG,AzulTit,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,Fondo);TEXT OUT_P(CHAR({65,76,66}),R_Alba(1,1)+12,R_Alba(1,2)+35,3,Black);bhy5:=tlitg2(bhy5,3);bh y6:=tlitg2(bhy6,3);bhy7:=tlitg2(bhy7,3);bhy8:=tlitg2(bhy8,3);gpk1:=tlitg2(gpk1,3);bhy9:=tlitg2( bhy9,1);bhy10:=tlitg2(bhy10,1);dx:=190;dy:=15;Lx:=100;Ly:=91;vy:=CHAR({97});R_vv:={{d x,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(C HAR({86,105,115,116,97}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+75-5,dx+20,dy+755,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+755,dx+5,dy+75-5-20,Plomo);TEXTOUT_P(CHAR({121}),dx+7,dy+7525,1,Plomo);dx:=90;dy:=-22;vx:=CHAR({108});RECT_P({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,32,58}),10+dx,50+dy,2 );R_vAe:={{30+dx,50+dy2},{75+dx,50+dy+14}};fldth3(STRING(bhy5,1),R_vAe,AzulTit,White);dx:=80;dy:=48;RECT_ P({dx5,35+dy},{dx+100,dy+150},DarkBlue,Fondo);TEXTOUT_P(CHAR({102,39,109,32,58}),12+d
x,50+dy,2);TEXTOUT_P(CHAR({80,69,32,58}),12+dx,70+dy,2);TEXTOUT_P("",12+dx,90+d y,2);TEXTOUT_P(CHAR({69,109,32,58}),12+dx,110+dy,2);TEXTOUT_P(CHAR({71,32,58}) ,12+dx,130+dy,2);ay:=CHAR({101});R_vAfm:={{38+dx,50+dy2},{90+dx,50+dy+14}};R_vAPE:={{38+dx,70+dy2},{90+dx,70+dy+14}};R_vAPO:={{38+dx,90+dy2},{90+dx,90+dy+14}};R_vAE:={{38+dx,110+dy2},{90+dx,110+dy+14}};R_vAG:={{38+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(bhy7,1),R_vAfm,AzulTit,White);fldth3(STRING(bhy 8,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,AzulTit,White);END;IF liev15==4 THEN jliu20:=tlitg2(jliu20,3);jliu19:=tlitg2(jliu19,3);jliu18:=tlitg2(jliu18,3);dshy1:=tlitg2(dshy1,3);RE CT_P({50,0},{320,200},Fondo,Fondo);RECT_P(R_AIs(1),R_AIs(2),Fondo,Fondo);TEXTOUT _P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+35,3,Black);dx:=65;dy:=40;RECT_P({dx5,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);TEXTOU T_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+dy2},{100+dx,130+dy+14}};fldth3(STRING(jliu20,1),R_AIM,AzulTit,White);fldth3(STRING(jliu 19,1),R_AIK,AzulTit,White);ay:=CHAR({101});dx:=180;dy:=45;Lx:=110;Ly:=60;RECT_P({d x,dy-4},{dx+Lx,dy-3+14},DarkBlue,Fondo);RECT_P({dx,dy-3+14},{dx+Lx,dy3+14+Ly},DarkBlue,Fondo);TEXTOUT_P(CHAR({68,97,116,111,115,32,83,105,115,116,101, 109,97}),dx,dy8,2,Black,90,Fondo);TEXTOUT_P(CHAR({65,105,115,108,97,100,111}),dx,dy8+13,2,Black,90,Fondo);dx:=160;dy:=73;TEXTOUT_P(CHAR({84,32,32,58}),40+dx,dy,2);TE XTOUT_P("",40+dx,20+dy,2);vx:=CHAR({108});R_ATo:={{60+dx,dy2},{100+dx,dy+14}};R_Aam:={{60+dx,20+dy2},{100+dx,20+dy+14}};fldth3(STRING(jliu18,1),R_ATo,AzulTit,White);fldth3(STRING(dshy 1,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,99,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
werf3:=zvfgk3(werf3,R_vCH,CHAR({76,111,110,103,105,116,117,100,32,100,101,32,99,111,1 08,117,109,110,97,32,101,110,32,100,105,114,101,99,99,105,111,110,32,89,32,40,109,41}),lng) ;ldljt1();BREAK;END;IF R_vCfc(1,1)<mx
bhy3:=zvfgk3(bhy3,R_vVG,CHAR({77,111,100,117,108,111,32,100,101,32,99,111,114,116,10 1,32,40,107,103,47,99,109,50,41}),lng);ldljt1();BREAK;END;IF R_vv(1,1)<mx
BREAK;END END;UNTIL 0;END;PRes(Tipp)BEGIN IF Tipp==1 THEN axsdcerfR();END;LOCAL LmnsP;LmnsP:=h(Lmns);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);TEXTOUT_P(CH AR({48,61,52,66,55}+17),G5,28,4,3,Col39);RECT_P(G5,300,2,316,17,RGB(153,153,153));TE XTOUT_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,Col137);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)+(my0my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE ig:=0;END;x:=MAX(MIN(xtt(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);oligft125(50,7 0,1,6,6,15,80,Col131,Col128,ml,1,tlc,tlf);TEXTOUT_P(cnm,187,225,2,Col3,100,RGB(240,240, 240));TEXTOUT_P(cnm,188,225,2,Col3);mvre(600,300);BREAK;END;IF TYPE(touc)=0 AND touc==8 AND Nnud==Eqx THEN cnm:=cnm+1;IF SIZE(L1)
䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧 䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨"," 䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚 䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢 䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨 "}};tlitg3(dx,dy,Lx,Ly,Nam,GD,v,T)BEGIN LOCAL R_vv,R_xx,R_ee;RECT_P({dx,dy},{dx+Lx,dy3},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,97,115,101,32,68,97,116,111,115}),dx,dy8,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+L y},{dx+Lx,dy+Ly+18}};RECT_P(R_vv(1),R_vv(2),DarkBlue,Plomo);TEXTOUT_P("✔",dx+L x/65,dy+Ly+3,2,AzulTit);RECT_P(R_xx(1),R_xx(2),DarkBlue,Plomo);TEXTOUT_P("✘",dx+Lx/ 25,dy+Ly+3,2,AzulTit);RECT_P(R_ee(1),R_ee(2),DarkBlue,Plomo);TEXTOUT_P("✎",dx+5*L x/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,dy3+16*j,2,AzulTit);END;RECT_P({dx,dy+9+16*(v1)},{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):=werf11;gpk7(h fjq10,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:=hfjq101;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)BEGIN 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(gp k6,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):=bhy1;gpk7(g pk8,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):=bhy8;gpk9(g pk10,5):=gpk1;gpk9(gpk10,6):=bhy9;gpk9(gpk10,7):=bhy10;END;END;END;END;fldth2()BE GIN 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),DarkBlu e,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({101});R_Din:={{215,1},{320,25}};R ECT_P(R_Din(1),R_Din(2),DarkBlue,AzulTit);TEXTOUT_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);TEXTO UT_P(CHAR({32,80,65,82,65,77,69,84,82,79,83,32}),15,7,2,Black);dx:=0;bx:=CHAR({114});s x:=nx+ny;dy:=20;RECT_P({10,25+dy},{145,180+dy},DarkBlue,Fondo);TEXTOUT_P(CHAR( {90,32,58}),15+dx,40+dy,2);sy:=CHAR({97,108});TEXTOUT_P(CHAR({83,32,58}),15+dx,60 +dy,2);TEXTOUT_P(CHAR({85,32,58}),15+dx,80+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);TEXT OUT_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+dy2},{130+dx,40+dy+14}};R_Ss:={{75+dx,60+dy2},{135+dx,60+dy+14}};R_Su:={{75+dx,80+dy2},{155+dx,80+dy+14}};R_SRox:={{75+dx,100+dy2},{115+dx,100+dy+14}};R_SRoy:={{75+dx,120+dy-
2},{115+dx,120+dy+14}};R_SIa:={{75+dx,140+dy2},{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},{290,27+dy },DarkBlue,Fondo);TEXTOUT_P(CHAR({32,32,86,97,108,111,114,101,115,32}),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,Fondo);T EXTOUT_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),DarkBlue,Pl omoA);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),DarkBlue, 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:=dy20;RECT_P({10,35+dy},{145,180},DarkBlue,Fondo);TEXTOUT_P("",15,30+dy,2,Black,90,Fo ndo);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+dy2},{120+dx,80+dy+14}};R_SEam:={{75+dx,100+dy2},{120+dx,100+dy+14}};R_SEexX:={{75+dx,120+dy2},{120+dx,120+dy+14}};R_SEexY:={{75+dx,140+dy2},{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,Fondo);TEXTOUT_ P(CHAR({32,32,67,97,108,99,117,108,111,115,32}),195,20+dy,2,Black,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);TEXTO UT_P(CHAR({32,68,73,78,65,77,73,67,79,32}),236,7,2,Black);dx:=0;dy:=20;pft6:=0;sy:=CHA R({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+dy}};dy:=2;RECT_P(R_SDA(1),R_SDA(2),DarkBlue,Fondo);RECT_P(R_SDB(1),R_SDB(2),DarkBlue,P lomoA);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+dy}};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:=dy20;by:=CHAR({105});sx:=nx+ny;RECT_P({10,65-20},{145,16020},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,120,99,45,88,58}),15+dx,120+dy,2);TEXTO UT_P(CHAR({101,120,99,45,89,32,58}),15+dx,140+dy,2);TEXTOUT_P(CHAR({103,32,58}), 15+dx,160+dy,2);dx:=0;fx:=bx+by;R_SDam:={{75+dx,100+dy2},{120+dx,100+dy+14}};R_SDexX:={{75+dx,120+dy-
2},{120+dx,120+dy+14}};R_SDexY:={{75+dx,140+dy2},{120+dx,140+dy+14}};R_Sgr:={{75+dx,160+dy2},{120+dx,160+dy+14}};TEXTOUT_P(""+CHAR({32,69,115,112,101,99,116,114,111,115,32 ,100,101,32,114,101,115,112,117,101,115,116,97,32}),155,40,2,Black);R_SpeX:={{180,80},{2 30,80+18}};RECT_P(R_SpeX(1),R_SpeX(2),DarkBlue,PlomoA);TEXTOUT_P(CHAR({69,11 5,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,PlomoA);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_Acep(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,AzulTit,Whi te);fldth3(STRING(tgh7,1),R_SRox,AzulTit,White);fldth3(STRING(tgh8,1),R_SRoy,AzulTit,W hite);fldth3(STRING(tgh9,1),R_SIa,AzulTit,White);fldth3(STRING(tgh10,1),R_SIp,AzulTit,Wh ite);END;IF liev14==2 THEN fldth3(tgh5,R_SCtx,AzulTit,White);fldth3(tgh6,R_SCty,AzulTit,White);fldth3(xpe4,R_SEam,A zulTit,White);fldth3(STRING(xpe6,1),R_SEexX,AzulTit,White);fldth3(STRING(xpe7,1),R_SE exY,AzulTit,White);END;IF liev14==3 THEN fldth3(STRING(xpe5,1),R_SDam,AzulTit,White);fldth3(STRING(pft4,1),R_SDexX,AzulTit,W hite);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,111,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,32,83,49} ),CHAR({80,101,114,102,105,108,32,83,50}),CHAR({80,101,114,102,105,108,32,83,51}),CH AR({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}),CHAR({67,97,116,1 01,103,111,114,105,97,32,67}),CHAR({67,97,116,101,103,111,114,105,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
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
0 THEN pft8:=liev14;fld1:=nPer(pft8);tgh2:=fld3(pft7);tgh3:=fld5(pft7,pft8);xpe1:=fld8(1,pft8);xpe2:=fl
d8(2,pft8);END;fldth2();BREAK;END;IF R_Su(1,1)<mx<(R_Su(2,1)+50)AND R_Su(1,2)<my
0 THEN pft9:=liev14;fld2:=nCat(pft9);tgh4:=fld4(pft9);END;fldth2();BREAK;END;IF R_SRox(1,1)<mx
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
<30 AND 0
<23 THEN BREAK(2);END;END;END;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)+(mxmx0)/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),hsh/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)
mx0 THEN tt(1):=tt(1)+(mxmx0)/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),hsh/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)
mx0 THEN tt(1):=tt(1)+(mxmx0)/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),hsh/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,s w,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_:={},R_mCV:={},R_mCM:={},R_Area:={},R_CalA:={};LO CAL 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,109}),CH AR({51,48,32,99,109}),CHAR({32,51,53,32,99,109})},R_SCa:={},R_a:={},R_mCMa:={}, R_mCVa:={};RECT(Fondo);RECT_P({0,1},{320,20},DarkBlue,AzulTit);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_SDB:={{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),DarkBlue,F ondo);TEXTOUT_P(CHAR({65,117,116,111,32}),30+dx,40+dy,2);TEXTOUT_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},DarkBlue,Fo ndo);TEXTOUT_P(""+CHAR({32,65,115,105,103,110,97,114,32,67,97,114,103,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,97,40,67,86,41}),20+dx,20+dy,2);dx: =170;TEXTOUT_P(CHAR({80,101,114,109,97,110,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_(i):={{dx,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}),AzulTit,White);dx:=170;f tyul3(STRING(dfg7(i),1),R_(i),CHAR({107,103,102,47,109,50}),AzulTit,White);END;R_Lo sa:={{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,109,50}),R_Losa( 2,1)+8,R_Losa(1,2)+3,2);R_Area:={{95,45},{165,45+18}};TEXTOUT_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_Ar ea,CHAR({109,50}),AzulTit,White);R_CalA:={{240,45},{310,45+18}};RECT_P({240,45},{31 0,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=="3CD62400KQ" THEN RECT_P({0,20},{320,240},DarkBlue,Fondo);RECT_P(R_SDA(1),R_SDA(2),DarkBlue,Fondo) ;RECT_P(R_SDB(1),R_SDB(2),DarkBlue,PlomoA);TEXTOUT_P(CHAR({65,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,9 7,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;TEXT OUT_P(CHAR({67,97,114,103,97,32,86,105,118,97}),20+dx,20+dy,2);dx:=170;TEXTOUT_P( CHAR({67,97,114,103,97,32,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,3 5+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(S TRING(dfg10(i),1),R_mCM(i),CHAR({107,103,102}),AzulTit,White);END;END;END;R_Ace p:={{240,205},{310,205+18}};RECT_P({R_Acep(1,1),R_Acep(1,2)},{R_Acep(2,1),R_Acep(2, 2)},DarkBlue,Plomo);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),R_Acep(1,1)+15,R_A cep(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_CalA(1,1)<mx<(R_CalA(2,1))AND R_CalA(1,2)<my
=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:={"⇢"+CH AR({69,115,112,45,88,40,109,41}),"⇢"+CHAR({69,115,112,45,89,40,109,41}),CHAR({32})}; gpk3:=EDITMAT(gpk3,{CHAR({68,65,84,79,83,32,69,83,80,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)BEGI N 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:=qwr7(1)abd10(j,5)*qwr5;x1:=cgX-XC/2;y1:=cgYYC/2;x2:=cgX+XC/2;y2:=cgY+YC/2;pixon_p(Gr,cgX,cgY,Red);llfft4(Gr,x1,y1,x2,y2,Red);EN D;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:=qwr7(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(G r,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,bd c10,expr1,expr2,expr11,expr12,expr13,expr14);END;expr8:=NN;END;pxtrf4(Gp,cGr,xo,yo)BE GIN 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=="3CD62400KQ" 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
=rtyh6 THEN n:=rtyh5+1;ELSE n:=rtyh6+1;END;B→R(#1110011b)▶ CNN;NEjes:=MAKEMAT(0,n,2);Suma:=0;B→R(#11010
01b)▶ NGB;FOR i:=2 TO rtyh5+1 DO Suma:=Suma+gpk3(i1,1);NEjes(i,1):=Suma;END;Suma:=0;B→R(#1100001b)▶ L;FOR i:=2 TO rtyh6+1 DO Suma:=Suma+gpk3(i1,2);NEjes(i,2):=Suma;END;k:=1;B→R(#1101100b)▶ e;lo:=CHAR({CNN,CNA});lv:=CHAR({ NGA,NGB});lh:=CHAR({L,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):=y0NEjes(i,2)*qwr5;qwr9(k):=NEjes(i,2);k:=k+1;END;END;qwr6:=(rtyh5+1)*(rtyh6+1);dfg1:=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);LOCAL R_DI,R_CA;R_DI:={{92,0},{149,16}};R_CA:={{149,0},{206,16}};RECT_P(Gp,R_DI(1),R_ DI(2),PlomoA);yyhte1(R_DI(1,1)+5,8.5,AzulTit);TEXTOUT_P(CHAR({68,82,65,87}),Gp,R_D I(1,1)+20,2,2,AzulTit);RECT_P(Gp,R_DI(1,1),0,R_DI(1,1)+1,16,AzulTit);RECT_P(Gp,R_CA( 1,1),0,R_CA(1,1)+1,16,AzulTit);RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P("✎"+C HAR({32,68,105,98,117,106,101}),Gp,260,229,1,AzulTit);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),D arkBlue,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),D arkBlue,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
",Gp,R_Vig(1,1)+3,3,2,Black);RECT_P(Gp,R_Alb(1),R_Alb(2),DarkBlue,PlomoA);qljgt5(R_Al b(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
<=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;a bd10(abd8,2):=XC/qwr5;abd10(abd8,3):=YC/qwr5;abd10(abd8,4):=qwr10(j);abd10(abd8,5):=q wr9(j);abd10(abd8,6):=gpk5(abd9,4);abd10(abd8,7):=gpk5(abd9,5);abd10(abd8,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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,Black);pixon_p(Gp,qwr8(j),qwr7(j),Red);jjrtg4(mx,my);llfft4(Gp,x1,y1,x 2,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,Colr2,mat, Tfu,Tc,Tf)BEGIN LOCAL h1,h2,imp,Most1;imp:={};Most1:=CHAR({47,43,45}+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,cxi3,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,cyi2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi1,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,cyi5,Col129);TEXTOUT_P(Tc(h2),G9,cxi+anc*(h2-1)+40,cyi17,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*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+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,cxi3,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,cyi2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi1,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*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+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(cxi30,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*(h21)+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*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr1)ELSE RECT_P(cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-1)+5,cyi+alf*(h11)+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+CH AR({120})+YC;C_Vig:={CHAR({86,45})+j+DimV};Concatenar:=CONCAT(Concatenar,C_Vi g);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(CHAR({45,99,109,45 }),Gp,218,230,1,Black);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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({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/qwr5;expr3(b dc5,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(bdc5,11): =gpk7(bdc6,6);expr3(bdc5,12):=gpk7(bdc6,7);expr3(bdc5,13):=0;expr3(bdc5,14):=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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,Black);jjrtg4(mx,my);hdljt4(Gp,Blue,XC,YC,bdc9,bdc10,expr2,expr1);bd c7:=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:=expr1XC/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,b0h2},{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:=expr2XC/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)/(expr1bdc9);a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10-d;bf2:=expr2d;LINE_P(Gp,a0,b0,af,bf1,MarsaRed);LINE_P(Gp,a0,bf,af,bf2,MarsaRed);END;END;END;EX PORT 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);TEXTOUT_P(lv x(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);TEXTOUT_P(lv x(2),111,5,2,Col3);ogol();RECT_P(60,225,80,235,Col118);TEXTOUT_P(lvx(3),90,225,1,Col11 8);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,101,110,11 6,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);TEX TOUT_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,Col148);TEXTOUT_ P(ROUND(M1(lh,10),4),G9,150,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,11),4),G 9,200,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,10)^2,4),G9,250,10+15*(lh),1,Col1 48);TEXTOUT_P(ROUND(M1(lh,11)^2,4),G9,300,10+15*(lh),1,Col148);TEXTOUT_P(ROU ND(M1(lh,10)*M1(lh,11),4),G9,350,10+15*(lh),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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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:=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;TEXTOU T_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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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;TEXTOU T_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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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);LOCAL 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,C ol131,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();Move rM(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);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,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,Col14 8);varcaq(2);IFERR LOCAL touch1,ml,tlc,tlf,ancho,alto,Grafy;cnm:=1;nf:=rowDim(M5);nc:=colDim(M5);ancho:=80*nc+30; alto:=15*nf+30;Grafy:=CHAR({59,59,86,92}-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));REC T_P(G9);oligft125(10,30,1,nf-1,nc1,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,Col1 33);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,Col14 8);varcaq(2);LOCAL touch1,ml,tlc,tlf,ancho,alto,Mred,Grafy;IFERR
cnm:=1;Grafy:=CHAR({59,59,86,92}11);Mred:=L7(1);Mred:=ROUND(Mred,7);nf:=rowDim(Mred);nc:=colDim(Mred);ancho:=80*n c+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,a lto,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,Col1 33);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};va rcaq(2);LOCAL touch1,vf,tlc,tlf,ancho,alto,Mred;vf:=L7(5);nf:=rowDim(vf);nc:=colDim(vf);alto:=20*nf+50;anc ho:=320;IF alto<200 THEN alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);RECT_P(G9,92,15,93,rowDim(vf) *20+20,Col12);RECT_P(G9,162,15,163,rowDim(vf)*20+20,Col12);TEXTOUT_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,170,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);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,Col128);TEXTOUT_P("〇 ",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats:={0};va rcaq(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,anch o,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);TEXTOUT_P( CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col128);TEXTOUT_P(CH AR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col128);TEXTOUT_P("COOR D. 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,Col 12);RECT_P(G8,72,55,73,rowDim(mep1)*20+65,Col12);RECT_P(G8,170,55,171,rowDim(mep 1)*20+65,Col12);RECT_P(G8,190,55,191,rowDim(mep1)*20+65,Col12);RECT_P(G8,290,55,2 91,rowDim(mep1)*20+65,Col12);TEXTOUT_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*(H1),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);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,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*I1):="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:=ROUN D(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);RECT_P(G9,202,20,203,rowDi m(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,Col1 33);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:={};IF T==1 THEN ancho:=320;alto:=130*B+30;DIMGROB_P(G8,320,130);RECT_P(G8);DIMGROB_P(G9,anch o,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,anch o,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,32})+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)*20+50,Col12);RE CT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col12 );RECT_P(G8,212,40,213,rowDim(vf)*20+50,Col12);TEXTOUT_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*(H1),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);EN D;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,Col1 33);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};va rcaq(2);LOCAL touch1,vf,tlc,tlf,ancho,alto,Mred;M6:=ROUND(M6,8);vf:=M6;vf:=ROUND(vf,9);nf:=rowDim( 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,rowDim(vf) *20+20,Col12);RECT_P(G9,212,15,213,rowDim(vf)*20+20,Col12);TEXTOUT_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,215,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,Col1 33);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};va rcaq(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,a lto);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);REC T_P(G8,92,40,93,rowDim(vf)*20+50,Col12);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col1 2);TEXTOUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100,Col128);TEXTOUT_P(ROUND(v f(1,1),Pe),G8,100,50,2,Col148,150,Col128);TEXTOUT_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,Col 128);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;B LIT_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,anch o,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,Col12,100,Co l128);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);Ti t(5):="Fy"+M1(H,2);Tit(6):="M"+M1(H,2);RECT_P(G8,42,40,42,rowDim(vf)*20+50,Col12);R
ECT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col1 2);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf)*1 0+40,2,Col12,100,Col128);FOR I FROM 1 TO rowDim(vf)DO TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOUT_P(Tit(I ),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H1),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);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,Col128);TEXTOUT_P("〇 ",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats:={0};va rcaq(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,anch o,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,Col12,100,C ol128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col12 8);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,42,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,C ol12);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf) *10+40,2,Col12,100,Col128);FOR I FROM 1 TO rowDim(vf)DO TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOUT_P(Tit(I ),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H1),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(lvx(17),10 1,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)THEN escDiag:=escDiag5;Dxxw(1,320,220);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTOUT_P(lvx(17),101,5,2,Col1 18);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);TEXTOUT_P(lv x(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({78,91,43,9 3}),113,225,2,Col128);TEXTOUT_P(CHAR({78,91,43,93}),113,225,2,Col128);RECT_P(150,2 23,180,238,Col34);TEXTOUT_P(CHAR({78,91,45,93}),153,225,2,Col128);TEXTOUT_P(CH AR({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);TEXTOUT_P( lvx(18),101,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN escDiag:=escDiag5;Dxxw(2,320,220);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXTOUT_P(lvx(18),101,5,2,Col1 18);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);TEXTOUT_P(lv x(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({86,91,43,9 3}),114,225,2,Col128);TEXTOUT_P(CHAR({86,91,43,93}),114,225,2,Col128);RECT_P(150,2 23,180,238,Col55);TEXTOUT_P(CHAR({86,91,45,93}),154,225,2,Col128);TEXTOUT_P(CH AR({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);TEXTOUT_P( lvx(19),101,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN escDiag:=escDiag5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col1 18);ads();ogol();END;IF ISKEYDOWN(50)THEN escDiag:=escDiag+5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lv x(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({77,91,43,9 3}),113,225,2,Col128);TEXTOUT_P(CHAR({77,91,43,93}),113,225,2,Col128);RECT_P(150,2 23,180,238,Col118);TEXTOUT_P(CHAR({77,91,45,93}),153,225,2,Col128);TEXTOUT_P(CH AR({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({47,43,45}+7);IFERR qaswe1();RECT_P(0,0,320,240);RECT_P(0,0,320,20,Col130);TEXTOUT_P(CHAR({80,85,78, 84,79,83,32,78,79,84,65,66,76,69,83}),95,5,2,Col12);TEXTOUT_P(CHAR({80,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)
=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);TEXTOUT_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,Col 12);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*I60,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,110,32,10 1,115,116,101,32,116,114,97,109,111}),G9,35,90*I+12,1,RGB(0,0,255));END;END;BLIT_P(G 0,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;TEXTOUT_P(l vx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col118);ads();ogol();varcaq(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);TEXTOUT_ P(lvx(20),126,5,2,Col118);ads();ogol();BLIT_P(G5,G0);escDiag:=30;LOCAL touch1,h1,h2;LOCAL Grafx;Grafx:=CHAR({47,43,45}+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,84,65,78,8 4,69}),120,5,2,Col12);TEXTOUT_P(CHAR({77,79,77,69,78,84,79}),210,5,2,Col12);TEXTOU T_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,11 1,46,46,46}),125,105,2,Col148);TEXTOUT_P(CHAR({67,97,108,99,117,108,97,110,100,111,4 6,46,46}),125,105,2,Col148);Intv:=Dats(1);TEXTOUT_P(Intv,33,6,1,Col148);MatEval:=[[0,0,0, 0,0]];FOR 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
xx:=l1(SIZE(l1));ecn:=EC(1);ecc:=EC(2);ecm:=EC(3);x:=CAS(CAS("x"));x:=xxl1(h2);ecn:=EVAL(ecn(h2));ecc:=EVAL(ecc(h2));ecm:=EVAL(ecm(h2));x:=CAS(CAS("x"));M atEval(rowDim(MatEval)+1,1):=H;MatEval(rowDim(MatEval),2):=xx;MatEval(rowDim(MatEv al),3):=ecn;MatEval(rowDim(MatEval),4):=ecc;MatEval(rowDim(MatEval),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)+50);REC T_P(G9);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,5,5,2,Col118,75,Col128);TEXTOUT_ P(CHAR({69,108,101,109,46}),G9,6,5,2,Col118,75,Col128);TEXTOUT_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*(h11),2,Col118,75,Col128);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,6,5+20*(h11),2,Col118,75,Col128);TEXTOUT_P(MatEval(h1,1),G9,10,5+20*(h1),3,Col118,75,Col128);T EXTOUT_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*(h11),1,Col13,80,Col128);TEXTOUT_P(ROUND(MatEval(h1,4),prec),G9,120,5+20*(h11),1,Col148,90,Col128);TEXTOUT_P(ROUND(MatEval(h1,5),prec),G9,210,5+20*(h11),1,Col148,90,Col128);END;BLIT_P(G0,0,20,320,240,G9,0,0,320,220);Mnbvxqubg(320,20*ro wDim(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);EN D;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+Di mM};Concatenar:=CONCAT(Concatenar,C_Mur);END;C_Mur:=Concatenar;IF 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_Mur(expr9), Gp,257,230,1,AzulTit);RECT_P(Gp,211,229,250,240,White);TEXTOUT_P(CHAR({45,99,109, 45}),Gp,218,230,1,Black);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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({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,11 1,32,50})+"
⇢",Gp,260,229,1,RedA);jjrtg4(mx,my);expr11:=abd10(k,2)*qwr5;expr12:=abd10(k,3)*qwr5;B REAK;ELSE expr13:=abd10(k,2)*qwr5;expr14:=abd10(k,3)*qwr5;expr15(expr8,7):=qwr10(j);expr15(expr8,8 ):=qwr9(j);expr1:=qwr8(j);expr2:=qwr7(j);expr15(expr8,9):=gpk9(expr9,2);expr15(expr8,10):=g pk9(expr9,4);expr15(expr8,11):=gpk9(expr9,5);expr15(expr8,12):=gpk9(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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,RedA);jjrtg4(mx,my);ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,expr2,expr1 1,expr12,expr13,expr14);expr10:=0;ELSE expr10:=1;END;END;END;ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,expr2,expr11,expr12,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(bfb0+(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(Gp,a0,b0,a f,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(bdc9expr1)<>0)THEN LOCAL bf1,bf2,m,d,L;L:=100;d:=abs((XC/2*L)/(expr1bdc9));expr15(expr8,4):=0;a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10d;bf2:=expr2d;LINE_P(Gp,a0,b0,af,bf1,CoVig);LINE_P(Gp,a0,bf,af,bf2,CoVig);END;END;END;hdljt5(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:=CA S.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(I1);LRM(I-1):=Raices(ecm,0,l1(I)-l1(I-1));LRC(I-1):=Raices(ecc,0,l1(I)-l1(I-1));lrm(I1):=LRM(I-1)+l1(I-1);lrc(I-1):=LRC(I-1)+l1(I1);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.expa nd(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(I1,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(I1))THEN x:=A;mmx6(I-1,9):=-EVAL(ecm);mmx6(I-1,10):=A+l1(I-1);mmx6(I-1,4):=A+l1(I1);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
<30 AND 0
<23 THEN BREAK(2);END;END;END;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)+(mxmx0)/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),hsh/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,Plom oA,90,12,0.05);xpre6:=xpre4;xpre8:=xpre2;xpre7:=xpre5;xpre9:=xpre3;END;liev13:=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);TEXTOUT_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),RedA,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,5 5},{320,75}};RECT_P(R_Edit(1),R_Edit(2),RedA,Plomo);TEXTOUT_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},{3 20,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_Guar(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),RedA,Plomo);TEXTOUT_P (CHAR({83,65,76,73,82}),R_Sal(1,1)+5,R_Sal(1,2)+7,2);IFERR IF vER(j)==0 THEN zvfgk8(dfg4,j,j);END;RECT_P({1,20},{270,239},RedA,White);tlitg6(dfg4,125,120,240,190,j);T HEN hdljt7("✘"+CHAR({32,69,114,114,111,114}),CHAR({32,32,32,67,111,114,114,101,103,105,11
4,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
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,32,80,79,8 2,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,7 9,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
);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
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(d fg4,j,1);zvfgk8(dfg4,j,j);expr20(j):=1;ldljtr7(CHAR({67,97,108,99,117,108,97,110,100,111}),11 0,170,30,40,PlomoA,70,12,0.05);END;ldljtr5(j,dfg4);yyhte7;BREAK;END;IF((R_BR(1,1))<mx
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(d fg4,j,2);zvfgk8(dfg4,j,j);expr20(j):=1;ldljtr7(CHAR({67,97,108,99,117,108,97,110,100,111,32,5 0}),110,170,30,40,PlomoA,70,12,0.05);END;ldljtr5(j,dfg4);yyhte7;BREAK;END;IF((R_PM(1,1 ))<mx
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);TEXTOUT_P(CHAR({66,45,82,105}),R_BR(1,1)+5,R_BR(1,2)+5,2);TEXTOU T_P("◯",R_BR(1,1)+38,R_BR(1,2)+5,2);RECT_P(R_PM(1),R_PM(2),RedA,Plomo);TEXTOU T_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
<30 AND 0
<23 THEN BREAK(2);END;END;END;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)+(mxmx0)/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),hsh/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:=EVAL(ecc);ec m:=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)
ol135);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),284,230,1,Col131);END;varcaq(Ti pp)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;M4G:=M4;M5G:= M5;M6G:=M6;M7G:=M7;M8G:=M8;M9G:=M9;NG:=N;BG:=B;Datsbmq111G:=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:=L8G;L9:= L9G;L10:=L10G;L11:=L11G;M0:=M0G;M1:=M1G;M2:=M2G;M3:=M3G;M4:=M4G;M5:=M5 G;M6:=M6G;M7:=M7G;M8:=M8G;M9:=M9G;N:=NG;B:=BG;Datsbmq111:=Datsbmq111G;L NN:=LNNG;LNC:=LNCG;END;END;awsde(px,py,bdx,bdy,anchoG4,altoG4)BEGIN LOCAL esc,MC,s1,s2,Elem5;LOCAL Elem5;Elem5:=CHAR({59,59,86,92}11);DIMGROB_P(G6,anchoG4,altoG4);RECT_P(G6,Col128);DIMGROB_P(G4,anchoG4,alto G4);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,Col1 32);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)),(py2*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;B LIT_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(CAS("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(CAS("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(CAS("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;Dxx w(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);LOCAL Elem5;Elem5:=CHAR({59,59,86,92}-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:=yiw*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(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:=yiw*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(xf10,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,2 13,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;END;BLIT_P(G0,0,20,320,240,G4,0+Z x,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:=yi30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),xf,yi11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf4,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:=yi30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({121}),xf,yi11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf4,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 :=[[0]],lx,dv,ch:={};FOR j:=2 TO rtyh2+1 DO ss:=ss+rtyh10(j1);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▶ (i+f,1);yi▶ (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=="3CD62400KQ" 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;(f,1)▶ ca(j,1);(f,2)▶ ca(j,2);ff:=1+f+NG;(ff,1)▶ ca(j,3);(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;TE XTOUT_P(nCol+nVig+co,xt-3,yt-4,1,Red);END;co:=j+co1;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;(f,1)▶ cv(j,1);(f,2)▶ cv(j,2);(f+1,1)▶ cv(j,3);(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:=(cv(j,1)+cv(j,3))/ 2;yt:=cv(j,4)-5;TEXTOUT_P(nCol+co,xt-3,yt-4,1,Blue);END;co:=j+co1;f:=f+1;END;f:=NG;FOR j:=1 TO nCol DO (j,1)▶ cc(j,1);(j,2)▶ cc(j,2);f:=f+1;(f,1)▶ cc(j,3);(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)-l5;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;(f,1)▶ cc(j,1);(f,2)▶ cc(j,2);xe:=cc(j,1);ye:=cc(j,2)13;TEXTOUT_P(Po(j),xe-2.2,ye3.2,1,Plomo);arc_p(xe,ye,6,0,360,Plomo);LINE_P(xe,ye+4,xe,ye+13,Plomo);END;END;ldljt6(d fg4,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=="3CD62400KQ" 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+NG1,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)*(NG1),2)/2▶ DG_ColPD(a,5);END;IF h
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,1 6)▶ DG_ColPD(a,16);DPorMB(a,17)▶ DG_ColPD(a,17);DPorMB(a,18)▶ DG_ColPD(a,18);DPor MB(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_ColP D(a,6);DPorMB(a,5)▶ DG_ColPD(a,7);DPorMB(a,6)▶ DG_ColPD(a,8);DPorMB(a,7)▶ DG_ColP D(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,1 5)▶ DG_ColPD(a,15);DPorMB(a,16)▶ DG_ColPD(a,16);DPorMB(a,17)▶ DG_ColPD(a,17);DPor MB(a,18)▶ DG_ColPD(a,18);DPorMB(a,19)▶ DG_ColPD(a,19);DPorMB(a,20)▶ DG_ColPD(a,2 0);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;RE PLACE(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);ec:=(a1*d 1-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:=mm1(3);mm3(rowDi m(mm3),4):=EVAL(mm1(1));l3(SIZE(l3)+1):={mm1(1),mm1(2),mm1(3),1};END;END;l1:=CA S.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:=N1;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*N1;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(I1);MDM(C,1):=l1(I-1);MDM(C,2):=l1(I);x:=l1(I1);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(I1,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;FOR 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}};E ND;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);LEC:=CAS. expand(LEC);LEC:=CAS.simplify(LEC);LEM:=CAS.expand(LEM);LEM:=CAS.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=="3CD62400KQ" 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):=DPor MB(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);GE ColB(a,7):=DPorMB(b,5);GEColB(a,8):=DPorMB(b,6);GEColB(a,9):=DPorMB(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);GE ColB(a,7):=DPorMB(b,7);GEColB(a,8):=DPorMB(b,8);GEColB(a,9):=DPorMB(b,9);GEColB(a ,10):=DPorMB(b,10);GEColB(a,11):=DPorMB(b,11);END;END;END;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):=D PorMB(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);G EVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,4);GEVigB(a,10):=DPorMB(b,5);GEVi gB(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);G EVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,6);GEVigB(a,10):=DPorMB(b,7);GEVi gB(a,11):=DPorMB(b,8);GEVigB(a,12):=DPorMB(b,9);GEVigB(a,13):=DPorMB(b,10);GEVig B(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):=DP orMB(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);G EVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,4);GEVigB(a,10):=DPorMB(d,5);GEVi gB(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);G EVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,6);GEVigB(a,10):=DPorMB(d,7);GEVi gB(a,11):=DPorMB(d,8);GEVigB(a,12):=DPorMB(d,9);GEVigB(a,13):=DPorMB(d,10);GEVig B(a,14):=DPorMB(d,11);END;END;END;e:=i*(rtyh8-1);f:=i*(rtyh71);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);GEAlbB(a,3):=0 ;GEAlbB(a,4):=DPorMB(b,4);GEAlbB(a,5):=DPorMB(b,17);GEAlbB(a,6):=DPorMB(b,18);GE AlbB(a,7):=DPorMB(b,19);GEAlbB(a,8):=DPorMB(b,20);GEAlbB(a,9):=DPorMB(b,5);GEAlb B(a,10):=DPorMB(b,6);GEAlbB(a,11):=DPorMB(b,7);GEAlbB(a,12):=DPorMB(b,8);GEAlbB( a,13):=DPorMB(b,9);GEAlbB(a,14):=DPorMB(b,14);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);GEAlbB(a,3):=D PorMB(d,3);GEAlbB(a,4):=DPorMB(d,4);GEAlbB(a,5):=DPorMB(d,17);GEAlbB(a,6):=DPorM
B(d,18);GEAlbB(a,7):=DPorMB(d,19);GEAlbB(a,8):=DPorMB(d,20);GEAlbB(a,9):=DPorMB( d,5);GEAlbB(a,10):=DPorMB(d,6);GEAlbB(a,11):=DPorMB(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(dfg4,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,df g4,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_ColP D(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,t p)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;EN D;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,NGa,DPor MB,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,L,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 )▶ L;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);E ND;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:=(NG1)*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:=(NG1)*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:=(NG1)*rtyh2;B→R(#1101100b)▶ e;nMiem:=nCol+nVig+nMam;DAT_Portico:=MAKEMAT(0,nMie m,20);DAT_Portico:=llfft6(DAT_Portico,DAT_Col,DAT_Vig,rtyh2,DAT_Mur,NG);END;END ;B→R(#1110010b)▶ NGA;aa:=rowDim(DAT_Portico);lo:=CHAR({CNN,CNA});lv:=CHAR({ NGA,NGB});lh:=CHAR({L,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=="3CD62400KQ" 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);abd1 0(k,10)▶ DAT_Col(j,8);abd10(k,11)▶ DAT_Col(j,9);abd10(k,4)▶ DAT_Col(j,10);abd10(k,5)▶ DA T_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;EN D;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);LOCAL
hh,nn;MC:=[[0]];MC(1,1):=M0G(M1G(NBa,1),1);MC(1,2):=M0G(M1G(NBa,1),2);MC(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((px2*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:=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(CAS("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,yf10,1,ColD(1));ELSE LINE_P(G4,xi,yi,xf,yf,ColD(2));TEXTOUT_P(-ROUND(w,Pe),G4,xf10,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,Col137);TE XTOUT_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,2 13,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;BLIT_P(G0,0,20,320,240,G4,0,0,320,22 0);END;Atytz(Tip)BEGIN LOCAL esc,MC,s1,s2,px,py,CSDats,CSTip;DIMGROB_P(G4,320,220);RECT_P(G4,0,0,320,220,Col12 8);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((px2*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-s2MC(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;E ND;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;IFERR 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,10)),(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)),(xf22*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,yi10,5,Col54);TEXTOUT_P(Dats(3),G4,xi+6,yi-4,1,Col54);ELSE TEXTOUT_P("↻",G4,xi-8,yi10,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,xi3*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,{(xi3*M1(I,11),yi-3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf1*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,xi3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf3*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)),(xf5*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)*xDats(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,xf10,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*M1(I,10);L INE_P(G4,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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);TEXTO UT_P(Dats(4),G4,xf+1,yf,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);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);L INE_P(G4,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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,yf5,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:=yi1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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:=yiw*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G4,xf+1,yf5,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);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:=xi1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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),yi10*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),yf10*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)-(x4/esc)*esc*M1(I,11);LINE_P(G4,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x10/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),yf6*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),yi10*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),yf10*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),yi4*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),yi4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf2*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*I2,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*I1,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,c y,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I2,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,cy,cx+18* cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I1,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,c y,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I1,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,cy,cx+18* cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(cx,cy)},Col118);TEXTOUT_P(2*I,G4,cx-3,cy10,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,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 THEN LINE_P(G4,MC(I,1),MC(I,2)+2,MC(I,1),MC(I,2)+17,Col3);TEXTOUT_P("▼",G4,MC(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,cx,cy,cx+ 18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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:=Ang90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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+1 8*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,MC(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,cx,cy,cx+ 18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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:=Ang90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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+1 8*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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",G4,3,187, 1,Col118);LINE_P(G4,5,213,20,213,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);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);ex pr3(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);D AT(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)▶ D AT_Portico(c,12);DAT(l,11)▶ DAT_Portico(c,13);DAT(l,12)▶ DAT_Portico(c,14);j▶ DAT_Porti co(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)▶ DA T_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);D AT_Vig(l,9)▶ DAT_Portico(c,11);DAT_Vig(l,10)▶ DAT_Portico(c,14);j▶ DAT_Portico(c,15);D AT_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;E ND;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_RLDAT_Vig(1,2)/2;sqrt(Long^2+Altur^2)▶ DAT_Portico(c,3);Long▶ DAT_Portico(c,4);Altur▶ DA T_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_Porti co(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);D AT(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)▶ DA T_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)▶ DA T_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);DA T_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_Por tico(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);D
AT_Vig(1,2)/2▶ DAT_Portico(c,4);DAT_Vig(1,2)/2▶ DAT_Portico(c,5);DAT(l,4)▶ DAT_Portic o(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);D AT(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)▶ DA T_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:=(NG1)*rtyh2;nMiem:=nCol+nVig;RL_Port:=ftyul7(DAT_Portico,nNudos,rtyh2,NG);END;IF d==2 THEN nNudos:=(rtyh2+1)*(NG);nCol:=(NG)*rtyh2;nVig:=(NG1)*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:=(NG1)*rtyh2;nMam:=(NG1)*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)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 nodnr 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:=MA KEMAT(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):=nombre(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=="3CD62400KQ" 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;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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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 nodnr 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;LOCAL 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)*(12*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)*(12*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;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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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),cx12*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),cx12*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),cx12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col137);LINE_P(G4,cx19*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,{cx12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col137);LINE_P(G4,cx19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx19*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,cy10,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,cy10,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,cy20,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,cy9,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:={};InProp;Prop(c x,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*nf+5,Col 130);FOR I FROM 1 TO nf DO Rg1(I):={{cx,cy+15*(I1)},{cx+anc,cy+15*I}};TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I1)+5,2,Col142);TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I1)+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;UNTIL 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,Col3,Col128);RECT_ P(2,23,96,53,Col3,Col128);RECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P(CHAR({80,82, 79,80,73,69,68,65,68}),5,25,2,Col128);TEXTOUT_P(CHAR({80,82,79,80,73,69,68,65,68}),6,2 5,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,Col3);TEXTOUT_P(cnP,80,40,2,Col118);TEXTOUT_P(c nP,81,40,2,Col118);RECT_P(2,53,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}),30,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);TEXTO UT_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);TEXTOUT_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,58+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,Col137);TEXTOUT_P ("E",5,117,2,Col137);TEXTOUT_P("m",70,62+17,1,Col3);TEXTOUT_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},{6 5,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);TEXTOUT_P("m2",80,109+1 7,1,Col3);Dats:={0.25,Elas};Regs:={{{25,58+17},{65,71+17}},{{13,98+17},{75,111+17}}};D atsbmq(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);TEXTOUT_P(CH AR({67,65,82,71,65,83}),6,25,2,Col128);TEXTOUT_P(CHAR({67,65,82,71,65,83}),7,25,2,Col 128);TEXTOUT_P(CHAR({69,108,101,109,101,110,116,111}),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,10 0,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;IF OriCarga==2 THEN RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;LINE_P(2 0,163,30,163,Col111);TEXTOUT_P("▶ ",30,159,1,Col111);RECT_P(10,166,45,167,Col148);LI NE_P(74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(55,166,90,167,Co l148);RECT_P(4,74,41,76,Col118);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); TEXTOUT_P(CHAR({68,105,115,116,97,110,99,105,97,32,58}),7,87,1,Col137);TEXTOUT_P( CHAR({70,117,101,114,122,97,32,58}),19,102,1,Col137);TEXTOUT_P(CHAR({77,111,109,1 01,110,116,111,32,58}),3,117,1,Col137);RECT_P(5,180,48,198,Col3);TEXTOUT_P(CHAR({6 5,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);RE CT_P(52,180,93,198,Col101);TEXTOUT_P("Elim",62,184,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,12 5}}};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;IF OriCarga==2 THEN RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;FOR I FROM 1 TO 4 DO LINE_P(10+5*(I1),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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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,100,97}),42,64,1,Col148); TEXTOUT_P(CHAR({88,32,105,110,105,32,58}),10,87,1,Col137);TEXTOUT_P(CHAR({88,3 2,102,105,110,32,58}),10,102,1,Col137);TEXTOUT_P(CHAR({87,32,105,110,105,32,58}),6,1 17,1,Col137);TEXTOUT_P(CHAR({87,32,102,105,110,32,58}),6,132,1,Col137);RECT_P(5,18 0,48,198,Col3);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR ({65,99,101,112}),13,184,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,9 5}},{{40,97},{90,110}},{{40,112},{90,125}},{{40,127},{90,140}}};DatsbmqCargas(4,5);END ;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,Col128);TEXTOUT_P ("CARGAS",7,25,2,Col128);TEXTOUT_P("Nudo",5,42,2,Col1);TEXTOUT_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,1 14}),30,124,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,124,2,Col128);At ytz16(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):=nombre(i,1 2);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;I F i>mbr THEN long:=L(i);Em:=EE(i);a:=long/4;area:=a*tt(i);rig:=Em*area/long;nvig:=(nr1)*np;dx:=nombre(i,4);dy:=nombre(i,5);CosT:=dx/long;SenT:=dy/long;k:=MAKEMAT(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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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,xpe3,rtyh2)B EGIN 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:=MYCLP(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;E ND;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;E ND;END;END;zsc2(j):=CLP;xpre15(j):=Mat_A;e:=e+rtyh2;END;END;END;ffllq9(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*FLOOR(H/1 20)+360;ex:=(H-360)/120+1;cx:=320/(ex);xH:=xH+pny;ey:=(V240)/120+1;pnx:=EXPR(xH);cy:=240/(ey);lx:=MID(pnx,137+2,7);DIMGROB_P(G8,320,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(MOUS E(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)+(ayoay);END;axo:=ax;ayo:=ay;vX:=1;vY:=1;ELSE vv:=0;END;x:=MAX(MIN(x-cC(1)+cC(3),H320),0);y:=MAX(MIN(y-cC(2)+cC(4),V240),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,2403,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,3203,240,RedB,PlomoA);RECT_P(G8,320,cy*pmy,3202,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(y120*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(x120*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,2403,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,3203,240,RedB,PlomoA);RECT_P(G8,320,cy*ccy,3202,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,210,Col12 8);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;LOC AL 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;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((px2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN esc:=MIN((px-2*bdx),(py2*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;IFERR 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,10)),(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)),(xf22*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,yi10,5,Col54);TEXTOUT_P(Dats(3),G3,xi+6,yi-4,1,Col54);ELSE TEXTOUT_P("↻",G3,xi-8,yi10,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,xi3*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,{(xi3*M1(I,11),yi-3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf1*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,xi3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf3*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)),(xf5*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,xf10,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*M1(I,10);L INE_P(G3,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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);TEXTO UT_P(Dats(4),G3,xf+1,yf,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);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);L INE_P(G3,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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,yf5,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:=yi1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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:=yiw*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G3,xf+1,yf5,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);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:=xi1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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),yi10*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),yf10*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)-(x4/esc)*esc*M1(I,11);LINE_P(G3,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x10/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),yf6*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),yi10*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),yf10*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),yi4*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),yi4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf2*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,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);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;LOCAL 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);L OCAL 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*BBsqrt(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)*Ga ma;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;RKik(j):=R
Kik(i)*Alfa+RKik(j);RMik(j):=RMik(i)*Alfa+RMik(j);Id:=ASC(Ta);Io:=0;FOR 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)*Ga ma;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;FOR 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},{32 0,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({69,83,80,69,67,84,82,79,32,68,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,32,69,108, 97,115,116,105,99,111}),G2,dx,dy,3,RedA);rx:=CHAR({118,101,114});dy:=dy+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+160vd,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+hd3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,StrawRed);r y:=CHAR({115,105});TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1*Fe_X30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,StrawRed);T EXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,StrawRed);LINE_P( G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+240,dy+160,Red);TEXTO UT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-5,2,Red);LINE_P(G2,dx-1,dy,dx1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,47,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+160Acel(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160Acel(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(Acel),2),G2,dx-35,dy+160Max(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:=1
60/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+160vd,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+hd3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,StrawRed); TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1*Fe_X30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,StrawRed);T EXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,StrawRed);LINE_P( G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+240,dy+160,Red);TEXTO UT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-5,2,Red);LINE_P(G2,dx-1,dy,dx1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,47,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+160AcelI(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160AcelI(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(AcelI),2),G2,dx-35,dy+160Max(AcelI)*Fe_Y-5,2,Blue);dy:=dy50;sa:=rx+ry;ffllq9(dy,0,x,y,Gi,sa,TxTb);END;ffllq3(Ini,Nom,x,y,L,let,ColA,ColB,ColC,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*i11,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})));REPEAT 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*(j1)+4)<my<(y+20*(j-1)+24)AND bbb3=="3CD62400KQ" 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*i11,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+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*i11,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*i17},{x+L,y+20*i+1},ColA);TEXTOUT_P("▷ "+Nom(i),x+5,y+20*i11,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);TEXTOUT_P(T 2,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)},Plomo,150); RECT_P(x,y,x+L,y+H,BlueClasic,Fondo);RECT_P(x+1,y+1,x+L-1,y+H1,BlueClasic,Fondo);TEXTOUT_P(CHAR({63}),x+4,y,7,RedA);TEXTOUT_P(T1,x+19,y+4,2,
AzulTit);TEXTOUT_P(T2,x+19,y+16,2,AzulTit);R_Ace:={{x+L/2-45-15,y+33},{x+L/25,y+55}};RECT_P(R_Ace(1),R_Ace(2),RedA,Plomo);TEXTOUT_P(CHAR({65,99,101,112,11 6,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({67,97,110,99,101,108,97,11 4}),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
1);RECT_P(20,85,80,103,Col3);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,89,2,Col 128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,89,2,Col128);LINE_P(G3,5,190,5,2 03,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);TEXTOUT_P(CHAR({78,117,101,118,97,32,69,115,116,114,117,9 9,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({78,117,101,118,97,32,69,115,116 ,114,117,99,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,8 5,82,65}),G3,80,198,1,Col132);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,81,1 98,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
<35 THEN 25▶ Rs END;IF Val=35 THEN RETURN "/";END;IF 36
<40 THEN 33▶ Rs END;IF Val=40 THEN RETURN "*";END;IF 41
<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)B EGIN 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*H1):={{cx,cy+15*(H-1)},{cx+30,cy+15*(H)}};Regs(2*H):={{cx+30,cy+15*(H1)},{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*I1);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;I F Caso==2 THEN IF 230<=Accion(2)<=265 AND 210<=Accion(3)<=240 THEN bdx:=bdx5;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;E ND;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:=bdy5;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;I F 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();BREAK;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;END;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;FO R 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,105,99,111 ,115}),20,170,2,Col128);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,105,99,111,115}),2 1,170,2,Col128);WAIT(0.3);DIMGROB_P(G4,320,240);RECT_P(G4);BLIT_P(G4,G0);IF B<=5 THEN InProp:=155;END;IF 5 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;EN D;BLIT_P(G0,G4);Elas:=Dats(3);Atytz12(7);cnP:=cnP+1;Atytz13();BREAK;END;END;END;I F 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,15 9,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col132,Col128);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,1 59,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col12,Col129);LINE_P( 74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(55,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,Col128);TEXT OUT_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):=VecC;Atytz1 6(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:={};FOR 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*(I1),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,171,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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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*(I1),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,171,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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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,Col128);TEXT OUT_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(DCgB)+1):= {NBarra,2,Dats,OriCarga};Datsbmq111(NBarra):=VecC;Atytz16(2);Atytzad21(2,0);BREAK;E ND;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:={};FOR 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}),30,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,yf1,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,Co lr);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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,116,97,114 }),31,128,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);BLI T_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11
1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),25,25*(A));BLIT_P(G0,7,95,48,168,CHAR({82,101,115,111,114,116,101}),0,0,41,73);Regs: ={{{50,70},{90,85}},{{50,95},{90,110}},{{50,122},{90,137}},{{50,150},{90,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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,32,58}),9,75,1,Col1);TEXTOUT_P(CHAR({68,101,102,111,114,46,32,73,109,112,117,101,11 5,116,97,32,58}),6,95,1,Col111);TEXTOUT_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*(A1),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;UNTIL 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}),31,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)*32;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(1)*31;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):=Dats(1);M3( rowDim(M3),2):=Dats(1)*32;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(1)*31;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):=Dats(1);M3( rowDim(M3),2):=Dats(1)*32;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):=Dats(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}),31,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)*21;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):=Dats(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),Col128);R ECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P({67,79,79,82,68,46,32,78,85,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,Col128);TE
XTOUT_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*I1);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),Col128);R ECT_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,Col128);TE XTOUT_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;h(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,Col13 3);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,76,198,1,Col133);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),(py2*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)),(py2*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-s2MC(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),cx12*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),cx12*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),cx12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col134);LINE_P(G3,cx19*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,{cx12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col134);LINE_P(G3,cx19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx19*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,cy10,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,cy10,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,cy20,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,cy9,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,cx14,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(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);RECT_P(G3,148,197,161,205,Col131);RECT_P(G3,149,196,1 60,206,Col131);RECT_P(G3,173,197,186,205,Col131);RECT_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((px2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN esc:=MIN((px-2*bdx),(py2*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-s2MC(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);END;EN D;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);END;EN D;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);END;EN D;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)))/25,(ABS(MC(M1(I,1),2)+MC(M1(I,2),2)))/22,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,215,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)))/23,(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)))/23,(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,234,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,1 49,5,Col128);LINE_P(137,18,150,5,Col128);LINE_P(138,18,150,6,Col128);BLIT_P(G0,165,5, 180,18,"AE",0,0,15,13);ARC_P(100,12,7,{Col12,Col129});TEXTOUT_P("i",99,8,1,Col12);LIN E_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),(21825,16)},Col128);TEXTOUT_P("●",197,4,1,Col128);RECT_P(249,16,267,17,Col128);FOR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I1),246+I*4,16,Col128);TEXTOUT_P("▾ ",242+I*4,11,1,Col128);END;LINE_P(250,4,266,12,C ol128);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,Col137);T EXTOUT_P(CHAR({648,945,972,981,909,1026}/9),59,228,1,Col137);END;toq(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;Edicion(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;E ND;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);Colaxsdcer f:=RGB(61,123,245);oligft115(nb,Caso);oligft110(nb);oligft111(nb);DatsGri1:={};RegsGri1:={ };DatsGri2:={};RegsGri2:={};axsdcerfP();axsdcerfGrid();GX:={};GY:={};Datsbmqa19();Selec Elem();PropGeoElem(cn);DibElem(Tod,Esp);SelecTipElem(Tip);fsrvthaGrilla(Tp);esc;cn;cx;cy; pb;la1;la2;la3;lx;ly;ElemSelec;NomElem:=1;TipElem:=1;dsawr()BEGIN DIMGROB_P(G1,320,720);RECT_P(G1,Col128);RECT_P(G1,0,0,320,240,Col128);RECT_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);TEXTO UT_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,Col128);LINE_P(G1,137,18,150,5,Col 128);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,Col12 8);TEXTOUT_P("▼",G1,233,7,1,Col128);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,{(22525,9),(232-25,16),(21825,16)},Col128);TEXTOUT_P("●",G1,197,4,1,Col128);RECT_P(G1,249,16,267,17,RGB(200,2 00,200));FOR I FROM 1 TO 5 DO LINE_P(G1,246+I*4,4+2*(I1),246+I*4,16,Col128);TEXTOUT_P("▾ ",G1,242+I*4,11,1,Col128);END;LINE_P(G1,250,4,26 6,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;axsdcerfP()B EGIN 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,Col20);RE CT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col148);LINE_P(G1,137,18,150,5,Col 148);LINE_P(G1,138,18,150,6,Col148);BLIT_P(G0,G1);WAIT(0.3);Datsbmqa19();la1:={};FO R I FROM 1 TO rowDim(M1)DO la1(2*I1):=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:=mmx 0;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.00000000000 1;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,226,318,237 ,Col148,Col146);RECT_P(270,226,317,237,Col146,Col146);TEXTOUT_P(CHAR({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;END;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;END;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,101,118,1 11});RECT_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+ancho2,cyi+15,Col132);TEXTOUT_P("x",cxi+ancho-12,cyi5,5,#FFFFFFh,100);RECT_P(cxi+5,cyi+26,cxi+ancho5,cyi+77,Col133,Col129);TEXTOUT_P(CHAR({78,250,109,101,114,111,32,100,101,32,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);TEXTOUT_P(CHAR({68,105,11 4,101,99,99,105,243,110,32,89}),cxi+18,cyi+60,1,Col148);RECT_P(cxi+5,cyi+91,cxi+ancho5,cyi+142,Col133,Col129);TEXTOUT_P(CHAR({69,115,112,97,99,105,97,109,105,101,110,11 6,111}),cxi+10,cyi+87,1,Colaxsdcerf,100,Col129);TEXTOUT_P(CHAR({68,105,114,101,99,99 ,105,243,110,32,88}),cxi+18,cyi+106,1,Col148);TEXTOUT_P(CHAR({68,105,114,101,99,99,1 05,243,110,32,89}),cxi+18,cyi+125,1,Col148);RECT_P(cxi+ancho-32,cyi+106,cxi+ancho10,cyi+126,Col3,Col131);TEXTOUT_P("✍",cxi+ancho28,cyi+105,4,Col148);RECT_P(90,186,150,204,Col12,Col131);RECT_P(91,187,149,203,Col12, Col131);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,189,2,Col148);RECT_P(170,18 6,230,204,Col135,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,189,2,Co l148);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);fsrvthaGrilla(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),(cx,cy+15) },RGB(255,255,255));TEXTOUT_P("●",cx-4,cy,7,Col5);TEXTOUT_P("+",cx2,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,111}),33,29,2,Col1 48);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,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));REC T_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,10 2,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,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);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:={};DAp:={};GX:={};G Y:={};L1:={};L2:={};L3:={};L4:={};L5:={};L6:={};L7:={};L8:={};L9:={};L0:={};FILLPOL Y_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,255,255));TEXTOUT_P("●",cx4,cy,7,Col5);TEXTOUT_P("+",cx2,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,111}),33,29,2,Col1 48);WAIT(0.5);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);axsdcerfGrid();BREAK;END;END;E ND;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)
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)
num>0 THEN num:=ROUND(num,-rtyh9);END;IF num>=1 THEN num:=ROUND(num,rtyh9);END;IF1
<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},{xo9,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,rtyh9,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+ly10,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},{xo9,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=="3CD62400KQ" 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,rtyh9,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+ly18,3,RedA);lx:=lx+8*DimCol(i)+12;END;RECT_P(Gr,{xo-10,yo+ly-19},{xo+lx-5,yo+ly20},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+lx5,yo+ly-0.5},RedA);RECT_P(Gr,{xo-10,yo-20},{xo-9,yo+ly},RedA);RECT_P(Gr,{xo+lx-5,yo15},{xo+lx4,yo+ly},RedA);lx:=lx;lagr3:=lx+20;lagr4:=ly+20;END;yyhte10(Gr,Tx,Num,Den,xo,yo,L,TCol) BEGIN LOCAL nN,nD,nT;nN:=DIM(Num);nD:=DIM(Den);nT:=DIM(Tx);TEXTOUT_P(Tx,Gr,xo+4,yo+5,2,T Col);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,y o,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+L0.2,yo+H0.2},TCol,PlomoA);TEXTOUT_P(Eeq,Gr,xo+5,yo+5,2,TCol);END;jjrtg10(Gr,Te,Ts,xo,yo,TCo l)BEGIN LOCAL nN;nN:=DIM(Te);TEXTOUT_P(Te,Gr,xo,yo,2,TCol);TEXTOUT_P(Ts,Gr,xo+8*nN,yo5,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,yo+8,1,TC ol);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((px2*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)),(py2*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-s2MC(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(CHAR({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,Col129);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(M
1(I*(SIZE(GX)),2),2),Col129);ARC_P(G1,9,MC(M1(I*(SIZE(GX)),2),2),7,Col131);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*(SIZE(GX)+1) +1,2),Col129);ARC_P(G1,9,MC(I*(SIZE(GX)+1)+1,2),7,Col131);TEXTOUT_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,230,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,Col131);RECT _P(G1,270,226,317,237,Col131,Col131);TEXTOUT_P(CHAR({69,100,105,116,45,71,114,105, 108,108}),G1,272,228,1);END;BLIT_P(G0,0,0,320,240,G1,0,0,320,240);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,ColB,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,cx8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx4,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;PropGeo Elem(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,320,240,G 1,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);BLI T_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;END;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,132,3,155, 19,Col20);RECT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col148);LINE_P(G1,13 7,18,150,5,Col148);LINE_P(G1,138,18,150,6,Col148);DibElem(1,0);BLIT_P(G0,0,0,320,240,G 1,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,197,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),M C(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)))/23,(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*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;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)))/23,(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*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;TipElem:=TipElemA;END;END;END;SelecTipElem(Tip)BEGIN RECT_P(270,225,318,238,Col12,Col129);TEXTOUT_P("KN,m,C",272,228,1,Col148);TEXTO UT_P("▼",309,227,2,Col135);TipElem:=Tip;RECT_P(290,30,317,130,Col145,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);LINE_P(cx+1,cy+1 7,cx+17,cy+1,Col12);cy:=62;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,69,2,Col12);cy: =87;cx:=297;LINE_P(cx,cy+10,cx+10,cy,Col12);LINE_P(cx,cy+11,cx+11,cy,Col12);LINE_P(c x+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;SelecEle m()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:=S ORT(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:=S ORT(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
235,80,Col133,Col129);RECT_P(85,70,235,187,Col133,Col129);RECT_P(164,56,234,85,Col12 9,Col129);TEXTOUT_P(CHAR({69,106,101,32,89}),182,59,1,Colaxsdcerf,100,Col129);END; RECT_P(180,90,230,105,Col133,Col131);TEXTOUT_P("Añadir",190,93,1,Col148);RECT_P(1 80,115,230,130,Col133,Col131);TEXTOUT_P("Eliminar",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,Col148);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*(H1)},{cx+80,cy+15*(H)}};TEXTOUT_P(CHAR({64+H}),cx,cy+15*(H1)+4,2,Col111);TEXTOUT_P(CHAR({65+H}),cx+26,cy+15*(H1)+4,2,Col111);TEXTOUT_P("⇤",cx+10,cy+15*(H1)+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),Col128);RE CT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;Btn:=1;Edicio n(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);TEXTOU T_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,97,114}),9 9,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,229,213,Col12,Co l131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199,2,Col148);WAIT(0.3);BR EAK;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*(H1)},{cx+80,cy+15*(H)}};TEXTOUT_P(H,cx,cy+15*(H1)+4,2,Col111);TEXTOUT_P(H+1,cx+26,cy+15*(H1)+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),Col128);RE CT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;Btn:=1;Edicio n(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);TEXTOU T_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,97,114}),9 9,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,229,213,Col12,Co l131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199,2,Col148);WAIT(0.3);BR EAK;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*nf2,3*nf-1,3*nf];enc2:=[0,3*ni-2,3*ni-1,3*ni,3*nf-2,3*nf1,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:=appr ox(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);ML:=ADD COL(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*nf1,3*nf];mti:=vc(M);mti:=CAS(CAS(mti));mbarras(M):=mti;mt:=FForma(mti);mt:=approx(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)/2mt(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,enc1,2);L4( M):=fg;Ti:=L3(M);Ti:=TRN(Ti);fg:=Ti*fgA;fg:=ADDCOL(fg,enc1,2);L6(M):=fg;END;vc:=mb arras;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*(1x/ll)^2;φ4:=x/ll;φ5:=(x^2/ll^2)*(3-2*x/ll);φ6:=(-x^2/ll)*(1-x/ll);φ¹1:=CAS.diff(1x/ll,x);φ¹2:=CAS.diff(1-3*x^2/ll^2+2*x^3/ll^3,x);φ¹3:=CAS.diff(x*(1x/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"));END;EN D;END;res:=EVAL({Nx(1),Vx(1),Mx(1),Nx(2),Vx(2),Mx(2)});END;hc1()BEGIN 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(cabe2);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:=ADDROW(M5,ca be1,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;EN D;ELSE L1:={};L2:={};L3:={};M8:=[[0]];END;END;RSep()BEGIN L7:={};LNC:={};LNN:={};LOCAL ME,MKnn,MKna,MKan,MKaa,MFn,MFa;LOCAL mm,z177x,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);ME:=M5;ME:=DELC OL(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;FOR 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*I1,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,MKaa,MFn, MFa,Mδa,FFN,FFC};END;IF T==1 THEN M6:=inv(MKnn)*MFninv(MKnn)*MKna*Mδa;M7:=MKan*inv(MKnn)*MFn+(MKaaMKan*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:=MMMMFa;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(ma);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()BEGIN 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*nf1,2*nf];enc2:=[0,2*ni-1,2*ni,2*nf1,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,enc 2,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,colDim(l1i)); l2i:=DELROW(l2i,1);l2i:=DELCOL(l2i,colDim(l2i));l4i:=DELCOL(l4i,2);l6i:=DELCOL(l6i,2); L9(I):=l2i*L5(I)+l6i;L10(I):=L3(I)*L9(I);END;END;fldth11()BEGIN 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);rtyh 5:=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(v ar,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,v i+11);xpe3:=DB(var,vi+12);xpe4:=DB(var,vi+13);xpe5:=DB(var,vi+14);xpe6:=DB(var,vi+15);x pe7:=DB(var,vi+16);xpe8:=DB(var,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(var,vi+25);pft7:=DB(var,vi+26);pft8:=DB(var,vi+27);pft9:=DB(var,vi+28);pft10 :=DB(var,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,vi+37);vi: =vi+37;fld9:=DB(var,vi+1);fld10:=DB(var,vi+2);hfjq1:=DB(var,vi+3);hfjq2:=DB(var,vi+4);hfjq 3:=DB(var,vi+5);hfjq4:=DB(var,vi+6);hfjq5:=DB(var,vi+7);hfjq6:=DB(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+1 3);werf2:=DB(var,vi+14);werf3:=DB(var,vi+15);werf4:=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);we rf10:=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(v ar,vi+30);bhy8:=DB(var,vi+31);bhy9:=DB(var,vi+32);bhy10:=DB(var,vi+33);gpk1:=DB(var,vi +34);gpk2=DB(var,vi+35);vi:=vi+35;gpk3:=DB(var,vi+1);gpk4:=DB(var,vi+2);gpk5:=DB(var,v i+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:=DB(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);qwr10:=DB(var,vi+8);dfg1:=DB(var,vi+9);dfg2:=DB(var,vi+10);dfg3=DB(var,vi+11);dfg4:= DB(var,vi+12);vi:=vi+12;dfg5:=DB(var,vi+1);dfg6:=DB(var,vi+2);dfg7:=DB(var,vi+3);dfg8:=D B(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);fjlt5:=DB(var,vi+12);fjlt6:=DB( var,vi+13);fjlt7:=DB(var,vi+14);fjlt8:=DB(var,vi+15);fjlt9:=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:=DB(var,vi+2);abd9:=DB(var,vi+3);abd10:=DB(var,vi+4);b dc1:=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);exp r4:=DB(var,vi+18);expr5:=DB(var,vi+19);expr6=DB(var,vi+20);expr7:=DB(var,vi+21);expr8:= 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:=DB(var,vi+5);xpre5:=DB(var,vi+6);xpre6: =DB(var,vi+7);xpre7:=DB(var,vi+8);xpre8:=DB(var,vi+9);xpre9:=DB(var,vi+10);vi:=vi+10;xpr e10:=DB(var,vi+1);xpre11:=DB(var,vi+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,v i+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 (var,vi+9);zsc13:=DB(var,vi+10);zsc14:=DB(var,vi+11);zsc15:=DB(var,vi+12);zxp1:=DB(var,v i+13);zxp2:=DB(var,vi+14);zxp3:=DB(var,vi+15);zxp4:=DB(var,vi+16);zxp5:=DB(var,vi+17);z xp6:=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:=D B(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:=DB(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(va r,vi+4);ixpr7:=DB(var,vi+5);ixpr8:=DB(var,vi+6);ixpr9:=DB(var,vi+7);ixpr10:=DB(var,vi+8);ix pr11:=DB(var,vi+9);ixpr12:=DB(var,vi+10);ixpr13:=DB(var,vi+11);ixpr14:=DB(var,vi+12);ixpr 15:=DB(var,vi+13);ixpr16:=DB(var,vi+14);ixpr17:=DB(var,vi+15);ixpr18:=DB(var,vi+16);ixpr 19:=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:=DB(var,vi+28);jksd11:=DB(v ar,vi+29);jksd12:=DB(var,vi+30);jksd13:=DB(var,vi+31);jksd14:=DB(var,vi+32);jksd15:=DB(v ar,vi+33);jksd16:=DB(var,vi+34);jksd17:=DB(var,vi+35);jksd18:=DB(var,vi+36);jksd19:=DB(v ar,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:=D B(var,vi+50);jliu13:=DB(var,vi+51);vi:=vi+51;jliu14:=DB(var,vi+1);jliu15:=DB(var,vi+2);jliu1 6:=DB(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+1 5);dshy9:=DB(var,vi+16);dshy10:=DB(var,vi+17);dshy11:=DB(var,vi+18);dshy12:=DB(var,vi+ 19);dshy13:=DB(var,vi+20);dshy14:=DB(var,vi+21);dshy15:=DB(var,vi+22);dshy16:=DB(var,v i+23);dshy17:=DB(var,vi+24);dshy18:=DB(var,vi+25);dshy19:=DB(var,vi+26);dshy20:=DB(var ,vi+27);lagr1:=DB(var,vi+28);lagr2:=DB(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(v ar,vi+3);lagr9:=DB(var,vi+5);lagr10:=DB(var,vi+6);vi:=vi+6;liev1:=DB(var,vi+1);liev2:=DB(va r,vi+2);liev3:=DB(var,vi+3);liev4:=DB(var,vi+4);liev5:=DB(var,vi+5);liev6:=DB(var,vi+6);liev 7:=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(v ar,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)},Plom o,150);RECT_P(29,29,291,181,AzulB,AzulB);RECT_P(30,30,290,180,AzulB,Fondo);TEXTOU T_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,Fondo);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_Ace(2),16,F ondo);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,Azul B);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,1 00,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
tamA:=tamA+1;pxtrf3(CHAR({77,111,100,101,108,111,32})+tamA,R_Nom,2)▶ Name;tamA:=t amA-1;ldljt10(2);BREAK;END;IF R_Ace(1,1)<mx
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,xx1,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,48}),G3,xx+103+45, yy+1+6,2,RedM);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,105,102,105,9 9,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:=yy15;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;TEXTOUT_P(CH AR({45,82,105,103,105,100,101,122,32,108,97,116,101,114,97,108}),G3,xx+30,yy+65,2,Azul M);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,108,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,xx2,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,115,116,10 5,108,111,32,50}),CHAR({69,115,116,105,108,111,32,51})},95,155,100,2,LigthBlue,AzulB,Fo ndo,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,1 09,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:=RGB(250,255,255); Fondo:=GreenLucite;AzulA:=StrawRed;AzulB:=Tangerine;AzulTit:=BlueClasic;MCuad:=Mars aRed;FCuad:=RGB(220,220,220);RedA:=CusYellow;RedB:=CusYellow;CTexto:=Blue;CTexto 2:=Red;CoVig:=RGB(0,20,253);CoMur:=RGB(20,209,173);AzulM:=RGB(34,62,20);RedM:=R GB(153,27,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,105,110,115,116,9 7,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,1 09,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:=RGB(#CD h,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RGB(33,115,231);Wh ite:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(53,117,211);AzulB:=RGB(0, 28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;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);CoVi g:=RGB(0,126,253);CoMur:=RGB(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,2 7,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,11 0,115,116,97,108,97,100,111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;EN D;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,1 09,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:=RGB(#CD h,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RGB(33,115,231);Wh ite:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(53,117,211);AzulB:=RGB(0, 28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;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);CoVi g:=RGB(0,126,253);CoMur:=RGB(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,2 7,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,11 0,115,116,97,108,97,100,111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;EN D;END;END;END;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,yy1,xx+dx+1,yy+dy+1,AzulB,Fondo);RECT_P(G3,xx,yy,xx+dx,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,48}),G3,xx+103+45, yy+1+6,2,RedM);RECT_P(G3,xx+34,yy+20,xx+dx,yy+20,DarkBlue,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,11 6,97,116,105,99,111,32,112,97,114,97,32,69,100,105,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,10 0,111,114,32,58}),G3,xx+10,yy+50,2,AzulB);TEXTOUT_P(CHAR({65,89,65,76,65,32,66,73,9 0,65,82,82,79,32,82,79,67,75,89}),G3,xx+98,yy+50,2,AzulM);TEXTOUT_P("",G3,xx+71.5,yy +65,2,AzulB);TEXTOUT_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,100,97,114,1 11,46,119,111,114,100,112,114,101,115,115,46,99,111,109}),G3,xx+98,yy+80,2,AzulM);TEXT OUT_P(""+CHAR({32,50,48,49,55,32,82,111,99,107,121,32,65,121,97,108,97,46,32,84,111,10 0,111,115,32,108,111,115,32,100,101,114,101,99,104,111,115,32,114,101,115,101,114,118,97,1 00,111,115,46}),G3,xx+10,yy+105,1,AzulB);TEXTOUT_P(CHAR({85,110,105,118,101,114,11 5,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,1 16,111,98,97,108,32,100,101,32,72,117,97,109,97,110,103,97}),G3,xx+10,yy+120,1,AzulB);TE XTOUT_P(CHAR({65,121,97,99,117,99,104,111,45,80,101,114,117}),G3,xx+95,yy+135,1,Azu lB);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;UNTIL 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;xpe4:=0.5;xpe5:=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,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;hfjq 4:=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;b hy4:=0.20;bhy5:=0.15;bhy6:=2.5;bhy7:=65;bhy8:=2400;bhy9:=217370.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;gp k7:=[[0.25,0.25,210,2400,0.2,217370.7,90571.1]];gpk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500 ,90571.1]];gpk10:=1;qwr1:=0;qwr2:=5;qwr3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={ };qwr10:={};dfg1:=0;dfg2:=0;dfg3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:= {0,0,0,0,0};dfg8:={280,300,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:= {2500,2000,1500,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5 :={};fjlt6:=0;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd3:=1000;abd4:=500;abd5:={{11.002 3},{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;bdc1 0:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11:=0;expr 12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:=[[0]];xp re4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpre11:={};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:={};zsc1 0:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zxp1:={};zxp2:={};zxp3:=0;zx p4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp9:=[[0]];zxp10:=[[0]];zxp11:=[[0]];zx p12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=0;zxp17:={};zxp18:={};zxp19:={};zxp20:={}; ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixpr4:=[[0]];ixpr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr7:=[[0]];i xpr8:=[[0]];ixpr9:=[[0]];ixpr10:={0};ixpr11:=[[0]];ixpr12:=[[0]];ixpr13:=[[0]];ixpr14:=[[0]];ixpr 15:=[[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]];jks d10:=[[0]];jksd11:=[[0]];jksd12:=[[0]];jksd13:=[[0]];jksd14:=[[0]];jksd15:=[[0]];jksd16:=[[0]];jk sd17:=[[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]];dshy 17:=[[0]];dshy18:=[[0]];dshy19:=[[0]];dshy20:=[[0]];lagr1:=[[0]];lagr2:=[[0]];lagr3:=0;lagr4:=0; lagr5:=1;lagr6:=0;lagr7:=0;lagr8:=0;lagr9:=0;lagr10:=0;liev1:=0;liev2:=0;liev3:=0;liev4:=0;liev 5:=0;liev6:=0;liev7:=0;liev8:=0;liev9:=0;liev10:=0;liev11:=0;liev12:=0;liev13:=0;liev14:=1;liev 15:=1;liev16:=1;liev17:=1;liev18:=0;END;yyhte7 BEGIN vVARC:=CHAR([51,67,68,54,50,52,48,48,75,81]);IF vVARC==Serial THEN ELSE BREAK(4);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;vars:=CHAR([51,67, 68,54,50,52,48,48,75,81]);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;xpe5:=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;pft 7:=2;pft8:=3;pft9:=2;pft10:=CHAR({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.3 5,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;h fjq6:=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;werf 10:=0.25;werf11:=210;bhy1:=2400;bhy2:=173896.521;bhy3:=90571.1;bhy4:=0.20;bhy5:=0.15;b hy6:=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]];gpk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500,90571.1]]; gpk10:=1;qwr1:=0;qwr2:=5;qwr3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={};qwr10:={ };dfg1:=0;dfg2:=0;dfg3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:={0,0,0,0,0}; dfg8:={280,300,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:={2500,2000, 1500,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5:={};fjlt6:=0 ;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd2:=246;abd3:=1000;abd4:=500;abd5:={{11.0023 },{11.0023},{10.22}};abd6:=1250;abd7:=0;abd8:=0;abd9:=1;abd10:=[[0,0,0,1E-19,1E23,0]];bdc1:={};bdc2:=[[0]];bdc3={};bdc4:=0;bdc5:=0;bdc6:=1;bdc7:=0;bdc8:=0;bdc9:=0;bdc1 0:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11:=0;expr 12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:=[[0]];xp re4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpre11:={};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]];zsc 9:={};zsc10:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zxp1:={};zxp2:={};z xp3:=0;zxp4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp9:=[[0]];zxp10:=[[0]];zxp11 :=[[0]];zxp12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=0;zxp17:={};zxp18:={};zxp19:={};z xp20:={};ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixpr4:=[[0]];ixpr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr 7:=[[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]];jksd1 6:=[[0]];jksd17:=[[0]];jksd18:=[[0]];jksd19:=[[0]];jksd20:=[[0]];jliu1:=0;jliu2:=0;jliu3:=[[0]];jliu 4:=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;lagr8:=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: 3CD62400KQ\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();EXPORT DB:={};nomA:={CHAR({77,111,100,101,108,111,32,49})};tamA:=0;Name:=CHAR({32});Me nP:={CHAR({68,69}),CHAR({68,73,66}),CHAR({32}),CHAR({82,85,78}),CHAR({82,69,83, 85,76,84}),CHAR({73,78})};Aqua:=RGB(157,198,216);BlueScuba:=RGB(0,178,202);GreenLu cite:=RGB(125,207,182);BlueClasic:=RGB(29,79,137);StrawRed:=RGB(227,134,144);Tangerin e:=RGB(246,146,86);CusYellow:=RGB(234,217,139);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);Red:=RGB(#CDh,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;Li gthBlue:=RGB(150,177,210);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;MC uad:=MarsaRed;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);CoMur:=RG B(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,27,30);liev1:=0;liev2:=0;liev3:=0;l iev4:=0;liev5:=0;liev6:=0;liev7:=0;liev8:=0;liev9:=0;liev10:=0;liev11:=0;liev12:=0;liev13:=0;lie v14:=1;liev15:=1;liev16:=1;liev17:=1;liev18:=0;fldth1();ftyul1();qljgt1();pxtrf1();zvfgk1();yyhte 1();ffllq1();llfft1();jjrtg1();tlitg1();hdljt1();ldljtr1();tdljt1();ldljt1();fldth2();ftyul2();qljgt2();pxtrf2 ();zvfgk2();yyhte2();ffllq2();llfft2();jjrtg2();tlitg2();hdljt2();ldljtr2();tdljt2();ldljt2();fldth3();ftyul 3();qljgt3();pxtrf3();zvfgk3();yyhte3();ffllq3();llfft3();jjrtg3();tlitg3();hdljt3();ldljtr3();tdljt3();ldlj t3();fldth4();ftyul4();qljgt4();pxtrf4();zvfgk4();yyhte4();ffllq4();llfft4();jjrtg4();tlitg4();hdljt4();ld ljtr4();tdljt4();ldljt4();fldth5();ftyul5();qljgt5();pxtrf5();zvfgk5();yyhte5();ffllq5();llfft5();jjrtg5();t litg5();hdljt5();ldljtr5();tdljt5();ldljt5();fldth6();ftyul6();qljgt6();pxtrf6();zvfgk6();yyhte6();ffllq6( );llfft6();jjrtg6();tlitg6();hdljt6();ldljtr6();tdljt6();llfft12();ldljt6();fldth7();ftyul7();qljgt7();pxtrf7() ;zvfgk7();yyhte7();ffllq7(xpe3);llfft11();llfft7();jjrtg7();tlitg7();hdljt7();ldljtr7();tdljt7();ldljt7();fl dth8();ftyul8();qljgt8();pxtrf8();zvfgk8();yyhte8();ffllq8();llfft8();jjrtg8();tlitg8();hdljt8();ldljtr8() ;tdljt8();ldljt8();fldth9();ftyul9();qljgt9();pxtrf9();zvfgk9();yyhte9();ffllq9();llfft9();jjrtg9();tlitg9( );hdljt9();ldljtr9();tdljt9();ldljt9();fldth10();ftyul10();qljgt10();pxtrf10();zvfgk10();yyhte10();ffllq 10();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,67,79,77,8 0,82,69,32,101,115,116,97,32,97,112,108,105,99,97,99,105,243,110,32}),90,100,130,35,0.5);W AIT(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({51,67,68,54,50,52,48,48,75,81})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({51,67,68,54,50,52,48,48,75,81})THEN RECT_P(124,100,196,112,DarkBlue,White);FOR k:=1 TO 3 DO RECT_P(125,100+1,125+10*k,1121,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),133,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,1121,PlomoA);TEXTOUT_P(CHAR({65,99,116,117,97,108,105,122,97,110,100,111}),133,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,2 28,31,240,PlomoA);TEXTOUT_P("",Gp,8,225.5,3,Black);TEXTOUT_P(CHAR({88,58}),Gp,3 5,230,1,Black);TEXTOUT_P(CHAR({89,58}),Gp,70,230,1,Black);LINE_P(Gp,104,228,104,24 0,Plomo);TEXTOUT_P(CHAR({67,32})+"┅ "+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHAR({86,3 2})+"┅ "+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHAR({65,3 2})+"┅ "+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,228,360,2 40,PlomoA);TEXTOUT_P("",Gp,260,229,1,AzulTit);LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf4,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);axsd cerfOpc2(cx,cy,anc,posf,pst,Lm,cont,Mnu1,Mnu2);toq(Tip);MTanx(Mnu1,Mnu2);Inicio();Nudo s();Barras();Atytzad23();Atytzad22();Atytzad20(Sig);Atytzad21(Tip,Sig);Atytz13();LMax:={};T itu7:={{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨 ","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁 䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣
䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨"," 䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘 䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙 䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤 䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚 䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴈䳺䴇䳾䳶䴁"},{"䴁 䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣 䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};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);TEXTOUT_P(CHAR({8 9,58,32}),Gp,70,230,1,Black);LINE_P(Gp,104,228,104,240,Plomo);TEXTOUT_P(CHAR({67,3 2})+"┅ "+abd8,Gp,109,230,1,Black);LINE_P(Gp,140,228,140,240,Plomo);TEXTOUT_P(CHAR({86,3 2})+"┅ "+bdc5,Gp,145,230,1,Black);LINE_P(Gp,176,228,176,240,Plomo);TEXTOUT_P(CHAR({65,3 2})+"┅ "+expr8,Gp,181,230,1,Black);LINE_P(Gp,210,228,210,240,Plomo);RECT_P(Gp,250,228,360,2 40,PlomoA);LOCAL xi,yi,xf,yf;xi:=5;yi:=223;xf:=xi+30;yf:=yi30;LINE_P(Gp,xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),Gp,xf,yi11,2,PlomoA);LINE_P(Gp,xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({121}),Gp,xi+2,yf4,2,PlomoA);RECT_P(Gp,36,16,320,19,AzulTit);RECT_P(Gp,0,227,320,228,AzulB);END;jjrtg 1()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,35,30,Azul Tit);R_DE:={{36,0},{92,16}};RECT_P(Gp,R_DE(1),R_DE(2),Fondo);zvfgk1(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);yyhte1(R_DI(1,1)+5,8.5,AzulTit);TEX TOUT_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},{206,16}};RECT_P(Gp,R_CA(1),R_CA(2),Fondo);TEX TOUT_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_C A(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},{32 0,16}};RECT_P(Gp,R_OT(1),R_OT(2),Fondo);TEXTOUT_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);RECT_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()B EGIN 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,222),(0,222)},Fond o);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}};RE CT_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,10 5}};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},{91,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,180},{91,22 0}};RECT_P(R_pro(1,1),R_pro(1,2),R_pro(2,1),R_pro(2,2),AzulB,AzulB);TEXTOUT_P(CHA R({68,89,83,65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);TEXTOUT_P(CHAR({68,89,83, 65,66}),R_pro(1,1)+28,R_pro(1,2)+11.5,3,White);FILLPOLY_P({(36,30),(36,20),(94,20),(94,22 0),(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_De(1,1)<mx
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}),Di mV,DimH});ELSE bdc2:=EDITMAT(bdc2,{CHAR({68,97,116,111,115,45,67,111,108,117,109,110,97,115}),Dim V,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,3 2,118,105,103,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({66,97,115,101}),CHAR({80,101,114,97,108,116,1 01}),CHAR({88,49,32,40,67,71,41}),CHAR({89,49,32,40,67,71,41}),CHAR({88,50,32,40,67,7 1,41}),CHAR({89,50,32,40,67,71,41}),CHAR({76,79,78,71,46}),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({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,104,1,Red A);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({45,45,45,4 6}),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}),CHAR({72,32,40,109,41}),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}),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,100,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,100,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,8
4,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({1 08});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}),dx22,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}};TEXTO UT_P(CHAR({75,61,32}),dx22,R_Rig(1,2)+3,2);ftyul3(STRING(DHRig,1),R_Rig,CHAR({107,103,102,47,99,109,50}),Azu lTit,White);dx:=60;rx:=CHAR({115});dy:=dy+30;R_Int:={{dx,dy},{dx+70,dy+18}};TEXTOU T_P("∆T= ",dx22,R_Int(1,2)+3,2);ftyul3(STRING(DHInt,1),R_Int,rx,AzulTit,White);dx:=60;bx:=sy+sx;dy:=dy +30;R_To:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,111,61,32}),dx22,R_To(1,2)+3,2);ftyul3(STRING(DHTo,1),R_To,rx,AzulTit,White);dx:=200;ax:=CHAR({114 });dy:=dy;R_Tf:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P(CHAR({84,102,61,32}),dx22,R_Tf(1,2)+3,2);ftyul3(STRING(DHTf,1),R_Tf,rx,AzulTit,White);dx:=60;nx:=CHAR({101}) ;dy:=dy+40;R_Dec:={{dx,dy},{dx+70,dy+18}};TEXTOUT_P("rtyh9= ",dx27,R_Dec(1,2)+3,2);ftyul3(STRING(DHDec,1),R_Dec,"",AzulTit,White);dx:=180;dy:=dy;R_Fu nc:={{dx,dy},{dx+90,dy+18}};RECT_P({R_Func(1,1),R_Func(1,2)},{R_Func(2,1),R_Func(2,2 )},DarkBlue,Plomo);TEXTOUT_P(CHAR({70,117,110,99,105,111,110}),R_Func(1,1)+25,R_F unc(1,2)+3,2);dx:=220;ay:=CHAR({105});by:=ax+ay;dy:=dy+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)},Da rkBlue,Plomo);TEXTOUT_P(CHAR({82,101,112,111,114,116,101}),R_Repor(1,1)+15,R_Repo r(1,2)+3,2);REPEAT 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
1();BREAK;END;IF R_Func(1,1)<mx
t1)/2;delA:=(h/3)*(a1*cos(DHW*t1)+4*(((a1+a2)/2)*cos(DHW*(t1+t2)/2))+a2*cos(DHW*t2)); Asum:=Asum+delA;Mat(i,4):=delA;Mat(i,5):=Asum;delB:=(h/3)*(a1*sin(DHW*t1)+4*(((a1+a 2)/2)*sin(DHW*(t1+t2)/2))+a2*sin(DHW*t2));Bsum:=Bsum+delB;Mat(i,6):=delB;Mat(i,7):=Bs um;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,DHD ec);yyhte7;tlitg10(G2,Mat,40,dy,3,AzulTit,2,CHAR({116,110,102}),0,"",{CHAR({116,32,40,11 5,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,109,47,115,41}),CHAR({97,40,99,109, 47,115,50,41})},Blue,0,"");dy:=dy+20*Fil;TEXTOUT_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/(MAX(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+x13,dy+ya+3,1,Plomo);LINE_P(G2,dx+x1,dy,dx+x1,dy+ya,Plomo);TEXTOUT_P(tlitg2(yy(i),1),G 2,dx-18,dy+y1+2,1,Plomo);LINE_P(G2,dx,dy+y1+10,dx+xa10,dy+y1+10,Plomo);END;LINE_P(G2,dx,dy+ya+1,dx+xa,dy+ya+1,Red);LINE_P(G2,dx,dy+y a,dx+xa,dy+ya,Red);TEXTOUT_P(CHAR({116,40,115,41}),G2,dx+xa+8,dy+ya5,2,Red);LINE_P(G2,dx-1,dy,dx1,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:=120yy(i)*Fe_Y;x2:=dhT(i+1,1)*Fe_X;y2:=120yy(i+1)*Fe_Y;LINE_P(G2,dx+x1,dy+y1+10,dx+x2,dy+y2+10,Blue);LINE_P(G2,dx+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+y 2+10+1,Blue);END;x:=0;y:=0;ffllq9(dy,H,x,y,Gi,sa,TxTb);END;pxtrf9()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:=f fllq3(1,{CHAR({77,101,116,114,97,100,111,45,67,97,114,103,97,115}),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,AzulTit,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,1 01,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),CHAR({68,101,11 4,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,5 1,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,5 1,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,5 1,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,5 1,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,5 1,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,1 01,108,101,114,97,99,105,111,110}),CHAR({84,111,114,115,105,111,110}),CHAR({68,101,11 4,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,5 1,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,5 1,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,5 1,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,5 1,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,5 1,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,5 0,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,5 0,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,5 0,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,5 0,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,5 0,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,5 0,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},{32 0,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({77,69,84,82,65,68,79,32,68,69,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=="3CD62400KQ" 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,111,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,3 2,40,107,103,102,41}),G2,dx,dy,2,Blue);dy:=dy+40;zvfgk10(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({6 5,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;T EXTOUT_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,dx,dy,2,Blue);zvfgk10(G2, CMT,dx+5,dy+35,3,{CHAR({80,105,115,111}),CHAR({67,77})},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({49,46,49,4 5,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,1 15,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*(rtyh2+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,dy20,2,AzulTit);dy:=dy+20;dx:=5;TEXTOUT_P(CHAR({51,45,80,101,115,111,32,112,97,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,{CHA R({80,105,115,111}),CHAR({67,77}),CHAR({37,32,67,86})},AzulTit);TxTb:=CHAR({74,55,5 1,53,48,51,81});dy:=dy+(18*(rtyh2+1));x:=0;y:=0;dt:=nx+ny;dy:=dy240;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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{3 20,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,White);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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);dy:=dy+30;TEXTOUT_P(CHAR({49,4 6,49,45,82,105,103,105,100,101,122,32,76,97,116,101,114,97,108}),G2,dx,dy,2,Blue);dx:=dx+7 0;rx:=CHAR({118,101,114});ffllq10(G2,""+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);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+15,2,Azul Tit);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+15+dyy,2, Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,45,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+15,2,Azul Tit);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,dy+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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{3 20,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,White);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;TEXT OUT_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+30,3,RedA);dy:=dy+30;rx:=CHAR({118,101,114});TEXTOUT_P(CHA R({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+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,"",C on,Blue,0,"");dy:=dy+15*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,46,50,45,70,114,101,99,117,1 01,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),G2,dx,dy+15,2,Blue);ffllq 10(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}),"",CHAR({32,84,32,40,115,41})},AzulTit);dy:=d y+(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,AzulTit);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,CHAR({32} ),1,"г"+dir);dy:=dy+(15*(rtyh2+1))+20;TEXTOUT_P(CHAR({53,45,65,99,101,108,101,114,97, 99,105,111,110,32,101,115,112,101,99,116,114,97,108}),G2,dx,dy+15,3,RedA);dy:=dy+15;ffllq 10(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;TEXT OUT_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}),CHAR({32,67,32}),CHAR({ 83,97,32,40,109,47,115,50,41}),CHAR({67,47,82})},AzulTit);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,a nchoG4,altoG4);varcaq(Tipp);oligft116(nb);Atytz12(Tip);Atytz17(Tip);Atytz16();Atytz(Tip);At ytz14(Tip,MC,esc);Atytz15();TactilAtytzad20();TactilAtytzad21();oligftq10(Rg);TactilR2(Rg);e jx:=Titl(12);Tactilaxsdcerf(Tip);mvre(w,h);Atytzad25();TactilMR();DxxwElem(TD,NBa);oligft 125(cxi,cyi,TipC,nf,nc,alf,anc,Colr1,Colr2,mat,Tfu,Tc,Tf);DatsIn:=Titu7(26);Col1:=RGB(0,51,1 02);Col2:=RGB(51,102,153);Col3:=RGB(51,102,204);Col4:=RGB(0,51,153);Col5:=RGB(0,0,1 53);h(Tip);Col6:=RGB(0,0,204);Col7:=RGB(0,0,10);Col8:=RGB(0,102,102);Col9:=RGB(0,1 02,153);Col10:=RGB(0,153,204);Col11:=RGB(0,102,204);Col12:=RGB(0,51,204);Col13:=RG B(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);Col 19:=RGB(0,204,255);Col20:=RGB(0,153,255);Col21:=RGB(0,102,255);Col22:=RGB(51,102,2 55);Col23:=RGB(51,51,204);Col24:=RGB(102,102,153);Col25:=RGB(51,153,102);Col26:=RG B(0,204,153);Col27:=RGB(0,255,204);Col28:=RGB(0,255,255);Col29:=RGB(51,204,255);Col3 0:=RGB(51,153,255);Col31:=RGB(102,153,255);Col32:=RGB(102,102,255);Col33:=RGB(102, 0,255);Col34:=RGB(102,0,204);Col35:=RGB(51,153,51);Col36:=RGB(0,204,102);Col37:=RG B(0,255,153);Col38:=RGB(102,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:=R GB(153,51,255);Col45:=RGB(153,0,255);Col46:=RGB(0,102,0);Col47:=RGB(0,204,0);Col48:= RGB(0,255,0);Col49:=RGB(102,255,153);Col50:=RGB(153,255,204);Col51:=RGB(204,255,25 5);Col52:=RGB(204,204,255);Col53:=RGB(204,153,255);Col54:=RGB(204,102,255);Col55:=R
GB(204,51,255);Col56:=RGB(204,0,255);Col57:=RGB(153,0,204);Col58:=RGB(0,51,0);Col59: =RGB(0,153,51);Col60:=RGB(51,204,51);Col61:=RGB(102,255,102);Col62:=RGB(153,255,15 3);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,105});Mo2: =zsc7;PD2:=zsc12;Sa2D:=zxp5;FMo2D:=zxp7;VMo2D:=zxp9;VFR:=zxp11;VBmin:=zxp15;V B2D:=zxp13;qe:=zxp17;qi:=zxp19;DP3D:=ixpr1;ELSE RL2D:=zsc4;CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ry:=CHAR({115,105});Mo2: =zsc8;PD2:=zsc12;Sa2D:=zxp6;FMo2D:=zxp8;VMo2D:=zxp10;VFR:=zxp12;VBmin:=zxp15;V B2D:=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},{32 0,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,White);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({40,51,47,51,41}),G2,292,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({54,45,70,117,101,114,122,97,115,32,76,97,116,10 1,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,99,105,11 1,110,32})+DIR,G2,dx+5,dy+15,2,AzulTit);tlitg10(G2,FMo2D,50,dy+50,2,AzulTit,1,CHAR({1 16,110,102}),0,"",Con,Blue,0,"");TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+30+(15*(rtyh 2+1));TEXTOUT_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+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:=aa1;END;tlitg10(G2,VMo2D,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,DarkBlue, 1,CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,117,108,111,32,1 00,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,117,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,"",7 0,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,dy+50,3,AzulTit,0,CHAR({116,1 10,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,70,32,40,116,110,102,41})},DarkBlue,1,CoF);dy:=dy+15*(rtyh2+2)+ 45;dx:=dx+25;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*HH H},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+ 1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,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);TEXTOUT_P("▶
",G2,dx+ecx*VFR(aa,2),dy+ecy*HH11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dy:=dy+vg+25;sx:=rx+ry;dx:=5;TEXTOUT_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,1 10,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,105,109,111}),G2,dx,dy+15,2,Blue);dy:=dy+15;f fllq10(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;TEXTO UT_P(CHAR({86,109,105,110,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,110,102}),G2,10 0,dy+45,3,AzulTit);dy:=dy+45;TEXTOUT_P(CHAR({57,46,50,32,86,101,114,105,102,105,99, 97,99,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})+V m80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_P(CHAR({67,117,1 09,112,108,101,32,99,111,110,32,108,97,32,99,111,110,100,105,99,105,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);E LSE TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(jliu1+CHAR({32,32,60,32,32})+V m80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXTOUT_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,Azu lTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,48,45,68,101,115,112,108,97,122,97,109,105,1 01,110,116,111,32,101,108,97,115,116,105,99,111,32,101,110,32,101,108,32,67,77,32,40,99,10 9,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",125,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))+3 0;TEXTOUT_P(CHAR({49,49,45,68,101,115,112,108,97,122,97,109,105,101,110,116,111,32,1 05,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,11 1,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,qi,50,dy+60,2,AzulTit,0,CHAR({32}),1 ,CHAR({113,105})+dir);dy:=dy+30+(15*(rtyh2+1))+30;TEXTOUT_P(CHAR({49,50,45,67,11 1,110,116,114,111,108,32,100,101,32,68,101,114,105,118,97,115,32,100,101,32,112,105,115,11 1}),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,105,115,1 11}),100,dy+26,55,AzulTit);dy:=dy+50;TEXTOUT_P("➧"+CHAR({68,105,114,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}),"",CHAR({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),DP3D(1,3))*1 00;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,dx+0.4*ec x*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,dy10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,115,111,1 15}),G2,dx35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR({48}),G 2,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+vgccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-ccy1.5},{dx+ccx+1.5,dy+vgccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+vgccy+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,NomElem,Gr,Colr);WN ;WB;NBarra:=1;NNudo:=1;Long;bdx:=25;bdy:=25;VecC:={};Datsbmq111:={};DAp:={};DCg B:={};DCgN:={};Eqx:=toq({ncap(5)});L0G;L1G;L2G;L3G;L4G;L5G;L6G;L7G;L8G;L9G;L10 G;L11G;M0G;M1G;M2G;M3G;M4G;M5G;M6G;M7G;M8G;M9G;NG;BG;Datsbmq111G;MC; Eqy:=toq({ejx(2)});Col63:=RGB(204,255,204);Col64:=RGB(255,255,255);Col65:=RGB(255,2 04,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);Col7 3:=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:=RGB(51,51, 0);Col84:=RGB(102,153,0);Col85:=RGB(153,255,51);Col86:=RGB(204,255,102);Col87:=RGB (255,255,153);Col88:=RGB(255,204,153);Col89:=RGB(255,153,153);Col90:=RGB(255,102,15 3);Col91:=RGB(255,51,153);Col92:=RGB(204,51,153);Col93:=RGB(153,0,153);Col94:=RGB( 102,102,51);Col95:=RGB(153,204,0);Col96:=RGB(204,255,51);Col97:=RGB(255,255,102);Col 98:=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,102);Col104:=RGB(153,153,10 2);Col105:=RGB(204,204,0);Col106:=RGB(255,255,0);Col107:=RGB(255,204,0);Col108:=RG B(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(153,102,51);Col114:=RGB(204,153,0);Col115:=RGB( 255,153,0);Col116:=RGB(204,102,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);C ol123:=RGB(204,51,0);Col124:=RGB(153,51,0);Col125:=RGB(153,0,0);Col126:=RGB(128,0,0 );Col127:=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(19 1,191,191);Col134:=RGB(179,179,179);Col135:=RGB(166,166,166);Col136:=RGB(153,153,15 3);Col137:=RGB(140,140,140);Col138:=RGB(128,128,128);Col139:=RGB(115,115,115);Col14 0:=RGB(102,102,102);Col141:=RGB(89,89,89);Col142:=RGB(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 89504E470D0A1A0A0000000D494844520000001A000000960803000000F7E6685F00000054 504C5445FFFFFFC0DCC0A0A0A4808080C0C0C0FFFBF0606080A0C0C080A080806080A0 A080A6CAF00000008080C04020006060C0404080A0A0C04020806060402020400000402000 40A080C08060C080A0C0E020404040409A5A7DA20000001C74524E5300000000000000000 0000000000000000000000000000000000000003A2359AE000001DB494441547801ED958B6
EC3200C4563B0B307F4B526DDD6FDFF7FCE26A140822B358BB6A9DB95A2A29E181CB 836CD0F09001462ACB5A8126B41477823222186AAF985A81AC2406A6C5889D54ED9834 D229594CC142467654CCEE62432B066A6FAF7DDA174B3C9619A7A8C6E9BC101E64644 8F82AEAC052AA931BA1C302831AC27D0C8248E26A6012526677312D9305B32705EB804 C50661B6C9C30E99622B215FEB794445498F69D4D0300716F946CB131A934E17B81CB26 228EBE28F54495D0438D3B821A41AA021B336AAAC958E0FD9347C9AF4086C001EE6FE 0A04789EF0524188A7006ED61293172DA4270EFFF52DC2F92D1577DFE806581F99D4B6C 6E1A58B8885D8A82159CE0D4DDEBE30CC1AFA0E519AB044A6A136B5510A9D07A5B7 A18C28B525BDF4B82CA1454E83DBA9E11FA0FC6A115B73A3E3F4E4071311C347DFCB 0B99E749CC4EDC16E5BAE454EEADE939BF51D17621A22568A7DD27CEFABDA32A247 768B72F9B123AA90E76133FC7AEDBE5D7D7C1FBFED4F57DDF89F679987BDD9FDE1C B941E58CBC8CEF5C3D3D2277F4AD533E8B36DBF5B777FAD7A508FC7B1C45E4E78AA 8727134BF52A8D75C155110A34139BAF2BD937EB25AF6E775D159A4B3256B2D11F90F7 B0B1ACF82D1EC5048F1A720DBE6FA9A3F3F01D2051491028558CB0000000049454E44A E426082;ICON ApEm2 89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060000000F 504C5445848484FFFFFFB5B5B5373737B6B6B664F85B5E0000000574524E530000000000C 26B06B10000009D494441547801CD93DB0D80200C459109282E00372E60D8C0B8FF4C3E9 06AA1463EED4D881FC77272A366F0C04C5F3302914CE86541C6DB4E364443E875B0956F E2473F9414D655BE371B386FBECCCAB5AA2FB3E0898AEF98781476B97CA774ACDBDF 01D6F5386B765FB35CBE0F368FCA66DF37365F52D8EC3B9DBE92BDE567A55FC9CAB2 9B7E5D2C5159D1AFE5A8ECB3DF666DCDBA5F7CBFD4FDBFB90D8A7F543628B8E12D 0000000049454E44AE426082;ICON Resorte 89504E470D0A1A0A0000000D4948445200000029000000490803000000974AFF9E00000156 504C5445FFFFFFC3BEEA1416047E77BE7F7F7FC3BEF22122137D75D0000000C2BEF17D 76D6C3C3C37092BEC8BFE7C1BFF17C77D4F1EFFF7A7CD2222113BEBEF1C1C0F17C78 D6F2EFFF7B7DD1BCBEF1C1C2EF1C1C076E69DCF6F1FFF1EEFF7A79D2222212C0C0F7 C0C2FB72739D0C0C0C434168ADA8EFE8E1FFF4EFFF8787D62020137B7BBEDEDFFFE4 E8FFB5B6FFA2A0D657567A1C1C10312D6E8881D9D9D4FFE5E3FFCED1FF53539D00001 D585859A8A7EEE4E4FFEEEEFFB4B0ED8C8A9F93929F9292999090958E8F959394978D8 D9F8382948B8B846162541B1A2815143B6B67B2E3E1F7EFF4FFE0E4FF9FA0FF2C2A5B94 93B2BBB9FFEEEBFF9792C0171711000028100D3E12113C0F0F370D0D310F0F3011113412 12371D1B3F1311294F4C71EBE7FFEAE7F7D9D3FBD0CBFFD4D0FFCECCFFCDCDFFCC CEFFCBCFFFCDD1FFDCDDFFC5C0FF726AFF100E31353361918DD6CCC7FC5757573F48 CC47ED5ED90000007274524E530000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000CD073F7D00000304494441547801ED955757EA401485A317E3D 044020A0252A448B18152941A9A3445AA284A55B0502EFFFFE52601B2920C02BEDFFDC 2CCCEB7C864CE9E33C85C1B9B7FE83182F060D1CFB6D06D060960D1CFF8A880410A67 1201F17C483FDB4125BB08242926833C39BAB70F930A4C0979072AB5E61072B53A3DE41 98E8C26B3E598E35A6D7607973C393D3BBF70BA2EAF58AEDBE3F55DDFF867B3403014 8EE07834164F246F53E90C93CCE6EEEE41FEA1404D0AC5122857AA8FB5A7E77AEAE5B 5D1A4DC56BBD37D7BEFF53F3EBFBE07C3D19832C7A3E1E0FBEBF3A3DF7B7FEB76D A2DCA6C365E5F52F5E7A7DA63B55206A5E2EC5F1FF2E0FE2E9765BE36934EDD2613F1 5814C723E1503030B3FD37D73EAFC7CDFA96AB4B97F3E2FCECF484FBE90EBBCDCAB
18E2D6693F1C800EDA75EA785BC438D5A7500B94A4C0117737F0F9543A60C93C2E4AE0 4DDA127F350898108CA178208503E3D5E965904D946B7E8F1B27380207F363790FFFA8D7 840B80625043C065980814CB3B5801C17035CF02ADD68C36461540A72C9CBD46B0722FD 0F4310E280C7AEDB972E44DEE407E53087B43893A93788BC06DF95081B3C345F24EAEF 5CD2E1BBFFAAE24C6E775F633A8F3FF798A458A6D4DBBD779F8FF889E140BEC327B3 BB2D90ECA98D67B1A77ED66DD52AA4228A0418A6B379721FB5E8E9910A254490E48FE AE8345AFBC8796C3A0C031429922AB45677B6FF143B33AAF72402B2DF6FF177E407861 3FCF1F3CE6BD72B6562E6CEF79EE3E726CD3EAB85E3D5AF7B9F835BA3F77AE2C2CC E9CA91CA37B886AAF9964A3A2D9C1D0D9707F91B88ECBEDCBAB8CD3B04860F7E88E CBCA62EB9850F964605384BED46FA8A4B068AE305A96B35337040E7996527799948F2BF 7EADBFA4D6E244A456B2243721B58A25C0C9841AAD4209905EE744F4772548DC5B2B5 0F2DD08C111CB24D8A5E40C2497C942A1B84DC909793712E85A24D15200838413CC783 B75C92E21595F44B2BCC520B44BB3DB7BE1F161ED3CB15272C160E139A3CA3EADE66 45A4DDE0FE48284FC7C74A7A913D2F15876C859495EBF1BAC4D72C17FBEF3A96B92E E72B50000000049454E44AE426082;ICON ApSe 89504E470D0A1A0A0000000D49484452000000560000001504030000002EB404060000001E 504C5445C3C3C3FFFFFFFFFBF07F7F7F000000C0C0C0C0DCC0808080A0A0A4A0A0807 DC215480000000A74524E530000000000000000000073A018680000014B4944415478018DD 3CF6AC2401006F04D43C1A3A3A6F6E826081EB5035DAF85BC402CDBA44791D25ED3C 54E8EFE21CD5E7BF07DBBD14D14096DE634AB3F86F9960D73FC3E3EC17F35C0D94B97 DDB8AB3696D64AB28ED888365663CE12B1A7567371CC16B27F6107A16D6EA52DE69C6 CEA7B2C8246EBED6012C101263B3B37E5C6EA4034D815F2FD7A48DBE7293FD9AF6CC C24E9261BA3AF4A1B2B7ECEF64A647708EB32672F878F08327EFF5D6523C9221AD2F15 F40AA6A06200ACA883244D71C066148A92CB3D556109EEDB151E6A7CA82B1B2B62EC ECD28A2A2B625AF2C79265B6CF7BDD3304921599A55AF962FF7253AB004B5B50145057 9EA3310D1D5A5985669936D51BC5B3BC2A3DD06B86CB00FDAECDB1B5ADBD3DCFB 8184F7F2EBCB2E779895D9FCCAB2FA0D384D569AB78371AB773657F945B63FADEAA8 0D93A2D55C7C9C8E98F3D6F27BF3BBBFD9569D593180BD010000000049454E44AE4260 82;ICON ApSe1 89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330000001E 504C5445FFFFFF000000C3C3C3C0C0C0A0A0A4FFFBF0A0A080C0DCC07F7F7F80808029 8F6D7B0000000A74524E530000000000000000000073A0186800000154494441547801D5D23 16BC2401407F057D2D066339B6EA1ADE0188816B3498DD4DB8E122163A15F406807DDC 4A6F06E134C4BDEB76DE2DD85F8523F40FF93DC2FB9F7CF7950E7CA079BFBC8E42EE 0E42C200DE10DD20570DAA05C1E3D9A4DF792538CABB2A6B894E037E99D369CC3470 885BC7E0640B2D9D5A404154405E26807A808DB74FA59568B158D30AF1E23122DAA750 73709A40718AFAB2175DAA3330A0539E577A642DBD2167EC113CD325C737213E9BCC2 58BAF3E6DB2CDD35A71670FAD70956B7D86B2FF4D159EB4F1C8E36E734A0F8531FE78 37A52E7542C734D63B524F6D6F44BD324BAE5E44A4D2174090C25199B45DB85A688924 B351EAB2BC2CB1FCD86E491B99E757C7F404E686B74086C8DA843DEC1D688F92CFA3 1A78109A35C981A13B16584E9CCCC723D46655363D521676236445EA314F9A51A7B91E B7F3952ECAD3E6E869A82F7CEDD7065D05EF823BFFD587E6190342DD50000000049454 E44AE426082;ICON Marca 89504E470D0A1A0A0000000D4948445200000017000000170803000000D7F42492000001AA 504C54452B2A281B1A1836353417161522201E2A2927201F1D000000FFFFFFFDFDFD5F5E 5C0F0E0C2524222B29272322200E0D0B8E8E8DF7F6F6F2F3F3E0E0DE3E3E3C1413112726
242B2A2726252311100E4F4E4DF2F2F0FBFAF99F9E9ED1D0D0BFBFBD262524191816292 82628272532312FD2D1D00D0C0A555553F1F0F09F9E9C1E1D1B2E2D2B3736342C2B2993 9392F1F1F1ECECEC2A2926353432393836242321171614757572FCFDFDF3F4F47B7A792D 2C2AD7D7D6FCFCFC21201E3837356564620605038F8E8B5A5959181715C8C8C7CECECD 08060422211E1D1C1A9D9C9B898886100F0D555554242320AFAEAF333230959493EFF0F0 15141112110FB3B2B20E0D0A1312101514120807058A8988E6E6E6DFDEDEE3E3E2CDCC CCE3E3E3DFDFDEEFEFEFFEFEFE7E7D7C828180828281838281C0C0BF1716131D1C198 F8E8DADACAD3534313433310A0806CDCDCCE3E2E20C0B085959572625227C7B795757 56ACABAAE9E9E941403F4141408D8C8A161513A7A6A51A19172524216A6A6871706F29 28258D8C8BC9C9CA949391D7D7D7959593F8F8F8484745BEBEBE282624444442D3D2D1 B5B5B31C1C1A30D3EB870000008E74524E5300000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000841156850000016049444154780165D1F757E2401007F0450D3B7207582E10F 550D96003391112152C57B060458982A262EFBD37EC9EDDFFD95D547881F969F7332F937 9FB45A9D26465E77028AD382DC690ABFBF65DD5D11B8C7938BF00A0F0076F4A76CC42 517109E09F965200282BB712331B4044ABAD8202D692CAAA6A7AA8B1DA09871CB5CE5 F50072EA8773B3C92DCE082C626AFCF8738B919A04507D02AB489D26FED9FBFF4937F0 684FCEDD0D18901BA442717E8869E5E1EA0AF3FE10338C8DC430283301452923E2C531F 096B22A363100DF16A1F9F988C4D4D67F80C7C94CAD9FCD9B9F905EF62A62F2D0B766 545E5AB788DEDB3CED17DA2FCC6A76FC216DADE815D31C83C86F700F6A9072CF46F0 77CC4496CCC0FA3F47A24D097938FD9F144B1BB4DA7836CA5B3B89478E773E305BB5E 86AFF035C08DCF4F9261856F69E30EF0FFFB0725150C42242E3DB20C6C11292DE227FEF 9E5150B5C46F27AE94DF33518A17709CF49AFB792BAC30000000049454E44AE426082;IC ON ApEm 89504E470D0A1A0A0000000D49484452000000340000002A04030000000E8A65330000000F 504C5445FFFFFF373737B5B5B5848484B6B6B6A66EB3660000000574524E530000000000C 26B06B10000008F494441547801D591610AC3200C859DBB80191EA0A41E407A84E2FDCF 545A62CC92C87E7563EF41097CD80F6338F380C089B5D7A095AB913A24117296009CA4 D1F92D6DBF6607F5F9336ACD4552ADD085130D1B57A3E7D26B903D347EF8CFA911F1E D1E2F449A5607D162E26651DF0C5A44FB745DF54BAE2C5D05C6E30164E93268B80C1A AEF2B37BDDE80A73D73C07A2AA2C018B76DC770000000049454E44AE426082;ICON AE 89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD20000000 9504C5445F2F2F2FFFFFF000000856950AA0000000374524E53000000FA76C4DE0000003A 494441547801458BB10940211043E30EAEA085F35C61794B1D88554A714AC3FFA00FF248 914064251936DBFA155E3A26EB40F03697DE44D8F73D495C120944FBDAB700000000494 54E44AE426082;ICON AE2 89504E470D0A1A0A0000000D494844520000000F0000000D02030000000B70DCD20000000 9504C5445000000EFEFEFF2F2F28390F6460000000374524E53000000FA76C4DE000000344 9444154780145C9210E00200C43D10A0E500462B799005F31EE7F159689F1C54B93E27765 91AC8093034773C3D58B49BD45F700FB0F07BEEE850B540000000049454E44AE426082;R g1:={};Rg2:={};Dats:={};Regs:={};LEcu:={};LDis:={};LApDia:={};ec;Zx;Zy;OriCarga;Ndas: =hcl(DatsIn);Pe;cnP;TSec;Elas;TApEm;TApSe;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:={};EXPORT 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:={};LEcu2:={};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:=ASC(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:=cy5;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,3,White);TEXTO UT_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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170qwr2*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,76,97,116,
101,114,97,108}),G2,dx,dy,2,Blue);dx:=dx+70;lx:=CHAR({118,101,114});ffllq10(G2,"ixpr5=" +CHAR({32}),dx+20,dy+14,140,27,AzulTit);llfft10(G2,CHAR({75}),CHAR({65,65}),dx+50,d y+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);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,A zulTit);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+15+dyy,2, Blue);pxtrf10(G2,xpre11(k),60,dy+45+dyy,2,AzulTit,1,CHAR({116,110,102,45,109}),0,"");dyy :=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,1 11,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;TEXTOUT_P(CHAR({49,46,5 0,45,77,97,116,114,105,122,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,1 10}),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("➧"+CHAR({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,AzulT it,1,CHAR({109}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR( {68,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(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,dy+45+dy y,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,111,111,114,100,101,110,9 7,100,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,2,Blue);ffllq10(G2,"",110,dy+15,115,2 3,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);TEXTOUT_P(CHAR({40,4 9,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,101,32,11 4,105,103,105,100,101,99,101,115}),G2,dx,dy,3,RedA);LOCAL x0:=170qwr2*qwr5/2,y0:=117.5+qwr3*qwr5/2;dy:=dy+18;TEXTOUT_P(CHAR({49,46,49,45,82,105,1 03,105,100,101,122,32,76,97,116,101,114,97,108}),G2,dx,dy,2,Blue);TEXTOUT_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,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({10 9}),0,"");dyy:=dyy+(rtyh2+3)*15;END;dy:=dy+dyy;TEXTOUT_P("➧"+CHAR({68,105,114,10 1,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(64+k),G2,dx+15,dy+15+dyy,2,Blue);pxtrf10(G2,xpre15(k),50,dy+45+dyy,2,AzulTit,1,C HAR({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,100,101,110,97,100,97,115,32 ,100,101,32,112,105,115,111}),G2,dx,dy,2,Blue);ffllq10(G2,"",110,dy+15,115,23,AzulTit);dy:= dy+25;pxtrf10(G2,ixpr5,50,dy+35,2,AzulTit,1,CHAR({116,110,45,109}),0,"");dy:=dy+50;END; ffllq9(dy,H,x,y,Gi,e,TxTb);END;llfft9(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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=1000;DIMGROB_P(G2,H,V);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P("",G2,45,1.5,3,White);TEXTO UT_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,100,101,3 2,77,97,115,97}),G2,dx,dy,3,RedA);TEXTOUT_P(CHAR({50,46,49,45,77,97,115,97,32,116,11 4,97,115,108,97,99,105,111,110,97,108}),G2,dx,dy+15,2,Blue);ffllq10(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,Azul Tit);dy:=dy+60;pxtrf10(G2,ixpr8,50,dy+40,2,AzulTit,1,CHAR({116,110,102,47,103,42,109,50} ),0,"");dy:=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,32,112,105 ,115,111}),G2,dx,dy+15,2,Blue);pxtrf10(G2,ixpr6,50,dy+40,3,AzulTit,1,CHAR({116,110,102,4 5,115,50,47,109}),0,"");dy:=dy+15*3*(rtyh2+1)+15;TEXTOUT_P(CHAR({51,45,80,114,111,1 12,105,101,100,97,100,101,115,32,68,105,110,97,109,105,99,97,115}),G2,dx,dy,3,RedA);TEX TOUT_P(CHAR({51,46,49,45,77,111,100,111,115,32,100,101,32,118,105,98,114,97,99,105,11 1,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({32}),1," Φ ",Con,Blue,0,"");dy:=dy+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({51,46,49,45,70,114,101,99,1 17,101,110,99,105,97,115,32,121,32,112,101,114,105,111,100,111,115}),G2,dx,dy+15,2,Blue);f fllq10(G2,"",100,dy+35,130,23,AzulTit);dy:=dy+50;zvfgk10(G2,ixpr11,50,dy+55,3,{CHAR({6 9,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));TEXTOUT_P(CH AR({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,3,RedA);ffllq10(G2,CHAR({32}),120,dy+20,85,43,Azul Tit);TxTb:=CHAR({74,55,51,53,48,51,81});yyhte10(G2,CHAR({114,61,32}),"",100,dy+26,52, AzulTit);dy:=dy+65;TEXTOUT_P(CHAR({52,46,49,32,68,105,114,101,99,99,105,111,110,32,1 00,101,32,97,110,97,108,105,115,105,115}),G2,dx,dy+15,2,Blue);TEXTOUT_P("➧"+CHAR({6 8,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G2,BB,50,dy+5
5,2,AzulTit,0,CHAR({32}),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,11 0,32,109,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=="3CD62400KQ" 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,AzulTit,0,CHA R({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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,51,47,53,41}),G2,2 92,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({53,45,65,99,101,108,101,114,97,99,105,111,110,3 2,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);d y:=dy+65;TEXTOUT_P("➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,d y+15,2,AzulTit);zvfgk10(G2,TAS,50,dy+55,3,{"ixpr9",CHAR({84,32,40,115,41}),CHAR({32,6 7,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);ffllq10(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,101,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));TEXTOUT_P(CHAR({55,4 5,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,114});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:=aa1;END;tlitg10(G2,VMo,50,dy+50,2,AzulTit,1,CHAR({116,110,102,32}),0,"",Con,DarkBlue,1, CoF);dy:=dy+50+(15*(rtyh2+1));TEXTOUT_P(CHAR({56,45,67,97,108,99,117,108,111,32,10 0,101,32,108,97,32,99,111,114,116,97,110,116,101,32,121,32,102,117,101,114,122,97,32,114,1 01,115,117,108,116,97,110,116,101,32,67,81,67,32,40,116,110,102,41}),G2,dx,dy,3,RedA);ffllq 10(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,dy+50,3,AzulTit,0,CH
AR({116,110,102}),0,"",{CHAR({67,111,114,116,97,110,116,101,32,86}),CHAR({70,117,101, 114,122,97,32,70})},DarkBlue,1,CoF);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+15*(rtyh 2+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*HH H},RedA,PlomoA);TEXTOUT_P(VFR(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+ 1,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,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);TEXTOUT_P("", G2,dx+ecx*VFR(aa,2),dy+ecy*HH11,5,RedA);TEXTOUT_P(VFR(aa,2)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115}),G2,dx+10,dy+vg+5,2,DarkBlue);dx:=5;yyhte7;dy:=dy+50;ffllq9(dy,H,x,y,Gi,e,TxTb);E ND;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=1500;H:=2000;DIMGROB_P(G2,H,V);RECT(G2) ;RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,52,47,53,41}),G2,2 92,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({57,45,67,97,108,99,117,108,111,32,100,101,32,10 8,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,116,111,32,100,101,32,116,111,114,11 5,105,111,110,32,97,99,99,105,100,101,110,116,97,108}),G2,dx,dy+15,2,Blue);ffllq10(G2,"",10 0,dy+35,95,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,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(CHAR({57,46,50,32,71,105,114,111,115,32,112,111,114,32,116,111,114,115,10 5,111,110,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+3 0,2,AzulTit);qTA:=list2mat(qTA,1);pxtrf10(G2,qTA,60,dy+60,2,AzulTit,1,CHAR({114,97,100} ),1,CHAR({81})+dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_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,d x,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(Con,Col);E ND;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,AzulTit);tlitg10(G2,qPor,65,dy +60,2,AzulTit,1,CHAR({109}),1,"qT"+dir,Con,DarkBlue,1,CoF);dy:=dy+30+(15*(rtyh2+2));T EXTOUT_P(CHAR({57,46,52,32,70,117,101,114,122,97,115,32,108,97,116,101,114,97,108,32, 101,110,32,99,97,100,97,32,112,111,114,116,105,99,111,32,112,111,114,32,116,111,114,115,10 5,111,110,32,97,99,99,105,100,101,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,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G2,FPTA,60,d y+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({57,46,53,32 ,70,117,101,114,122,97,115,32,101,110,32,67,101,110,116,114,111,32,100,101,32,77,97,115,97, 32,112,111,114,32,116,111,114,115,105,111,110,32,97,99,99,105,100,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,32})+DIR,G2,dx+5,dy+30,2,AzulTit);pxtrf10(G 2,FTA,60,dy+60,2,AzulTit,1,CHAR({116,110,102}),1,CHAR({70,84,65})+dir);dy:=dy150;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:=ixpr12;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;qi:=jliu10;DP3D:=jliu12;M odd:=ixpr19;ELSE CNG:=rtyh8;dir:=CHAR({121});DIR:=CHAR({89});ly:=CHAR({115,105});BB:=ixpr13;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:=6000;H:=320;DIMGROB_P(G2,H,V);RECT(G2); RECT_P(G2,{0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({40,53,47,53,41}),G2,29 2,19,2,AzulTit);LOCAL dx:=5,dy:=30,dyy:=0;TEXTOUT_P(CHAR({49,48,45,70,117,101,114,122,97,32,108,97,116,10 1,114,97,108,32,116,111,116,97,108,32,101,110,32,67,101,110,116,114,111,32,100,101,32,77,9 7,115,97,46}),G2,dx,dy,3,RedA);ffllq10(G2,"",120,dy+20,70,23,AzulTit);dy:=dy+20;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);tlitg10(G2,FT,50,dy+60,3,AzulTit,1,CHAR({116,110,102}),1,CHAR({7 0,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);TEXTOUT_P("▶ ",
G2,dx+ecx*FT(aa,1),dy+ecy*HH11,5,RedA);TEXTOUT_P(FT(aa,1)+CHAR({32,116,110,102}),G2,dx+5,dy+ecy*HH+118,3,RedA);HH:=HH+rtyh10(aa);aa:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({70,117,101,114,122,9 7,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,77}),G2,dx40,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,32}),G2,dx,dy,3,R edA);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+60,2,Azul Tit,1,CHAR({116,110,102}),1,CHAR({86})+dir,{CHAR({49})},PlomoA,1,CcoF);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+ecy*HH H},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:=aa1;END;RECT_P(G2,dx,dy,dx+2,dy+vg,DarkBlue);TEXTOUT_P(CHAR({67,111,114,116,97,11 0,116,101,115,32,84,111,116,97,108,101,115,32,101,110,32,101,108,32,67,77}),G2,dx20,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,105,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,10 5,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,110,32,61,32})+(tlitg2(VBmin,3))+CHAR({32,116,1 10,102}),G2,100,dy+45,3,AzulTit);dy:=dy+45;TEXTOUT_P(CHAR({49,50,46,50,32,86,101,11 4,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})+V m80+CHAR({32,40,111,107,41}),G2,dx+30,dy+45,3,AzulTit);TEXTOUT_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);ELS E TEXTOUT_P("",G2,dx+10,dy+30,3,AzulTit);TEXTOUT_P(VB+CHAR({32,32,60,32,32})+V m80+CHAR({32,40,102,97,108,108,97,41}),G2,dx+30,dy+45,3,RedA);TEXTOUT_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,Azu lTit);END;dy:=dy+80;TEXTOUT_P(CHAR({49,51,45,68,101,115,112,108,97,122,97,109,105,1 01,110,116,111,32,101,108,97,115,116,105,99,111,32,101,110,32,101,108,32,67,77,32,40,99,10 9,41}),G2,dx,dy,3,RedA);ffllq10(G2,"",125,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);LOCAL qeex:=list2mat(qe,1);pxtrf10(G2,qeex,50,dy+60,2,AzulTit,0,CHAR({32}),1,CHAR({113,101}) +dir);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,52,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("➧"+CH AR({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})+di r);dy:=dy+30+(15*3*(rtyh2+1));TEXTOUT_P(CHAR({49,53,45,67,111,110,116,114,111,108,3
2,100,101,32,68,101,114,105,118,97,115,32,100,101,32,112,105,115,111}),G2,dx,dy,3,RedA);ff llq10(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,105,115,1 11}),100,dy+26,55,AzulTit);TxTb:=CHAR({74,55,51,53,48,51,81});dy:=dy+50;TEXTOUT_P(" ➧"+CHAR({68,105,114,101,99,99,105,111,110,32})+DIR,G2,dx+5,dy+30,2,AzulTit);tlitg10(G 2,DP3D,50,dy+60,3,AzulTit,0,CHAR({32}),1,"Δ"+dir,{CHAR({113,105,45,49,45,113,105}),"Δ Deriva",CHAR({76,105,109,105,116}),CHAR({86,101,114,105,102})},DarkBlue,1,CoF);dy:=d y+55+(15*(rtyh2+2));LOCAL MaxDer:=SUB(DP3D,{1,2},{rtyh2,2}),Mmm,dist;Mmm:=MAX(MAX(MaxDer),DP3D(1,3))*1 00;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,dx+0.4*ec x*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,dy10,1,RedA);RECT_P(G2,dx,dy,dx+1,dy+vg,PlomoA);TEXTOUT_P(CHAR({80,105,115,111,1 15}),G2,dx35,dy,2,Blue);RECT_P(G2,dx,dy+vg,dx+dist,dy+vg+1,PlomoA);TEXTOUT_P(CHAR({48}),G 2,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+vgccy},DarkBlue);xx0:=dx+ccx;yy0:=dy+vg-ccy;RECT_P(G2,{dx+ccx-1.5,dy+vg-ccy1.5},{dx+ccx+1.5,dy+vgccy+1.5},DarkBlue);ttt:=tlitg2(DP3D(j,2),3)*100;TEXTOUT_P(ttt,G2,dx+ccx+5,dy+vgccy+2,1,DarkBlue);END;dx:=5;dy:=dy;x:=0;y:=0;yyhte7;ffllq9(dy,H,x,y,Gi,e,TxTb);END;ldljtr 9(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(G2,{0,1},{ 320,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({82,69,83,85,76,84,65,68,79,83,32,65,78,65,7 6,73,83,73,83,32,68,73,78,65,77,73,67,79,32,51,68}),G2,45,1.5,3,White);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},{320,dy+35} };RECT_P(R_TTA(1),R_TTA(2),AzulM);TEXTOUT_P(CHAR({32,67,65,76,67,85,76,79,83,3 2,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,d y+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,65,76,32,5 1,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_Mo3D(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,65,76,32,5 0,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_Mo2D(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}};IF 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_Es3D(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,65,84,73,6 7,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_Es2D(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,68,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,8 2,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_AIs(1,2),5,AzulA);END;LO CAL 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,Az ulM);dy:=dy+128;TEXTOUT_P(CHAR({86,69,82,73,70,73,67,65,78,68,79,32,67,65,76,67,85,7 6,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,99,105,11 1,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,114,116,1
05,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,1 14,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,99,105,11 1,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,114,116,1 05,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);E ND;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,1 14,105,122,32,100,101,32,84,114,97,110,115,102,111,114,109,97,99,105,111,110}),130,dy,2,Az ulM);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,RedM);WAIT(tt);EN D;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;dfg4:=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(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,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;IFERR ixpr5:=ixpr3+ixpr4;RECT_P({130,dy},{320,dy+17},White);TEXTOUT_P(CHAR({77,97,116,1 14,105,122,32,100,101,32,82,105,103,105,100,101,122,32,101,110,32,67,46,80,46}),130,dy,2,A zulM);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,RedM);WAIT(tt);EN D;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,108,105,11 5,105,115,32,68,105,110,97,109,105,99,111,46,46,46}),130,dy,2,AzulM);ffllq8(xpe3,rtyh9,CHA
R({115,101}),CHAR({97,108}));RECT_P({130,dy},{320,dy+17},White);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;E ND;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,115,105,11 5,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,11 4,105,122,32,100,101,32,82,105,103,105,100,101,122,32,88,46,46,46}),130,dy,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,101,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,1 16,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,Azul M);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,108,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(t t);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,116,97,11 6,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,116,97,11 6,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,110,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
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;ELSE 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(dfg9)*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):=ΣLI ST(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:={};Nuevo:=1;v c:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M2;L0(6):=M3;REC T_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(2),85,108,1,Col 148);Datsbmq17();RECT_P(70,122,115,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOU T_P(lntx(3),115,108,1,Col148);RECT_P(70,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);RE CT_P(68,105,252,118,Col130);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);RE CT_P(70,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;IF T==3 THEN RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(1),115,108,1,Col148);L0:={};Nuevo:=1;v c:={};vc:=Datsbmq111;L0(1):=M0;L0(2):=M1;L0(3):=N;L0(4):=B;L0(5):=M2;L0(6):=M3;REC T_P(70,122,82,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(2),85,108,1,Col
148);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(70,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,Col130);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,Col 148);RECT_P(70,122,205,128,Col3);RECT_P(68,105,252,118,Col130);TEXTOUT_P(lntx(7),1 20,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();RSep();END;FCAE2 D()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(EV2Y(2),rtyh 9);zsc9:=ldljtr2(EV2X(1),rtyh9);zsc10:=ldljtr2(EV2Y(1),rtyh9);zsc11:=MAKEMAT(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):=zsc 10(j);zsc12(j,2):=sqrt(ABS(zsc12(j,1)));zsc12(j,3):=2*PI/zsc12(j,2);END;zsc11:=hdljt2(zsc11,rt yh9);zsc12:=hdljt2(zsc12,rtyh9);LOCAL bb,PA,Num,NUM_x:={},DEN_x:={},NUM_y:={},DEN_y:={};bb:=MAKEMAT(1,rtyh2,1);FO R 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*zsc 6*TRN(PA);DEN_x(j):=Num(1,1);PA:=TRN(SUB(zsc8,{1,j},{rtyh2,j}));Num:=PA*zsc6*bb;N UM_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)
zxp5(j,1):=j;zxp5(j,2):=zsc11(j,3);zxp5(j,3):=CDX(j);zxp5(j,4):=Sa_x(j);zxp5(j,5):=zxp1(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;zxp 5:=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(zxp7,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:=a1;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:=a1;END;END;zxp10:=hdljt2(zxp10,rtyh9);zxp10:=hdljt2(zxp10,rtyh9);zxp11:=MAKEMAT(0,rty h2,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;V 1:=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(rtyh2,1);z xp14:=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:=MAKE MAT(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(z xp18,4);zxp19:=MAKEMAT(0,rtyh2,1);zxp19:=0.75*tgh7*zxp17;zxp20:=MAKEMAT(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(j1,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;fldth8(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);ix pr11:=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;ixp r11:=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:=m1;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(ixp r9)*ixpr6*ixpr9);NUM_y:=(TRN(ixpr9)*ixpr6)*ixpr13;DEN_y:=diag(TRN(ixpr9)*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)
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):=ixpr1 5(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):=i xpr16(j);END;ixpr17:=hdljt2(ixpr17,rtyh9);ixpr18:=hdljt2(ixpr18,rtyh9);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(jks d1,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:=a1;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:=b1;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;V 1:=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;V 1:=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(jksd6,rtyh9); LOCAL CTAx,CTAy;CTAx:=llfft8(jksd5,pft4,qwr3,rtyh7,xpre14,xpre11,xpe3);jksd7:=CTAx(1);jksd7:=t dljt2(jksd7,rtyh9);jksd9:=CTAx(2);jksd9:=tdljt2(jksd9,rtyh9);jksd11:=CTAx(3);jksd11:=hdljt2(j ksd11,rtyh9);jksd13:=CTAx(4);jksd13:=hdljt2(jksd13,rtyh9);jksd15:=CTAx(5);jksd15:=hdljt2(j ksd15,rtyh9);CTAy:=llfft8(jksd6,pft5,qwr2,rtyh8,xpre15,xpre10,xpe3);jksd8:=CTAy(1);jksd8:=t dljt2(jksd8,rtyh9);jksd10:=CTAy(2);jksd10:=tdljt2(jksd10,rtyh9);jksd12:=CTAy(3);jksd12:=hdlj t2(jksd12,rtyh9);jksd14:=CTAy(4);jksd14:=hdljt2(jksd14,rtyh9);jksd16:=CTAy(5);jksd16:=hdljt 2(jksd16,rtyh9);LOCAL FF;jksd17:=MAKEMAT(0,rtyh2,1);FF:=SUB(jksd5,{1,2},{rtyh2,2});jksd17:=FF+jksd15;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:=(t
gh2*tgh4*jliu5*tgh3)/(tgh8)*abd6;jliu3(rtyh2+1,1):=jliu6;jliu3(rtyh2+1,2):=jliu7;jliu3:=hdljt2(jl iu3,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);FOR j:=1 TO xpe3*rtyh2 DO IF j
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(j2*rtyh2);END;END;qTA:=MAKEMAT(0,xpe3*rtyh2);qTA:=inv(ixpr5)*vMTo;Mat_A:=MAK EMAT(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:=RLX_Port*p i_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);LOCA L 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;ANESH();BREAK;EN D;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),(23225,16),(21825,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;Atytzad 23();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,Col128);TE XTOUT_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;NNudo:=1 ;Dats:={0,0,0};Atytzad20(0);NNudo:=100;Atytz16(0);ANESH();BREAK;END;IF 243<=touch(2)<=274 THEN OriCarga:=1;RECT_P(245,2,270,20,Col20);RECT_P(244,3,271,19,Col20);RECT_P(249,16,267 ,17,Col148);FOR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I1),246+I*4,16,Col118);TEXTOUT_P("▾ ",242+I*4,11,1,Col118);END;LINE_P(250,4,266,12,C ol118);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;FOR 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;IF 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();asd f1();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);RECT_P(70,1 22,250,128,Col3);awsde(320,220,30,30,320,240);PRes(1);ANESH();BREAK;END;END;END;I F 242<=touch(2)<=267 AND 210<=touch(3)<=240 THEN bdx:=bdx5;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+rtyh2;END;I F 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*rtyh2,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=="3CD62400KQ" THEN xpe9:=2.5*(xpe1*xpe2)/(xpe9*xpe9);END;END;xpe8:=tlitg2(xpe8,3);xpe9:=tlitg2(xpe9,3);END ;tlitg8()BEGIN rtyh9:=3;hdljt8(1);hdljt8(2);tdljt8();dshy11:=hdljt2(dshy11,rtyh9);EDITMAT(dshy11);ldljtr8(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(ds hy12,rtyh9);EDITMAT(dshy12,CHAR({77,111,100,111,115,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);EN D;dshy15:=hdljt2(dshy15,rtyh9);EDITMAT(dshy15,CHAR({80,114,111,112,105,101,100,97,10 0,101,115,32,68,105,110,97,109,105,99,97,115}));dshy17:=[1,0,0];dshy18:=[0,1,0];LOCAL NUM_x,DEN_x,NUM_y,DEN_y;NUM_x:=(TRN(dshy12)*dshy11)*dshy17;DEN_x:=diag(TR N(dshy12)*dshy11*dshy12);NUM_y:=(TRN(dshy12)*dshy11)*dshy18;DEN_y:=diag(TRN(dsh y12)*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);EDITMAT(dshy1 6);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)
1,109,97,32,97,105,115,108,97,100,111,32,99,97,100,97,32,109,111,100,111,32,32,89}));LOCA L 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,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,101,32,88}));EDITMAT(qry,CHAR({68,101,115,112,1 08,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,101,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}));EDITMA T(vry,CHAR({86,101,108,32,109,97,120,105,109,97,115,32,100,101,32,108,97,32,98,97,115,10 1,32,89}));LOCAL asx:=MAKEMAT(0,3),asy:=MAKEMAT(0,3);asx:=inv(TRN(dshy11))*(dshy14*vrx+dshy8*qr x);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,32,105,110,103,114,101,11 5,97,32,83,117,112,101,114,101,115,116,114,117,116,117,114,97,32,88}));EDITMAT(asy,CHA R({65,99,101,108,101,114,97,99,105,111,110,32,105,110,103,114,101,115,97,32,83,117,112,10 1,114,101,115,116,114,117,116,117,114,97,32,89}));ffllq7(3);ixpr6:=hdljt2(ixpr6,rtyh9);EDITM AT(ixpr6,CHAR({77,97,116,114,105,122,32,100,101,32,109,97,115,97,32,100,101,32,108,97,3 2,115,117,112,101,114,101,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}));E DITMAT(ry,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,89}));LOCAL FxAI:=[0],FyAI:=[0];FxAI:=ixpr6*rx*asx;FyAI:=ixpr6*ry*asy;FxAI:=tdljt2(FxAI,rtyh9);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:=tdljt2(qeAIx,r tyh9);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,C HAR({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:=tdljt2(qiAIx,rt yh9);qiAIy:=tdljt2(qiAIy,rtyh9);EDITMAT(qiAIx,CHAR({68,101,115,112,108,97,122,97,109,1 05,101,110,116,111,115,32,105,110,101,108,97,115,116,105,99,111,115,32,88}));EDITMAT(qi AIy,CHAR({68,101,115,112,108,97,122,97,109,105,101,110,116,111,115,32,105,110,101,108,9 7,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(j1);Dr_y:=qiAIy(j)-qiAIy(j1);END;lagr1(j,1):=Dr_x;lagr2(j,1):=Dr_y;lagr1(j,2):=Dr_x/rtyh10(j);lagr2(j,2):=Dr_y/rtyh10(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);EDITMAT(lagr1, CHAR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,120}));EDITMAT(lagr2,CH AR({68,101,114,105,118,97,32,100,101,32,112,105,115,111,32,121}));END;hdljt8(dfg4)BEGI N 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):=AC;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_Po rt)*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:=m1;END;END;ldljt8(Na,Nd)BEGIN LOCAL VD,TFrAI,aux,MAam:={},VI:=CHAR({114,105}),Rr;Rr:=zsc3;VD:=jjrtg7(dshy8,dshy11,VI,N d,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);aaa 2:=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,PlomoA,AzulTit,Fondo,AzulTit);CASE IF vv==1 AND aaa2=="3CD62400KQ" THEN hdljt1();END;IF vv==2 AND aaa2=="3CD62400KQ" THEN ldljt1();END;IF vv==3 AND aaa2=="3CD62400KQ" THEN fldth2();END;IF vv==4 AND aaa2=="3CD62400KQ" THEN zvfgk2();END;END;END;Lmnzx:={{"䳸䴖䴧䴜䴖䴨"," 䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖
","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭 䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚 䴖䴘䴘䴞䴤䴣䴚䴨"}};axsdcerfOpc1(cx,cy,anc,posf,pst,Lm,cont)BEGIN BLIT_P(G0,G5);LOCAL nf,PxEl;PxEl:=CHAR({47,43,45}+7);nf:=SIZE(Lm);RECT_P(cx1,cy1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);RECT_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);REC T_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*I1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I1)+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*(I1)+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:={};LOCAL bx,by,nxR_Cont:={},R_Acep:={};LOCAL dist,mx,my,ss,nx;RECT(Fondo);RECT_P({0,1},{320,17},DarkBlue,AzulTit);TEXTOUT_P(CH AR({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}),7 0,3,2,White);RECT_P({10,25},{137,100},DarkBlue,Fondo);TEXTOUT_P("",15,20,2,Black,90, Fondo);TEXTOUT_P("",15,35,2);TEXTOUT_P(CHAR({72,32,80,105,115,111,115,58}),15,55, 2);TEXTOUT_P(CHAR({72,32,84,105,112,105,99,97,58}),15,75,2);sx:=CHAR({114});R_NP: ={{75,352},{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:=CH AR({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,105,108,108,97,115}),R_EG(1,1)+3,R_EG(1, 2)+3,2);R_Acep:={{195,204},{255,222}};RECT_P(R_Acep(1),R_Acep(2),DarkBlue,Plomo);T EXTOUT_P(CHAR({65,99,101,112,116,97,114}),R_Acep(1,1)+8,R_Acep(1,2)+3,2);sy:=CHA R({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,105,115,111,115})}; REPEAT jjrtg3(rtyh1,R_NP,AzulTit,White);fldth3(STRING(rtyh3,1),R_HPP,AzulTit,White);fldth3(STRI NG(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);TEXTOUT_P(CHAR({80,105,11 5,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},{31 0,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);LIN E_P(145,195,145,195-20,Plomo);TEXTOUT_P(CHAR({121}),145+2,19525,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
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,yiHac+1},RedA);TEXTOUT_P(CHAR({80,105,115,111,32})+j,xf+5,yiHac,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,pst,Lm,co nt,Mnu1,Mnu2)BEGIN LOCAL nf;LOCAL PxEl;nf:=SIZE(Lm);PxEl:=CHAR({47,43,45}+7);RECT_P(cx-1,cy1,cx+anc,cy+20*nf,Col133);RECT_P(cx+3,cy+4,cx+anc+4,cy+20*nf+4,Col131);RECT_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);REC T_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*I1,Col11);TEXTOUT_P(Lm(I),cx+10,cy+20*(I1)+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*(I1)+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:={{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴙䴚䳕䴁䴞䴗 䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪 䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧 䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴅䴪䴣䴩䴤䴨䳕䴃䴤䴩䴖䴗䴡䴚䴨"," 䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨","䴉䴖䴗䴪䴡䴖䴘䴞䴤䴣䴚䴨"}};Lmns:={"䳺䴨䴩䴧䴪䴘䴩䴪䴧 䴖","䴅䴧䴚䳢䴅䴧䴤䴘䴚䴨䴖䴢䴞䴚䴣䴩䴤","䴂䴖䴩䴧䴞䴯䳕䴇䳣䳕䳺䴡䴚䴢䴚䴣䴩䴤 ","䴂䴖䴩䴧䴞䴯䳕䴇䳣䳕䳺䴨䴩䴧䴪䴘䴩䴪䴧䴖","䴂䴖䴩䴧䴞䴯䳕䴙䴚䳕䳻䴪䴚䴧䴯䴖 䴨","䳹䴚䴨䴥䴡䴖䴯䳣䳕䳛䳕䳼䴞䴧䴤䴨","䳻䴪䴚䴧䴯䴖䴨䳕䳾䴣䴩䴚䴧䴣䴖䴨","䳹䴞 䴖䴜䴧䴖䴢䴖䴨"};oligftq10()BEGIN LOCAL touch1,h1,h2,Lmns,rtc,Ancs,PyEl;Ancs:={130,135,100,90,80,70,70,120};Lmns:={};PyEl:=CHA R({59,59,86,92}-11);FOR H FROM 1 TO SIZE(Lmnsc)DO Lmns(H):=h(Lmnsc(H));END;LOCAL LmnsP;LmnsP:=h(Lmns);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*(h1rtc),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*(UV),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}};RECT_P(R_C ol(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),DarkBlue,AzulTit);TEXTOUT_P(CHAR({65,76,6 6}),R_Alba(1,1)+12,R_Alba(1,2)+25,3,White);R_AIs:={{0,180},{50,240}};RECT_P(R_AIs(1), R_AIs(2),DarkBlue,AzulTit);TEXTOUT_P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+25, 3,White);nx:=CHAR({114,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_vE,R_vCE,R_vCG,R_vO;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);wer f8:=tlitg2(werf8,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(CHA R({67,79,76}),R_Col(1,1)+12,R_Col(1,2)+35,3,Black);dx:=180;dy:=15;Lx:=100;Ly:=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,Ly,CHAR({67}),gpk5,gpk6,hfj q9);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,97}),dx+5,dy+7,2,Plomo);vy:=CHAR({97});LIN E_P(dx+5,dy+75-5,dx+20,dy+755,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+755,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({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({76,120,32,58}),10+dx,50+d y,2);TEXTOUT_P(CHAR({76,121,32,58}),10+dx,70+dy,2);R_vCB:={{30+dx,50+dy2},{75+dx,50+dy+14}};R_vCH:={{30+dx,70+dy2},{75+dx,70+dy+14}};fldth3(STRING(werf2,1),R_vCB,AzulTit,White);fldth3(STRING(werf3 ,1),R_vCH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx5,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+d x,130+dy,2);R_vCfc:={{35+dx,50+dy-2},{90+dx,50+dy+14}};R_vE:={{35+dx,70+dy2},{90+dx,70+dy+14}};R_vO:={{35+dx,90+dy2},{90+dx,90+dy+14}};R_vCE:={{35+dx,110+dy2},{90+dx,110+dy+14}};R_vCG:={{35+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(werf4,1),R_vCfc,AzulTit,White);fldth3(STRING(werf 5,1),R_vE,AzulTit,White);fldth3(STRING(werf8,1),R_vO,AzulTit,White);fldth3(STRING
(werf6,1),R_vCE,AzulTit,White);fldth3(STRING(werf7,1),R_vCG,AzulTit,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,Fondo);vy:=C HAR({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);bhy1:=tlitg2(bhy1,3);bhy4: =tlitg2(bhy4,3);bhy2:=tlitg2(bhy2,1);bhy3:=tlitg2(bhy3,1);dx:=180;dy:=15;ay:=CHAR({101});L x:=100;Ly:=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,Ly,CHAR ({86}),gpk7,gpk8,hfjq10);dx:=dx;dy:=dy+Ly+18;RECT_P({dx,dy+5},{dx+Lx,dy+75},DarkBlu e,White);TEXTOUT_P(CHAR({86,105,115,116,97}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+7 5-5,dx+20,dy+755,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+7525,1,Plomo);CASE IF liev17==1 THEN dx:=80;dy:=-22;RECT_P({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,32,58}),10+dx,50+dy,2); TEXTOUT_P(CHAR({72,32,58}),10+dx,70+dy,2);R_vVB:={{30+dx,50+dy2},{75+dx,50+dy+14}};R_vVH:={{30+dx,70+dy2},{75+dx,70+dy+14}};fldth3(STRING(werf9,1),R_vVB,AzulTit,White);fldth3(STRING(werf1 0,1),R_vVH,AzulTit,White);dx:=70;dy:=48;RECT_P({dx5,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+d x,130+dy,2);R_vVfc:={{35+dx,50+dy-2},{90+dx,50+dy+14}};R_vVPE:={{35+dx,70+dy2},{90+dx,70+dy+14}};R_vVPO:={{35+dx,90+dy2},{90+dx,90+dy+14}};R_vVE:={{35+dx,110+dy2},{90+dx,110+dy+14}};R_vVG:={{35+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(werf11,1),R_vVfc,AzulTit,White);fldth3(STRING(bh y1,1),R_vVPE,AzulTit,White);fldth3(STRING(bhy4,1),R_vVPO,AzulTit,White);fldth3(STRIN G(bhy2,1),R_vVE,AzulTit,White);fldth3(STRING(bhy3,1),R_vVG,AzulTit,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,Fondo);TEXT OUT_P(CHAR({65,76,66}),R_Alba(1,1)+12,R_Alba(1,2)+35,3,Black);bhy5:=tlitg2(bhy5,3);bh y6:=tlitg2(bhy6,3);bhy7:=tlitg2(bhy7,3);bhy8:=tlitg2(bhy8,3);gpk1:=tlitg2(gpk1,3);bhy9:=tlitg2( bhy9,1);bhy10:=tlitg2(bhy10,1);dx:=190;dy:=15;Lx:=100;Ly:=91;vy:=CHAR({97});R_vv:={{d x,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(C HAR({86,105,115,116,97}),dx+5,dy+7,2,Plomo);LINE_P(dx+5,dy+75-5,dx+20,dy+755,Plomo);TEXTOUT_P(CHAR({120}),dx+20,185,1,Plomo);LINE_P(dx+5,dy+755,dx+5,dy+75-5-20,Plomo);TEXTOUT_P(CHAR({121}),dx+7,dy+7525,1,Plomo);dx:=90;dy:=-22;vx:=CHAR({108});RECT_P({dx5,35+dy},{dx+90,dy+93},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,32,58}),10+dx,50+dy,2 );R_vAe:={{30+dx,50+dy2},{75+dx,50+dy+14}};fldth3(STRING(bhy5,1),R_vAe,AzulTit,White);dx:=80;dy:=48;RECT_ P({dx5,35+dy},{dx+100,dy+150},DarkBlue,Fondo);TEXTOUT_P(CHAR({102,39,109,32,58}),12+d
x,50+dy,2);TEXTOUT_P(CHAR({80,69,32,58}),12+dx,70+dy,2);TEXTOUT_P("",12+dx,90+d y,2);TEXTOUT_P(CHAR({69,109,32,58}),12+dx,110+dy,2);TEXTOUT_P(CHAR({71,32,58}) ,12+dx,130+dy,2);ay:=CHAR({101});R_vAfm:={{38+dx,50+dy2},{90+dx,50+dy+14}};R_vAPE:={{38+dx,70+dy2},{90+dx,70+dy+14}};R_vAPO:={{38+dx,90+dy2},{90+dx,90+dy+14}};R_vAE:={{38+dx,110+dy2},{90+dx,110+dy+14}};R_vAG:={{38+dx,130+dy2},{90+dx,130+dy+14}};fldth3(STRING(bhy7,1),R_vAfm,AzulTit,White);fldth3(STRING(bhy 8,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,AzulTit,White);END;IF liev15==4 THEN jliu20:=tlitg2(jliu20,3);jliu19:=tlitg2(jliu19,3);jliu18:=tlitg2(jliu18,3);dshy1:=tlitg2(dshy1,3);RE CT_P({50,0},{320,200},Fondo,Fondo);RECT_P(R_AIs(1),R_AIs(2),Fondo,Fondo);TEXTOUT _P(CHAR({65,73,83}),R_AIs(1,1)+12,R_AIs(1,2)+35,3,Black);dx:=65;dy:=40;RECT_P({dx5,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);TEXTOU T_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+dy2},{100+dx,130+dy+14}};fldth3(STRING(jliu20,1),R_AIM,AzulTit,White);fldth3(STRING(jliu 19,1),R_AIK,AzulTit,White);ay:=CHAR({101});dx:=180;dy:=45;Lx:=110;Ly:=60;RECT_P({d x,dy-4},{dx+Lx,dy-3+14},DarkBlue,Fondo);RECT_P({dx,dy-3+14},{dx+Lx,dy3+14+Ly},DarkBlue,Fondo);TEXTOUT_P(CHAR({68,97,116,111,115,32,83,105,115,116,101, 109,97}),dx,dy8,2,Black,90,Fondo);TEXTOUT_P(CHAR({65,105,115,108,97,100,111}),dx,dy8+13,2,Black,90,Fondo);dx:=160;dy:=73;TEXTOUT_P(CHAR({84,32,32,58}),40+dx,dy,2);TE XTOUT_P("",40+dx,20+dy,2);vx:=CHAR({108});R_ATo:={{60+dx,dy2},{100+dx,dy+14}};R_Aam:={{60+dx,20+dy2},{100+dx,20+dy+14}};fldth3(STRING(jliu18,1),R_ATo,AzulTit,White);fldth3(STRING(dshy 1,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,99,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
werf3:=zvfgk3(werf3,R_vCH,CHAR({76,111,110,103,105,116,117,100,32,100,101,32,99,111,1 08,117,109,110,97,32,101,110,32,100,105,114,101,99,99,105,111,110,32,89,32,40,109,41}),lng) ;ldljt1();BREAK;END;IF R_vCfc(1,1)<mx
bhy3:=zvfgk3(bhy3,R_vVG,CHAR({77,111,100,117,108,111,32,100,101,32,99,111,114,116,10 1,32,40,107,103,47,99,109,50,41}),lng);ldljt1();BREAK;END;IF R_vv(1,1)<mx
BREAK;END END;UNTIL 0;END;PRes(Tipp)BEGIN IF Tipp==1 THEN axsdcerfR();END;LOCAL LmnsP;LmnsP:=h(Lmns);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);TEXTOUT_P(CH AR({48,61,52,66,55}+17),G5,28,4,3,Col39);RECT_P(G5,300,2,316,17,RGB(153,153,153));TE XTOUT_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,Col137);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)+(my0my)/z;END;mx0:=mx;my0:=my;dsh:=1;dsv:=1;ELSE ig:=0;END;x:=MAX(MIN(xtt(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);oligft125(50,7 0,1,6,6,15,80,Col131,Col128,ml,1,tlc,tlf);TEXTOUT_P(cnm,187,225,2,Col3,100,RGB(240,240, 240));TEXTOUT_P(cnm,188,225,2,Col3);mvre(600,300);BREAK;END;IF TYPE(touc)=0 AND touc==8 AND Nnud==Eqx THEN cnm:=cnm+1;IF SIZE(L1)
䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧 䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨"," 䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚 䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢 䴚䴣䴩䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨 "}};tlitg3(dx,dy,Lx,Ly,Nam,GD,v,T)BEGIN LOCAL R_vv,R_xx,R_ee;RECT_P({dx,dy},{dx+Lx,dy3},DarkBlue,Fondo);TEXTOUT_P(CHAR({66,97,115,101,32,68,97,116,111,115}),dx,dy8,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+L y},{dx+Lx,dy+Ly+18}};RECT_P(R_vv(1),R_vv(2),DarkBlue,Plomo);TEXTOUT_P("✔",dx+L x/65,dy+Ly+3,2,AzulTit);RECT_P(R_xx(1),R_xx(2),DarkBlue,Plomo);TEXTOUT_P("✘",dx+Lx/ 25,dy+Ly+3,2,AzulTit);RECT_P(R_ee(1),R_ee(2),DarkBlue,Plomo);TEXTOUT_P("✎",dx+5*L x/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,dy3+16*j,2,AzulTit);END;RECT_P({dx,dy+9+16*(v1)},{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):=werf11;gpk7(h fjq10,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:=hfjq101;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)BEGIN 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(gp k6,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):=bhy1;gpk7(g pk8,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):=bhy8;gpk9(g pk10,5):=gpk1;gpk9(gpk10,6):=bhy9;gpk9(gpk10,7):=bhy10;END;END;END;END;fldth2()BE GIN 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),DarkBlu e,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({101});R_Din:={{215,1},{320,25}};R ECT_P(R_Din(1),R_Din(2),DarkBlue,AzulTit);TEXTOUT_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);TEXTO UT_P(CHAR({32,80,65,82,65,77,69,84,82,79,83,32}),15,7,2,Black);dx:=0;bx:=CHAR({114});s x:=nx+ny;dy:=20;RECT_P({10,25+dy},{145,180+dy},DarkBlue,Fondo);TEXTOUT_P(CHAR( {90,32,58}),15+dx,40+dy,2);sy:=CHAR({97,108});TEXTOUT_P(CHAR({83,32,58}),15+dx,60 +dy,2);TEXTOUT_P(CHAR({85,32,58}),15+dx,80+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);TEXT OUT_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+dy2},{130+dx,40+dy+14}};R_Ss:={{75+dx,60+dy2},{135+dx,60+dy+14}};R_Su:={{75+dx,80+dy2},{155+dx,80+dy+14}};R_SRox:={{75+dx,100+dy2},{115+dx,100+dy+14}};R_SRoy:={{75+dx,120+dy-
2},{115+dx,120+dy+14}};R_SIa:={{75+dx,140+dy2},{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},{290,27+dy },DarkBlue,Fondo);TEXTOUT_P(CHAR({32,32,86,97,108,111,114,101,115,32}),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,Fondo);T EXTOUT_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),DarkBlue,Pl omoA);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),DarkBlue, 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:=dy20;RECT_P({10,35+dy},{145,180},DarkBlue,Fondo);TEXTOUT_P("",15,30+dy,2,Black,90,Fo ndo);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+dy2},{120+dx,80+dy+14}};R_SEam:={{75+dx,100+dy2},{120+dx,100+dy+14}};R_SEexX:={{75+dx,120+dy2},{120+dx,120+dy+14}};R_SEexY:={{75+dx,140+dy2},{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,Fondo);TEXTOUT_ P(CHAR({32,32,67,97,108,99,117,108,111,115,32}),195,20+dy,2,Black,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);TEXTO UT_P(CHAR({32,68,73,78,65,77,73,67,79,32}),236,7,2,Black);dx:=0;dy:=20;pft6:=0;sy:=CHA R({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+dy}};dy:=2;RECT_P(R_SDA(1),R_SDA(2),DarkBlue,Fondo);RECT_P(R_SDB(1),R_SDB(2),DarkBlue,P lomoA);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+dy}};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:=dy20;by:=CHAR({105});sx:=nx+ny;RECT_P({10,65-20},{145,16020},DarkBlue,Fondo);TEXTOUT_P(CHAR({101,120,99,45,88,58}),15+dx,120+dy,2);TEXTO UT_P(CHAR({101,120,99,45,89,32,58}),15+dx,140+dy,2);TEXTOUT_P(CHAR({103,32,58}), 15+dx,160+dy,2);dx:=0;fx:=bx+by;R_SDam:={{75+dx,100+dy2},{120+dx,100+dy+14}};R_SDexX:={{75+dx,120+dy-
2},{120+dx,120+dy+14}};R_SDexY:={{75+dx,140+dy2},{120+dx,140+dy+14}};R_Sgr:={{75+dx,160+dy2},{120+dx,160+dy+14}};TEXTOUT_P(""+CHAR({32,69,115,112,101,99,116,114,111,115,32 ,100,101,32,114,101,115,112,117,101,115,116,97,32}),155,40,2,Black);R_SpeX:={{180,80},{2 30,80+18}};RECT_P(R_SpeX(1),R_SpeX(2),DarkBlue,PlomoA);TEXTOUT_P(CHAR({69,11 5,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,PlomoA);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_Acep(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,AzulTit,Whi te);fldth3(STRING(tgh7,1),R_SRox,AzulTit,White);fldth3(STRING(tgh8,1),R_SRoy,AzulTit,W hite);fldth3(STRING(tgh9,1),R_SIa,AzulTit,White);fldth3(STRING(tgh10,1),R_SIp,AzulTit,Wh ite);END;IF liev14==2 THEN fldth3(tgh5,R_SCtx,AzulTit,White);fldth3(tgh6,R_SCty,AzulTit,White);fldth3(xpe4,R_SEam,A zulTit,White);fldth3(STRING(xpe6,1),R_SEexX,AzulTit,White);fldth3(STRING(xpe7,1),R_SE exY,AzulTit,White);END;IF liev14==3 THEN fldth3(STRING(xpe5,1),R_SDam,AzulTit,White);fldth3(STRING(pft4,1),R_SDexX,AzulTit,W hite);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,111,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,32,83,49} ),CHAR({80,101,114,102,105,108,32,83,50}),CHAR({80,101,114,102,105,108,32,83,51}),CH AR({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}),CHAR({67,97,116,1 01,103,111,114,105,97,32,67}),CHAR({67,97,116,101,103,111,114,105,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
d8(2,pft8);END;fldth2();BREAK;END;IF R_Su(1,1)<mx<(R_Su(2,1)+50)AND R_Su(1,2)<my
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
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)
"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩 䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩 䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖 "},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤 䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘 䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼 䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖 䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪 䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{" 䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖 䴣䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"}};Titu3:={{"䴃䴪䴙䴤䴨"," 䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴢䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤 䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗 䴖䴡"},{"䳻䴪䴚䴯䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䴚䴣䴩 䴤䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚䴖䴘䴘䴞䴤䴣䴚䴨"},{"䳸䴖䴧䴜䴖䴨","䳼䴧䴖䴙䴤䴨䳕䴗䴚 䴧䴩䴖䴙"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡 ","䴉䴧䴖䴣䴛䴤䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨"," 䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖䴢䴗䴡䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤 䴨䴚䴣䴤䴨䳕䳹䴞䴧䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧 䴘䴞䶨䴣"},{"䳸䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩 䴤䴨","䳺䴣䴨䴖䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳸䴤䴨䴚䴣䴤䴨䳕䳹䴞䴧 䴚䴘䴩䴤䴧䴚䴨"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡","䴉䴧䴖䴣䴛䴤䴧䴢䴖䴘䴞䶨䴣"},{"䳸 䴤䴢䴥䴡䴚䴩䴖","䴇䴚䴙䴪䴘䴞䴙䴖"},{"䴃䴪䴙䴤䴨","䳺䴡䴚䴢䴚䴣䴩䴤䴨","䳺䴣䴨䴖 䴢䴖䴙䴖"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䴁䴤䴘䴖䴡","䳼䴡䴤䴗䴖䴡"},{"䳻䴪䴚䴯 䴖䳕䳶䴭䴞䴖䴡","䳻䴪䴚䴧䴯䴖䳕䳸䴤䴧䴩䴖䴣䴩䴚","䴂䴤䴢䳕䳻䴡䴚䴘䴩䴤䴧","䴇䴚 䴖䴘䴘䴞䴤䴣䴚䴨"}};zvfgk2()BEGIN LOCAL R_Losa:={},R_Viga:={},R_Alba:={};LOCAL R_Acep:={};LOCAL R_SDA,R_SDB,R_SC:={},R_:={},R_mCV:={},R_mCM:={},R_Area:={},R_CalA:={};LO CAL 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,109}),CH AR({51,48,32,99,109}),CHAR({32,51,53,32,99,109})},R_SCa:={},R_a:={},R_mCMa:={}, R_mCVa:={};RECT(Fondo);RECT_P({0,1},{320,20},DarkBlue,AzulTit);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_SDB:={{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),DarkBlue,F ondo);TEXTOUT_P(CHAR({65,117,116,111,32}),30+dx,40+dy,2);TEXTOUT_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},DarkBlue,Fo ndo);TEXTOUT_P(""+CHAR({32,65,115,105,103,110,97,114,32,67,97,114,103,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,97,40,67,86,41}),20+dx,20+dy,2);dx: =170;TEXTOUT_P(CHAR({80,101,114,109,97,110,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_(i):={{dx,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}),AzulTit,White);dx:=170;f tyul3(STRING(dfg7(i),1),R_(i),CHAR({107,103,102,47,109,50}),AzulTit,White);END;R_Lo sa:={{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,109,50}),R_Losa( 2,1)+8,R_Losa(1,2)+3,2);R_Area:={{95,45},{165,45+18}};TEXTOUT_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_Ar ea,CHAR({109,50}),AzulTit,White);R_CalA:={{240,45},{310,45+18}};RECT_P({240,45},{31 0,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=="3CD62400KQ" THEN RECT_P({0,20},{320,240},DarkBlue,Fondo);RECT_P(R_SDA(1),R_SDA(2),DarkBlue,Fondo) ;RECT_P(R_SDB(1),R_SDB(2),DarkBlue,PlomoA);TEXTOUT_P(CHAR({65,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,9 7,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;TEXT OUT_P(CHAR({67,97,114,103,97,32,86,105,118,97}),20+dx,20+dy,2);dx:=170;TEXTOUT_P( CHAR({67,97,114,103,97,32,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,3 5+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(S TRING(dfg10(i),1),R_mCM(i),CHAR({107,103,102}),AzulTit,White);END;END;END;R_Ace p:={{240,205},{310,205+18}};RECT_P({R_Acep(1,1),R_Acep(1,2)},{R_Acep(2,1),R_Acep(2, 2)},DarkBlue,Plomo);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),R_Acep(1,1)+15,R_A cep(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_CalA(1,1)<mx<(R_CalA(2,1))AND R_CalA(1,2)<my
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,bd c10,expr1,expr2,expr11,expr12,expr13,expr14);END;expr8:=NN;END;pxtrf4(Gp,cGr,xo,yo)BE GIN 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=="3CD62400KQ" 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
01b)▶ NGB;FOR i:=2 TO rtyh5+1 DO Suma:=Suma+gpk3(i1,1);NEjes(i,1):=Suma;END;Suma:=0;B→R(#1100001b)▶ L;FOR i:=2 TO rtyh6+1 DO Suma:=Suma+gpk3(i1,2);NEjes(i,2):=Suma;END;k:=1;B→R(#1101100b)▶ e;lo:=CHAR({CNN,CNA});lv:=CHAR({ NGA,NGB});lh:=CHAR({L,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):=y0NEjes(i,2)*qwr5;qwr9(k):=NEjes(i,2);k:=k+1;END;END;qwr6:=(rtyh5+1)*(rtyh6+1);dfg1:=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);LOCAL R_DI,R_CA;R_DI:={{92,0},{149,16}};R_CA:={{149,0},{206,16}};RECT_P(Gp,R_DI(1),R_ DI(2),PlomoA);yyhte1(R_DI(1,1)+5,8.5,AzulTit);TEXTOUT_P(CHAR({68,82,65,87}),Gp,R_D I(1,1)+20,2,2,AzulTit);RECT_P(Gp,R_DI(1,1),0,R_DI(1,1)+1,16,AzulTit);RECT_P(Gp,R_CA( 1,1),0,R_CA(1,1)+1,16,AzulTit);RECT_P(Gp,250,229,360,240,PlomoA);TEXTOUT_P("✎"+C HAR({32,68,105,98,117,106,101}),Gp,260,229,1,AzulTit);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),D arkBlue,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),D arkBlue,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
",Gp,R_Vig(1,1)+3,3,2,Black);RECT_P(Gp,R_Alb(1),R_Alb(2),DarkBlue,PlomoA);qljgt5(R_Al b(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
"+abd8,Gp,109,230,1,RedA);RECT_P(Gp,140,229,176,240,White);TEXTOUT_P(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,Black);pixon_p(Gp,qwr8(j),qwr7(j),Red);jjrtg4(mx,my);llfft4(Gp,x1,y1,x 2,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,Colr2,mat, Tfu,Tc,Tf)BEGIN LOCAL h1,h2,imp,Most1;imp:={};Most1:=CHAR({47,43,45}+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,cxi3,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,cyi2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi1,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,cyi5,Col129);TEXTOUT_P(Tc(h2),G9,cxi+anc*(h2-1)+40,cyi17,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*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+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,cxi3,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,cyi2,cxi+anc*nc+3,cyi+alf*nf+2,Col3);RECT_P(G9,cxi+anc*nc+5,cyi1,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*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr2)ELSE RECT_P(G9,cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),G9,cxi+anc*(h2-1)+5,cyi+alf*(h11)+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(cxi30,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*(h21)+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*(h11),cxi+anc*h2,cyi+alf*h1,Colr1);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-1)+5,cyi+alf*(h11)+3,Tfu,RGB(0,0,0),anc-5,Colr1)ELSE RECT_P(cxi+anc*(h2-1),cyi+alf*(h11),cxi+anc*h2,cyi+alf*h1,Colr2);TEXTOUT_P(mat(h1,h2),cxi+anc*(h2-1)+5,cyi+alf*(h11)+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+CH AR({120})+YC;C_Vig:={CHAR({86,45})+j+DimV};Concatenar:=CONCAT(Concatenar,C_Vi g);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(CHAR({45,99,109,45 }),Gp,218,230,1,Black);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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({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/qwr5;expr3(b dc5,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(bdc5,11): =gpk7(bdc6,6);expr3(bdc5,12):=gpk7(bdc6,7);expr3(bdc5,13):=0;expr3(bdc5,14):=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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,RedA);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,Black);jjrtg4(mx,my);hdljt4(Gp,Blue,XC,YC,bdc9,bdc10,expr2,expr1);bd c7:=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:=expr1XC/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,b0h2},{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:=expr2XC/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)/(expr1bdc9);a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10-d;bf2:=expr2d;LINE_P(Gp,a0,b0,af,bf1,MarsaRed);LINE_P(Gp,a0,bf,af,bf2,MarsaRed);END;END;END;EX PORT 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);TEXTOUT_P(lv x(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);TEXTOUT_P(lv x(2),111,5,2,Col3);ogol();RECT_P(60,225,80,235,Col118);TEXTOUT_P(lvx(3),90,225,1,Col11 8);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,101,110,11 6,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);TEX TOUT_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,Col148);TEXTOUT_ P(ROUND(M1(lh,10),4),G9,150,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,11),4),G 9,200,10+15*(lh),1,Col148);TEXTOUT_P(ROUND(M1(lh,10)^2,4),G9,250,10+15*(lh),1,Col1 48);TEXTOUT_P(ROUND(M1(lh,11)^2,4),G9,300,10+15*(lh),1,Col148);TEXTOUT_P(ROU ND(M1(lh,10)*M1(lh,11),4),G9,350,10+15*(lh),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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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:=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;TEXTOU T_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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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;TEXTOU T_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);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,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,Col14 8);LOCAL NBa;RECT_P(100,222,110,238,Col130);RECT_P(99,223,111,237,Col130);TEXTOUT_P("‹‹",1 00,220,4,Col118);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);T EXTOUT_P(CHAR({69,76,69,77,69,78,84,79,32,58}),120,225,2,Col118);RECT_P(210,222,22 0,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);LOCAL 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,C ol131,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();Move rM(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);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,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,Col14 8);varcaq(2);IFERR LOCAL touch1,ml,tlc,tlf,ancho,alto,Grafy;cnm:=1;nf:=rowDim(M5);nc:=colDim(M5);ancho:=80*nc+30; alto:=15*nf+30;Grafy:=CHAR({59,59,86,92}-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));REC T_P(G9);oligft125(10,30,1,nf-1,nc1,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,Col1 33);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,Col14 8);varcaq(2);LOCAL touch1,ml,tlc,tlf,ancho,alto,Mred,Grafy;IFERR
cnm:=1;Grafy:=CHAR({59,59,86,92}11);Mred:=L7(1);Mred:=ROUND(Mred,7);nf:=rowDim(Mred);nc:=colDim(Mred);ancho:=80*n c+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,a lto,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,Col1 33);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};va rcaq(2);LOCAL touch1,vf,tlc,tlf,ancho,alto,Mred;vf:=L7(5);nf:=rowDim(vf);nc:=colDim(vf);alto:=20*nf+50;anc ho:=320;IF alto<200 THEN alto:=200;END;DIMGROB_P(G9,ancho,alto);RECT_P(G9);RECT_P(G9,92,15,93,rowDim(vf) *20+20,Col12);RECT_P(G9,162,15,163,rowDim(vf)*20+20,Col12);TEXTOUT_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,170,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);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,Col128);TEXTOUT_P("〇 ",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats:={0};va rcaq(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,anch o,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);TEXTOUT_P( CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col128);TEXTOUT_P(CH AR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col128);TEXTOUT_P("COOR D. 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,Col 12);RECT_P(G8,72,55,73,rowDim(mep1)*20+65,Col12);RECT_P(G8,170,55,171,rowDim(mep 1)*20+65,Col12);RECT_P(G8,190,55,191,rowDim(mep1)*20+65,Col12);RECT_P(G8,290,55,2 91,rowDim(mep1)*20+65,Col12);TEXTOUT_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*(H1),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);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,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*I1):="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:=ROUN D(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);RECT_P(G9,202,20,203,rowDi m(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,Col1 33);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:={};IF T==1 THEN ancho:=320;alto:=130*B+30;DIMGROB_P(G8,320,130);RECT_P(G8);DIMGROB_P(G9,anch o,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,anch o,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,32})+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)*20+50,Col12);RE CT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col12 );RECT_P(G8,212,40,213,rowDim(vf)*20+50,Col12);TEXTOUT_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*(H1),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);EN D;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,Col1 33);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};va rcaq(2);LOCAL touch1,vf,tlc,tlf,ancho,alto,Mred;M6:=ROUND(M6,8);vf:=M6;vf:=ROUND(vf,9);nf:=rowDim( 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,rowDim(vf) *20+20,Col12);RECT_P(G9,212,15,213,rowDim(vf)*20+20,Col12);TEXTOUT_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,215,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,Col1 33);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};va rcaq(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,a lto);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);REC T_P(G8,92,40,93,rowDim(vf)*20+50,Col12);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col1 2);TEXTOUT_P("=",G8,79,rowDim(vf)*10+40,2,Col12,100,Col128);TEXTOUT_P(ROUND(v f(1,1),Pe),G8,100,50,2,Col148,150,Col128);TEXTOUT_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,Col 128);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;B LIT_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,anch o,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,Col12,100,Co l128);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);Ti t(5):="Fy"+M1(H,2);Tit(6):="M"+M1(H,2);RECT_P(G8,42,40,42,rowDim(vf)*20+50,Col12);R
ECT_P(G8,72,40,72,rowDim(vf)*20+50,Col12);RECT_P(G8,92,40,93,rowDim(vf)*20+50,Col1 2);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf)*1 0+40,2,Col12,100,Col128);FOR I FROM 1 TO rowDim(vf)DO TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOUT_P(Tit(I ),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H1),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);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,Col128);TEXTOUT_P("〇 ",9,220,4,Col30);TEXTOUT_P("?",15,227,1,Col3);Regs:={{{17,117},{36,130}}};Dats:={0};va rcaq(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,anch o,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,Col12,100,C ol128);TEXTOUT_P(CHAR({69,76,69,77,69,78,84,79,58,32})+H,G8,55,15,2,Col12,100,Col12 8);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,42,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,C ol12);RECT_P(G8,202,40,203,rowDim(vf)*20+50,Col12);TEXTOUT_P("=",G8,79,rowDim(vf) *10+40,2,Col12,100,Col128);FOR I FROM 1 TO rowDim(vf)DO TEXTOUT_P(ROUND(vf(I,1),Pe),G8,100,20*(I)+30,2,Col148,150,Col128);TEXTOUT_P(Tit(I ),G8,48,20*(I)+30,2,Col118,100,Col128);END;BLIT_P(G9,0,170*(H1),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(lvx(17),10 1,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)THEN escDiag:=escDiag5;Dxxw(1,320,220);TEXTOUT_P(lvx(17),100,5,2,Col118);TEXTOUT_P(lvx(17),101,5,2,Col1 18);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);TEXTOUT_P(lv x(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({78,91,43,9 3}),113,225,2,Col128);TEXTOUT_P(CHAR({78,91,43,93}),113,225,2,Col128);RECT_P(150,2 23,180,238,Col34);TEXTOUT_P(CHAR({78,91,45,93}),153,225,2,Col128);TEXTOUT_P(CH AR({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);TEXTOUT_P( lvx(18),101,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN escDiag:=escDiag5;Dxxw(2,320,220);TEXTOUT_P(lvx(18),100,5,2,Col118);TEXTOUT_P(lvx(18),101,5,2,Col1 18);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);TEXTOUT_P(lv x(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({86,91,43,9 3}),114,225,2,Col128);TEXTOUT_P(CHAR({86,91,43,93}),114,225,2,Col128);RECT_P(150,2 23,180,238,Col55);TEXTOUT_P(CHAR({86,91,45,93}),154,225,2,Col128);TEXTOUT_P(CH AR({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);TEXTOUT_P( lvx(19),101,5,2,Col118);ads();ogol();LOCAL touch1,Grafx;Grafx:=CHAR({47,43,45}+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,Col118);ads( );ogol();END;END;IF ISKEYDOWN(45)AND Nnud==Grafx THEN escDiag:=escDiag5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col1 18);ads();ogol();END;IF ISKEYDOWN(50)THEN escDiag:=escDiag+5;Dxxw(3,320,220);TEXTOUT_P(lvx(19),100,5,2,Col118);TEXTOUT_P(lv x(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({77,91,43,9 3}),113,225,2,Col128);TEXTOUT_P(CHAR({77,91,43,93}),113,225,2,Col128);RECT_P(150,2 23,180,238,Col118);TEXTOUT_P(CHAR({77,91,45,93}),153,225,2,Col128);TEXTOUT_P(CH AR({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({47,43,45}+7);IFERR qaswe1();RECT_P(0,0,320,240);RECT_P(0,0,320,20,Col130);TEXTOUT_P(CHAR({80,85,78, 84,79,83,32,78,79,84,65,66,76,69,83}),95,5,2,Col12);TEXTOUT_P(CHAR({80,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)
=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);TEXTOUT_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,Col 12);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*I60,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,110,32,10 1,115,116,101,32,116,114,97,109,111}),G9,35,90*I+12,1,RGB(0,0,255));END;END;BLIT_P(G 0,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;TEXTOUT_P(l vx(19),100,5,2,Col118);TEXTOUT_P(lvx(19),101,5,2,Col118);ads();ogol();varcaq(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);TEXTOUT_ P(lvx(20),126,5,2,Col118);ads();ogol();BLIT_P(G5,G0);escDiag:=30;LOCAL touch1,h1,h2;LOCAL Grafx;Grafx:=CHAR({47,43,45}+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,84,65,78,8 4,69}),120,5,2,Col12);TEXTOUT_P(CHAR({77,79,77,69,78,84,79}),210,5,2,Col12);TEXTOU T_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,11 1,46,46,46}),125,105,2,Col148);TEXTOUT_P(CHAR({67,97,108,99,117,108,97,110,100,111,4 6,46,46}),125,105,2,Col148);Intv:=Dats(1);TEXTOUT_P(Intv,33,6,1,Col148);MatEval:=[[0,0,0, 0,0]];FOR 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
xx:=l1(SIZE(l1));ecn:=EC(1);ecc:=EC(2);ecm:=EC(3);x:=CAS(CAS("x"));x:=xxl1(h2);ecn:=EVAL(ecn(h2));ecc:=EVAL(ecc(h2));ecm:=EVAL(ecm(h2));x:=CAS(CAS("x"));M atEval(rowDim(MatEval)+1,1):=H;MatEval(rowDim(MatEval),2):=xx;MatEval(rowDim(MatEv al),3):=ecn;MatEval(rowDim(MatEval),4):=ecc;MatEval(rowDim(MatEval),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)+50);REC T_P(G9);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,5,5,2,Col118,75,Col128);TEXTOUT_ P(CHAR({69,108,101,109,46}),G9,6,5,2,Col118,75,Col128);TEXTOUT_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*(h11),2,Col118,75,Col128);TEXTOUT_P(CHAR({69,108,101,109,46}),G9,6,5+20*(h11),2,Col118,75,Col128);TEXTOUT_P(MatEval(h1,1),G9,10,5+20*(h1),3,Col118,75,Col128);T EXTOUT_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*(h11),1,Col13,80,Col128);TEXTOUT_P(ROUND(MatEval(h1,4),prec),G9,120,5+20*(h11),1,Col148,90,Col128);TEXTOUT_P(ROUND(MatEval(h1,5),prec),G9,210,5+20*(h11),1,Col148,90,Col128);END;BLIT_P(G0,0,20,320,240,G9,0,0,320,220);Mnbvxqubg(320,20*ro wDim(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);EN D;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+Di mM};Concatenar:=CONCAT(Concatenar,C_Mur);END;C_Mur:=Concatenar;IF 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_Mur(expr9), Gp,257,230,1,AzulTit);RECT_P(Gp,211,229,250,240,White);TEXTOUT_P(CHAR({45,99,109, 45}),Gp,218,230,1,Black);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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({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,11 1,32,50})+"
⇢",Gp,260,229,1,RedA);jjrtg4(mx,my);expr11:=abd10(k,2)*qwr5;expr12:=abd10(k,3)*qwr5;B REAK;ELSE expr13:=abd10(k,2)*qwr5;expr14:=abd10(k,3)*qwr5;expr15(expr8,7):=qwr10(j);expr15(expr8,8 ):=qwr9(j);expr1:=qwr8(j);expr2:=qwr7(j);expr15(expr8,9):=gpk9(expr9,2);expr15(expr8,10):=g pk9(expr9,4);expr15(expr8,11):=gpk9(expr9,5);expr15(expr8,12):=gpk9(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(CHAR({86}) +" ┅ "+bdc5,Gp,145,230,1,Black);RECT_P(Gp,176,229,210,240,White);TEXTOUT_P(CHAR({65}) +" ┅ "+expr8,Gp,181,230,1,RedA);jjrtg4(mx,my);ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,expr2,expr1 1,expr12,expr13,expr14);expr10:=0;ELSE expr10:=1;END;END;END;ldljt4(Gp,col,XC,YC,bdc9,bdc10,expr1,expr2,expr11,expr12,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(bfb0+(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(Gp,a0,b0,a f,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(bdc9expr1)<>0)THEN LOCAL bf1,bf2,m,d,L;L:=100;d:=abs((XC/2*L)/(expr1bdc9));expr15(expr8,4):=0;a0:=bdc9;af:=expr1;bf1:=expr2+d;b0:=bdc10+d;bf:=bdc10d;bf2:=expr2d;LINE_P(Gp,a0,b0,af,bf1,CoVig);LINE_P(Gp,a0,bf,af,bf2,CoVig);END;END;END;hdljt5(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:=CA S.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(I1);LRM(I-1):=Raices(ecm,0,l1(I)-l1(I-1));LRC(I-1):=Raices(ecc,0,l1(I)-l1(I-1));lrm(I1):=LRM(I-1)+l1(I-1);lrc(I-1):=LRC(I-1)+l1(I1);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.expa nd(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(I1,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(I1))THEN x:=A;mmx6(I-1,9):=-EVAL(ecm);mmx6(I-1,10):=A+l1(I-1);mmx6(I-1,4):=A+l1(I1);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
4,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
);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(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);TEXTOUT_P(CHAR({66,45,82,105}),R_BR(1,1)+5,R_BR(1,2)+5,2);TEXTOU T_P("◯",R_BR(1,1)+38,R_BR(1,2)+5,2);RECT_P(R_PM(1),R_PM(2),RedA,Plomo);TEXTOU T_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
ol135);TEXTOUT_P(CHAR({288,420,432,436,404,456}/4),284,230,1,Col131);END;varcaq(Ti pp)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;M4G:=M4;M5G:= M5;M6G:=M6;M7G:=M7;M8G:=M8;M9G:=M9;NG:=N;BG:=B;Datsbmq111G:=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:=L8G;L9:= L9G;L10:=L10G;L11:=L11G;M0:=M0G;M1:=M1G;M2:=M2G;M3:=M3G;M4:=M4G;M5:=M5 G;M6:=M6G;M7:=M7G;M8:=M8G;M9:=M9G;N:=NG;B:=BG;Datsbmq111:=Datsbmq111G;L NN:=LNNG;LNC:=LNCG;END;END;awsde(px,py,bdx,bdy,anchoG4,altoG4)BEGIN LOCAL esc,MC,s1,s2,Elem5;LOCAL Elem5;Elem5:=CHAR({59,59,86,92}11);DIMGROB_P(G6,anchoG4,altoG4);RECT_P(G6,Col128);DIMGROB_P(G4,anchoG4,alto G4);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,Col1 32);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)),(py2*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;B LIT_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(CAS("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(CAS("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(CAS("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;Dxx w(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);LOCAL Elem5;Elem5:=CHAR({59,59,86,92}-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:=yiw*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(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:=yiw*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(xf10,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,2 13,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;END;BLIT_P(G0,0,20,320,240,G4,0+Z x,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:=yi30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({120}),xf,yi11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf4,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:=yi30;LINE_P(xi,yi,xf,yi,Plomo);TEXTOUT_P(CHAR({121}),xf,yi11,2,PlomoA);LINE_P(xi,yi,xi,yf,Plomo);TEXTOUT_P(CHAR({122}),xi+2,yf4,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 :=[[0]],lx,dv,ch:={};FOR j:=2 TO rtyh2+1 DO ss:=ss+rtyh10(j1);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▶ (i+f,1);yi▶ (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=="3CD62400KQ" 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;(f,1)▶ ca(j,1);(f,2)▶ ca(j,2);ff:=1+f+NG;(ff,1)▶ ca(j,3);(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;TE XTOUT_P(nCol+nVig+co,xt-3,yt-4,1,Red);END;co:=j+co1;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;(f,1)▶ cv(j,1);(f,2)▶ cv(j,2);(f+1,1)▶ cv(j,3);(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:=(cv(j,1)+cv(j,3))/ 2;yt:=cv(j,4)-5;TEXTOUT_P(nCol+co,xt-3,yt-4,1,Blue);END;co:=j+co1;f:=f+1;END;f:=NG;FOR j:=1 TO nCol DO (j,1)▶ cc(j,1);(j,2)▶ cc(j,2);f:=f+1;(f,1)▶ cc(j,3);(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)-l5;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;(f,1)▶ cc(j,1);(f,2)▶ cc(j,2);xe:=cc(j,1);ye:=cc(j,2)13;TEXTOUT_P(Po(j),xe-2.2,ye3.2,1,Plomo);arc_p(xe,ye,6,0,360,Plomo);LINE_P(xe,ye+4,xe,ye+13,Plomo);END;END;ldljt6(d fg4,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=="3CD62400KQ" 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+NG1,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)*(NG1),2)/2▶ DG_ColPD(a,5);END;IF h
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,1 6)▶ DG_ColPD(a,16);DPorMB(a,17)▶ DG_ColPD(a,17);DPorMB(a,18)▶ DG_ColPD(a,18);DPor MB(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_ColP D(a,6);DPorMB(a,5)▶ DG_ColPD(a,7);DPorMB(a,6)▶ DG_ColPD(a,8);DPorMB(a,7)▶ DG_ColP D(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,1 5)▶ DG_ColPD(a,15);DPorMB(a,16)▶ DG_ColPD(a,16);DPorMB(a,17)▶ DG_ColPD(a,17);DPor MB(a,18)▶ DG_ColPD(a,18);DPorMB(a,19)▶ DG_ColPD(a,19);DPorMB(a,20)▶ DG_ColPD(a,2 0);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;RE PLACE(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);ec:=(a1*d 1-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:=mm1(3);mm3(rowDi m(mm3),4):=EVAL(mm1(1));l3(SIZE(l3)+1):={mm1(1),mm1(2),mm1(3),1};END;END;l1:=CA S.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:=N1;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*N1;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(I1);MDM(C,1):=l1(I-1);MDM(C,2):=l1(I);x:=l1(I1);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(I1,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;FOR 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}};E ND;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);LEC:=CAS. expand(LEC);LEC:=CAS.simplify(LEC);LEM:=CAS.expand(LEM);LEM:=CAS.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=="3CD62400KQ" 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):=DPor MB(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);GE ColB(a,7):=DPorMB(b,5);GEColB(a,8):=DPorMB(b,6);GEColB(a,9):=DPorMB(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);GE ColB(a,7):=DPorMB(b,7);GEColB(a,8):=DPorMB(b,8);GEColB(a,9):=DPorMB(b,9);GEColB(a ,10):=DPorMB(b,10);GEColB(a,11):=DPorMB(b,11);END;END;END;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):=D PorMB(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);G EVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,4);GEVigB(a,10):=DPorMB(b,5);GEVi gB(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);G EVigB(a,7):=DPorMB(b,20);GEVigB(a,9):=DPorMB(b,6);GEVigB(a,10):=DPorMB(b,7);GEVi gB(a,11):=DPorMB(b,8);GEVigB(a,12):=DPorMB(b,9);GEVigB(a,13):=DPorMB(b,10);GEVig B(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):=DP orMB(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);G EVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,4);GEVigB(a,10):=DPorMB(d,5);GEVi gB(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);G EVigB(a,7):=DPorMB(d,20);GEVigB(a,9):=DPorMB(d,6);GEVigB(a,10):=DPorMB(d,7);GEVi gB(a,11):=DPorMB(d,8);GEVigB(a,12):=DPorMB(d,9);GEVigB(a,13):=DPorMB(d,10);GEVig B(a,14):=DPorMB(d,11);END;END;END;e:=i*(rtyh8-1);f:=i*(rtyh71);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);GEAlbB(a,3):=0 ;GEAlbB(a,4):=DPorMB(b,4);GEAlbB(a,5):=DPorMB(b,17);GEAlbB(a,6):=DPorMB(b,18);GE AlbB(a,7):=DPorMB(b,19);GEAlbB(a,8):=DPorMB(b,20);GEAlbB(a,9):=DPorMB(b,5);GEAlb B(a,10):=DPorMB(b,6);GEAlbB(a,11):=DPorMB(b,7);GEAlbB(a,12):=DPorMB(b,8);GEAlbB( a,13):=DPorMB(b,9);GEAlbB(a,14):=DPorMB(b,14);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);GEAlbB(a,3):=D PorMB(d,3);GEAlbB(a,4):=DPorMB(d,4);GEAlbB(a,5):=DPorMB(d,17);GEAlbB(a,6):=DPorM
B(d,18);GEAlbB(a,7):=DPorMB(d,19);GEAlbB(a,8):=DPorMB(d,20);GEAlbB(a,9):=DPorMB( d,5);GEAlbB(a,10):=DPorMB(d,6);GEAlbB(a,11):=DPorMB(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(dfg4,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,df g4,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_ColP D(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,t p)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;EN D;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,NGa,DPor MB,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,L,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 )▶ L;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);E ND;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:=(NG1)*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:=(NG1)*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:=(NG1)*rtyh2;B→R(#1101100b)▶ e;nMiem:=nCol+nVig+nMam;DAT_Portico:=MAKEMAT(0,nMie m,20);DAT_Portico:=llfft6(DAT_Portico,DAT_Col,DAT_Vig,rtyh2,DAT_Mur,NG);END;END ;B→R(#1110010b)▶ NGA;aa:=rowDim(DAT_Portico);lo:=CHAR({CNN,CNA});lv:=CHAR({ NGA,NGB});lh:=CHAR({L,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=="3CD62400KQ" 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);abd1 0(k,10)▶ DAT_Col(j,8);abd10(k,11)▶ DAT_Col(j,9);abd10(k,4)▶ DAT_Col(j,10);abd10(k,5)▶ DA T_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;EN D;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);LOCAL
hh,nn;MC:=[[0]];MC(1,1):=M0G(M1G(NBa,1),1);MC(1,2):=M0G(M1G(NBa,1),2);MC(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((px2*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:=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(CAS("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,yf10,1,ColD(1));ELSE LINE_P(G4,xi,yi,xf,yf,ColD(2));TEXTOUT_P(-ROUND(w,Pe),G4,xf10,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,Col137);TE XTOUT_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,2 13,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);END;BLIT_P(G0,0,20,320,240,G4,0,0,320,22 0);END;Atytz(Tip)BEGIN LOCAL esc,MC,s1,s2,px,py,CSDats,CSTip;DIMGROB_P(G4,320,220);RECT_P(G4,0,0,320,220,Col12 8);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((px2*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-s2MC(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;E ND;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;IFERR 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,10)),(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)),(xf22*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,yi10,5,Col54);TEXTOUT_P(Dats(3),G4,xi+6,yi-4,1,Col54);ELSE TEXTOUT_P("↻",G4,xi-8,yi10,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,xi3*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,{(xi3*M1(I,11),yi-3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf1*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,xi3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf3*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)),(xf5*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)*xDats(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,xf10,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*M1(I,10);L INE_P(G4,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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);TEXTO UT_P(Dats(4),G4,xf+1,yf,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);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);L INE_P(G4,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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,yf5,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:=yi1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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:=yiw*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G4,xf+1,yf5,1,Col148);LINE_P(G4,cxi,cyi,xf,yf,Col60);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:=xi1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G4,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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),yi10*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),yf10*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)-(x4/esc)*esc*M1(I,11);LINE_P(G4,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x10/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),yf6*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),yi10*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),yf10*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),yi4*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),yi4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf2*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*I2,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*I1,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,c y,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I2,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,cy,cx+18* cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I1,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,c y,cx+18*cs,cy-17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col148);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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*I1,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,cy,cx+18* cs,cy-17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(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:=AngG270;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col118);cx:=cx+18*cs;cy:=cy-17*sn;FILLPOLY_P(G4,{(cx,cy),(cx6*COS(Ang+30),cy+6*SIN(Ang+30)),(cx-6*COS(Ang-30),cy+6*SIN(Ang30)),(cx,cy)},Col118);TEXTOUT_P(2*I,G4,cx-3,cy10,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,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 THEN LINE_P(G4,MC(I,1),MC(I,2)+2,MC(I,1),MC(I,2)+17,Col3);TEXTOUT_P("▼",G4,MC(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,cx,cy,cx+ 18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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:=Ang90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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+1 8*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,MC(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,cx,cy,cx+ 18*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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:=Ang90;cs:=COS(Ang);sn:=SIN(Ang);cx:=MC(I,1);cy:=MC(I,2);LINE_P(G4,cx,cy,cx+18*cs,cy17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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+1 8*cs,cy-17*sn,Col111);FILLPOLY_P(G4,{(cx,cy),(cx+6*COS(Ang+30),cy6*SIN(Ang+30)),(cx+6*COS(Ang-30),cy-6*SIN(Ang30)),(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",G4,3,187, 1,Col118);LINE_P(G4,5,213,20,213,Col20);TEXTOUT_P("x",G4,22,208,1,Col20);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);ex pr3(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);D AT(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)▶ D AT_Portico(c,12);DAT(l,11)▶ DAT_Portico(c,13);DAT(l,12)▶ DAT_Portico(c,14);j▶ DAT_Porti co(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)▶ DA T_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);D AT_Vig(l,9)▶ DAT_Portico(c,11);DAT_Vig(l,10)▶ DAT_Portico(c,14);j▶ DAT_Portico(c,15);D AT_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;E ND;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_RLDAT_Vig(1,2)/2;sqrt(Long^2+Altur^2)▶ DAT_Portico(c,3);Long▶ DAT_Portico(c,4);Altur▶ DA T_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_Porti co(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);D AT(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)▶ DA T_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)▶ DA T_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);DA T_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_Por tico(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);D
AT_Vig(1,2)/2▶ DAT_Portico(c,4);DAT_Vig(1,2)/2▶ DAT_Portico(c,5);DAT(l,4)▶ DAT_Portic o(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);D AT(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)▶ DA T_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:=(NG1)*rtyh2;nMiem:=nCol+nVig;RL_Port:=ftyul7(DAT_Portico,nNudos,rtyh2,NG);END;IF d==2 THEN nNudos:=(rtyh2+1)*(NG);nCol:=(NG)*rtyh2;nVig:=(NG1)*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:=(NG1)*rtyh2;nMam:=(NG1)*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)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 nodnr 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:=MA KEMAT(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):=nombre(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=="3CD62400KQ" 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;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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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 nodnr 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;LOCAL 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)*(12*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)*(12*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;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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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),cx12*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),cx12*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),cx12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col137);LINE_P(G4,cx19*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,{cx12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col137);LINE_P(G4,cx19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx19*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,cy10,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,cy10,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,cy20,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,cy9,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:={};InProp;Prop(c x,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*nf+5,Col 130);FOR I FROM 1 TO nf DO Rg1(I):={{cx,cy+15*(I1)},{cx+anc,cy+15*I}};TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I1)+5,2,Col142);TEXTOUT_P("Elem. "+I,cx+17,cy+15*(I1)+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;UNTIL 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,Col3,Col128);RECT_ P(2,23,96,53,Col3,Col128);RECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P(CHAR({80,82, 79,80,73,69,68,65,68}),5,25,2,Col128);TEXTOUT_P(CHAR({80,82,79,80,73,69,68,65,68}),6,2 5,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,Col3);TEXTOUT_P(cnP,80,40,2,Col118);TEXTOUT_P(c nP,81,40,2,Col118);RECT_P(2,53,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}),30,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);TEXTO UT_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);TEXTOUT_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,58+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,Col137);TEXTOUT_P ("E",5,117,2,Col137);TEXTOUT_P("m",70,62+17,1,Col3);TEXTOUT_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},{6 5,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);TEXTOUT_P("m2",80,109+1 7,1,Col3);Dats:={0.25,Elas};Regs:={{{25,58+17},{65,71+17}},{{13,98+17},{75,111+17}}};D atsbmq(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);TEXTOUT_P(CH AR({67,65,82,71,65,83}),6,25,2,Col128);TEXTOUT_P(CHAR({67,65,82,71,65,83}),7,25,2,Col 128);TEXTOUT_P(CHAR({69,108,101,109,101,110,116,111}),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,10 0,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;IF OriCarga==2 THEN RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;LINE_P(2 0,163,30,163,Col111);TEXTOUT_P("▶ ",30,159,1,Col111);RECT_P(10,166,45,167,Col148);LI NE_P(74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(55,166,90,167,Co l148);RECT_P(4,74,41,76,Col118);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); TEXTOUT_P(CHAR({68,105,115,116,97,110,99,105,97,32,58}),7,87,1,Col137);TEXTOUT_P( CHAR({70,117,101,114,122,97,32,58}),19,102,1,Col137);TEXTOUT_P(CHAR({77,111,109,1 01,110,116,111,32,58}),3,117,1,Col137);RECT_P(5,180,48,198,Col3);TEXTOUT_P(CHAR({6 5,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);RE CT_P(52,180,93,198,Col101);TEXTOUT_P("Elim",62,184,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,12 5}}};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;IF OriCarga==2 THEN RECT_P(7,146,48,171,Col12,Col129);RECT_P(52,146,93,171,Col132,Col128);END;FOR I FROM 1 TO 4 DO LINE_P(10+5*(I1),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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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,100,97}),42,64,1,Col148); TEXTOUT_P(CHAR({88,32,105,110,105,32,58}),10,87,1,Col137);TEXTOUT_P(CHAR({88,3 2,102,105,110,32,58}),10,102,1,Col137);TEXTOUT_P(CHAR({87,32,105,110,105,32,58}),6,1 17,1,Col137);TEXTOUT_P(CHAR({87,32,102,105,110,32,58}),6,132,1,Col137);RECT_P(5,18 0,48,198,Col3);TEXTOUT_P(CHAR({65,99,101,112}),13,184,2,Col128);TEXTOUT_P(CHAR ({65,99,101,112}),13,184,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,9 5}},{{40,97},{90,110}},{{40,112},{90,125}},{{40,127},{90,140}}};DatsbmqCargas(4,5);END ;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,Col128);TEXTOUT_P ("CARGAS",7,25,2,Col128);TEXTOUT_P("Nudo",5,42,2,Col1);TEXTOUT_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,1 14}),30,124,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,124,2,Col128);At ytz16(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):=nombre(i,1 2);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;I F i>mbr THEN long:=L(i);Em:=EE(i);a:=long/4;area:=a*tt(i);rig:=Em*area/long;nvig:=(nr1)*np;dx:=nombre(i,4);dy:=nombre(i,5);CosT:=dx/long;SenT:=dy/long;k:=MAKEMAT(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:=nglnp;Kaa:=SUB(SS,{1,1},{na,na});Kab:=SUB(SS,{1,na+1},{na,ngl});Kba:=TRN(Kab);Kbb:=SU B(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,xpe3,rtyh2)B EGIN 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:=MYCLP(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;E ND;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;E ND;END;END;zsc2(j):=CLP;xpre15(j):=Mat_A;e:=e+rtyh2;END;END;END;ffllq9(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*FLOOR(H/1 20)+360;ex:=(H-360)/120+1;cx:=320/(ex);xH:=xH+pny;ey:=(V240)/120+1;pnx:=EXPR(xH);cy:=240/(ey);lx:=MID(pnx,137+2,7);DIMGROB_P(G8,320,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(MOUS E(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)+(ayoay);END;axo:=ax;ayo:=ay;vX:=1;vY:=1;ELSE vv:=0;END;x:=MAX(MIN(x-cC(1)+cC(3),H320),0);y:=MAX(MIN(y-cC(2)+cC(4),V240),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,2403,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,3203,240,RedB,PlomoA);RECT_P(G8,320,cy*pmy,3202,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(y120*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(x120*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,2403,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,3203,240,RedB,PlomoA);RECT_P(G8,320,cy*ccy,3202,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,210,Col12 8);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;LOC AL 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;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((px2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN esc:=MIN((px-2*bdx),(py2*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;IFERR 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,10)),(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)),(xf22*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,yi10,5,Col54);TEXTOUT_P(Dats(3),G3,xi+6,yi-4,1,Col54);ELSE TEXTOUT_P("↻",G3,xi-8,yi10,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,xi3*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,{(xi3*M1(I,11),yi-3*M1(I,10)),(xf-5*M1(I,11),yf-5*M1(I,10)),(xf-1*M1(I,11),yf1*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,xi3*M1(I,11),yi-3*M1(I,10),xf-3*M1(I,11),yf3*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)),(xf5*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,xf10,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*M1(I,10);L INE_P(G3,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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);TEXTO UT_P(Dats(4),G3,xf+1,yf,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);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);L INE_P(G3,xi,yi,xf,yf,Col60);x:=x2/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);L INE_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,yf5,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:=yi1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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:=yiw*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);TEXTOUT_P(-Dats(4),G3,xf+1,yf5,1,Col148);LINE_P(G3,cxi,cyi,xf,yf,Col60);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:=xi1*M1(I,11);yf:=yi-1*M1(I,10);LINE_P(G3,xi,yi,xf,yf,Col60);x:=x2/esc;xi:=MC(M1(I,1),1)+x*esc*M1(I,10);yi:=MC(M1(I,1),2)-x*esc*M1(I,11);xi:=xi2*M1(I,11);yi:=yi-2*M1(I,10);xf:=xi-1*M1(I,11);yf:=yi1*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),yi10*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),yf10*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)-(x4/esc)*esc*M1(I,11);LINE_P(G3,xi-4*M1(I,11),yi-4*M1(I,10),MC(M1(I,1),1)+(x10/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),yf6*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),yi10*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),yf10*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),yi4*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),yi4*M1(I,10)),(xf-6*M1(I,11),yf-6*M1(I,10)),(xf-2*M1(I,11),yf2*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,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);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;LOCAL 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);L OCAL 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*BBsqrt(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)*Ga ma;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;RKik(j):=R
Kik(i)*Alfa+RKik(j);RMik(j):=RMik(i)*Alfa+RMik(j);Id:=ASC(Ta);Io:=0;FOR 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)*Ga ma;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;FOR 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},{32 0,17},DarkBlue,AzulTit);TEXTOUT_P(CHAR({69,83,80,69,67,84,82,79,32,68,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,32,69,108, 97,115,116,105,99,111}),G2,dx,dy,3,RedA);rx:=CHAR({118,101,114});dy:=dy+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+160vd,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+hd3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,StrawRed);r y:=CHAR({115,105});TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1*Fe_X30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,StrawRed);T EXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,StrawRed);LINE_P( G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+240,dy+160,Red);TEXTO UT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-5,2,Red);LINE_P(G2,dx-1,dy,dx1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,47,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+160Acel(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160Acel(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(Acel),2),G2,dx-35,dy+160Max(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:=1
60/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+160vd,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+hd3,dy+160+3,1,Plomo);END;LINE_P(G2,dx+xpe1*Fe_X,dy,dx+xpe1*Fe_X,dy+160,StrawRed); TEXTOUT_P(CHAR({84,112,61})+xpe1,G2,dx+xpe1*Fe_X30,dy+160+5,2,StrawRed);LINE_P(G2,dx+xpe2*Fe_X,dy,dx+xpe2*Fe_X,dy+160,StrawRed);T EXTOUT_P(CHAR({84,108,61})+xpe2,G2,dx+xpe2*Fe_X+2,dy+160+5,2,StrawRed);LINE_P( G2,dx,dy+160+1,dx+240,dy+160+1,Red);LINE_P(G2,dx,dy+160,dx+240,dy+160,Red);TEXTO UT_P(CHAR({84,32,40,115,41}),G2,dx+240+5,dy+160-5,2,Red);LINE_P(G2,dx-1,dy,dx1,dy+160,Red);LINE_P(G2,dx,dy,dx,dy+160,Red);TEXTOUT_P(CHAR({83,40,109,47,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+160AcelI(i)*Fe_Y,Blue);PIXON_P(G2,dx+Per(i)*Fe_X+1,dy+160AcelI(i)*Fe_Y+1,Blue);END;TEXTOUT_P(tlitg2(Max(AcelI),2),G2,dx-35,dy+160Max(AcelI)*Fe_Y-5,2,Blue);dy:=dy50;sa:=rx+ry;ffllq9(dy,0,x,y,Gi,sa,TxTb);END;ffllq3(Ini,Nom,x,y,L,let,ColA,ColB,ColC,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*i11,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})));REPEAT 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*(j1)+4)<my<(y+20*(j-1)+24)AND bbb3=="3CD62400KQ" 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*i11,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
AzulTit);TEXTOUT_P(T2,x+19,y+16,2,AzulTit);R_Ace:={{x+L/2-45-15,y+33},{x+L/25,y+55}};RECT_P(R_Ace(1),R_Ace(2),RedA,Plomo);TEXTOUT_P(CHAR({65,99,101,112,11 6,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({67,97,110,99,101,108,97,11 4}),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
1);RECT_P(20,85,80,103,Col3);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,89,2,Col 128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),30,89,2,Col128);LINE_P(G3,5,190,5,2 03,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);TEXTOUT_P(CHAR({78,117,101,118,97,32,69,115,116,114,117,9 9,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({78,117,101,118,97,32,69,115,116 ,114,117,99,116,117,114,97}),G3,60,70,2,Col30);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,8 5,82,65}),G3,80,198,1,Col132);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,81,1 98,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
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;I F Caso==2 THEN IF 230<=Accion(2)<=265 AND 210<=Accion(3)<=240 THEN bdx:=bdx5;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;E ND;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:=bdy5;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;I F 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();BREAK;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;END;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;FO R 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,105,99,111 ,115}),20,170,2,Col128);TEXTOUT_P(CHAR({69,115,112,101,99,237,102,105,99,111,115}),2 1,170,2,Col128);WAIT(0.3);DIMGROB_P(G4,320,240);RECT_P(G4);BLIT_P(G4,G0);IF B<=5 THEN InProp:=155;END;IF 5 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;EN D;BLIT_P(G0,G4);Elas:=Dats(3);Atytz12(7);cnP:=cnP+1;Atytz13();BREAK;END;END;END;I F 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,15 9,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col132,Col128);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,1 59,1,Col111);RECT_P(10,166,45,167,Col148);RECT_P(52,146,93,171,Col12,Col129);LINE_P( 74,150,74,160,Col111);TEXTOUT_P("▼",71,159,1,Col111);RECT_P(55,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,Col128);TEXT OUT_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):=VecC;Atytz1 6(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:={};FOR 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*(I1),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,171,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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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*(I1),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,171,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*(I1),163,Col111);TEXTOUT_P("▼",50+5*(I),159,1,Col111);END;RECT_P(55,166,90,167,Col1 48);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,Col128);TEXT OUT_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(DCgB)+1):= {NBarra,2,Dats,OriCarga};Datsbmq111(NBarra):=VecC;Atytz16(2);Atytzad21(2,0);BREAK;E ND;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:={};FOR 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}),30,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,yf1,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,Co lr);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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,116,97,114 }),31,128,2,Col128);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),31,128,2,Col128);BLI T_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11
1,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,Col12 8);BLIT_P(G0,30,40,55,65,CHAR({65,112,111,121,111}),0,25*(A1),25,25*(A));BLIT_P(G0,7,95,48,168,CHAR({82,101,115,111,114,116,101}),0,0,41,73);Regs: ={{{50,70},{90,85}},{{50,95},{90,110}},{{50,122},{90,137}},{{50,150},{90,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),Col128);RE CT_P(3,23,95,37,RGB(0,56,230));RECT_P(2,39,96,65,RGB(61,123,245),Col128);TEXTOUT_ P(CHAR({83,79,80,79,82,84,69,83}),5,25,2,Col128);TEXTOUT_P(CHAR({83,79,80,79,82,84, 69,83}),6,25,2,Col128);TEXTOUT_P("▼",80,42,4,Col1);TEXTOUT_P(CHAR({78,117,100,11 1,32,58}),9,75,1,Col1);TEXTOUT_P(CHAR({68,101,102,111,114,46,32,73,109,112,117,101,11 5,116,97,32,58}),6,95,1,Col111);TEXTOUT_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*(A1),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;UNTIL 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}),31,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)*32;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(1)*31;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):=Dats(1);M3( rowDim(M3),2):=Dats(1)*32;M3(rowDim(M3),3):=0;M3(rowDim(M3)+1,1):=Dats(1);M3(rowDim(M3),2):=Dats(1)*31;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):=Dats(1);M3( rowDim(M3),2):=Dats(1)*32;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):=Dats(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}),31,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)*21;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):=Dats(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),Col128);R ECT_P(2,23,95,37,RGB(0,56,230));TEXTOUT_P({67,79,79,82,68,46,32,78,85,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,Col128);TE
XTOUT_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*I1);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),Col128);R ECT_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,Col128);TE XTOUT_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;h(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,Col13 3);TEXTOUT_P(CHAR({69,83,84,82,85,67,84,85,82,65}),G3,76,198,1,Col133);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),(py2*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)),(py2*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-s2MC(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),cx12*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),cx12*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),cx12*COS(α+135),cy+12*SIN(α+135),cx,cy},Col134);LINE_P(G3,cx19*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,{cx12*COS(π*(α+45)/180),cy+12*SIN(π*(α+45)/180),cx12*COS(π*(α+135)/180),cy+12*SIN(π*(α+135)/180),cx,cy},Col134);LINE_P(G3,cx19*COS(π*(α+55)/180),cy+19*SIN(π*(α+55)/180),cx19*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,cy10,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,cy10,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,cy20,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,cy9,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,cx14,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(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);RECT_P(G3,148,197,161,205,Col131);RECT_P(G3,149,196,1 60,206,Col131);RECT_P(G3,173,197,186,205,Col131);RECT_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((px2*bdx),(py-2*bdy))END;IF MAX(MC(-1))==0 THEN esc:=MIN((px-2*bdx),(py2*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-s2MC(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);END;EN D;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);END;EN D;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);END;EN D;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)))/25,(ABS(MC(M1(I,1),2)+MC(M1(I,2),2)))/22,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,215,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)))/23,(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)))/23,(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,234,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,1 49,5,Col128);LINE_P(137,18,150,5,Col128);LINE_P(138,18,150,6,Col128);BLIT_P(G0,165,5, 180,18,"AE",0,0,15,13);ARC_P(100,12,7,{Col12,Col129});TEXTOUT_P("i",99,8,1,Col12);LIN E_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),(21825,16)},Col128);TEXTOUT_P("●",197,4,1,Col128);RECT_P(249,16,267,17,Col128);FOR I FROM 1 TO 5 DO LINE_P(246+I*4,4+2*(I1),246+I*4,16,Col128);TEXTOUT_P("▾ ",242+I*4,11,1,Col128);END;LINE_P(250,4,266,12,C ol128);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,Col137);T EXTOUT_P(CHAR({648,945,972,981,909,1026}/9),59,228,1,Col137);END;toq(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;Edicion(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;E ND;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);Colaxsdcer f:=RGB(61,123,245);oligft115(nb,Caso);oligft110(nb);oligft111(nb);DatsGri1:={};RegsGri1:={ };DatsGri2:={};RegsGri2:={};axsdcerfP();axsdcerfGrid();GX:={};GY:={};Datsbmqa19();Selec Elem();PropGeoElem(cn);DibElem(Tod,Esp);SelecTipElem(Tip);fsrvthaGrilla(Tp);esc;cn;cx;cy; pb;la1;la2;la3;lx;ly;ElemSelec;NomElem:=1;TipElem:=1;dsawr()BEGIN DIMGROB_P(G1,320,720);RECT_P(G1,Col128);RECT_P(G1,0,0,320,240,Col128);RECT_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);TEXTO UT_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,Col128);LINE_P(G1,137,18,150,5,Col 128);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,Col12 8);TEXTOUT_P("▼",G1,233,7,1,Col128);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,{(22525,9),(232-25,16),(21825,16)},Col128);TEXTOUT_P("●",G1,197,4,1,Col128);RECT_P(G1,249,16,267,17,RGB(200,2 00,200));FOR I FROM 1 TO 5 DO LINE_P(G1,246+I*4,4+2*(I1),246+I*4,16,Col128);TEXTOUT_P("▾ ",G1,242+I*4,11,1,Col128);END;LINE_P(G1,250,4,26 6,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;axsdcerfP()B EGIN 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,Col20);RE CT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col148);LINE_P(G1,137,18,150,5,Col 148);LINE_P(G1,138,18,150,6,Col148);BLIT_P(G0,G1);WAIT(0.3);Datsbmqa19();la1:={};FO R I FROM 1 TO rowDim(M1)DO la1(2*I1):=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:=mmx 0;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.00000000000 1;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,226,318,237 ,Col148,Col146);RECT_P(270,226,317,237,Col146,Col146);TEXTOUT_P(CHAR({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;END;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;END;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,101,118,1 11});RECT_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+ancho2,cyi+15,Col132);TEXTOUT_P("x",cxi+ancho-12,cyi5,5,#FFFFFFh,100);RECT_P(cxi+5,cyi+26,cxi+ancho5,cyi+77,Col133,Col129);TEXTOUT_P(CHAR({78,250,109,101,114,111,32,100,101,32,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);TEXTOUT_P(CHAR({68,105,11 4,101,99,99,105,243,110,32,89}),cxi+18,cyi+60,1,Col148);RECT_P(cxi+5,cyi+91,cxi+ancho5,cyi+142,Col133,Col129);TEXTOUT_P(CHAR({69,115,112,97,99,105,97,109,105,101,110,11 6,111}),cxi+10,cyi+87,1,Colaxsdcerf,100,Col129);TEXTOUT_P(CHAR({68,105,114,101,99,99 ,105,243,110,32,88}),cxi+18,cyi+106,1,Col148);TEXTOUT_P(CHAR({68,105,114,101,99,99,1 05,243,110,32,89}),cxi+18,cyi+125,1,Col148);RECT_P(cxi+ancho-32,cyi+106,cxi+ancho10,cyi+126,Col3,Col131);TEXTOUT_P("✍",cxi+ancho28,cyi+105,4,Col148);RECT_P(90,186,150,204,Col12,Col131);RECT_P(91,187,149,203,Col12, Col131);TEXTOUT_P(CHAR({65,99,101,112,116,97,114}),99,189,2,Col148);RECT_P(170,18 6,230,204,Col135,Col131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,189,2,Co l148);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);fsrvthaGrilla(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),(cx,cy+15) },RGB(255,255,255));TEXTOUT_P("●",cx-4,cy,7,Col5);TEXTOUT_P("+",cx2,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,111}),33,29,2,Col1 48);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,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));REC T_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,10 2,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,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);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:={};DAp:={};GX:={};G Y:={};L1:={};L2:={};L3:={};L4:={};L5:={};L6:={};L7:={};L8:={};L9:={};L0:={};FILLPOL Y_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,255,255));TEXTOUT_P("●",cx4,cy,7,Col5);TEXTOUT_P("+",cx2,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,111}),33,29,2,Col1 48);WAIT(0.5);BLIT_P(G0,0,0,320,240,G1,0,0,320,240);axsdcerfGrid();BREAK;END;END;E ND;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)
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)
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},{xo9,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,rtyh9,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+ly10,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},{xo9,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=="3CD62400KQ" 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,rtyh9,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+ly18,3,RedA);lx:=lx+8*DimCol(i)+12;END;RECT_P(Gr,{xo-10,yo+ly-19},{xo+lx-5,yo+ly20},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+lx5,yo+ly-0.5},RedA);RECT_P(Gr,{xo-10,yo-20},{xo-9,yo+ly},RedA);RECT_P(Gr,{xo+lx-5,yo15},{xo+lx4,yo+ly},RedA);lx:=lx;lagr3:=lx+20;lagr4:=ly+20;END;yyhte10(Gr,Tx,Num,Den,xo,yo,L,TCol) BEGIN LOCAL nN,nD,nT;nN:=DIM(Num);nD:=DIM(Den);nT:=DIM(Tx);TEXTOUT_P(Tx,Gr,xo+4,yo+5,2,T Col);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,y o,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+L0.2,yo+H0.2},TCol,PlomoA);TEXTOUT_P(Eeq,Gr,xo+5,yo+5,2,TCol);END;jjrtg10(Gr,Te,Ts,xo,yo,TCo l)BEGIN LOCAL nN;nN:=DIM(Te);TEXTOUT_P(Te,Gr,xo,yo,2,TCol);TEXTOUT_P(Ts,Gr,xo+8*nN,yo5,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,yo+8,1,TC ol);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((px2*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)),(py2*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-s2MC(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(CHAR({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,Col129);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(M
1(I*(SIZE(GX)),2),2),Col129);ARC_P(G1,9,MC(M1(I*(SIZE(GX)),2),2),7,Col131);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*(SIZE(GX)+1) +1,2),Col129);ARC_P(G1,9,MC(I*(SIZE(GX)+1)+1,2),7,Col131);TEXTOUT_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,230,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,Col131);RECT _P(G1,270,226,317,237,Col131,Col131);TEXTOUT_P(CHAR({69,100,105,116,45,71,114,105, 108,108}),G1,272,228,1);END;BLIT_P(G0,0,0,320,240,G1,0,0,320,240);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,ColB,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,cx8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx-4,cy,ColB);LINE_P(Gr,cx-8,cy,cx4,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;PropGeo Elem(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,320,240,G 1,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);BLI T_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;END;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,132,3,155, 19,Col20);RECT_P(G1,133,2,154,20,Col20);LINE_P(G1,137,17,149,5,Col148);LINE_P(G1,13 7,18,150,5,Col148);LINE_P(G1,138,18,150,6,Col148);DibElem(1,0);BLIT_P(G0,0,0,320,240,G 1,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,197,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),M C(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)))/23,(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*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;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)))/23,(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*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;TipElem:=TipElemA;END;END;END;SelecTipElem(Tip)BEGIN RECT_P(270,225,318,238,Col12,Col129);TEXTOUT_P("KN,m,C",272,228,1,Col148);TEXTO UT_P("▼",309,227,2,Col135);TipElem:=Tip;RECT_P(290,30,317,130,Col145,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);LINE_P(cx+1,cy+1 7,cx+17,cy+1,Col12);cy:=62;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,69,2,Col12);cy: =87;cx:=297;LINE_P(cx,cy+10,cx+10,cy,Col12);LINE_P(cx,cy+11,cx+11,cy,Col12);LINE_P(c x+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;SelecEle m()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:=S ORT(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:=S ORT(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
235,80,Col133,Col129);RECT_P(85,70,235,187,Col133,Col129);RECT_P(164,56,234,85,Col12 9,Col129);TEXTOUT_P(CHAR({69,106,101,32,89}),182,59,1,Colaxsdcerf,100,Col129);END; RECT_P(180,90,230,105,Col133,Col131);TEXTOUT_P("Añadir",190,93,1,Col148);RECT_P(1 80,115,230,130,Col133,Col131);TEXTOUT_P("Eliminar",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,Col148);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*(H1)},{cx+80,cy+15*(H)}};TEXTOUT_P(CHAR({64+H}),cx,cy+15*(H1)+4,2,Col111);TEXTOUT_P(CHAR({65+H}),cx+26,cy+15*(H1)+4,2,Col111);TEXTOUT_P("⇤",cx+10,cy+15*(H1)+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),Col128);RE CT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;Btn:=1;Edicio n(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);TEXTOU T_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,97,114}),9 9,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,229,213,Col12,Co l131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199,2,Col148);WAIT(0.3);BR EAK;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*(H1)},{cx+80,cy+15*(H)}};TEXTOUT_P(H,cx,cy+15*(H1)+4,2,Col111);TEXTOUT_P(H+1,cx+26,cy+15*(H1)+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),Col128);RE CT_P(Region1(1)+1,Region1(2)+1,RGB(213,213,213),Col128);END;END;cn:=1;Btn:=1;Edicio n(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);TEXTOU T_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,97,114}),9 9,199,2,Col148);RECT_P(170,196,230,214,Col12,Col131);RECT_P(171,197,229,213,Col12,Co l131);TEXTOUT_P(CHAR({67,97,110,99,101,108,97,114}),179,199,2,Col148);WAIT(0.3);BR EAK;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*nf2,3*nf-1,3*nf];enc2:=[0,3*ni-2,3*ni-1,3*ni,3*nf-2,3*nf1,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:=appr ox(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);ML:=ADD COL(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*nf1,3*nf];mti:=vc(M);mti:=CAS(CAS(mti));mbarras(M):=mti;mt:=FForma(mti);mt:=approx(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)/2mt(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,enc1,2);L4( M):=fg;Ti:=L3(M);Ti:=TRN(Ti);fg:=Ti*fgA;fg:=ADDCOL(fg,enc1,2);L6(M):=fg;END;vc:=mb arras;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*(1x/ll)^2;φ4:=x/ll;φ5:=(x^2/ll^2)*(3-2*x/ll);φ6:=(-x^2/ll)*(1-x/ll);φ¹1:=CAS.diff(1x/ll,x);φ¹2:=CAS.diff(1-3*x^2/ll^2+2*x^3/ll^3,x);φ¹3:=CAS.diff(x*(1x/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"));END;EN D;END;res:=EVAL({Nx(1),Vx(1),Mx(1),Nx(2),Vx(2),Mx(2)});END;hc1()BEGIN 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(cabe2);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:=ADDROW(M5,ca be1,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;EN D;ELSE L1:={};L2:={};L3:={};M8:=[[0]];END;END;RSep()BEGIN L7:={};LNC:={};LNN:={};LOCAL ME,MKnn,MKna,MKan,MKaa,MFn,MFa;LOCAL mm,z177x,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);ME:=M5;ME:=DELC OL(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;FOR 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*I1,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,MKaa,MFn, MFa,Mδa,FFN,FFC};END;IF T==1 THEN M6:=inv(MKnn)*MFninv(MKnn)*MKna*Mδa;M7:=MKan*inv(MKnn)*MFn+(MKaaMKan*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:=MMMMFa;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(ma);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()BEGIN 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*nf1,2*nf];enc2:=[0,2*ni-1,2*ni,2*nf1,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,enc 2,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,colDim(l1i)); l2i:=DELROW(l2i,1);l2i:=DELCOL(l2i,colDim(l2i));l4i:=DELCOL(l4i,2);l6i:=DELCOL(l6i,2); L9(I):=l2i*L5(I)+l6i;L10(I):=L3(I)*L9(I);END;END;fldth11()BEGIN 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);rtyh 5:=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(v ar,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,v i+11);xpe3:=DB(var,vi+12);xpe4:=DB(var,vi+13);xpe5:=DB(var,vi+14);xpe6:=DB(var,vi+15);x pe7:=DB(var,vi+16);xpe8:=DB(var,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(var,vi+25);pft7:=DB(var,vi+26);pft8:=DB(var,vi+27);pft9:=DB(var,vi+28);pft10 :=DB(var,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,vi+37);vi: =vi+37;fld9:=DB(var,vi+1);fld10:=DB(var,vi+2);hfjq1:=DB(var,vi+3);hfjq2:=DB(var,vi+4);hfjq 3:=DB(var,vi+5);hfjq4:=DB(var,vi+6);hfjq5:=DB(var,vi+7);hfjq6:=DB(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+1 3);werf2:=DB(var,vi+14);werf3:=DB(var,vi+15);werf4:=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);we rf10:=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(v ar,vi+30);bhy8:=DB(var,vi+31);bhy9:=DB(var,vi+32);bhy10:=DB(var,vi+33);gpk1:=DB(var,vi +34);gpk2=DB(var,vi+35);vi:=vi+35;gpk3:=DB(var,vi+1);gpk4:=DB(var,vi+2);gpk5:=DB(var,v i+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:=DB(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);qwr10:=DB(var,vi+8);dfg1:=DB(var,vi+9);dfg2:=DB(var,vi+10);dfg3=DB(var,vi+11);dfg4:= DB(var,vi+12);vi:=vi+12;dfg5:=DB(var,vi+1);dfg6:=DB(var,vi+2);dfg7:=DB(var,vi+3);dfg8:=D B(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);fjlt5:=DB(var,vi+12);fjlt6:=DB( var,vi+13);fjlt7:=DB(var,vi+14);fjlt8:=DB(var,vi+15);fjlt9:=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:=DB(var,vi+2);abd9:=DB(var,vi+3);abd10:=DB(var,vi+4);b dc1:=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);exp r4:=DB(var,vi+18);expr5:=DB(var,vi+19);expr6=DB(var,vi+20);expr7:=DB(var,vi+21);expr8:= 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:=DB(var,vi+5);xpre5:=DB(var,vi+6);xpre6: =DB(var,vi+7);xpre7:=DB(var,vi+8);xpre8:=DB(var,vi+9);xpre9:=DB(var,vi+10);vi:=vi+10;xpr e10:=DB(var,vi+1);xpre11:=DB(var,vi+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,v i+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 (var,vi+9);zsc13:=DB(var,vi+10);zsc14:=DB(var,vi+11);zsc15:=DB(var,vi+12);zxp1:=DB(var,v i+13);zxp2:=DB(var,vi+14);zxp3:=DB(var,vi+15);zxp4:=DB(var,vi+16);zxp5:=DB(var,vi+17);z xp6:=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:=D B(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:=DB(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(va r,vi+4);ixpr7:=DB(var,vi+5);ixpr8:=DB(var,vi+6);ixpr9:=DB(var,vi+7);ixpr10:=DB(var,vi+8);ix pr11:=DB(var,vi+9);ixpr12:=DB(var,vi+10);ixpr13:=DB(var,vi+11);ixpr14:=DB(var,vi+12);ixpr 15:=DB(var,vi+13);ixpr16:=DB(var,vi+14);ixpr17:=DB(var,vi+15);ixpr18:=DB(var,vi+16);ixpr 19:=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:=DB(var,vi+28);jksd11:=DB(v ar,vi+29);jksd12:=DB(var,vi+30);jksd13:=DB(var,vi+31);jksd14:=DB(var,vi+32);jksd15:=DB(v ar,vi+33);jksd16:=DB(var,vi+34);jksd17:=DB(var,vi+35);jksd18:=DB(var,vi+36);jksd19:=DB(v ar,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:=D B(var,vi+50);jliu13:=DB(var,vi+51);vi:=vi+51;jliu14:=DB(var,vi+1);jliu15:=DB(var,vi+2);jliu1 6:=DB(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+1 5);dshy9:=DB(var,vi+16);dshy10:=DB(var,vi+17);dshy11:=DB(var,vi+18);dshy12:=DB(var,vi+ 19);dshy13:=DB(var,vi+20);dshy14:=DB(var,vi+21);dshy15:=DB(var,vi+22);dshy16:=DB(var,v i+23);dshy17:=DB(var,vi+24);dshy18:=DB(var,vi+25);dshy19:=DB(var,vi+26);dshy20:=DB(var ,vi+27);lagr1:=DB(var,vi+28);lagr2:=DB(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(v ar,vi+3);lagr9:=DB(var,vi+5);lagr10:=DB(var,vi+6);vi:=vi+6;liev1:=DB(var,vi+1);liev2:=DB(va r,vi+2);liev3:=DB(var,vi+3);liev4:=DB(var,vi+4);liev5:=DB(var,vi+5);liev6:=DB(var,vi+6);liev 7:=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(v ar,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)},Plom o,150);RECT_P(29,29,291,181,AzulB,AzulB);RECT_P(30,30,290,180,AzulB,Fondo);TEXTOU T_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,Fondo);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_Ace(2),16,F ondo);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,Azul B);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,1 00,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
tamA:=tamA+1;pxtrf3(CHAR({77,111,100,101,108,111,32})+tamA,R_Nom,2)▶ Name;tamA:=t amA-1;ldljt10(2);BREAK;END;IF R_Ace(1,1)<mx
,51,68}),G3,xx+30,yy+65,2,AzulM);xx:=25;yy:=50;BLIT_P(G0,xx2,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,115,116,10 5,108,111,32,50}),CHAR({69,115,116,105,108,111,32,51})},95,155,100,2,LigthBlue,AzulB,Fo ndo,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,1 09,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:=RGB(250,255,255); Fondo:=GreenLucite;AzulA:=StrawRed;AzulB:=Tangerine;AzulTit:=BlueClasic;MCuad:=Mars aRed;FCuad:=RGB(220,220,220);RedA:=CusYellow;RedB:=CusYellow;CTexto:=Blue;CTexto 2:=Red;CoVig:=RGB(0,20,253);CoMur:=RGB(20,209,173);AzulM:=RGB(34,62,20);RedM:=R GB(153,27,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,105,110,115,116,9 7,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,1 09,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:=RGB(#CD h,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RGB(33,115,231);Wh ite:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(53,117,211);AzulB:=RGB(0, 28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;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);CoVi g:=RGB(0,126,253);CoMur:=RGB(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,2 7,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,11 0,115,116,97,108,97,100,111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;EN D;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,1 09,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:=RGB(#CD h,0,0);Black:=RGB(0,0,0);Plomo:=PlomoA;LigthBlue:=Aqua;DarkBlue:=RGB(33,115,231);Wh ite:=RGB(250,255,255);Fondo:=RGB(239,247,247);AzulA:=RGB(53,117,211);AzulB:=RGB(0, 28,84);AzulTit:=BlueClasic;MCuad:=MarsaRed;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);CoVi g:=RGB(0,126,253);CoMur:=RGB(217,209,173);AzulM:=RGB(34,62,176);RedM:=RGB(153,2 7,30);ldljt7(CHAR({69,115,116,105,108,111,32})+var,CHAR({32,32,32,32,32,32,32,32,105,11 0,115,116,97,108,97,100,111}),80,100,140,40,1);qljgt1();pxtrf1();jjrtg1();liev18:=0;BREAK;EN D;END;END;END;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,yy1,xx+dx+1,yy+dy+1,AzulB,Fondo);RECT_P(G3,xx,yy,xx+dx,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,48}),G3,xx+103+45, yy+1+6,2,RedM);RECT_P(G3,xx+34,yy+20,xx+dx,yy+20,DarkBlue,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,11 6,97,116,105,99,111,32,112,97,114,97,32,69,100,105,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,10 0,111,114,32,58}),G3,xx+10,yy+50,2,AzulB);TEXTOUT_P(CHAR({65,89,65,76,65,32,66,73,9 0,65,82,82,79,32,82,79,67,75,89}),G3,xx+98,yy+50,2,AzulM);TEXTOUT_P("",G3,xx+71.5,yy +65,2,AzulB);TEXTOUT_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,100,97,114,1 11,46,119,111,114,100,112,114,101,115,115,46,99,111,109}),G3,xx+98,yy+80,2,AzulM);TEXT OUT_P(""+CHAR({32,50,48,49,55,32,82,111,99,107,121,32,65,121,97,108,97,46,32,84,111,10 0,111,115,32,108,111,115,32,100,101,114,101,99,104,111,115,32,114,101,115,101,114,118,97,1 00,111,115,46}),G3,xx+10,yy+105,1,AzulB);TEXTOUT_P(CHAR({85,110,105,118,101,114,11 5,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,1 16,111,98,97,108,32,100,101,32,72,117,97,109,97,110,103,97}),G3,xx+10,yy+120,1,AzulB);TE XTOUT_P(CHAR({65,121,97,99,117,99,104,111,45,80,101,114,117}),G3,xx+95,yy+135,1,Azu lB);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;UNTIL 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;xpe4:=0.5;xpe5:=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,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;hfjq 4:=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;b hy4:=0.20;bhy5:=0.15;bhy6:=2.5;bhy7:=65;bhy8:=2400;bhy9:=217370.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;gp k7:=[[0.25,0.25,210,2400,0.2,217370.7,90571.1]];gpk8:=1;gpk9:=[[0.15,2.5,65,2400,0.25,32500 ,90571.1]];gpk10:=1;qwr1:=0;qwr2:=5;qwr3:=4;qwr5:=1;qwr6:=1;qwr7:={};qwr8:={};qwr9:={ };qwr10:={};dfg1:=0;dfg2:=0;dfg3=[[0]];dfg4:=1;dfg5:=1;dfg6:={200,200,200,200,200};dfg7:= {0,0,0,0,0};dfg8:={280,300,350,420,475};dfg9:=2;dfg10:={5000,4000,3000,2000,1000};cba1:= {2500,2000,1500,1000,500};fjlt1:={2500,2000,1500,1000,500};fjlt2:={};fjlt3:={};fjlt4:={};fjlt5 :={};fjlt6:=0;fjlt7:=0;fjlt8:=0;fjlt9:=0;abd1=qwr2*qwr3;abd3:=1000;abd4:=500;abd5:={{11.002 3},{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;bdc1 0:=0;expr1:=0;expr2:=0;expr3:=[[0,0,0,0,0,1E-19,1E23,0]];expr4:={};expr5:=[[0]];expr6={};expr7:=0;expr8:=0;expr9:=1;expr10:=0;expr11:=0;expr 12:=0;expr13:=0;expr14:=0;expr15:=[[0,0,0,0,0,1E-19,1E23,0]];expr16:={};expr17:=[[0]];expr18:=1;expr19:={};expr20:={};xpre2:=[[0]];xpre3:=[[0]];xp re4:={};xpre5:={};xpre6:={};xpre7:={};xpre8:={};xpre9:={};xpre10:={};xpre11:={};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:={};zsc1 0:={};zsc11:=[[0]];zsc12:=[[0]];zsc13:=[[0]];zsc14:=0;zsc15:=0;zxp1:={};zxp2:={};zxp3:=0;zx p4:=0;zxp5:=[[0]];zxp6:=[[0]];zxp7:=[[0]];zxp8:=[[0]];zxp9:=[[0]];zxp10:=[[0]];zxp11:=[[0]];zx p12:=[[0]];zxp13:=0;zxp14:=0;zxp15:=0;zxp16:=0;zxp17:={};zxp18:={};zxp19:={};zxp20:={}; ixpr1:=[[0]];ixpr2:=[[0]];ixpr3:=[[0]];ixpr4:=[[0]];ixpr5:=[[1,2],[1,2]];ixpr6:=[[0]];ixpr7:=[[0]];i xpr8:=[[0]];ixpr9:=[[0]];ixpr10:={0};ixpr11:=[[0]];ixpr12:=[[0]];ixpr13:=[[0]];ixpr14:=[[0]];ixpr 15:=[[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]];jks d10:=[[0]];jksd11:=[[0]];jksd12:=[[0]];jksd13:=[[0]];jksd14:=[[0]];jksd15:=[[0]];jksd16:=[[0]];jk sd17:=[[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]];dshy 17:=[[0]];dshy18:=[[0]];dshy19:=[[0]];dshy20:=[[0]];lagr1:=[[0]];lagr2:=[[0]];lagr3:=0;lagr4:=0; lagr5:=1;lagr6:=0;lagr7:=0;lagr8:=0;lagr9:=0;lagr10:=0;liev1:=0;liev2:=0;liev3:=0;liev4:=0;liev 5:=0;liev6:=0;liev7:=0;liev8:=0;liev9:=0;liev10:=0;liev11:=0;liev12:=0;liev13:=0;liev14:=1;liev 15:=1;liev16:=1;liev17:=1;liev18:=0;END;yyhte7 BEGIN vVARC:=CHAR([51,67,68,54,50,52,48,48,75,81]);IF vVARC==Serial THEN ELSE BREAK(4);END;END;
Related Documents c2h70
Anesh 14q3n
August 2022 0More Documents from "Eduardo Morales Orozco" 1s1q3c
Anesh 14q3n
August 2022 0
Teoria De Baeyer v2f4p
November 2019 18
Como Recuperar A Tu Ex Pdf 3q2j11
November 2019 73
Estado-constitucion-y-gobierno.pdf 632n
April 2020 36
6g3p1u
September 2020 0