Advanced Search

Question: how I can remove 'csgn' in final results?

Question:how I can remove 'csgn' in final results?

9009134 110 Maple 2018
csgn simplification
July 07 2019
0

Hello, I bring here a problem with maple that in result the  "csgn".

how I can remove 'csgn' in final results?

Thanks.

csgn.mw
 

> 


  restart;
  with(VectorCalculus):
> 


  X := (R+r*cos(theta))*sin(phi):
  Y := (R+r*cos(theta))*cos(phi):
  Z := (r*sin(theta)):

  AddCoordinates
  ( OPToroid[ r, theta, phi ],
    [ X, Y, Z ]
  ):
> 

 

> 


   simplify
  ( expand
    ( (1/2)*Curl
      ( VectorField
        ( < u__r(r,theta, phi),
            u__theta(r,theta, phi),
            u__phi(r,theta, phi)
          >,
          OPToroid[ r,theta, phi ]
        )
      )
    )
  );

Vector(3, {(1) = (1/2)*csgn(r)*csgn(R+r*cos(theta))*(csgn(1, R+r*cos(theta))*(R+r*cos(theta))*`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi)+((R+r*cos(theta))*(diff(`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi), theta))-r*sin(theta)*`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi))*csgn(R+r*cos(theta))-csgn(r)*r*(diff(`#msub(mi("u"),mi("&theta;",fontstyle = "normal"))`(r, theta, phi), phi)))/(r*(R+r*cos(theta))), (2) = -(csgn(1, R+r*cos(theta))*(R+r*cos(theta))*`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi)+((R+r*cos(theta))*(diff(`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi), r))+cos(theta)*`#msub(mi("u"),mi("&phi;",fontstyle = "normal"))`(r, theta, phi))*csgn(R+r*cos(theta))-(diff(`#msub(mi("u"),mi("r"))`(r, theta, phi), phi)))*csgn(R+r*cos(theta))/(2*r*cos(theta)+2*R), (3) = (1/2)*(-(diff(`#msub(mi("u"),mi("r"))`(r, theta, phi), theta))+csgn(r)*r*(diff(`#msub(mi("u"),mi("&theta;",fontstyle = "normal"))`(r, theta, phi), r))+`#msub(mi("u"),mi("&theta;",fontstyle = "normal"))`(r, theta, phi)*(r*csgn(1, r)+csgn(r)))*csgn(r)/r})

 (1)
> 

``


 

Download csgn.mw

 
Please Wait...