Cartesian Oval in Maple13 OR Mathematica7

  • Context: Mathematica 
  • Thread starter Thread starter Questioneer
  • Start date Start date
  • Tags Tags
    Cartesian
Click For Summary
SUMMARY

This discussion focuses on generating a Cartesian oval using Mathematica 7 and Maple 13, specifically the equation 3/2 Sqrt[(30 - x)^2 + y^2] + Sqrt[x^2 + y^2] == 7/20. The user encountered issues with the ContourPlot command in Mathematica, which returned a blank plot, indicating no solutions within the specified range. In Maple 13, an error was generated due to an invalid input format. The discussion emphasizes the importance of understanding the parameters involved, including the index of refraction and distances in optics.

PREREQUISITES
  • Familiarity with Mathematica 7 and its ContourPlot function
  • Understanding of Maple 13 and the implicitplot command
  • Basic knowledge of Cartesian coordinates and implicit functions
  • Concepts of optics, specifically the index of refraction and distances in imaging systems
NEXT STEPS
  • Research the correct syntax for the implicitplot command in Maple 13
  • Learn how to effectively use the ContourPlot function in Mathematica 7 for implicit equations
  • Study the properties of Cartesian ovals and their applications in optics
  • Explore troubleshooting techniques for common errors in Mathematica and Maple
USEFUL FOR

This discussion is beneficial for mathematicians, physicists, and students working with mathematical software for visualizing complex equations, particularly in the field of optics and imaging systems.

Questioneer
Messages
5
Reaction score
0
I'm attempting to get an output of a specific cartesian oval (or oval of descartes, the perfect imaging system in physical optics- viz. perfectly stigmatic imaging). Algebraically I've deduced the equation to be

3/2 Sqrt[(30 - x)^2 + y^2] + Sqrt[x^2 + y^2] == 7/20 (Mathematica input).

I'm kind of new to math programs, so for Mathematica I used the ContourPlot command- the website said it would work fine for implicit functions. I tried it on a simple circle and it worked fine. For the parameters I set up (-20<x<20, -20<y<20) it showed nothing.

For Maple13, I input

> implicitplot(7/(20)=sqrt( x^(2)+y^(2)) + 3/(2)sqrt((30-x)^(2)+y^(2)), x =-20..20, y=-20..20);

and it reads

Error, invalid >

.

For the oval there are four things that need to be known. index of refraction of both medium, and the object distance and image distance. From this point I'm solving for a triangle that has a base of the object and image distance summed, and the arms are equal to the distance traveled through air (medium 1) and the unknown medium 2 with refraction index 1.5. The object distance is 20 cm and the image distance is 10 cm. It first travels through air which has an index of 1.00

Using pen and paper I see no reason why it would be an invalid function, even though implicit. For example, by definition of my cartesian system, the smallest value x (the distance of the object to the interface, which I define to be s0=20 cm) should yield a y value of 0. It does.

The general function for any cartesian oval or oval of descartes is:

n1*Sqrt[x^2+y^2] + n2*Sqrt[(s0+s1-x)^2 + y^2] == n1s0 + n2s1. The general function is attached as a .png file.

Please help- this is the most frustrating feeling!
 

Attachments

  • Untitled.png
    Untitled.png
    1.7 KB · Views: 510
Physics news on Phys.org
ContourPlot[(3/2) Sqrt[(30 - x)^2 + y^2] + Sqrt[x^2 + y^2], {x, -20, 20}, {y, -20, 20}]

This will return a contour plot in mathematica. However, attempting

ContourPlot[(3/2) Sqrt[(30 - x)^2 + y^2] + Sqrt[x^2 + y^2]==7/20, {x, 10^100, -10^100}, {y, 10^100, -10^100}],

returns a blank plot. Apparently there is no solution of 7/20 within this region of the plane.
 

Similar threads

  • · Replies 16 ·
Replies
16
Views
2K
  • · Replies 4 ·
Replies
4
Views
1K
Replies
1
Views
2K
  • · Replies 1 ·
Replies
1
Views
2K
  • · Replies 1 ·
Replies
1
Views
5K
Replies
7
Views
4K
Replies
6
Views
3K
  • · Replies 0 ·
Replies
0
Views
6K
  • · Replies 2 ·
Replies
2
Views
2K
  • · Replies 15 ·
Replies
15
Views
7K