Recent content by kevmac

  1. K

    Mathematica FindMaximum function in Mathematica

    Please ignore my last response, I figured it out. Rather than define a new function f, I used my same function q and entered: FindRoot[q[t] - 10^(-3), {t, 120}] And found my output. Thanks for your feedback!
  2. K

    Mathematica FindMaximum function in Mathematica

    Thanks for fixing my error for the FindMaximum function. Included q[t] and it worked fine. In terms of building a function f(t), I did this a few ways, but keep receiving the same error. First, I started with the same piecewise function q(t) as defined previously, and subtracted 10^-3 from it...
  3. K

    Mathematica FindMaximum function in Mathematica

    Also, the following question asks that we find when this function is equal to 10^-3. My professor suggested using the FindRoot function, however I can't see how that is applicable to anything not equal to zero. Any tips on how to apply that or some other function to a nonzero value of y?
  4. K

    Mathematica FindMaximum function in Mathematica

    I recently plotted a piecewise function: Plot[Piecewise[{{1 - Exp[-.002*t], 0 <= t < 120}, {-Exp[-.002*t] + Exp[-.002*(t - 120)], 120 <= t}}], {t, 0, 5000}, PlotRange -> {0, 0.25}] I then defined the function which I am calling q[t_] as follows: q[t_] := Piecewise[{{1 -...
  5. K

    Mathematica Troubleshooting Mathematica Plotting Problem

    Thanks to both of you! This ended up working just fine and I got the same graph that you did e.bar.goum
  6. K

    Mathematica Troubleshooting Mathematica Plotting Problem

    Homework Statement I've entered the following piecewise equation into Mathematica: Plot[Piecewise[{{sin (t), 0 <= t < \[Pi]}, {5 + 5 cos (t) + sin (t), \[Pi] <= t < 4*\[Pi]}, {10 cos (t) + sin (t), 4*\[Pi] <= t}}], {t, 0, 20*\[Pi]}] But I am getting a blank graph in return. I've proofread my...
Back
Top