Homogeneous & elementary vertex operators

Add a column on h_\la[X]

> CH:=proc(n,EX);
toh(e1^n*EX + convert([seq(seq((-1)^convert(la,
`+`)*elap1k(la,n)*skew(m[op(la)],EX),la=Par(k,n)),
k=1..`SF/stdeg`(EX))],`+`));
end:
elap1k:=proc(la,k) local i;
e1^(k-nops(la))*product(e.(la[i]+1),i=1..nops(la));
end:

Add a column on e_\la[X]

> CE:=proc(n,EX);
toe(h1^n*EX + convert([seq(seq((-1)^convert(la,
`+`)*hlap1k(la,n)*skew(f[op(la)],EX),la=Par(k,n)),
k=1..`SF/stdeg`(EX))],`+`));
end:
hlap1k:=proc(la,k) local i;
h1^(k-nops(la))*product(h.(la[i]+1),i=1..nops(la));
end: