User Portlet
Discussions |
---|
If you have In[275]:= (a + (a/b)^2) /. a -> b*w Out[275]= b w + w^2 But if you add another /. b*w -> a In[267]:= (a + (a/b)^2) /. a -> b*w /. b*w -> a Out[267]= a + w^2 Eric |
It would seem that your cone is 577.29 cm with a base of radius 28.25, Using the formula for the area of a cone, A = Pi radius Sqrt[height^2+radius^2] the area is 51295.8 cm^2. Something is still wrong. Eric |
Hi Camilo, Maybe this is too late, but anyway, n=3; initConf = ReplacePart[Table[0, {2 n + 1}, {2 n + 1}], Random[Integer, {1, 4}], {n + 1, n + 1}] I played around with your Meander function. It was quite educational. If you... |
Hi Jie Li, I think something has happened to your original equation set. There is no separation between the variables, so the multiplications have been lost. For example, if you copy out the equations list and then do a Shift/Return, you get ... |
Hi Camilo, So, it looks like the numbers are the directions to move. But if you are going for a graphic, all you really need is a position in the matrix. Instead of using 0 for the entries that don't count, I used 0.0 so that I can distinguish... |
l1 = ListPlot[{{1, 0.0385}, {2, 0.04}, {3, 0.04096}, {4, 0.041044}, {5, 0.0408417}, {6, 0.0405}, {7, 0.04011}, {8, 0.03965}, {9, 0.0391528}, {10, 0.03861}}, Joined -> True, Axes -> {False, True}] ... |
I was curious to see if I could get Muzahoo jee's subscripted form. Combining his and Daniel Lichtblau's code, I came up with this: Table[a = RandomInteger[{-5, 5}, {5, 6}]; b = a[[1 ;; 5, 1 ;; 5]]; c = Table[Subscript[x, i], {i,... |
The trick to getting the vertical lines is to use Exclusions -> None as a plot option: zr[t_] := Re[Sqrt[E^(-7 I t)] + E^(I t)] zi[t_] := Im[Sqrt[E^(-7 I t)] + E^(I t)] ParametricPlot[{zr[t], zi[t]}, {t, -2, 5}, MaxRecursion -> 10, ... |