force.m

来自「一个关于数学建模的资料,是纽约大学的程序和文档」· M 代码 · 共 11 行

function [f] = force(tt,P) 

% Periodic forcing with period P.

ttt=tt;
while ttt > P,
  ttt=ttt-P;
end

f=(ttt<(P/8));