Message Boards Message Boards

Transpose Wolfram Language to UNITY

Posted 4 months ago

Hi. My name is Sergey and i want to ask about how correctly transpose wolfram language code to Unity ! How to set up wolfram Unity Link ?

here is the code, i want to import in to evaluate

Manipulate[Grid[{
   {Show[
     ContourPlot[
      Evaluate[Vout[x, 0, z, medium]], {x, -5, 5}, {z, -5, 5}, 
      RegionFunction -> Function[{x, z}, z^2 + x^2 >= 1], 
      PlotTheme -> "Detailed", 
      PlotLabel -> 
       Row[{Style["V", Italic], "(", Style["x", Italic], ", 0, ", 
         Style["z", Italic], ")"}], FrameLabel -> {x, z}],
     ContourPlot[
      Evaluate[Vin[x, 0, z, medium]], {x, -1, 1}, {z, -1, 1}, 
      RegionFunction -> Function[{x, z}, z^2 + x^2 < 1]], 
     ImageSize -> .9 {300, 300}],

    Show[
     VectorPlot3D[
      Evaluate[Eout[x, y, z, medium]], {x, y, z} \[Element] 
       outerRegion,
      VectorMarkers -> "Arrow", RegionBoundaryStyle -> None, 
      VectorScaling -> Automatic,
      Boxed -> False, Axes -> False, AspectRatio -> 1, 
      PlotTheme -> "Detailed",
      PlotLabel -> 
       Row[{Style["E", Bold], "(", Style["x", Italic], ", ", 
         Style["y", Italic], ", ", Style["z", Italic], ")"}]],
     VectorPlot3D[
      Evaluate[Ein[x, y, z, medium]], {x, y, z} \[Element] Ball[],
      VectorMarkers -> "Arrow", VectorScaling -> Automatic],
     Graphics3D[{Opacity[0.5], Sphere[]}], ImageSize -> {250, 250}, 
     ViewAngle -> 15 Degree]}}],
 {medium, {1. -> "vacuum", 1.0005 -> "air (dry)", 11.7 -> "silicon", 
   80.1 -> "water", 104 -> "ice"}},
 ContentSize -> {640, 300}, SaveDefinitions -> True, 
 SynchronousInitialization -> False]'
POSTED BY: Sergey Scorin
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