Up to [local] / OpenXM / src / asir-contrib / packages / src
Request diff between arbitrary revisions
Default branch: MAIN
Revision 1.1 / (download) - annotate - [select for diffs], Wed Oct 12 05:19:49 2011 UTC (12 years, 7 months ago) by takayama
Branch: MAIN
CVS Tags: RELEASE_1_3_1_13b,
HEAD
to_cform(F) translates the polynomial F into a C form. cf. ctrl("fortran_output",1); Example. [1630] load("tk_cform.rr")$ Xm_noX=1$ [1641] [1642] tk_cform.to_cform( (x+y-1/2)^3 ); (8*sm1power(x,3)+24*sm1power(x,2)*y+24*x*sm1power(y,2)+8*sm1power(y,3)-12*sm1power(x,2)-24*x*y-12*sm1power(y,2)+6*x+6*y-1)/(double)8 [1643] tk_cform.to_cform( -(x+y-1/2)^3 |nodouble=1); (-8*sm1power(x,3)-24*sm1power(x,2)*y-24*x*sm1power(y,2)-8*sm1power(y,3)+12*sm1power(x,2)+24*x*y+12*sm1power(y,2)-6*x-6*y+1)/8 [1644]