Artifact 0428d6f425f7607398d9b6fdb4739088781307b5033070085efa1175de088f1b:

• File mttroot/mtt/lib/reduce/fix_c.r — part of check-in [ace0503385] at 2002-03-26 12:11:12 on branch origin/master — Added abs => fabs rule. (user: geraint@users.sourceforge.net, size: 397) [annotate] [blame] [check-ins using] [more...]

%% Fixes for c-code generation

ON ROUNDED$ % No integer output

%% Changes x^y to pow(x,y)
 OPERATOR pow$
 FOR ALL x,y LET x^y = pow(x,y)$ % Use the pow function
 
 %% Derivatives
 FOR ALL f,g,x LET df(pow(f,g),x)=
 	   pow(f,g-1) * (df(f,x)*g + df(g,x)*f*log(f))$

 %% Special cases
 FOR ALL x LET pow(x,0) = 1$
 FOR ALL x LET pow(x,1) = x$

OPERATOR fabs$
FOR ALL x let abs(x) = fabs(x)$

END$