User Portlet
| Discussions |
|---|
| Your time varies from 0 to 50. You use recursion to evaluate that at every 0.01 time step. That means you may use up to 5000 recursions to calculate each time step. Usually people don't do more than 1000 recursions unless something has gone wrong in... |
| When you put your code in two cells did you first click to put the cursor in the first cell and press and then click to put the cursor in the second cell and then press ? Doing those steps in that order will instruct Mathematica to evaluate... |
| It appears that the two algorithms may have chosen a different branch of complex log. Table[x=RandomReal[{-10,10}]; N[-Log[(x^2-2x+2)Sqrt[x^4-2x^3+3x^2+2x+1]+x^4-3x^3+5x^2-2x]- ... |
| Do DSolveValue[{eqn, cond}, v, {t, 0, 6/10}] to see what is happening. That returns Function[{t}, (5*(409272678401*Cos[(24*t)/5] + 4*(81920000*E^((32*t)/5)*Cos[6400*t] - 5597847671347*Sin[(24*t)/5] + ... |
| Try changing While[noedge weights] to While[noedge weights] |
| Pattern matching is usually the answer to questions like this, but pattern matching is pretty literal in what you ask for, whether it will successfully match and what it gives you. Will this do some of what you want? CE=... |
| Try For[i = 3, i |
| elctrn[eV_]:=6.626*10^-34/Sqrt[2.0*9.11*10^-31*eV*1.6*10^-19]*100.0; FindRoot[elctrn[eV],{eV,6.14*10^-9},AccuracyGoal->4,PrecisionGoal->4] instantly returns {eV->4.47606*^-6} |
| First look at two of your equations x1 - 3 x2 + 2 x3 + x4 = 0, x1 - 3 x2 + 2 x3 + x4 = lambda The only way for both those equations to be true is if lambda = 0 That leaves you with two equations and four unknowns x1... |
| Try Plot[Table[IS (E^(U/(n UT)) - 1), {n, nValues}], {U, -200, 10000},PlotRange->{0,200}] which limits the y values shown and may keep from confusing Mathematica about how much to plot. and try LogPlot[Table[IS (E^(U/(n UT)) - 1),... |