Message Boards Message Boards

GROUPS:

Make a parametric plot graph?

Posted 1 year ago
1416 Views
|
3 Replies
|
1 Total Likes
|

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 ?

3 Replies

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

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.

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.

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract