// xcas version=0.7.0 fontsize=20 font=118 // fltk 7Fl_Tile 13 -924 1082 998 20 0 [ // fltk N4xcas7EditeurE 13 -924 1082 930 20 0 1483 , proglin(L,S,X,XS,B):={ n:=nops(L)-1; D:=NULL;DX:=NULL; P:=NULL;PX:=NULL; F:=[]; Le:=NULL; Intx:=NULL; Inty:=NULL; W:=[0,0,0,0]; for(k:=0;k<=n;k++){L[k]:=solve(L[k],y)[0]; if((size(solve(L[k],x))!=0) and (solve(L[k],x)!=[x])){Intx:=Intx,solve(L[k],x)[0]}; F:=append(F,unapply(L[k],x));Inty:=Inty,F[k](0)} W[0]:=-0.1*maxnorm([Intx]); W[1]:=1.2*(max(maxnorm(X),maxnorm([Intx]))); W[2]:=-0.1*maxnorm([Inty]); W[3]:=1.2*maxnorm([Inty]); if(nops(X)>0){ nx:=nops(X)-1; for(k:=0;k<=nx;k++){ Le:=Le,legend(X[k]+i*(k+1)*W[3]/(k+5),"D"+(n+1+k)); DX:=DX,line(x=X[k]); PX:=PX,if(XS[k]==p){display(polygon(1.2*W[0]+i*6*W[2],1.2*W[0]+1.2*W[3]*i,X[k]+1.2*W[3]*i,X[k]+i*6*W[2]),(k+5+nx)+rempli);} else{display(polygon(1.2*W[1]+i*6*W[2],1.2*W[1]+1.2*W[3]*i,X[k]+1.2*W[3]*i,X[k]+i*6*W[2]),(k+5+nx)+rempli);} } } for(k:=0;k<=n;k++){ Le:=Le,legend(((5-k)*W[0]+(k+2)*W[1])/(7)+i*F[k](((5-k)*W[0]+(k+2)*W[1])/(7)),"D"+k); D:=D,line(y=L[k]); P:=P,if(S[k]==m){display(polygon(1.2*W[0]+i*F[k](1.2*W[0]),1.2*W[0]+1.2*W[3]*i,1.2*W[1]+1.2*W[3]*i,1.2*W[1]+i*F[k](1.2*W[1])),(k+2)+rempli);} else{display(polygon(1.2*W[0]+i*F[k](1.2*W[0]),1.2*W[0]+6*W[2]*i,1.2*W[1]+6*W[2]*i,1.2*W[1]+i*F[k](1.2*W[1])),(k+2)+rempli);} } xyztrange(W[0],W[1],W[2],W[3],-10,10,-1,6,W[0],W[1],W[2],W[3],1); Be:=unapply(B,x,y):; //fB:=unapply(solve(B,y)[0],x);return(fB); Bmax:=Be(maxnorm([Intx]),maxnorm([Inty])); D:=D,DX; P,PX,DX,D,display(line(B=R),line_width_4),Le; }:;, // fltk N4xcas10Log_OutputE 13 6 1082 45 20 0 // Parsing proglin£// Warning: n D DX P PX F Le Intx Inty W k y x nx p m Be Bmax R declared as global variable(s) compiling proglin£ , // fltk N4xcas8EquationE 13 51 1082 23 20 0 "Done" ] , // fltk 7Fl_Tile 13 76 1082 45 20 0 [ // fltk N4xcas19Multiline_Input_tabE 13 76 1082 44 20 118 , // fltk N4xcas10Log_OutputE 13 120 1082 1 20 118 ] , // fltk 7Fl_Tile 13 123 1082 928 20 0 [ // fltk N4xcas6FigureE 13 123 1082 927 20 118 landscape=0 history=0.28373 geo=0.63863 mouse_param=0.077634 // fltk N4xcas12History_PackE 15 141 301 315 20 0 [ // fltk 7Fl_Tile 27 141 289 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 141 289 30 20 0 R:=element(0 .. 34000,12580.0) , // fltk N4xcas10Log_OutputE 27 171 289 1 20 0 , // fltk N4xcas10Gen_OutputE 27 172 289 27 20 0 parameter(R,0,34000,12580.0,340.0) ] , // fltk 7Fl_Tile 27 201 289 98 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 201 289 48 20 0 proglin([y,30*x+80*y-60000,y-500,0.05*x+0.1*y-90],£[p,m,m,m],[0],[p],8*x+20*y) , // fltk N4xcas10Log_OutputE 27 249 289 1 20 0 , // fltk 9Fl_Scroll 27 250 289 49 20 0 [ // fltk N4xcas10Gen_OutputE 27 250 6483 27 20 0 [polygon(point(-240.0,0),point(-240.0,-540.0),point(2880.0,-540.0),point(2880.0,0),point(-240.0,0)),polygon(point(-240.0,840.0),point(-240.0,1296.0),point(2880.0,1296.0),point(2880.0,-330.0),point(-240.0,840.0)),polygon(point(-240.0,500),point(-240.0,1296.0),point(2880.0,1296.0),point(2880.0,500),point(-240.0,500)),polygon(point(-240.0,1020.0),point(-240.0,1296.0),point(2880.0,1296.0),point(2880.0,-540.0),point(-240.0,1020.0)),polygon(point(-240.0,-540.0),point(-240.0,1296.0),point(0.0,1296.0),point(0.0,-540.0),point(-240.0,-540.0)),line(x=0),line(y=0),line(y=(-3/8*x+750)),line(y=500),line(y=(-0.5*x+900.0)),line(x=0),line(y=(-0.4*x+629.0)),point(0.0,216.0),point(542.8571429,0),point(914.2857143,407.1428571),point(1285.714286,500),point(1657.142857,71.42857143)] , // fltk 12Fl_Scrollbar 27 279 289 20 20 0 [] , // fltk 12Fl_Scrollbar 316 250 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 27 301 289 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 301 289 30 20 0 I:=inter(D[1],D[3]) , // fltk N4xcas10Log_OutputE 27 331 289 1 20 0 , // fltk N4xcas10Gen_OutputE 27 332 289 27 20 0 [point(1200.0,300.0)] ] , // fltk 7Fl_Tile 27 361 289 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 361 289 30 20 0 Be(1200,300) , // fltk N4xcas10Log_OutputE 27 391 289 1 20 0 , // fltk N4xcas10Gen_OutputE 27 392 289 27 20 0 15600 ] , // fltk 7Fl_Tile 27 421 289 33 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 421 289 32 20 0 , // fltk N4xcas10Log_OutputE 27 453 289 1 20 0 ] ] // fltk N4xcas5Geo2dE 320 141 691 909 20 0 -200,2400,-90,1080,[parameter(R,0,34000,12240.0,340.0),pnt(pnt[group[-240.0,-240.0-540.0*i,2880.0-540.0*i,2880.0,-240.0],1073741826]),pnt(pnt[group[-240.0+840.0*i,-240.0+1296.0*i,2880.0+1296.0*i,2880.0-330.0*i,-240.0+840.0*i],1073741827]),pnt(pnt[group[-240.0+500*i,-240.0+1296.0*i,2880.0+1296.0*i,2880.0+500*i,-240.0+500*i],1073741828]),pnt(pnt[group[-240.0+1020.0*i,-240.0+1296.0*i,2880.0+1296.0*i,2880.0-540.0*i,-240.0+1020.0*i],1073741829]),pnt(pnt[group[-240.0-540.0*i,-240.0+1296.0*i,1296.0*i,-540.0*i,-240.0-540.0*i],1073741829]),pnt(pnt[line[0,i],0]),pnt(pnt[line[0,1],0]),pnt(pnt[line[750*i,(8+5997*i)/8],0]),pnt(pnt[line[500*i,1+500*i],0]),pnt(pnt[line[900.0*i,1.0+899.5*i],0]),pnt(pnt[line[0,i],0]),pnt(pnt[line[629.0*i,20.0+621.0*i],line_width_4]),pnt(pnt[216.0*i,0,"D4"]),pnt(pnt[542.8571429,0,"D0"]),pnt(pnt[914.2857143+407.1428571*i,0,"D1"]),pnt(pnt[1285.714286+500*i,0,"D2"]),pnt(pnt[1657.142857+71.42857143*i,0,"D3"]),group[pnt(pnt[1200.0+300.0*i,0,"I"])],15600],-4.9849,4.9849,1,0,0,0,200,200,1,0,1,1.05,0,1,65,[],24,18,256,0,100,0,0,1,0.1 , // fltk N4xcas10Log_OutputE 13 1050 1082 1 20 118 ] , // fltk 7Fl_Tile 13 1053 1082 749 20 0 [ // fltk N4xcas6FigureE 13 1053 1082 748 20 118 landscape=0 history=0.30961 geo=0.58133 mouse_param=0.10906 // fltk N4xcas12History_PackE 15 1079 329 253 20 0 [ // fltk 7Fl_Tile 27 1079 317 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 1079 317 30 20 0 R:=element(0 .. 34000,160.0) , // fltk N4xcas10Log_OutputE 27 1109 317 1 20 0 , // fltk N4xcas10Gen_OutputE 27 1110 317 27 20 0 parameter(R,0,34000,160.0,340.0) ] , // fltk 7Fl_Tile 27 1139 317 98 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 1139 317 48 20 0 proglin([y,0.8*x+1.2*y-96,1.5*x+y-140],£[p,p,p],[0],[p],2*x+y) , // fltk N4xcas10Log_OutputE 27 1187 317 1 20 0 , // fltk 9Fl_Scroll 27 1188 317 49 20 0 [ // fltk N4xcas10Gen_OutputE 27 1188 5024 27 20 0 [polygon(point(-14.4,0),point(-14.4,-84.0),point(172.8,-84.0),point(172.8,0),point(-14.4,0)),polygon(point(-14.4,89.6),point(-14.4,-84.0),point(172.8,-84.0),point(172.8,-35.2),point(-14.4,89.6)),polygon(point(-14.4,161.6),point(-14.4,-84.0),point(172.8,-84.0),point(172.8,-119.2),point(-14.4,161.6)),polygon(point(-14.4,-84.0),point(-14.4,201.6),point(0.0,201.6),point(0.0,-84.0),point(-14.4,-84.0)),line(x=0),line(y=0),line(y=(-0.6666666667*x+80.0)),line(y=(-1.5*x+140.0)),line(x=0),line(y=(-2.0*x+160.0)),point(0.0,33.6),point(32.57142857,0),point(54.85714286,43.42857143),point(77.14285714,24.28571429)] , // fltk 12Fl_Scrollbar 27 387 317 20 20 0 [] , // fltk 12Fl_Scrollbar 344 358 16 29 20 0 [] ] ] , // fltk 7Fl_Tile 27 1239 317 58 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 1239 317 30 20 0 I:=inter(D[2],D[3]) , // fltk N4xcas10Log_OutputE 27 1269 317 1 20 0 , // fltk N4xcas10Gen_OutputE 27 1270 317 27 20 0 [point(0.0,140.0)] ] , // fltk 7Fl_Tile 27 1299 317 31 20 0 [ // fltk N4xcas19Multiline_Input_tabE 27 1299 317 30 20 0 , // fltk N4xcas10Log_OutputE 27 1329 317 1 20 0 ] ] // fltk N4xcas5Geo2dE 348 1079 629 722 20 0 -12,144,-14,168,[parameter(R,0,34000,340,10),pnt(pnt[group[-14.4,-14.4-84.0*i,172.8-84.0*i,172.8,-14.4],1073741826]),pnt(pnt[group[-14.4+89.6*i,-14.4-84.0*i,172.8-84.0*i,172.8-35.2*i,-14.4+89.6*i],1073741827]),pnt(pnt[group[-14.4+161.6*i,-14.4-84.0*i,172.8-84.0*i,172.8-119.2*i,-14.4+161.6*i],1073741828]),pnt(pnt[group[-14.4-84.0*i,-14.4+201.6*i,201.6*i,-84.0*i,-14.4-84.0*i],1073741829]),pnt(pnt[line[0,i],0]),pnt(pnt[line[0,1],0]),pnt(pnt[line[80.0*i,1.0+79.33333333*i],0]),pnt(pnt[line[140.0*i,1.0+138.5*i],0]),pnt(pnt[line[0,i],0]),pnt(pnt[line[160.0*i,1.0+158.0*i],line_width_4]),pnt(pnt[33.6*i,0,"D3"]),pnt(pnt[32.57142857,0,"D0"]),pnt(pnt[54.85714286+43.42857143*i,0,"D1"]),pnt(pnt[77.14285714+24.28571429*i,0,"D2"]),group[pnt(pnt[140.0*i,0,"I"])]],-5,5,1,0,0,0,2,2,1,0,1,1.05,0,1,65,[],24,18,256,0,100,0,0,1,0.1 , // fltk N4xcas10Log_OutputE 13 1801 1082 1 20 118 ] , // fltk 7Fl_Tile 13 1804 1082 31 20 118 [ // fltk N4xcas19Multiline_Input_tabE 13 1804 1082 30 20 118 , // fltk N4xcas10Log_OutputE 13 1834 1082 1 20 118 ]