Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv], 100]], {x, 0, 1/2}, WorkingPrecision -> 100]
Dr. belisarius
- 116.2k
- 13
- 205
- 456