可能有人需要：
code：
=====================================================================
Clear[periodic];periodic[func_, {val_Symbol, min_?NumberQ, max_?NumberQ}] /; (max > min && ! FreeQ[func, val]) := Module[{interval, shift, shiftmin, shiftfunc}, interval = max - min; If[min < 0, shift = interval Ceiling[-min/interval], shift = 0]; shiftmin = min + shift; shiftfunc = func /. val -> val - shift; shiftfunc /. val -> (Mod[val - max, interval] + shiftmin) ];periodic[___] := Print["Wrong Input!"];
=====================================================================
用法示例：


精简版（无错误控制）：
myperiodic[func_, {val_Symbol, min_?NumberQ, max_?NumberQ}] :=
func /. (val :> Mod[val - min, max - min] + min)


@愿卿长安康
这是二元的情形
periodicfunction[
func_, {x_Symbol, xmin_?NumberQ, xmax_?NumberQ}, {y_Symbol,
ymin_?NumberQ, ymax_?NumberQ}] :=
func /. Thread[{x, y} ->
Mod[{x, y} - {xmin, ymin}, {xmax - xmin, ymax - ymin}] + {xmin,
ymin}]
当然也可以推广到多元的情形
periodicfunction[
func_, {x : {PatternSequence[_Symbol] ..},
xmin : {PatternSequence[_?NumberQ] ..},
xmax : {PatternSequence[_?NumberQ] ..}}] :=
func /. Thread[x -> Mod[x - xmin, xmax - xmin] + xmin]

嗯嗯，谢谢楼主~

喜欢

膜拜，我脑抽了。