Differences From Artifact [0428d6f425]:
- 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...]
To Artifact [0b3202721a]:
- File
mttroot/mtt/lib/reduce/fix_c.r
— part of check-in
[5b09adc924]
at
2002-05-10 12:41:08
on branch origin/master
— Substitution of pi for its numerical value moved from
useful-functions.hh to fix_c.r (user: gawthrop@users.sourceforge.net, size: 482) [annotate] [blame] [check-ins using] [more...]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | + + + + | %% Fixes for c-code generation %% Set PI explicitly here to avoid later conflict with cc headers LET PI = 3.1415$ 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$ |