Mathematica: используйте кусочно вместо If

Question

У меня есть эта периодическая определенная функция через "Если":

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 (смещенную на другую).

Похоже, что Mathe matica отображает части функции правильно, но не соединяет части.

Answer 1

Ты можешь использовать:

Plot[{g[t]},{t,-5,5}, Exclusions->None]