Artifact f5608f317d06c50aaf651bf0ab80a88b9ac1a8577ec0df481dca2839646dae7c:

• Executable file r36/XMPL/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;