compares the multiplication of ELM_SYM and POLYNOM #include "def.h" #include "macro.h" main() { OP a,b,c,d,e; anfang(); a=callocobject(); b=callocobject(); c=callocobject(); d=callocobject(); e=callocobject(); scan(ELM_SYM,a); println(a); scan(INTEGER,c); compute_elmsym_with_alphabet(a,c,d); println(d); mult(a,a,b); mult(d,d,e); println(b); compute_elmsym_with_alphabet(b,c,d); println(d); if (NEQ(d,e)) println(e); freeall(a); freeall(d); freeall(e); freeall(b); freeall(c); ende(); }
Send comments or suggestions to:
symmetrica (at) symmetrica
this page was automatically generated on So Aug 10 12:23:27 CEST 2008 on the machine btn6xa