with(plots):
#CC(P,k1):  Implements the Ceaser Code
#Inputs a message, given a list of characters, P (in lower case)
#and an integer k from 0 to 25, outputs the encrypted message
#For example
#CC([d,o,r,o,n],2); should output [f,q,t,q,p]
CC:=proc(p,k1) local a,t,i1:
a:=[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"\x20"]:
for i1 from 1 to nops(a) do
 t[a[i1]]:=a[(i1+k1-1 mod 27)+1]:
od:

[seq(t[p[i1]],i1=1..nops(p))]:

end:

hvd:=proc() local i,msg,cc,str,func,pA,pB:
msg:=[I,"\x20",L,O,V,E,"\x20",C,O,D,I,N,G,"\x20",T,H,E,O,R,Y]:
cc:=CC(msg,49 mod 26):
str:=convert((cat@op)(cc),string):
func:=(x^2+(9/4)*(y^2)+z^2-1)^3-(x^2)*(z^3)-(9/200)*(y^2)*(z^3):
pA:=implicitplot3d(func,axes=none,style=surface,color="Red"): 
pB:=textplot3d([0.7,0.7,0.7,str,color="Green",'font'=["times","bold",12]]): 
display(pA,pB):
end: