Math Is Fun Forum

evene

Member

Registered: 2015-10-18

Posts: 272

Mathematica 3D Function Graphing

I have the function
Plot3D[Sin[47^{64.9/Cos[90.469+x/y]}]{x,-5,5},{y,-10,10}]
And I want to graph it in 3D. But Mathematica won't graph it. It just doesn't seem to respond. What's going on? Am I doing something wrong with the brackets?

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Hi;

There are 2 immediate problems with your use of the 3DPlot3D command.

] {x, -5, 5}, there should be a comma like this ] ,{x, -5, 5}

and

{64.9/Cos[90.469 + x/y]}, mathematica uses braces like that for parameters and lists but always uses parentheses for order of operations. So that should be (64.9/Cos[90.469 + x/y])

One question:

You wrote 90.469 + x/y which mathematica will interpret as

Is that what you intended? I only ask because 

works in the ranges you gave.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

Yes.

Is what I intended...

I was using the online version of Mathematica, and I'm wondering if there is a way to delete your notebook cells...

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

Never mind, I figured it out.

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Did you find your errors or was it something else?

Did you get it to plot?

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

Yes, I got the plot to work! (Yay!)

Although nothing showed up, implying I need to change the domain and range of the plot to get it to actually plot. Any ideas?

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Plot3D[Evaluate[Sin[47^(64.9/Cos[90.469 + x/y])]], {x, -5, 5}, {y, -2,2}]

Use the cursor to rotate it around.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

How do you add greek symbols such as

into your plots? Simply entering Theta doesn't work...

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Hi;

Escape key th escape key.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

Okay, thanks. I also realized \[Theta] will also work...

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Yes, check the help and you will usually find all you need.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

zetafunc

Moderator

Registered: 2014-05-21

Posts: 2,432

Website

Re: Mathematica 3D Function Graphing

Mathematica SE is also helpful.

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

They sure are and I was going to recommend them.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

zetafunc

Moderator

Registered: 2014-05-21

Posts: 2,432

Website

Re: Mathematica 3D Function Graphing

That being said, if even Mathematica is not able to give you an answer (and that's quite common), then your question may end up being migrated to MathSE.

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

There is a simple trick to keep that from happening.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

zetafunc

Moderator

Registered: 2014-05-21

Posts: 2,432

Website

Re: Mathematica 3D Function Graphing

Delete and repost?

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

That usually gets an admonishment from several members. The best way, is just mention mathematica in the question a couple of times.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

I learned that you can factor

However, Mathematica doesn't recognize this input and just spits out

. Is there a way to get Mathematica to factorize this?

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Hi;

Factor[a^4 + b^4, Extension -> Sqrt[2]] // TraditionalForm

Check in the Help for Factor to get much more.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

That's so cool!

I now have accomplished factoring

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Factor[x^8 + 4 x^7 - 10 x^6 - 54 x^5 + 9 x^4 + 226 x^3 + 125 x^2 - 301 x - 269, Extension -> Sqrt[5]]

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

It then turns out that you can factor the remaining quartics into quadratics by having them factor over the extension of Sqrt[13+4 Sqrt[5]] and Sqrt[13-4 Sqrt[5]].

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Factor[x^8 + 4 x^7 - 10 x^6 - 54 x^5 + 9 x^4 + 226 x^3 + 125 x^2 - 301 x - 269, 
Extension -> {Sqrt[13 + 4 Sqrt[5]] , Sqrt[13 - 4 Sqrt[5]]}]

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.

evene

Member

Registered: 2015-10-18

Posts: 272

Re: Mathematica 3D Function Graphing

Hm... why can't Mathematica not solve

Solve[{c, a+c^2 d, a^2+b+c d^2+c^2 e, a^2 b+ b^2+ d^2 e+c e^2, a^3+6 a b+d^3+6 c d e, a b^2+3 d e^2, b^3+e^3}=={h,f, f^2+g+h^2 t, f^2 g+g^2+h t^2, f^3+6 f g, f g^2, g^3+t^3}]

It just sits there loading! I'm trying to find the unknown variables... Is there something wrong with the syntax?

bobbym

bumpkin

From: Bumpkinland

Registered: 2009-04-12

Posts: 109,606

Re: Mathematica 3D Function Graphing

Hi;

For one thing, you have 8 unknowns and only 7 equations. Did you leave one out?

Be back after I eat something.

---

In mathematics, you don't understand things. You just get used to them.
If it ain't broke, fix it until it is.
Always satisfy the Prime Directive of getting the right answer above all else.