「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 が関数の断片を正しくプロットしているように見えますが、断片を接続していません。