Commit 0d930923 authored by Gilles Filippini's avatar Gilles Filippini

Imported Upstream version 0.8.4-dfsg1

parent 791c4478
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
pi/4,
atan(2),
-atan(4/3)+2*pi/2,
......@@ -53,8 +54,8 @@ poly1[1,-11,-7,2],
1/8,
1/8,
7/4,
1/(-x-2),
1+3/(x-2)+2/(-x+1),
-1/(x+2),
1+3/(x-2)-2/(x-1),
(2*x-2)/(x^2-3*x+2)+(x^2-2*x+3)*(-2*x+3)/(x^2-3*x+2)^2,
(-2*x+3)/(x^2-3*x+2)^2,
(2*x-2)*(x^2-3*x+2)+(x^2-2*x+3)*(2*x-3),
......@@ -65,8 +66,8 @@ poly1[1,-11,-7,2],
+(infinity),
2,
-4*sin(x)^2+3,
-1/pi+1/(pi^2)*(x-pi)+(pi^2-6)/(6*pi^3)*(x-pi)^2+(-pi^2+6)/(6*pi^4)*(x-pi)^3+(-pi^4+20*pi^2-120)/(120*pi^5)*(x-pi)^4+(pi^4-20*pi^2+120)/(120*pi^6)*(x-pi)^5+(x-pi)^6*order_size(x-pi),
-1/pi+1/(pi^2)*(x-pi)+(pi^2-6)/(6*pi^3)*(x-pi)^2+(x-pi)^3*order_size(x-pi),
-1/pi+1/pi^2*(x-pi)+(pi^2-6)/(6*pi^3)*(x-pi)^2+(-pi^2+6)/(6*pi^4)*(x-pi)^3+(-pi^4+20*pi^2-120)/(120*pi^5)*(x-pi)^4+(pi^4-20*pi^2+120)/(120*pi^6)*(x-pi)^5+(x-pi)^6*order_size(x-pi),
-1/pi+1/pi^2*(x-pi)+(pi^2-6)/(6*pi^3)*(x-pi)^2+(x-pi)^3*order_size(x-pi),
-cos(1)+(-cos(1)+1/2*sin(1))*(x-1)+(-5/6*cos(1)+1/2*sin(1))*(x-1)^2+(x-1)^3*order_size(x-1),
70,
[[1,0,-2],[0,1,4]],
......@@ -111,8 +112,8 @@ sqrt(3),
[[1,3,-3/2],[1,0,3],[1,-3,-3/2]],
[[5,0,0],[0,2,0],[0,0,2]],
[[5,0,0],[0,2,0],[0,0,-2]],
[[1,-1,1/2],[1,0,-1],[1,1,1/2]],[[5,0,0],[0,2,0],[0,0,2]],
[[1,-1,1/2],[1,0,-1],[1,1,1/2]],[[5,0,0],[0,2,0],[0,0,2]],
[[1,2,-1],[1,0,2],[1,-2,-1]],[[5,0,0],[0,2,0],[0,0,2]],
[[1,2,-1],[1,0,2],[1,-2,-1]],[[5,0,0],[0,2,0],[0,0,2]],
[[1,2,1],[0,1,0],[1,2,0]],[[2,1,0],[0,2,1],[0,0,2]],
"Not diagonalizable at eigenvalue 2",
[[2,1,0],[0,2,1],[0,0,2]],
......@@ -122,7 +123,7 @@ sqrt(3),
[[4,2,0],[0,2,0],[0,0,1]],[[1,1,0],[0,1,1],[0,0,1]],
[[0,0,1,0],[0,0,-2,1],[-24,12,1,0],[24,-36,6,0]],[[1,1,0,0],[0,1,1,0],[0,0,1,1],[0,0,0,1]],
[[2,0,0],[2,0,1],[0,1,0]],[[1,1,0],[0,1,0],[0,0,1]],
[[1,-1,-1],[-2,0,-1],[1,1,-1]],[[3,0,0],[0,-3,0],[0,0,-3]],
[[1,5,5],[-2,0,5],[1,-5,5]],[[3,0,0],[0,-3,0],[0,0,-3]],
[[4,4,3,6,-7],[-4,0,3,-6,7],[4,4,1,0,0],[4,4,1,0,2],[0,0,0,6,-9]],[[1,1,0,0,0],[0,1,1,0,0],[0,0,1,0,0],[0,0,0,-1,1],[0,0,0,0,-1]],
[[1,0],[0,1]],[[1,1],[0,1]],
[1,0,-1,0,1,0,-1,0,1],
......@@ -249,9 +250,9 @@ x^2+1/2*x+1/3,
(x^2+2)/3,
(a^2+2)/3,
5,
matrix[[9.9,4.9,-3.1,-6.1,-0.1],[6.9,3.9,7.9,2.9,6.9],[-8.1,-4.1,6.9,3.9,1.9],[-8.1,-2.1,0.9,-5.1,0.9],[-2.1,-9.1,-4.1,1.9,5.9]],
matrix[[9.9-X,4.9,-3.1,-6.1,-0.1],[6.9,3.9-X,7.9,2.9,6.9],[-8.1,-4.1,6.9-X,3.9,1.9],[-8.1,-2.1,0.9,-5.1-X,0.9],[-2.1,-9.1,-4.1,1.9,5.9-X]],
-X^5+21.5*X^4-115.6*X^3-582.6*X^2+15355.2*X-24129,
matrix[[-3.1,-7.1,3.9,-8.1,-0.1],[7.9,-4.1,2.9,4.9,9.9],[-0.1,8.9,-4.1,7.9,-0.1],[9.9,5.9,4.9,-9.1,7.9],[-4.1,2.9,1.9,5.9,9.9]],
matrix[[-3.1-X,-7.1,3.9,-8.1,-0.1],[7.9,-4.1-X,2.9,4.9,9.9],[-0.1,8.9,-4.1-X,7.9,-0.1],[9.9,5.9,4.9,-9.1-X,7.9],[-4.1,2.9,1.9,5.9,9.9-X]],
-1*X^5-10.5*X^4+89.1999999999*X^3+3320.4*X^2+29173.2*X+320,
(x+(-(sqrt(2)))/(1-i))*(x+(-i)*sqrt(2)/(1-i))*(x+sqrt(2)/(1-i))*(x+(i)*sqrt(2)/(1-i)),
(x+(-(sqrt(2)))/(1-i))*(x+(-i)*sqrt(2)/(1-i))*(x+sqrt(2)/(1-i))*(x+(i)*sqrt(2)/(1-i)),
[[1,2],[3,4]],
......
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
(x-4)*(x+3)*(x^2+8*x-3),
(3*x-1)*(2*x^2+7),
-(y*x+y+x^2)*(2*y-3*x),
......@@ -6,8 +7,8 @@
(x-y)*(x^2+y^2)*(x^2-x*y+y^2),
(x-4)^3*(x-3)^3*(x-1)^2*(x+2)^2,
(a*y-c*z)*(x*a-b),
(-x+y)^4*(8*x+y+21)^4,
(a-x)*(a-x-1),
(-8*x-y-21)^4*(x-y)^4,
(a-x-1)*(a-x),
(x^3-x+1)*(x^3+x+1),
(x-t)^3,
(x-4)*(x-3)*(x-2)*(x-1)*(x+1)*(x+2)*(x+3)*(x+4),
......@@ -19,13 +20,13 @@
(x+b+c)*(x^2-x*b-x*c+b^2-b*c+c^2),
(x-y-z)*(x-y+z)*(x+y+z),
(3*x-y^2+y-5)*(x*y+3*x-y^2-1),
(y*x+6*x^3+x*z+1)*(y*x+2*x-z)*(y*z-3*y+x),
(y*x+2*x-z)*(y*z-3*y+x)*(y*x+6*x^3+x*z+1),
(x-y)*(x+y)*(x^2-x*y+y^2)*(x^2+x*y+y^2),
(z*x+6*x^3+x*y+1)*(13*z^2*x*y-21*z*x*y^3+x^3+2),
13*z^2*x*y-21*z*x*y^3+x^3+2,
z^5*y^2*(x+y+z)*(x-y)*x^2,
z^5*y^2*(x-y)*(x+y+z)*x^2,
(-(x^3))*y^2*(z-y+x)*(z+y-x)*(z+y+x)*z,
(5*x+11)*(8*x+1)*(12*x-13)*(15*x+8)*(30*x-31)*(120*x-209),
(x^20-x^15+x^10-x^5+1)*(x^20+x^15+x^10+x^5+1),
(x^2-x+1)*(x^2+x+1)*(x^8-x^7+x^5-x^4+x^3-x+1)*(x^8+x^7-x^5-x^4-x^3+x+1)*(x^40-x^35+x^25-x^20+x^15-x^5+1)*(x^40+x^35-x^25-x^20-x^15+x^5+1),
(x^2-x+1)*(x^8+x^7-x^5-x^4-x^3+x+1)*(x^40+x^35-x^25-x^20-x^15+x^5+1)*(x^2+x+1)*(x^8-x^7+x^5-x^4+x^3-x+1)*(x^40-x^35+x^25-x^20+x^15-x^5+1),
x^200-x^199+x^197-x^196+x^194-x^193+x^191-x^190+x^188-x^187+x^185-x^184+x^182-x^181+x^179-x^178+x^176-x^175+x^173-x^172+x^170-x^169+x^167-x^166+x^164-x^163+x^161-x^160+x^158-x^157+x^155-x^154+x^152-x^151+x^149-x^148+x^146-x^145+x^143-x^142+x^140-x^139+x^137-x^136+x^134-x^133+x^131-x^130+x^128-x^127+x^125-x^124+x^122-x^121+x^119-x^118+x^116-x^115+x^113-x^112+x^110-x^109+x^107-x^106+x^104-x^103+x^101-x^100+x^99-x^97+x^96-x^94+x^93-x^91+x^90-x^88+x^87-x^85+x^84-x^82+x^81-x^79+x^78-x^76+x^75-x^73+x^72-x^70+x^69-x^67+x^66-x^64+x^63-x^61+x^60-x^58+x^57-x^55+x^54-x^52+x^51-x^49+x^48-x^46+x^45-x^43+x^42-x^40+x^39-x^37+x^36-x^34+x^33-x^31+x^30-x^28+x^27-x^25+x^24-x^22+x^21-x^19+x^18-x^16+x^15-x^13+x^12-x^10+x^9-x^7+x^6-x^4+x^3-x+1
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
-10.0,10.0,-10.0,10.0,-10.0,10.0,-10.0,10.0,-10.0,10.0,-1.4,1.1,1,0.0,1.0,1,
"Done",
parameter(Ax,-10.0,10.0,-1,0),
parameter(Ay,-10.0,10.0,-1,0),
......
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
-15646785/134217728*ln(abs(x-1))+15646785/134217728*ln(abs(x+1))+15646785/67108864*atan(x)+(-46940355*x^33+402345900*x^29-1521599040*x^25+3324596364*x^21-4608419886*x^17+4177677924*x^13-2449584536*x^9+874703844*x^5-161168823*x)/(301989888*(x^4-1)^9),
1/3*x^3-x^2+7*x+(-6*x-3)/(-x-1)-6*ln(abs(x+1)),
1/4*ln(abs(x-1))-1/4*ln(abs(x+1))+(-x+1)/(-4*(x+1)),
......@@ -28,11 +29,11 @@ x*ln(x+sqrt(x^2+1))-sqrt(x^2+1),
1/2*sqrt(x^2+1)*(x^2+1)*2/3,
1/(cos(x)),
atan(exp(x)),
1/2*ln(8*x*exp((i)*x/2)^2+(-4*i)*exp((i)*x/2)^4+4*i)+(-i)/2*x,
1/2*ln((2*i)*x*exp((i)*x)+exp((i)*x)^2-1)+(-i)*x+(i)/2*x,
2/3*sqrt(x+1)*(x+1)-2*sqrt(x+1),
atan(sqrt(exp(x)-1)/2),
2/3*asin(36*sqrt(x)*x/3/sqrt(144*abs(a)^3)),
sqrt(a-x)*sqrt(-a+x+a)-2*a/2*asin(2*sqrt(a-x)/sqrt(4*abs(a))),
4*asin(36*sqrt(x)*x/3/sqrt(144*abs(a)^3))/2/3,
sqrt(a-x)*sqrt(-a+x+a)-4*a*asin(2*sqrt(a-x)/sqrt(4*abs(a)))/4,
2/4*x*sqrt(x^2+a^2)+4*(-(-2*a^2)/8)/-2*ln(sqrt(x^2+a^2)-x),
-1/6*cos(3*x)-1/2*cos(x),
-x/2+1/2*atan(x)+1/2*x^2*atan(x),
......@@ -50,12 +51,12 @@ x*exp(x^2),
1/2,
integrate((t^4+t+1)/(t^6+t^3+2),t,1,+(infinity)),
atan(2)+1/2-1/2*pi,
t,1/3*t^3-1/3*exp(ln(4)/2)^3,assume[DOM_FLOAT,[line[2,+(infinity)]],[2]],
t,1/3*t^3-1/3*exp(ln(4)/2)^3,assume[[],[line[2,+(infinity)]],[2]],
sqrt(2)*sqrt(b*t)*exp(-t^2/2)/t-sqrt(2)*sqrt(a*t)*exp(-t^2/2)/t,
integrate((x^2*(-(x-1)))^(1/3),x,0,1),
-5*a*ln(2)+49/8*a-15*ln(2)+145/8+(10*a*x^3*ln(abs(x-1))-10*a*x^3*ln(abs(x-2))-5*a*x^3-40*a*x^2*ln(abs(x-1))+40*a*x^2*ln(abs(x-2))+10*a*x^2+50*a*x*ln(abs(x-1))-50*a*x*ln(abs(x-2))-20*a*ln(abs(x-1))+20*a*ln(abs(x-2))-4*a+30*x^3*ln(abs(x-1))-30*x^3*ln(abs(x-2))-15*x^3-120*x^2*ln(abs(x-1))+120*x^2*ln(abs(x-2))+30*x^2+150*x*ln(abs(x-1))-150*x*ln(abs(x-2))-60*ln(abs(x-1))+60*ln(abs(x-2))-10)/(2*x^3-8*x^2+10*x-4),
(sqrt(2)-1)/2*pi,
x,pi*ln(x+1),assume[DOM_FLOAT,[line[0,+(infinity)]],[0]],
x,pi*ln(x+1),assume[[],[line[0,+(infinity)]],[0]],
1/2,
1/2,
(t^n-y^n)/(t-y),
......
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
1,
-1,
2,
......
This diff is collapsed.
0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0,
1/1048576/(x-1)^10-15/1048576/(x-1)^9+455/4194304/(x-1)^8-145/262144/(x-1)^7+35695/16777216/(x-1)^6-110143/16777216/(x-1)^5+1132065/67108864/(x-1)^4-1240635/33554432/(x-1)^3+9423425/134217728/(x-1)^2-15646785/134217728/(x-1)+1/1048576/(x+1)^10+15/1048576/(x+1)^9+455/4194304/(x+1)^8+145/262144/(x+1)^7+35695/16777216/(x+1)^6+110143/16777216/(x+1)^5+1132065/67108864/(x+1)^4+1240635/33554432/(x+1)^3+9423425/134217728/(x+1)^2+15646785/134217728/(x+1)+1/1024/(x^2+1)^10+5/1024/(x^2+1)^9+55/4096/(x^2+1)^8+55/2048/(x^2+1)^7+715/16384/(x^2+1)^6+1001/16384/(x^2+1)^5+5005/65536/(x^2+1)^4+715/8192/(x^2+1)^3+12155/131072/(x^2+1)^2+12155/131072/(x^2+1)
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
arg(1+i);
arg(1+2*i);
arg((1+2*i)^2);
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
factor((x+3)*(x-4)*(x^2+8*x-3));
factor((3*x-1)*(2*x^2+7));
factor((3*x-2*y)*(x^2+x*y+y));
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
xyztrange(-10.0,10.0,-10.0,10.0,-10.0,10.0,-10.0,10.0,-10.0,10.0,-1.4,1.1,1,0.0,1.0,1);
nodisp(print("medianes")) ;
assume(Ax=-1) ;
assume(Ay=-1) ;
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
integrate(1/(x**4-1)**10,x);
integrate((x**4+4*x**2+6*x+4)/(x+1)**2,x);
integrate(x/((x-1)*(x+1)**2),x);
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
1;
limit( exp(x)*(exp(1/x-exp(-x))-exp(1/x)), x=+infinity);
2;
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
non_recursive_normal(((x+y)^2-(z+1)^2)^4/(x+y+z+1)^8);
non_recursive_normal(((x+y)^2-(z+1)^2)^8/(x+y+z+1)^16);
non_recursive_normal(((x+y)^2-(z+1)^2)^10/(x+y+z+1)^20);
......
cas_setup(0,0,0,1,0,[1e-10,1e-15],12,[1,50,0,25],0,0,0);
partfrac(1/(x^4-1)^10)
\ No newline at end of file
......@@ -395,6 +395,9 @@
/* Now defined if fltk is available */
#define HAVE_LIBFLVW 1
/* Define to 1 if you have the `fontconfig' library (-lfontconfig). */
/* #undef HAVE_LIBFONTCONFIG */
/* Define to 1 if you have the `gc' library (-lgc). */
/* #undef HAVE_LIBGC */
......@@ -446,6 +449,15 @@
/* Define to 1 if you have the `readline' library (-lreadline). */
#define HAVE_LIBREADLINE 1
/* Define to 1 if you have the `Xext' library (-lXext). */
/* #undef HAVE_LIBXEXT */
/* Define to 1 if you have the `Xft' library (-lXft). */
/* #undef HAVE_LIBXFT */
/* Define to 1 if you have the `Xinerama' library (-lXinerama). */
/* #undef HAVE_LIBXINERAMA */
/* Define to 1 if you have the `z' library (-lz). */
#define HAVE_LIBZ 1
......@@ -593,15 +605,15 @@
/* Define to the version of this package. */
#define PACKAGE_VERSION ""
/* The size of a `int', as computed by sizeof. */
/* The size of `int', as computed by sizeof. */
#define SIZEOF_INT 4
/* The size of a `long long', as computed by sizeof. */
/* The size of `long long', as computed by sizeof. */
#define SIZEOF_LONG_LONG 8
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at run-time.
automatically deduced at runtime.
STACK_DIRECTION > 0 => grows toward higher addresses
STACK_DIRECTION < 0 => grows toward lower addresses
STACK_DIRECTION = 0 => direction of growth unknown */
......@@ -629,8 +641,8 @@
/* #undef inline */
#endif
/* Define to `long' if <sys/types.h> does not define. */
/* Define to `long int' if <sys/types.h> does not define. */
/* #undef off_t */
/* Define to `unsigned' if <sys/types.h> does not define. */
/* Define to `unsigned int' if <sys/types.h> does not define. */
/* #undef size_t */
......@@ -394,6 +394,9 @@
/* Now defined if fltk is available */
#undef HAVE_LIBFLVW
/* Define to 1 if you have the `fontconfig' library (-lfontconfig). */
#undef HAVE_LIBFONTCONFIG
/* Define to 1 if you have the `gc' library (-lgc). */
#undef HAVE_LIBGC
......@@ -445,6 +448,15 @@
/* Define to 1 if you have the `readline' library (-lreadline). */
#undef HAVE_LIBREADLINE
/* Define to 1 if you have the `Xext' library (-lXext). */
#undef HAVE_LIBXEXT
/* Define to 1 if you have the `Xft' library (-lXft). */
#undef HAVE_LIBXFT
/* Define to 1 if you have the `Xinerama' library (-lXinerama). */
#undef HAVE_LIBXINERAMA
/* Define to 1 if you have the `z' library (-lz). */
#undef HAVE_LIBZ
......@@ -592,15 +604,15 @@
/* Define to the version of this package. */
#undef PACKAGE_VERSION
/* The size of a `int', as computed by sizeof. */
/* The size of `int', as computed by sizeof. */
#undef SIZEOF_INT
/* The size of a `long long', as computed by sizeof. */
/* The size of `long long', as computed by sizeof. */
#undef SIZEOF_LONG_LONG
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at run-time.
automatically deduced at runtime.
STACK_DIRECTION > 0 => grows toward higher addresses
STACK_DIRECTION < 0 => grows toward lower addresses
STACK_DIRECTION = 0 => direction of growth unknown */
......@@ -628,8 +640,8 @@
#undef inline
#endif
/* Define to `long' if <sys/types.h> does not define. */
/* Define to `long int' if <sys/types.h> does not define. */
#undef off_t
/* Define to `unsigned' if <sys/types.h> does not define. */
/* Define to `unsigned int' if <sys/types.h> does not define. */
#undef size_t
......@@ -164,6 +164,10 @@ AC_CYGWIN
if test x$CYGWIN = xyes; then
AC_CHECK_LIB(GL,main)
AC_CHECK_LIB(GLU,main)
AC_CHECK_LIB(Xinerama, main)
AC_CHECK_LIB(fontconfig, main)
AC_CHECK_LIB(Xft, main)
AC_CHECK_LIB(Xext, main)
AC_CHECK_LIB(fltk_gl,main)
AC_CHECK_LIB(fltk,main)
AC_CHECK_LIB(z,main)
......@@ -201,6 +205,10 @@ AC_MSG_RESULT([X libraries found, checking for GUI])
dnl X11, check for opengl, fltk
AC_CHECK_LIB(GL,main)
AC_CHECK_LIB(GLU,main)
AC_CHECK_LIB(Xinerama, main)
AC_CHECK_LIB(fontconfig, main)
AC_CHECK_LIB(Xft, main)
AC_CHECK_LIB(Xext, main)
AC_CHECK_LIB(fltk_gl,main)
AC_CHECK_LIB(fltk,main)
if test $HAVE_LIBFLTK="1" ;
......
This diff is collapsed.
No preview for this file type
This diff is collapsed.
No preview for this file type
This diff is collapsed.
No preview for this file type
This diff is collapsed.
No preview for this file type
This diff is collapsed.
No preview for this file type
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -202,6 +202,7 @@ namespace xcas {
cerr << "// " << setlocale (LC_MESSAGES, "") << endl;
cerr << "// " << bindtextdomain (PACKAGE, xcas_locale.c_str()) << endl;
cerr << "// " << textdomain (PACKAGE) << endl;
cerr << "// " << bind_textdomain_codeset (PACKAGE, "UTF-8") << endl;
};
};
objet_bidon mon_objet_bidon;
......@@ -6329,7 +6330,11 @@ namespace xcas {
Fl_Tile::draw();
if (scroll_position>0 && hp){
if (Fl_Scroll * scroll = dynamic_cast<Fl_Scroll *>(hp->parent())){
#ifdef _HAVE_FL_UTF8_HDR_
scroll->scroll_to(0,scroll_position);
#else
scroll->position(0,scroll_position);
#endif
scroll_position=-1;
Fl_Tile::draw();
}
......@@ -6459,7 +6464,7 @@ namespace xcas {
if (ff.type==_VECT && !ff._VECTptr->empty())
ff = ff._VECTptr->front();
// Change gt value with parameter
ff = symbolic(at_element,makevecteur(ff,value()));
ff = symbolic(at_element,makevecteur(ff,value(),Fl_Valuator::step()));
gt=symbolic(at_sto,makevecteur(ff,gt._SYMBptr->feuille._VECTptr->back()));
do_cb=true;
}
......@@ -6507,6 +6512,15 @@ namespace xcas {
hp->update_pos=position;
if (pos==-2)
hp->eval_below=true;
// check how to update (parameter in a figure or in history)
Fl_Group * gr = hp->widget_group(position);
if (gr && gr->children()>=3){
if (dynamic_cast<Fl_Output*>(gr->child(2))){
hp->update_pos=position;
hp->set_gen_value(position,gt,true);
return;
}
}
hp->set_gen_value(position,gt,false);
protecteval(gt,1,hp->contextptr);
if (eval_hp && hp->children()>position+1){
......
......@@ -52,6 +52,7 @@
#endif
#endif
using namespace std;
using namespace giac;
......@@ -184,12 +185,24 @@ namespace xcas {
int spos=s->yposition();
int chpos=ch->y()-y();
if (chpos<spos)
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,max(0,min(chpos,h()-s->h())));
#else
s->position(0,max(0,min(chpos,h()-s->h())));
#endif
else {
if (chpos+gr->h()>spos+s->h())
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,chpos+gr->h()-s->h());
#else
s->position(0,chpos+gr->h()-s->h());
#endif
else
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,spos);
#else
s->position(0,spos);
#endif
}
s->redraw();
}
......@@ -361,6 +374,19 @@ namespace xcas {
}
}
Fl_Group * History_Pack::widget_group(int n){
int m=children();
if (n<0 || n>=m)
return 0;
Fl_Widget * wid = child(n);
if (Fl_Scroll * s=dynamic_cast<Fl_Scroll *>(wid))
if(s->children())
wid=s->child(0);
if (Fl_Group * g=dynamic_cast<Fl_Group *>(wid))
return g;
return 0;
}
bool set_value(Fl_Widget * w,const std::string & s,bool exec){
context * contextptr=get_context(w);
if (Fl_Input_ * i = dynamic_cast<Fl_Input_ *>(w)){
......@@ -686,7 +712,13 @@ namespace xcas {
}
// H -= _spacing;
// New horizontal size is therefore _printlevel_w+W
int newh=min(max(H,1),1<<14);
int newh=min(max(H,1),
#ifdef _HAVE_FL_UTF8_HDR_
1<<30
#else
1<<14
#endif
);
if (newh<H){
cerr << "Too many large widgets. Compressing" << endl;
double ratio=double(newh)/H;
......@@ -955,9 +987,17 @@ namespace xcas {
if (Fl_Scroll * s=dynamic_cast<Fl_Scroll *>(parent())){
int mousey=my-y(),Y=s->yposition(),dh=h()-s->h();
if (mousey>Y+s->h() && dh>Y)
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(s->xposition(),min(mousey-s->h(),dh));
#else
s->position(s->xposition(),min(mousey-s->h(),dh));
#endif
if (mousey<Y && Y>0)
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(s->xposition(),max(0,mousey));
#else
s->position(s->xposition(),max(0,mousey));
#endif
}
}
int n=children();
......@@ -1940,7 +1980,11 @@ namespace xcas {
s1=p->child(N+1)->y()+2*p->labelsize()-p->y()-s->h();
}
s1=min(p->h()-s->h(),s1);
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,max(0,s1));
#else
s->position(0,max(0,s1));
#endif
if (!p->doing_eval && s->parent())
s->parent()->redraw();
}
......@@ -3176,7 +3220,7 @@ namespace xcas {
*/
mode_s += ' ';
// mode_s += label();
if (mode_s!= current_status->label()){
if (!current_status->label() || mode_s!= current_status->label()){
if (mode)
delete [] mode;
mode = new char[mode_s.size()+1];
......@@ -3615,7 +3659,11 @@ namespace xcas {
if (Fl_Scroll * s = dynamic_cast<Fl_Scroll *>(hp->parent())){
int spos=s->yposition();
if (spos+s->h()>hp->h()){
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,max(min(hp->h()-s->h(),spos+dhlog),0));
#else
s->position(0,max(min(hp->h()-s->h(),spos+dhlog),0));
#endif
}
s->redraw();
}
......
......@@ -177,6 +177,7 @@ namespace xcas {
giac::gen parse(int n); // return the gen value of the n-th entry
std::string value(int n) const; // return the string value of the n-th entry
void set_gen_value(int n,const giac::gen & g,bool exec=true); // set n-th entry value
Fl_Group * widget_group(int n); // group corresponding to position n
void set_value(int n,const std::string & s,bool exec=true);
bool remove_entry(int n,bool check=true); // does not update, call resize() and update()
bool remove_selected_levels(bool check_in_history_fold);
......
......@@ -748,7 +748,11 @@ namespace xcas {
int scy=sc->yposition()+labelsize()*Fl::e_dy;
if (scy<0)
scy=0;
#ifdef _HAVE_FL_UTF8_HDR_
sc->scroll_to(sc->xposition(),scy);
#else
sc->position(sc->xposition(),scy);
#endif
return 1;
}
}
......
......@@ -409,6 +409,7 @@ distdir: $(DISTFILES)
|| cp -p $$d/$$file $(distdir)/$$file || :; \
fi; \
done
aide.o: aide.cc first.h config.h help.h
alg_ext.lo alg_ext.o : alg_ext.cc first.h config.h gen.h dispatch.h \
global.h help.h vecteur.h fraction.h gausspol.h poly.h index.h \
monomial.h identificateur.h usual.h sym2poly.h symbolic.h \
......@@ -428,6 +429,14 @@ Cfg.lo Cfg.o : Cfg.cc giac/first.h giac/config.h giac/global.h \
giac/quater.h giac/desolve.h Xcas1.h Graph.h Input.h \
giac/identificateur.h giac/giacintl.h config.h Editeur.h \
giac/input_lexer.h Cfg.h
cocoa.lo cocoa.o : cocoa.cc first.h config.h TmpFGLM.H cocoa.h \
gausspol.h poly.h fraction.h index.h monomial.h gen.h \
dispatch.h global.h help.h vecteur.h identificateur.h
csturm.lo csturm.o : csturm.cc first.h config.h gen.h dispatch.h \
global.h help.h vecteur.h fraction.h csturm.h modpoly.h unary.h \
index.h symbolic.h usual.h sym2poly.h poly.h monomial.h \
identificateur.h gausspol.h series.h solve.h prog.h subst.h \
permu.h alg_ext.h ti89.h plot.h plot3d.h modfactor.h
derive.lo derive.o : derive.cc first.h config.h derive.h gen.h \
dispatch.h global.h help.h vecteur.h fraction.h \
identificateur.h usual.h symbolic.h unary.h index.h poly.h \
......@@ -470,6 +479,28 @@ ezgcd.lo ezgcd.o : ezgcd.cc first.h config.h ezgcd.h gausspol.h poly.h \
fraction.h index.h monomial.h gen.h dispatch.h global.h help.h \
vecteur.h sym2poly.h identificateur.h symbolic.h unary.h \
series.h
first.lo first.o : first.cc first.h config.h
Flv_CStyle.lo Flv_CStyle.o : Flv_CStyle.cc giac/first.h giac/config.h \
Flv_CStyle.H Flv_Style.H
Flv_Data_Source.lo Flv_Data_Source.o : Flv_Data_Source.cc
Flv_List.lo Flv_List.o : Flv_List.cc giac/first.h giac/config.h \
Flv_List.H Flv_Style.H
Flv_Style.lo Flv_Style.o : Flv_Style.cc giac/first.h giac/config.h \
Flv_Style.H
Flv_Table.lo Flv_Table.o : Flv_Table.cc giac/first.h giac/config.h \
Flv_Table.H Flv_List.H Flv_Style.H
Flve_Check_Button.lo Flve_Check_Button.o : Flve_Check_Button.cc \
giac/first.h giac/config.h Flve_Check_Button.H Flv_List.H \
Flv_Style.H
Flve_Combo.lo Flve_Combo.o : Flve_Combo.cc giac/first.h giac/config.h \
Flve_Combo.H Flv_List.H Flv_Style.H
Flve_Input.lo Flve_Input.o : Flve_Input.cc giac/first.h giac/config.h \
Flve_Input.H Flv_List.H Flv_Style.H
gauss.lo gauss.o : gauss.cc first.h config.h gauss.h gen.h dispatch.h \
global.h help.h vecteur.h fraction.h derive.h identificateur.h \
subst.h usual.h sym2poly.h poly.h index.h monomial.h symbolic.h \
unary.h gausspol.h series.h solve.h ti89.h plot.h plot3d.h \
misc.h ifactor.h prog.h
gausspol.lo gausspol.o : gausspol.cc first.h config.h gausspol.h poly.h \
fraction.h index.h monomial.h gen.h dispatch.h global.h help.h \
vecteur.h modpoly.h modfactor.h solve.h alg_ext.h sym2poly.h \
......@@ -481,6 +512,7 @@ gen.lo gen.o : gen.cc first.h config.h gen.h dispatch.h global.h help.h \
unary.h series.h modpoly.h alg_ext.h prog.h rpn.h plot.h \
plot3d.h intg.h subst.h derive.h threaded.h ezgcd.h maple.h \
solve.h
gl2ps.lo gl2ps.o : gl2ps.c giac/first.h giac/config.h gl2ps.h
global.lo global.o : global.cc first.h config.h global.h help.h gen.h \
dispatch.h vecteur.h fraction.h identificateur.h symbolic.h \
unary.h index.h sym2poly.h poly.h monomial.h gausspol.h \
......@@ -517,6 +549,19 @@ Graph3d.lo Graph3d.o : Graph3d.cc Graph3d.h giac/giac.h giac/first.h \
giac/path.h giac/misc.h Equation.h Print.h gl2ps.h
help.lo help.o : help.cc first.h config.h path.h help.h global.h \
input_lexer.h
Help1.lo Help1.o : Help1.cc Help1.h giac/first.h giac/config.h \
giac/gen.h giac/first.h giac/dispatch.h giac/global.h \
giac/help.h giac/vecteur.h giac/fraction.h \
giac/identificateur.h giac/giacintl.h config.h Xcas1.h \
History.h giac/giac.h giac/poly.h giac/index.h giac/monomial.h \
giac/gen.h giac/identificateur.h giac/unary.h giac/symbolic.h \
giac/modpoly.h giac/modfactor.h giac/gausspol.h giac/sym2poly.h \
giac/series.h giac/derive.h giac/solve.h giac/subst.h \
giac/usual.h giac/intg.h giac/lin.h giac/moyal.h giac/maple.h \
giac/ti89.h giac/mathml.h giac/tex.h giac/ifactor.h \
giac/alg_ext.h giac/gauss.h giac/isom.h giac/plot.h \
giac/plot3d.h giac/rpn.h giac/prog.h giac/pari.h giac/quater.h \
giac/desolve.h Graph.h Input.h Editeur.h giac/input_lexer.h
History.lo History.o : History.cc giac/first.h giac/config.h History.h \
giac/giac.h giac/first.h giac/global.h giac/help.h giac/poly.h \
giac/fraction.h giac/index.h giac/monomial.h giac/gen.h \
......@@ -553,6 +598,10 @@ identificateur.lo identificateur.o : identificateur.cc first.h config.h \
identificateur.h global.h help.h gen.h dispatch.h vecteur.h \
fraction.h sym2poly.h poly.h index.h monomial.h symbolic.h \
unary.h gausspol.h series.h rpn.h prog.h
ifactor.lo ifactor.o : ifactor.cc first.h config.h path.h ifactor.h \
global.h help.h gen.h dispatch.h vecteur.h fraction.h unary.h \
index.h symbolic.h identificateur.h pari.h usual.h sym2poly.h \
poly.h monomial.h gausspol.h series.h rpn.h prog.h misc.h
index.lo index.o : index.cc first.h config.h index.h
Input.lo Input.o : Input.cc giac/first.h giac/config.h Input.h \
giac/gen.h giac/first.h giac/dispatch.h giac/global.h \
......@@ -569,13 +618,13 @@ Input.lo Input.o : Input.cc giac/first.h giac/config.h Input.h \
giac/desolve.h Xcas1.h Graph.h Editeur.h giac/input_lexer.h \
Tableur.h Flv_Table.H Flv_List.H Flv_Style.H Flve_Input.H \
Graph3d.h Help1.h giac/plot.h giac/help.h giac/global.h
input_lexer.o: input_lexer.cc first.h config.h input_lexer.h global.h \
help.h gen.h dispatch.h vecteur.h fraction.h identificateur.h \
usual.h derive.h series.h intg.h sym2poly.h poly.h index.h \
monomial.h symbolic.h unary.h gausspol.h moyal.h subst.h \
modpoly.h lin.h solve.h ifactor.h alg_ext.h gauss.h isom.h \
plot.h plot3d.h prog.h rpn.h ezgcd.h tex.h risch.h \
input_parser.h
input_lexer.lo input_lexer.o : input_lexer.cc first.h config.h \
input_lexer.h global.h help.h gen.h dispatch.h vecteur.h \
fraction.h identificateur.h usual.h derive.h series.h intg.h \
sym2poly.h poly.h index.h monomial.h symbolic.h unary.h \
gausspol.h moyal.h subst.h modpoly.h lin.h solve.h ifactor.h \
alg_ext.h gauss.h isom.h plot.h plot3d.h prog.h rpn.h ezgcd.h \
tex.h risch.h input_parser.h
input_parser.lo input_parser.o : input_parser.cc first.h config.h \
index.h gen.h dispatch.h global.h help.h vecteur.h fraction.h \
lexer.h input_lexer.h usual.h derive.h identificateur.h \
......@@ -593,6 +642,10 @@ intgab.lo intgab.o : intgab.cc first.h config.h sym2poly.h poly.h \
series.h usual.h intgab.h subst.h derive.h lin.h plot.h \
plot3d.h prog.h modpoly.h tex.h ifactor.h risch.h solve.h \
intg.h desolve.h alg_ext.h misc.h maple.h rpn.h
isom.lo isom.o : isom.cc first.h config.h isom.h gen.h dispatch.h \
global.h help.h vecteur.h fraction.h derive.h identificateur.h \
subst.h usual.h symbolic.h unary.h index.h sym2poly.h poly.h \
monomial.h gausspol.h series.h
lin.lo lin.o : lin.cc first.h config.h sym2poly.h poly.h fraction.h \
index.h monomial.h gen.h dispatch.h global.h help.h vecteur.h \
identificateur.h symbolic.h unary.h gausspol.h series.h usual.h \
......@@ -668,6 +721,12 @@ prog.lo prog.o : prog.cc first.h config.h prog.h gen.h dispatch.h \
gausspol.h series.h subst.h plot.h plot3d.h tex.h \
input_parser.h input_lexer.h rpn.h ti89.h permu.h modpoly.h \
maple.h
quater.lo quater.o : quater.cc first.h config.h quater.h gen.h \
dispatch.h global.h help.h vecteur.h fraction.h unary.h index.h \
sym2poly.h poly.h monomial.h identificateur.h symbolic.h \
gausspol.h series.h usual.h intg.h subst.h derive.h lin.h \
plot.h plot3d.h prog.h modpoly.h tex.h ifactor.h risch.h \
solve.h
risch.lo risch.o : risch.cc first.h config.h sym2poly.h poly.h \
fraction.h index.h monomial.h gen.h dispatch.h global.h help.h \
vecteur.h identificateur.h symbolic.h unary.h gausspol.h \
......@@ -731,6 +790,9 @@ ti89.lo ti89.o : ti89.cc first.h config.h misc.h global.h help.h gen.h \
ifactor.h solve.h modpoly.h permu.h plot.h plot3d.h lin.h \
desolve.h alg_ext.h moyal.h ti89.h maple.h input_parser.h \
input_lexer.h
TmpFGLM.lo TmpFGLM.o : TmpFGLM.C config.h TmpFGLM.H TmpLESystemSolver.H
TmpLESystemSolver.lo TmpLESystemSolver.o : TmpLESystemSolver.C config.h \
TmpLESystemSolver.H
unary.lo unary.o : unary.cc first.h config.h unary.h gen.h dispatch.h \
global.h help.h vecteur.h fraction.h index.h usual.h rpn.h \
tex.h input_lexer.h symbolic.h
......@@ -745,6 +807,21 @@ vecteur.lo vecteur.o : vecteur.cc first.h config.h gen.h dispatch.h \
symbolic.h usual.h sym2poly.h poly.h monomial.h \
identificateur.h gausspol.h series.h solve.h prog.h subst.h \
permu.h plot.h plot3d.h misc.h
xcas.o: xcas.cc config.h hist.cxx giac/giacintl.h giac/first.h \
giac/config.h config.h hist.h Xcas1.h giac/first.h History.h \
giac/giac.h giac/first.h giac/global.h giac/help.h giac/poly.h \
giac/fraction.h giac/index.h giac/monomial.h giac/gen.h \
giac/dispatch.h giac/vecteur.h giac/identificateur.h \
giac/unary.h giac/symbolic.h giac/modpoly.h giac/modfactor.h \
giac/gausspol.h giac/sym2poly.h giac/series.h giac/derive.h \
giac/solve.h giac/subst.h giac/usual.h giac/intg.h giac/lin.h \
giac/moyal.h giac/maple.h giac/ti89.h giac/mathml.h giac/tex.h \
giac/ifactor.h giac/alg_ext.h giac/gauss.h giac/isom.h \
giac/plot.h giac/plot3d.h giac/rpn.h giac/prog.h giac/pari.h \
giac/quater.h giac/desolve.h Graph.h giac/config.h Input.h \
giac/gen.h giac/identificateur.h giac/giacintl.h Editeur.h \
giac/input_lexer.h Help1.h Equation.h Tableur.h Flv_Table.H \
Flv_List.H Flv_Style.H Flve_Input.H Graph3d.h Cfg.h giac/misc.h
Xcas1.lo Xcas1.o : Xcas1.cc giac/first.h giac/config.h Xcas1.h History.h \
giac/giac.h giac/first.h giac/global.h giac/help.h giac/poly.h \
giac/fraction.h giac/index.h giac/monomial.h giac/gen.h \
......
......@@ -303,10 +303,18 @@ namespace xcas {
for (;ypos<h;){
if (ypos)
print_newpage(p);
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,0);
#else
s->position(0,0);
#endif
newpos=scan(g,ypos+hp,hp);
s->resize(0,0,wp,newpos-ypos);
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,ypos);
#else
s->position(0,ypos);
#endif
p->place(0.0,0, margin,margin, pixel_scale);
fl_draw(s);
ypos = newpos;
......
......@@ -1058,7 +1058,11 @@ namespace xcas {
if (Fl_Scroll * s = dynamic_cast<Fl_Scroll *>(hp->parent())){
int spos=s->yposition();
if (spos+s->h()>hp->h()){
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(0,max(min(hp->h()-s->h(),spos+dy),0));
#else
s->position(0,max(min(hp->h()-s->h(),spos+dy),0));
#endif
}
s->redraw();
}
......@@ -1353,7 +1357,11 @@ namespace xcas {
int ypos=0;
if (Fl_Scroll * s=(Fl_Scroll *) dynamic_cast<const Fl_Scroll *>(g)){
ypos=s->yposition();
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(s->xposition(),0);
#else
s->position(s->xposition(),0);
#endif
}
// call widget_sprint on children
int n=g->children();
......@@ -1366,12 +1374,16 @@ namespace xcas {
}
res += "]\n";
if (Fl_Scroll * s=(Fl_Scroll *) dynamic_cast<const Fl_Scroll *>(g)){
#ifdef _HAVE_FL_UTF8_HDR_
s->scroll_to(s->xposition(),ypos);
#else
s->position(s->xposition(),ypos);
#endif
}
return res;
}
if (const Gen_Value_Slider *g=dynamic_cast<const Gen_Value_Slider *>(o)){
res += "\n" + giac::print_INT_(g->pos)+" "+print_DOUBLE_(g->minimum())+" "+print_DOUBLE_(g->maximum())+" "+print_DOUBLE_(g->value())+" "+string(g->label())+"\n";
res += "\n" + giac::print_INT_(g->pos)+" "+print_DOUBLE_(g->minimum())+" "+print_DOUBLE_(g->maximum())+" "+print_DOUBLE_(g->value())+" "+string(g->label())+" "+print_DOUBLE_(g->Fl_Valuator::step())+"\n";
return res;
}
return res + "\n[]\n";
......@@ -2081,17 +2093,21 @@ namespace xcas {
if (pos>0 && pos<tmps){
next_line_nonl(s,L,line,i);
#ifdef HAVE_SSTREAM
istringstream is(line);
istringstream is(line);
#else
istrstream is(line.c_str());
istrstream is(line.c_str());
#endif
double m,M,val;
double m,M,val,step=0.1;
int pos;
string name;