« first day (3198 days earlier)      last day (43 days later) » 

zhk
4:13 AM
@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];
 
zhk
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!
 

« first day (3198 days earlier)      last day (43 days later) »