4:13 AM
@user21 The integration of NDSolve solution produces an error
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];```

4:40 AM
@user21 I have solve the issue with `?NumericQ`
Thanks

5:38 AM
Is there a free usable version of mathematica for hobbyists?

8 hours later…
2:04 PM
@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

5 hours later…

2 hours later…
8:19 PM
posted on October 20, 2020 by Christopher Carlson

Although this year’s Wolfram Technology Conference was virtual, that didn’t stop us from running the ninth annual One-Liner Competition, where attendees vie to produce the most amazing results they can with 128 or fewer characters of Wolfram Language code. Here are the winners, including an audio game, a hands-free 3D viewer and code that makes [...]

9:10 PM
@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!]]```
2
Probably the first WL thing to properly blow my mind in a few months

9:26 PM
@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
Poor man's VR is one line of code

2 hours later…
11:44 PM
Hi chat!