Message Boards

WOLFRAM COMMUNITY

6929 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Make a parametric plot graph?

Luis Felipe Massena Misiec

Luis Felipe Massena Misiec, Home

Posted 6 years ago

Consider the following code: g1=RandomReal[30000,{300}] g2=RandomReal[30000,{300}] s=RandomReal[30000,{300}] s2=RandomReal[30000,{300}] m=RandomReal[30000,{300}] G=6.6710^-11 m1=s^g1s2^-g2/(g2-g1)m m2=s^g1s2^-g2/(g2-g1)m1 f=G(s^2g1)(s2^-2g2)/((g2-g1)^2)m1m2 f1=f-fPower[f, (f)^-1] Can someone help me make a cool parametric region plot of all the variables ?

Consider the following code:

g1=RandomReal[30000,{300}]
        g2=RandomReal[30000,{300}]
        s=RandomReal[30000,{300}]
        s2=RandomReal[30000,{300}]
        m=RandomReal[30000,{300}]
        G=6.67*10^-11
        m1=s^g1*s2^-g2/(g2-g1)*m
        m2=s^g1*s2^-g2/(g2-g1)*m1
        f=G*(s^2*g1)*(s2^-2*g2)/((g2-g1)^2)*m1*m2
        f1=f-f*Power[f, (f)^-1]

Can someone help me make a cool parametric region plot of all the variables ?

POSTED BY: Luis Felipe Massena Misiec

3 Replies

Sort By:

Luis Felipe Massena Misiec

Luis Felipe Massena Misiec, Home

Posted 5 years ago

the equations stand for a relation of space to gravity in a way that mass is defined by the correlation of the two variabes , graivty and space, as in amount of space per gravity.I just would like to link each number of the calculated variables toeachother to see if emerges a pattern of some kind.

POSTED BY: Luis Felipe Massena Misiec

Anonymous User

Posted 5 years ago

i would like to see a boring parametric plot posted before i comment on cooler parametric one tell us what the equations are for and their geometric shape i assume you mean to graph: m1 m2 f1 f2. but it's not clear how many dimensions you plan to visualize or how. They all end up as "f(m1,m2,g1,g2,f1,f2,...)=x", which is a Plot not a parametric plot, a plot looking something like Plot[1/x,{x,0,2}. As for random point choices, often Mathematic can plot something without telling it which points to choose because it has that built in ability to think ahead of the plot, a feature than can be substituted with definite choices or an equation.

POSTED BY: Anonymous User

Dent de Lion

Dent de Lion, Privatier

Posted 5 years ago

There are 5 variables seemingly $g1,g2,s,s2,m$ and three plotting directions available. What is meant with all the variables? Let Clear[G, m0, f, f1] G = 6.6710^(-11); m0[s_, g1_, s2_, g2_, m_] := s^g1 s2^(-g2)/(g2 - g1) m /; Chop[g2 - g1] != 0 m0[s_, g1_, s2_, g2_, m_] := 1 /; Chop[g2 - g1] == 0 f0[s_, g1_, s2_, g2_, m1_, m2_] := G (s^2 g1) (s2^-2 g2)/((g2 - g1)^2) m1 m2 /; Chop[g2 - g1] != 0 f0[s_, g1_, s2_, g2_, m1_, m2_] := 1 /; Chop[g2 - g1] == 0 f1[f_] := f (1 - Power[f, (f)^-1]) /; Chop[f] != 0 f1[f_] := 1 /; Chop[f] == 0 even if done with moderate requierements c1 and c2 it spreads in exponents and has imaginary parts: In[11]:= With[{c1 = 10, c2 = 30}, g1 = RandomReal[c1, {c2}]; g2 = RandomReal[c1, {c2}]; s = RandomReal[c1, {c2}]; s2 = RandomReal[c1, {c2}]; m = RandomReal[c1, {c2}]; m1 = Thread[m0[s, g1, s2, g2, m]]; m2 = Thread[m0[s, g1, s2, g2, m1]]; f = Thread[f0[s, g1, s2, g2, m1, m2]]; ( ListPlot[Transpose[{f,Thread[f1[f]]}]]) Transpose[{f, Thread[f1[f]]}] ] Out[11]= {{-0.00928352186179031, 4.8059265895056695^216 + 5.894052613877011^216I}, {-1.3977240429029253^-17, 1}, {9.592489227522844^-19, 1}, {3.306165144076391^-26, 1}, {-0.058595625730573704, -6.112068216674609^19 + 1.2881998336850297^19I}, {-0.000010051852482387577, 1.778615852000138030239485285139555233664294897277494523`15.\ 954589770191005^497192 - 9.06155013302336751122192879035133867864120089603068114`15.\ 954589770191005^497191I}, {8.246697473360999^-23, 1}, {-3.909167386312555^-23, 1}, {-3.1157606206455647^-25, 1}, {3.3469475609362563^-21, 1}, {6.182588985090828^-11, 1}, {-6.181510525382172^-8, 3.04086441903244134783338477333795579829080034294470326`15.\ 954589770191005^116620442 + 4.237519309210338055379605785537779784521577124216176483`15.\ 954589770191005^116620442I}, {2.9588610154654668^-27, 1}, {-0.00023370299451464023, -4.07717142309816970814193082475419472737739009`15.\ 954589770191005^15534 - 8.3993182849799875966701433286612384248622163`15.\ 954589770191005^15533I}, {7.429204290756719^7, -18.123516614064986}, \ {1.0157542225469982^-15, 1}, {7.53352552227472^-12, 1}, {-0.004590914377848869, 7.5583569764765075001559732532208794990209841`15.954589770191005^\ 506 + 4.74582767471470433938779166853011935244416`15.954589770191005^\ 506I}, {-5.2141394974079034^-20, 1}, {-1.0887676724447832^-6, 1.481895922411049641989392450867176077894294848393`15.\ 954589770191005^5476887 + 4.978008078337659104483635277501699655989078299877`15.\ 954589770191005^5476887I}, {2.3359600766822557^-30, 1}, {-1.8408340108610744^-9, 1.058213714341939047786972920701684739485858`15.954589770191005^\ 4745123842 + 5.82317946462626574714650240682820541165192`15.954589770191005^\ 4745123841I}, {5.834885489791577^-28, 1}, {3.5041753229947925^9, -21.977221353157965}, {-6.837819810727^7, \ -18.04056228954614 - 3.14159182472768I}, {-1.768657572661162^6, -14.385675668959443 - 3.141567100917612I}, {-4.822736004238638^-7, 1.14381043614652862493064528857469086`15.954589770191005^13097759 + 8.4600302293414806003316232569627274`15.954589770191005^\ 13097758I}, {1.74894330441059^-21, 1}, {-7.225049923207683^9, -22.700819645155836 - 3.141592643719034I}, {-0.00014743013276286463, \ -1.3485565550908034565613604333130329718916124675757523`15.\ 954589770191005^25984 - 5.640442999648625102596519416795183565187252960252482`15.\ 954589770191005^25983I}} no meaningful without furhter considerations. How unbearable it really is you see in the traditional form:

There are 5 variables seemingly $g1,g2,s,s2,m$ and three plotting directions available. What is meant with all the variables? Let

Clear[G, m0, f, f1]
G = 6.67*10^(-11);
m0[s_, g1_, s2_, g2_, m_] := 
 s^g1 s2^(-g2)/(g2 - g1) m /; Chop[g2 - g1] != 0
m0[s_, g1_, s2_, g2_, m_] := 1 /; Chop[g2 - g1] == 0
f0[s_, g1_, s2_, g2_, m1_, m2_] := 
 G (s^2 g1) (s2^-2 g2)/((g2 - g1)^2) m1 m2 /; Chop[g2 - g1] != 0
f0[s_, g1_, s2_, g2_, m1_, m2_] := 1 /; Chop[g2 - g1] == 0
f1[f_] := f (1 - Power[f, (f)^-1]) /; Chop[f] != 0
f1[f_] := 1 /; Chop[f] == 0

even if done with moderate requierements c1 and c2 it spreads in exponents and has imaginary parts:

In[11]:= With[{c1 = 10, c2 = 30},
 g1 = RandomReal[c1, {c2}];
 g2 = RandomReal[c1, {c2}];
 s = RandomReal[c1, {c2}];
 s2 = RandomReal[c1, {c2}];
 m = RandomReal[c1, {c2}];
 m1 = Thread[m0[s, g1, s2, g2, m]];
 m2 = Thread[m0[s, g1, s2, g2, m1]];
 f = Thread[f0[s, g1, s2, g2, m1, m2]];
 (* ListPlot[Transpose[{f,Thread[f1[f]]}]]*)
 Transpose[{f, Thread[f1[f]]}]
 ]


Out[11]= {{-0.00928352186179031, 
  4.8059265895056695*^216 + 
   5.894052613877011*^216*I}, {-1.3977240429029253*^-17, 1}, 
   {9.592489227522844*^-19, 1}, {3.306165144076391*^-26, 
  1}, {-0.058595625730573704, 
     -6.112068216674609*^19 + 
   1.2881998336850297*^19*I}, {-0.000010051852482387577, 
     1.778615852000138030239485285139555233664294897277494523`15.\
954589770191005*^497192 - 
       9.06155013302336751122192879035133867864120089603068114`15.\
954589770191005*^497191*I}, {8.246697473360999*^-23, 1}, 
   {-3.909167386312555*^-23, 1}, {-3.1157606206455647*^-25, 
  1}, {3.3469475609362563*^-21, 1}, 
   {6.182588985090828*^-11, 1}, {-6.181510525382172*^-8, 
     3.04086441903244134783338477333795579829080034294470326`15.\
954589770191005*^116620442 + 
       4.237519309210338055379605785537779784521577124216176483`15.\
954589770191005*^116620442*I}, 
   {2.9588610154654668*^-27, 1}, {-0.00023370299451464023, 
     -4.07717142309816970814193082475419472737739009`15.\
954589770191005*^15534 - 
       8.3993182849799875966701433286612384248622163`15.\
954589770191005*^15533*I}, 
   {7.429204290756719*^7, -18.123516614064986}, \
{1.0157542225469982*^-15, 1}, {7.53352552227472*^-12, 1}, 
   {-0.004590914377848869, 
  7.5583569764765075001559732532208794990209841`15.954589770191005*^\
506 + 
       4.74582767471470433938779166853011935244416`15.954589770191005*^\
506*I}, {-5.2141394974079034*^-20, 1}, 
   {-1.0887676724447832*^-6, 
  1.481895922411049641989392450867176077894294848393`15.\
954589770191005*^5476887 + 
       4.978008078337659104483635277501699655989078299877`15.\
954589770191005*^5476887*I}, {2.3359600766822557*^-30, 1}, 
   {-1.8408340108610744*^-9, 
  1.058213714341939047786972920701684739485858`15.954589770191005*^\
4745123842 + 
       5.82317946462626574714650240682820541165192`15.954589770191005*^\
4745123841*I}, {5.834885489791577*^-28, 1}, 
   {3.5041753229947925*^9, -21.977221353157965}, {-6.837819810727*^7, \
-18.04056228954614 - 3.14159182472768*I}, 
   {-1.768657572661162*^6, -14.385675668959443 - 3.141567100917612*I}, 
   {-4.822736004238638*^-7, 
  1.14381043614652862493064528857469086`15.954589770191005*^13097759 + 
       8.4600302293414806003316232569627274`15.954589770191005*^\
13097758*I}, {1.74894330441059*^-21, 1}, 
   {-7.225049923207683*^9, -22.700819645155836 - 3.141592643719034*I}, 
   {-0.00014743013276286463, \
-1.3485565550908034565613604333130329718916124675757523`15.\
954589770191005*^25984 - 
       5.640442999648625102596519416795183565187252960252482`15.\
954589770191005*^25983*I}}

no meaningful without furhter considerations. How unbearable it really is you see in the traditional form:

enter image description here

POSTED BY: Dent de Lion

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback