User Portlet
Featured Contributor
| Discussions |
|---|
| Thank you, Daniel! It is a very instructive and useful explanation! |
| sinc[x_] := Piecewise[{{Sin[Pi x]/(Pi x), x != 0}, {1, x == 0}}] Plot[sinc[x], {x, -5, 5}, PlotRange -> All] ![enter image description here][1] [1]:... |
| The character code is In[1]:= ToCharacterCode["`"] Out[1]= {96} So, you may enter it by pressing the key combination: **Alt+9+6**. |
| You don't need the word "Solve", i.e. your input must be simply: (sqrt(x^2+x) - x) (sqrt(x^2+x) + x) and the result is [x][1]. [1]:... |
| And one more additional curiosity: ContourPlot[x^2 == 1/10000, {x, -1, 1}, {y, -1, 1}, PlotRange -> {{.0022, .01}, {-.3, .3}}, PlotPoints -> 30] ContourPlot[10000 x^2 == 1, {x, -1, 1}, {y, -1, 1}, PlotRange -> {{.0022, .01}, {-.3, .3}},... |
| One more variation on the same subject: z[t_, a_, b_] := {(a - b) Cos[t] + b Cos[(1 - a/b) t], (a - b) Sin[t] + b Sin[(1 - a/b) t]} ParametricPlot[ Evaluate[MapThread[ z[t, #1, #2] &, {Range[-(1/2), 9, 1/3], ... |
| You must clear $f$. You can use also: Remove["Global`*"] After that you need to define all variables and function. |
| You can use Mathematica's menu to find Alphabetical Listing of functions: Help -> Wolfram Documentation -> Index of Functions P.S. The button/link of Index of Functions is at the bottom of the Wolfram Documentation page. |
| You may define a function and use it: In[1]:= f[x_, y_, z_] := Defer[(x + y)/z] In[2]:= f[2, 3, 5] Out[2]= (2 + 3)/5 |
| Hi Sergio, I propose you to verify the following code with Table[]: mo = 4/10 \[Pi]; \[Sigma] = 3533568905/100; w = 120 \[Pi]; h = 5/1000; const = (w mo \[Sigma] h^2)/(2. \[Pi]); ... |