Projection on the xy–plane of the curve of intersection of both surfaces

Question

I am trying to make a projection on the xy-plane of the intersection of the surfaces from the functions: 1 + x^2 - y^2, 3 Log[1 + x^2].

Thanks.

Please post copyable code so that users can easily play with it. — Henrik Schumacher, Apr 22 '18 at 22:01
@HenrikSchumacher sorry this was my first time posting a question, I´ll do it in the next. — Damian Muciño, Apr 23 '18 at 17:23

score 3 · Answer 1 · answered Apr 22 '18 at 23:44

3

Using geometric region functions:

RegionPlot@
 ImplicitRegion[
   1 + x^2 - y^2 == 3 Log[1 + x^2],
   {{x, -1.5, 1.5}, {y, -1.5, 1.5}}
 ]

Mathematica graphics

See also: Plotting implicitly-defined space curves for other interesting approaches.

answered Apr 22 '18 at 23:44

MarcoB

What do you think about closing this topic as a duplicate of https://mathematica.stackexchange.com/q/34668/5478 and moving your answer there for completeness? – Kuba Apr 23 '18 at 08:48
@Kuba I agree, your suggestion sounds reasonable to me. – MarcoB Apr 23 '18 at 14:09
kuba @MarcoB seems like a good idea, I´ll do it. – Damian Muciño Apr 23 '18 at 17:27

score 2 · Answer 2 · edited Apr 23 '18 at 10:09

2

ContourPlot[1+x^2-y^2==3Log[1+x^2],{x,-1.5,1.5},{y,-1.5,1.5}]

edited Apr 23 '18 at 10:09

Kuba

answered Apr 23 '18 at 06:40

OkkesDulgerci

2 Answers2