Return to setvariables.ccc.96jul23 CVS log

Up to [local] / OpenXM / src / k097 / lib / Old

Annotation of OpenXM/src/k097/lib/Old/setvariables.ccc.96jul23, Revision 1.1.1.1

1.1       maekawa     1:
                      2:
                      3: /* lib/setvariables.ccc :  to generate sm1-package setvariables.sm1 */
                      4: /* sm1(" (incmac.sm1) run (slib.sm1) run ");
                      5:    sm1(" (factor-a.sm1) run  ");  run does not work!! */
                      6: sm1(" 0 @@@.indexMode ");  /* C-like notation of matrix. a[0], ... */
                      7:
                      8: def getxvar(i) {
                      9:   sm1( "[(x) (var) ", i , " ..int ] system_variable /FunctionValue set ");
                     10: }
                     11:
                     12: def getdvar(i) {
                     13:   sm1( "[(D) (var) ", i , " ..int ] system_variable /FunctionValue set ");
                     14: }
                     15:
                     16: def getvarn() {
                     17:   sm1( "[(N)] system_variable (universalNumber) dc /FunctionValue set ");
                     18: }
                     19:
                     20: def setRingVariables() {
                     21:   local n,i,v,f;
                     22:   n = getvarn();
                     23:   for (i=0; i<n; i++) {
                     24:     v = getxvar(i);
                     25:     f = Poly(v);
                     26:     sm1( v ," (literal) dc ", f ," def ");
                     27:     v = getdvar(i);
                     28:     f = Poly(v);
                     29:     sm1( v ," (literal) dc ", f ," def ");
                     30:   }
                     31: }
                     32: