1off echo,msg; 2on latex; 3((a+b)**5)\(a-b)**4; 4x:=(a+b)**3; 5{x,df(x,a),df(x,a,2)}; 6{{a,x},x}; 7on verbatim; 8solve(a^7-13*a+5); 9solve(a**(2*y)-3*a**y+2,y); 10off verbatim; 11depend a,c; 12df(x,c,2); 13defid al,name=alpha; 14defid be,name=beta; 15sin al**2+cos al**2=1; 16sin(al+be)=sin al*cos be+cos al*sin be; 17off lasimp; 18defid u,font=bold,accent=tilde; 19defid f,font=bold; 20defid d,name=delta; 21defindex u(up,down,down),f(up),i(down); 22pdf(u e,t)+c*pdf(u e,x,2)+b*pdf(u i,x)=f e; 23(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, 24k-1))\d(x)**2+ b*(u(i,j,k+1/2)-u(i,j,k-1/2))\d x=f e; 25on verbatim; 26product(k=1,2*n+1,f(2*i k+1)\(i(2*k+1)-1)); 27int(u(e,j,k,x)*f(e,x),x); 28sum(i=0,n,sqrt u(e,i)); 29off latex,verbatim; 30on lasimp; 31end; 32