New answers tagged

5

Introduction The first thing that I noticed is that the functional form for all of your CDD and LHS functions are identical. I propose that rather than defining six functions for each, we define one function and change the input arguments to cover the various cases. cdd[s_, a_, b_, c_] := 10^(a + b*c - b*s)*Exp[-10^(s - c)] lhs[s_?NumericQ, a_?NumericQ, ...


6

Jason has shown a very good way (here and on Community) to plot the Enneper surface, so let me just show my own take: (* "jet" colormap *) jet[u_?NumericQ] := Blend[{{0, RGBColor[0, 0, 9/16]}, {1/9, Blue}, {23/63, Cyan}, {13/21, Yellow}, {47/63, Orange}, {55/63, Red}, {1, RGBColor[1/2, 0, 0]}}, u] /; 0 <= u <= 1 (* generalized ...


2

Thanks to Sam Carrettie for pointing this out Entity["Surface", "EnneperMinimalSurface"][ EntityProperty["Surface", "Graphics3D"]]


12

The trick here is to use the plotting function to generate the mesh lines, but there is no way to apply a ColorFunction for a MeshStyle - mesh lines need to have a single color. So we extract the mesh lines, break them up into pieces, and then apply the color function to them. This could be more efficient if I didn't use Normal but the code would be much ...


0

The correct Mathematica code (v.10.2.0.0.) is: A = N[{{4, 1, -2, 2}, {1, 2, 0, 1}, {-2, 0, 3, -2}, {2, 1, -2, -1}}]; (*A=N[{{-42,43,-2,28},{43,-98,72,-26},{-2,72,-96,53},{28,-26,53,54}}];*) n = Length[A[[1]]]; zeroVector = {}; For[i = 1, i <= n, i++, zeroVector = Append[zeroVector, {0}]]; Alist = {A}; Hlist = {}; For[j = 1, j <= n - 2, j++, ...



Top 50 recent answers are included