Message Boards Message Boards

Check if this outcome is right?

GROUPS:

Consider the following code:

c=RandomReal[299792458,{4000}]
m=RandomReal[60,{4000}]
cf=RandomReal[299792458,{4000}]
ci=RandomReal[299792458,{4000}]
mi=RandomReal[60,{4000}]
mf=RandomReal[60,{4000}]
tf=RandomReal[360000,{4000}]
ti=RandomReal[60000,{4000}]
Ei=RandomReal[60,{4000}]
E=m*c^2
u=((cf*mf-cf*mi-cf*mf+ci*mi-c*mf+c*mi)/c*tf-c*ti)-Ei
ListPolarPlot[u]
ListLinePlot[u]
SphericalPlot3D[{u},{u,-600,2Pi},{\[Theta],40,2Pi*E},Mesh->None,ExclusionsStyle->{None,Red},PlotStyle->Directive[Green,Opacity[0.8],Specularity[White,20]]]
\!\(\*
Graphics3DBox[GraphicsComplex3DBox[CompressedData["..."]],
Axes->True,
DisplayFunction->Identity,
FaceGridsStyle->Automatic,
ImageSize->{299.3833853017205, 345.7623138022243},
ImageSizeRaw->Automatic,
Method->{},
PlotRange->{{-584.5513554542858, 
    584.5875338517892}, {-583.695263423463, 
    583.3052078029933}, {-553.5414600940459, 599.4128954565789}},
PlotRangePadding->{
Scaled[0.02], 
Scaled[0.02], 
Scaled[0.02]},
Ticks->{Automatic, Automatic, Automatic},
ViewPoint->{0.10177748880736848`, -3.0264145141045944`, 
    1.5101180522029125`},
ViewVertical->{-0.0653200285214862, -0.1729558461970913, 
    0.9966130548305089}]\)
Answer
13 days ago

c=RandomReal[299792458,{4000}] m=RandomReal[60,{4000}] cf=RandomReal[299792458,{4000}] ci=RandomReal[299792458,{4000}] mi=RandomReal[60,{4000}] mf=RandomReal[60,{4000}] tf=RandomReal[360000,{4000}] ti=RandomReal[60000,{4000}] Ei=RandomReal[60,{4000}] E=m*c^2 u=((cfmf-cfmi-cfmf+cimi-cmf+cmi)/ctf-cti)-Ei ListPolarPlot[u] ListLinePlot[u] SphericalPlot3D[{u},{u,-600,2Pi},{[Theta],40,2Pi*E},Mesh->None,ExclusionsStyle->{None,Red},PlotStyle->Directive[Green,Opacity[0.8],Specularity[White,20]]]

just run this and check the outcome of the graphics

Attachment

Answer
13 days ago

This is the outcome of the grafics for the equation of minimum enenrgy conservation.

Attachment

Attachments:
Answer
12 days ago

Group Abstract Group Abstract