Sponsored links: Algebra eBooks
 

Related

fix

p:43;

q:53;

n : 2279;

Calculate

fix-mod

p:61;

q:157;

n : p*q;

Calculate

fix-mod

a(n):=(n+1)/2+3/4*(-1...

a(3);

a(4);

Calculate

fix-print

xcalc(x,y,a,b) := if ...

d : xcalc((9360),1241...

Calculate

fix-mod

a(n):=(n+1)/2+3/4*(-1...

a(3);

a(4);

Calculate

fix-print

xcalc(x,y,a,b) := if ...

d : xcalc(9360,1241,0...

Calculate

fix-print

xcalc(x,y,a,b) := if ...

d : xcalc((9360),1241...

Calculate

fix-mod

p:61;

q:157;

n : p*q;

Calculate

fix

fix(1241,9360);

Calculate

fix

Run Example
(%i1)fix(1241/9360);
(%o1)                                  0
(%i2) 
Run Example
a(n):=(n+1)/2+3/4*(-1)^n+1/12-(1/3)*(-2)^fix(mod(n, 3)/2);
                                                          mod(n, 3)
                                                      fix(---------)
                   n + 1   3      n   1       1               2
(%o1)      a(n) := ----- + - (- 1)  + -- + (- -) (- 2)
                     2     4          12      3
(%i2) 
Run Example
display2d:false;

(%o1) false
(%i2) 
circ:heta*(heta+a1^2/p)+zeta*(zeta+a2^2/q);

(%o2) zeta*(zeta+a2^2/q)+heta*(a1^2/p+heta)
(%i3) 
fix:subst(-a2^2/(2*p),zeta,circ);

(%o3) heta*(a1^2/p+heta)-a2^2*(a2^2/q-a2^2/(2*p))/(2*p)
(%i4) 
solve(fix,heta);

(%o4) [heta = -(sqrt((a1^4-a2^4)*q^2+2*a2^4*p*q)+a1^2*q)/(2*p*q),
       heta = (sqrt((a1^4-a2^4)*q^2+2*a2^4*p*q)-a1^2*q)/(2*p*q)]
(%i5) 
Heta:(sqrt(2)*a1*a2*sqrt(p*q)-a1^2*q)/(2*p*q);

(%o5) (sqrt(2)*a1*a2*sqrt(p*q)-a1^2*q)/(2*p*q)
(%i6) 
Zeta:-a2^2/(2*p);

(%o6) -a2^2/(2*p)
(%i7) 
zetarr:-a2^2/Zeta;

(%o7) 2*p
(%i8) 
hetarr:-a1^2/Heta;

(%o8) -2*a1^2*p*q/(sqrt(2)*a1*a2*sqrt(p*q)-a1^2*q)
(%i9) 

Related Help

Help for Fix