Artifact 708335484107080a8ef2aec4d291c75b3542b58f30af9a1a2447b2bf7a255551:

• File r35/lib/rlfi.tst — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 715) [annotate] [blame] [check-ins using] [more...]

off echo,msg;
on latex;
(a+b)**5\(a-b)**4;
x:=(a+b)**3;
{x,DF(x,a),DF(x,a,2)};
{{a,x},x};
ON VERBATIM;
SOLVE(a^7-13*a+5);
SOLVE(a**(2*y)-3*a**y+2,y);
OFF VERBATIM;
DEPEND a,c;
DF(x,c,2);
DEFID al,NAME=alpha;
DEFID be,NAME=beta;
SIN al**2+COS al**2=1;
SIN(al+be)=SIN al*COS be+COS al*SIN be;
OFF LASIMP;
DEFID u,FONT=bold,ACCENT=tilde;
DEFID f,FONT=bold;
DEFID d,NAME=Delta;
DEFINDEX u(UP,DOWN,DOWN),f(UP),i(DOWN);
PDF(u e,t)+c*PDF(u e,x,2)+b*PDF(u i,x)=f e;
(u(e,j+1,k)-u(e,j,k))\ d t +c*(u(e,j,k+1)-2*u(e,j,k)+u(e,j,
k-1))\d(x)**2+ b*(u(i,j,k+1/2)-u(i,j,k-1/2))\d x=f e;
ON VERBATIM;
PRODUCT(k=1,2*n+1,f(2*i k+1)\(i(2*k+1)-1));
INT(u(e,j,k,x)*f(e,x),x);
SUM(i=0,n,SQRT u(e,i));
OFF LATEX,VERBATIM;
on lasimp;
end;