Return to setvariables.ccc.96jul23 CVS log | Up to [local] / OpenXM / src / k097 / lib / Old |
File: [local] / OpenXM / src / k097 / lib / Old / setvariables.ccc.96jul23 (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 11 months ago) by maekawa
o import OpenXM sources |
/* lib/setvariables.ccc : to generate sm1-package setvariables.sm1 */ /* sm1(" (incmac.sm1) run (slib.sm1) run "); sm1(" (factor-a.sm1) run "); run does not work!! */ sm1(" 0 @@@.indexMode "); /* C-like notation of matrix. a[0], ... */ def getxvar(i) { sm1( "[(x) (var) ", i , " ..int ] system_variable /FunctionValue set "); } def getdvar(i) { sm1( "[(D) (var) ", i , " ..int ] system_variable /FunctionValue set "); } def getvarn() { sm1( "[(N)] system_variable (universalNumber) dc /FunctionValue set "); } def setRingVariables() { local n,i,v,f; n = getvarn(); for (i=0; i<n; i++) { v = getxvar(i); f = Poly(v); sm1( v ," (literal) dc ", f ," def "); v = getdvar(i); f = Poly(v); sm1( v ," (literal) dc ", f ," def "); } }