Calculates the coefficients of the Laurent expansion of the Weierstrass P function in terms of the invariants
The invariants: a vector of length two with
length of series
Calculates the series c_k as per equation 18.5.3, p635.
Robin K. S. Hankin
1 2 3 4 5 6 7 8 9 10 11 12
#Verify 18.5.16, p636: x <- ck(g=c(0.1+1.1i,4-0.63i)) 14*x*x*(389*x^3+369*x^2)/3187041-x #should be zero # Now try a random example by comparing the default (theta function) method # for P(z) with the Laurent expansion: z <- 0.5-0.3i g <- c(1.1-0.2i, 1+0.4i) series <- ck(15,g=g) 1/z^2+sum(series*(z^2)^(0:14)) - P(z,g=g) #should be zero
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.