|
 |
 |
 |
 |
 |
 |
 |
 |
 |
D.5.4.17 spsub
Procedure from library gaussman.lib (see gaussman_lib).
- Usage:
spsub(sp1,sp2); list sp1, list sp2
- Return:
list sp; difference of spectra sp1 and sp2
Example:
LIB "gaussman.lib"; ring R=0,(x,y),ds; list sp1=list(ideal(-1/2,-3/10,-1/10,0,1/10,3/10,1/2),intvec(1,2,2,1,2,2,1)); spprint(sp1); → (-1/2,1),(-3/10,2),(-1/10,2),(0,1),(1/10,2),(3/10,2),(1/2,1) list sp2=list(ideal(-1/6,1/6),intvec(1,1)); spprint(sp2); → (-1/6,1),(1/6,1) spprint(spsub(sp1,sp2)); → (-1/2,1),(-3/10,2),(-1/6,-1),(-1/10,2),(0,1),(1/10,2),(1/6,-1),(3/10,2),(\ 1/2,1) |