a <- rform()
a
options(kform_symbolic_print = "x")
a
options(kform_symbolic_print = "dx")
kform(spray(kform_basis(3,2),1:3))
kform(spray(kform_basis(4,2),1:6)) # runs out of symbols
options(kform_symbolic_print = "txyz")
kform(spray(kform_basis(4,2),1:6)) # standard notation
options(kform_symbolic_print = NULL) # revert to default
a
Run the code above in your browser using DataLab