User Portlet
| Discussions |
|---|
| Hi Marc. Just remove the semicolons (;) from the end of the Lines with the [b]Plot[..] ;[/b] commands. [mcode] (* Solve the seesaw treb problem *) (*seesaw1.0.nb DB Siano Aug. 21, 1997*) m1=100;m2=1;l1=1;l2=4;g=32;(* the parameters*) ... |
| Hi Russel. Of course it wold be nice if Mathematica would serve as a replacement for CAD- and raytracing tools like Maya etc. But I don't think that this is the intention of Mathematica. On one side, Mathematica is surely about presenting data -... |
| Transpose does exactly what you want:[mcode]In[14]:= Transpose[{{a1, b1}, {a2, b2}}] Transpose[{{a1, b1, c1, d1}, {a2, b2, c2, d2}}] Transpose[{{a1, b1}, {a2, b2}, {a3, b3}}] Out[14]= {{a1, a2}, {b1, b2}} Out[15]= {{a1, a2}, {b1, b2}, {c1, c2},... |
| Hello, A somewhat quick and dirty way:: [mcode]In[113]:= ToStringPad[n_, len_, pad_] := FromCharacterCode[ PadLeft[ToCharacterCode[ToString[n]], len, First[ToCharacterCode[pad]]]]; ToStringPad[1, 3, "0"] ToStringPad[22, 8, "="] ... |
| Hi Jarque, I think the problem with the derivate ist just that D[f[x , y], x] /. {x -> a x, y -> a y}expands to the somewhat strange expression: D[f[a x , a y], a x] What you probably really want is:[mcode]D[f[a x , a... |
| Ok, you could do something like this:[mcode]In[182]:= (* define your array (i.e. list) with default values 0 *) arr = ConstantArray[0, 50] ; (* set the values *) arr[[1]] = 1 ; arr[[2]] = 22 ; arr[[3]] = 18 ; (* count values *) Count[arr, 18] ... |
| Here's my approach: lst = {db, st1, 3, 333.33, 4, 543, 11, 323, de, db, st2, 9, 987, 8, 778, de}; Partition[ Join @@ (Prepend[Riffle[#[[3 ;; -2]], #[[2]], 3], #[[2]]] & /@ Split[lst, # =!= de &]), 3] |