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]'