1

「If」を介してこの定期的に定義された関数があります。

T = 1;

Tt[t_] := Quotient[t, T]*T
f[t_] := If[t >= Tt[t] && t < ((Tt[t] + T/2)), 1, -1]

「Piecewise」で再定義する必要があります。私の試みは次のようになります:

g[t_] := Piecewise[{
        {1, (t >= Tt[t] && t < ((Tt[t] + T/2)))}
    },
    -1
];

f[t] をプロットすると、この完全な周期グラフが得られます。g[t] をプロットすると、y=1 に破線が表示され、y=-1 に別の破線が表示されます (別の破線にシフトされます)。

Mathematica が関数の断片を正しくプロットしているように見えますが、断片を接続していません。

4

1 に答える 1

4

使用できます:

Plot[{g[t]},{t,-5,5}, Exclusions->None]
于 2012-04-29T18:57:06.587 に答える