point addition on elliptic curve

edit

I have point (x,y) on my elliptic curve that I want to add with point [51,108]. I have tried the following code:

kX.<X>=FunctionField(k)
R.<Y> = kX[]
kY.<Y> = kX.extension(Y^2-X^3+3267*X-45630)
E=EllipticCurve(kY,[-3267,45630])
Q=E([X,Y])
P1=E([51,108])
W=P1+Q;W

Unfortunately it keep giving error for k