User Portlet
Featured Contributor
| Discussions |
|---|
| In[15]:= data1 = {1, 2, 3, 4, 3, 2, 1, 5, 6, 7, 4, 3}; data2 = {5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 39, 40, 41, 42, 43, 44, 45, 46}; Split[data1, Less] Split[data2, #2 - #1 |
| May be something like this one: f[x_, y_, z_] := x^3 + Abs[(E^y) - 5 z] Plot3D[Table[f[x, y, z], {z, 0, 6, 0.5}], {x, 0, 2.65}, {y, 0, 3.86}] ![enter image description here][1] [1]:... |
| The extra credit is somewhat unclear, so let us begin with this code: poly[n_Integer /; n >= 3, c_RGBColor : RGBColor[1, 0.5, 0]] := Graphics[Style[RegularPolygon[n], c]] poly[___] := " Enter an integer \[GreaterEqual] 3 " ... |
| Very interesting, Rohit! We can apply MapIndexed[], too! NestList[MapIndexed[ Framed[#1, Background -> Hue[Random[], 1, 1, 0.5], RoundingRadius -> 4 + #2] &], Alphabet[], 5] // Grid[#] & ![enter image description here][1]... |
| Hi Abrita, To initiate the challenge, let's start with the following code: PigLatin[text_String] := Block[{vowels = {"a", "e", "i", "o", "u"}, consonants}, consonants = Complement[Alphabet[], vowels]; consonants =... |
| In[1]:= Maximize[{x*y*z, 2 x*z + 2 y*z + x*y == 12, x >= 0, y >= 0, z >= 0}, {x, y, z}] Out[1]= {4, {x -> 2, y -> 2, z -> 1}} |
| Let's define the function cleanText[]: cleanText[text_String] := StringReplace[ text, {Whitespace ~~ "er" | "um" | "s-," ~~ Whitespace :> " ", Whitespace ~~ "\n" :> " ", Whitespace ~~ "[" ~~ ___ ~~ "]" ~~... |
| Hi, Abrita, I have modified a little your code: Graphics[Table[{RGBColor[i^2/100, j^2/100, 1 - (i^2 + j^2)/200], EdgeForm[ Directive[Opacity[.977], Dashed, Thickness[RandomReal[{0.05, 0.1}]], Opacity[.87], ... |
| May be this is what you want: h = 10; l = 6; w = 4; r = 0.2; atoms = Table[ Sphere[{RandomReal[w - r], RandomReal[l - r], RandomReal[h - r]}, r], 240]; Manipulate[ Graphics3D[{Opacity[0.2], ... |
| It looks important to define before the variable l: In[1]:= l = {"z", "t", "c", "a", "u", "h", "p"}; DictionaryLookup[x__ /; SubsetQ[Characters@x, l]] Out[1]= {"chutzpa", "chutzpah"} |