User Portlet
Featured Contributor
| Discussions |
|---|
| Thank you, Abrita, for your answer! |
| CellPrint@ Cell[StyleData["CodeText"], FontFamily -> "Source Serif Pro", FontSlant -> "Italic", FontColor -> Darker[Brown], Background -> LightPurple] ![enter image description here][1] [1]:... |
| Hi, Muhammad, A little earlier, I have mentioned exactly the case of item 1.8. Try an obvious modification of your present code. There is no need to construct another one. And the code needs to be appropriate to beginner's level with Table! |
| 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 ~~ "[" ~~ ___ ~~ "]" ~~... |