Sponsored links: Algebra eBooks
 

Related

at-diff-linsolve-pi-plot2d-subst
plot2d(f2,[s,0,1]);

a2: 20;

f: s^2*(a0 + a1*s + a...

c0: at(f,s=1)=%pi;

Calculate

at-cos-log-phi-plot3d-sqrt
plot3d(at(log(f),r=1/rI),[rI,1/2,5/2],[phi,-%pi,%pi],[grid,200,100],[mesh_lines_color,false]);

f:2*r/sqrt(((1+r^2)+(...

plot3d(at(log(f),r=1/...

Calculate

at-cos-log-phi-plot3d-sqrt
plot3d(at(log(f),r=1/rI),[rI,1/2,5/2],[phi,-%pi,%pi],[grid,200,100],[mesh_lines_color,false]);

f:2*r/sqrt(((1+r^2)+(...

plot3d(at(log(f),r=1/...

log(8)/log(2);

Calculate

at-eigenvalues-invert-jacobian

A: jacobian ([a*If*Sh...

B: jacobian ([gh*Ih, ...

C: invert (B);

Calculate

at-block-equal-limit-plot2d
plot2d((x+1)/(x-1), [x, -10, 10], [y, -100, 100]);

continuous_at(expr, v...

continuous_at((x+1)/(...

plot2d((x+1)/(x-1), [...

Calculate

at-diff-ev-exp

g(x) := x + exp(-alph...

k1 : 8.0000e+03;

k2 : 1.0000e+00;

Calculate

at

sa (e) := at (e, [a =...

sb (e) := at (e, [a =...

sa (b);

Calculate

at-block-diff-linsolve-plot2d-subst
plot2d(sys1(0.25,0.75),[s,0,1]);

sys1(sl1,sl2):= block...

plot2d(sys1(0.25,0.75...

Calculate

at-diff-ev-exp

g(x) := x + exp(-alph...

k1 : 8.0000e+03;

k2 : 1.0000e+00;

Calculate

at-solve

p : a4 * m^4 + a3 * m...

solve ([at (p,m=-3) =...

Calculate

at

Run Example
(%i1)rat(0.1234);

rat: replaced 0.1234 by 617/5000 = 0.1234
                                     617
(%o1)/R/                             ----
                                     5000
(%i2) rat(0.12345);

rat: replaced 0.12345 by 2469/20000 = 0.12345
                                     2469
(%o2)/R/                             -----
                                     20000
(%i3) rat(0.12345);

rat: replaced 0.12345 by 2469/20000 = 0.12345
                                     2469
(%o3)/R/                             -----
                                     20000
(%i4) mod(12345, 1000)/100000, numer;
(%o4)                               0.00345
(%i5) lastdigits(fnum, lastn):=block([m:10*fnum, ans, n:lastn], /* it doesn't help when lastn is bigger than the total digits in fnum it returns the whole digits in fnum anyway without erroring! and fnum=%pi stuff works only upto 8 digits cause num(rat(fnum)) has somuch only! */ratprint:false, k:rat(fnum), ans:mod(m, (10^-n))/(mod(m, 10)*denom(k)), return(float(ans)));
(%o5) lastdigits(fnum, lastn) := block([m : 10 fnum, ans, n : lastn], 
                                                   - n
                                          mod(m, 10   )
ratprint : false, k : rat(fnum), ans : -------------------, return(float(ans)))
                                       mod(m, 10) denom(k)
(%i6) lastdigits(0.12345, 3);
(%o6)                        2.0251113811259619E-8
(%i7) 
Run Example
f:5*4.57+3;
(%o1)                                25.85
(%i2) at(f,x=4,57);
(%o2)                                25.85
(%i3) df:diff(f,x);
(%o3)                                  0
(%i4) at(df,x=4.57);
(%o4)                                  0
(%i5) plot2d(df,[x,0,1]);
plotplot2d(df,[x,0,1]);
Run Example
rat(+ 0.76895553987651);

rat: replaced 0.76895553987651 by 4513/5869 = 0.76895552905095
                                     4513
(%o1)/R/                             ----
                                     5869
(%i2) 

Related Help

Help for At