Active object: Difference between revisions
Content added Content deleted
(Added Wren) |
mNo edit summary |
||
Line 1,716: | Line 1,716: | ||
sampling interval: 0.001000, 2493 updates over 2.5s total = 0.000362576907805</pre> |
sampling interval: 0.001000, 2493 updates over 2.5s total = 0.000362576907805</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>Block[{start = SessionTime[], K, t0 = 0, t1, kt0, S = 0}, |
<lang Mathematica>Block[{start = SessionTime[], K, t0 = 0, t1, kt0, S = 0}, |
||
K[t_] = Sin[2 Pi f t] /. f -> 0.5; kt0 = K[t0]; |
K[t_] = Sin[2 Pi f t] /. f -> 0.5; kt0 = K[t0]; |