|
MAPLE
|
The following Maple commands are taken from the Chyzak web site:
with(combstruct);
gramm_Alkyl:=Alkyl=Prod(Carbon, Set(Alkyl, card<=3)), Carbon=Atom:
specs_Alkyl:=[Alkyl, {gramm_Alkyl}, unlabeled]:
gramm_S1_Alkyl:=S1_Alkyl[X]=Union(Prod(Carbon, S1_Alkyl[X], Set(Alkyl, card<=2)), Prod(Prod(Carbon, X), Set(Alkyl, card<=2))), X=Epsilon:
specs_S1_Alkyl:=[S1_Alkyl[X], {gramm_S1_Alkyl, gramm_Alkyl}, unlabeled]:
gramm_S2_Alkyl:=S2_Alkyl[X, Y]=Union(Prod(Carbon, S2_Alkyl[X, Y], Set(Alkyl, card<=2)), Prod(Carbon, Union(S1_Alkyl[X], X), Union(S1_Alkyl[Y], Y), Set(Alkyl, card<=1))):
specs_S2_Alkyl:=[S2_Alkyl[X, Y], {gramm_S2_Alkyl, gramm_S1_Alkyl, op(subs(X=Y, [gramm_S1_Alkyl])), gramm_Alkyl}, unlabeled]:
[seq(count(specs_S2_Alkyl, size=i), i=0..50)];
|