source: git/Tst/.singular_hist @ a19ac9

spielwiese
Last change on this file since a19ac9 was b35b93, checked in by Olaf Bachmann <obachman@…>, 26 years ago
This commit was generated by cvs2svn to compensate for changes in r1396, which included commits to RCS files with non-trunk default branches. git-svn-id: file:///usr/local/Singular/svn/trunk@1397 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 824 bytes
Line 
1proc msetring(int ch, int nvars, string ordering)
2{
3  execute "ring r = " + string(ch) + ",x(1.." + string(nvars) + "), " +
4  ordering + ";";
5}
6msetring(0,2,"dp");
7;
8proc msetring(int ch, int nv, string ordering)
9{
10  execute "ring r = " + string(ch) + ",x(1.." + string(nv) + "), " +
11  ordering + ";";
12}
13msetring(0,2,"dp");
14basering;
15proc msetring(int ch, int nv, string ordering)
16{
17  execute "ring r = " + string(ch) + ",x(1.." + string(nv) + "), " +
18  ordering + ";";
19  keepring r;
20}
21msetring(0,2,"dp");
22basering;
23<"~/tst/std_l.tst";
24q
25;
26$
27;
28basering;
29gcyclic(3,"r");
30gcyclic(3,"r");
31gcyclic(3,"r");
32gcyclic(3,"r");
33gcyclic(3,"r");
34gcyclic(3,"h");
35gcyclic(3,"h");
36gcyclic(3,"h");
37gcyclic(3,"h");
38gcyclic(3,"h");
39$
40;
41$
42;
43$
44$
45;
46$
47$
48$
49;
50help option;
51$
52def i = 3;
53typeof(i);
54$
55option();
56$
57option();
58$
59system("whoami");
60$
61$
Note: See TracBrowser for help on using the repository browser.