@user21 The integration of NDSolve solution produces an error

Please have a look!

Thanks

rhop = 10922; rhon = 10922; Cp = 200; Cn = 200; Lan =
 1.5*10^(-3); Lap = 1.5*10^(-3); Lbn = 1.5*10^(-3); Lbp = 1.5*10^(-3);
kp = 1.8; kn = 2.2; sigmap = 1/(1.2*10^(-5)); sigman =
 1/(10^(-5)); taup = 0.00027; taun = -0.000156; L =
 2.325*10^(-3); ha = 10;
Tinf = 298; Th = 300; Tc = 298; A =
 2.325*10^(-6); alphan = -0.00019; alphap = 0.00015;

PDE1 = rhop*Cp*D[Tp[t, x, y, z], t] +
   Inactive[Div][-kp Inactive[Grad][Tp[t, x, y, z], {x, y, z}], {x, y,
      z}] - 1/sigmap*(Ic/A)^2 + taup*Ic/A*D[Tp[t, x, y, z], x];

Is there a free usable version of mathematica for hobbyists?

@Razetime Mathematica, I don't think so. Wolfram Language, yes. See <https://www.wolfram.com/engine/> and <https://mathematica.stackexchange.com/questions/198839/how-to-add-a-front-end-to-the-free-wolfram-engine>

Thanks a lot!

I haven't tried this myself BTW

The engine should be enough all by itself

I just wanna do some funny golfing with builtins

@Feeds Wow, the second place example there is a mind-blower

c = {0, 0};
Graphics3D[{Hue@.4, 3~MengerMesh~3}, ViewPoint ->
  Dynamic@
   Join[c += Total[ImageDisplacements@CurrentImage@2, 3]; {-3}, c/9!]]

Probably the first WL thing to properly blow my mind in a few months

@CarlLange I know. Honestly I don't quite get why this isn't first. That's a truly impressive use of the FE and language.

I enjoyed trying it out with other things, because like you can just twist your laptop around and it's like you're twisting the object itself

Like this is super cool:

c = {0, 0};
Graphics3D[AnatomyPlot3D[Entity["AnatomicalStructure", "LeftFemur"]][[1]], ViewPoint -> Dynamic@Join[c += Total[ImageDisplacements@CurrentImage@2, 3]; {-3}, c/9!]]

You can just move your laptop around and the femur moves

Hi chat!