2
$\begingroup$

I have the following code:

Inv=WeierstrassInvariants[{1,I/3}]

Plot[Re[WeierstrassP[2*x + 1 + I/3, Inv]], {x, 0, 1/2}, WorkingPrecision -> 10]

and I have completely blank plots. Increasing the value of WorkingPrecision also doesn't change anything. To the contrary, not using WorkingPrecision produces a plot. Is there something I'm overlooking here? I can use WorkingPrecision to plot simple functions, but I have yet to get it to work with Weierstrass-$\wp$ despite lots of work.

Improve this question
$\endgroup$
4
  • $\begingroup$ Welcome to Mathematica.SE! I suggest the following: 0) Browse the common pitfalls question 1) As you receive help, try to give it too, by answering questions in your area of expertise. 2) Read the faq! 3) When you see good questions and answers, vote them up by clicking the gray triangles, because the credibility of the system is based on the reputation gained by users sharing their knowledge. Also, please remember to accept the answer, if any, that solves your problem, by clicking the checkmark sign! $\endgroup$
    – Dr. belisarius
    Commented Jul 24, 2015 at 3:45
  • $\begingroup$ But what are you trying to achieve with your setting of WorkingPrecision, especially since you are reducing it from the default? $\endgroup$
    – MarcoB
    Commented Jul 24, 2015 at 4:02
  • $\begingroup$ @MarcoB I had no idea I was reducing it. Is it because I don't have any decimals in the input? Sorry, I'm completely new to even basic numerics. $\endgroup$
    – Benighted
    Commented Jul 24, 2015 at 4:44
  • $\begingroup$ For a starter, take a look at this tutorial: Control the Precision and Accuracy of Numerical Results $\endgroup$
    – MarcoB
    Commented Jul 24, 2015 at 5:00

1 Answer 1

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

Mathematica graphics

Improve this answer
$\endgroup$
2
  • $\begingroup$ Right, that's precisely what I get too but that's without using WorkingPrecision. With WorkingPrecision, I get nothing. $\endgroup$
    – Benighted
    Commented Jul 24, 2015 at 3:55
  • $\begingroup$ @spietro See edit $\endgroup$
    – Dr. belisarius
    Commented Jul 24, 2015 at 4:23

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.