Skip to main content
Mathematica

Return to Answer

deleted 77 characters in body
Source Link
Dr. belisarius
Dr. belisarius
  • 116.2k
  • 13
  • 205
  • 456

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv], 100]], {x, 0, 1/2}, WorkingPrecision -> 100]

Mathematica graphics

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv], 100]], {x, 0, 1/2}, WorkingPrecision -> 100]

Mathematica graphics

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv], 100]], {x, 0, 1/2}, WorkingPrecision -> 100]

Mathematica graphics

Post Undeleted by Dr. belisarius
added 33 characters in body
Source Link
Dr. belisarius
Dr. belisarius
  • 116.2k
  • 13
  • 205
  • 456

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[WeierstrassP[2*xPlot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv]]Inv], 100]], {x, 0, 1/2}], WorkingPrecision -> 100]

Mathematica graphics

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[WeierstrassP[2*x + 1 + I/3, Inv]], {x, 0, 1/2}]

Mathematica graphics

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[N[WeierstrassP[2*x + 1 + I/3, Inv], 100]], {x, 0, 1/2}, WorkingPrecision -> 100]

Mathematica graphics

Post Deleted by Dr. belisarius
Source Link
Dr. belisarius
Dr. belisarius
  • 116.2k
  • 13
  • 205
  • 456

This is from Mathematica v9.What version are you using? Perhaps a bug? :)

Inv = WeierstrassInvariants[{1, I/3}];
Plot[Re[WeierstrassP[2*x + 1 + I/3, Inv]], {x, 0, 1/2}]

Mathematica graphics