| version 1.2, 2000/04/19 08:01:32 |
version 1.4, 2004/08/31 04:45:42 |
|
|
| %% $OpenXM$ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/tower-sugar.sm1,v 1.3 2004/05/13 05:33:10 takayama Exp $ |
| %% tower-sugar.sm1, 1988, 1/21. 1/22. 1/27, 1/29 |
%% tower-sugar.sm1, 1988, 1/21. 1/22. 1/27, 1/29 |
| %% based on tower.sm1 , Doc/tower-sugar.sm1 |
%% based on tower.sm1 , Doc/tower-sugar.sm1 |
| %% |
%% |
| Line 452 tower-sugar.verbose { |
|
| Line 452 tower-sugar.verbose { |
|
| vars reverse /xList set %[z y x] |
vars reverse /xList set %[z y x] |
| vars {@@@.Dsymbol 2 1 roll 2 cat_n} map |
vars {@@@.Dsymbol 2 1 roll 2 cat_n} map |
| reverse /dList set %[Dz Dy Dx] |
reverse /dList set %[Dz Dy Dx] |
| [(H)] xList join [(es) @@@.esymbol ] join /xList set |
[@@@.Hsymbol] xList join [(es) @@@.esymbol ] join /xList set |
| %% You cannot change the order of es and e, because |
%% You cannot change the order of es and e, because |
| %% mmLarger_tower automatically assumes es is at the bottom |
%% mmLarger_tower automatically assumes es is at the bottom |
| %% of [nn,n-1] variables. |
%% of [nn,n-1] variables. |
| Line 473 tower-sugar.verbose { |
|
| Line 473 tower-sugar.verbose { |
|
| /univ vars 0 get reverse |
/univ vars 0 get reverse |
| vars 1 get reverse join |
vars 1 get reverse join |
| def |
def |
| |
w-vectors to_int /w-vectors set |
| [ |
[ |
| 0 1 << w-vectors length 1 sub >> |
0 1 << w-vectors length 1 sub >> |
| { |
{ |
| Line 680 tower-sugar.verbose { |
|
| Line 681 tower-sugar.verbose { |
|
| } for |
} for |
| ] /dList set |
] /dList set |
| |
|
| [(H)] xList join [(es) @@@.esymbol ] join /xList set |
[@@@.Hsymbol] xList join [(es) @@@.esymbol ] join /xList set |
| %% You cannot change the order of es and e, because |
%% You cannot change the order of es and e, because |
| %% mmLarger_tower automatically assumes es is at the bottom |
%% mmLarger_tower automatically assumes es is at the bottom |
| %% of [nn,n-1] variables. |
%% of [nn,n-1] variables. |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tower-sugar.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc