Mathematica:不寻常的分段情节问题

时间:2016-06-10 20:50:18

标签: plot wolfram-mathematica

您好,并提前致谢,

我遇到了一个试图在Mathematica中绘制分段函数的问题。当直接输入Plot函数时,分段没有绘制。但是,当我将分段定义为变量时,它确实是绘图。为什么会出现这个问题,我还可以加入我的情节吗? (我想通过设置排除项来加入它)

以下是我的代码:(我定义了Maxwell应变函数,并尝试在多个应力循环中模拟聚合物的塑性变形)

z = 2*10^10;  
h = 10^12;  
MaxwellStrain[s_, t_] := s/z + (s*t)/h;  
stress = {0, 10^7, -10^7, 5*10^6, 10^7, -5*10^6};  
time = {0, 100, 200, 300, 400, 500};  
strainList = Join[{0}, Table[MaxwellStrain[stress[[i + 1]], t - time[[i]]], {i, 1, 5}]];

Plot[
 Piecewise[
  Table[{
    Total[strainList[[1 ;; i + 1]]], time[[i]] < t < time[[i + 1]]},
   {i, 1, 5}
   ],
  Exclusions -> none]
 ,
 {t, 0, 500}
 ]

x = Piecewise[
  Table[{
    Total[strainList[[1 ;; i + 1]]], time[[i]] < t < time[[i + 1]]},
   {i, 1, 5}
   ],
  Exclusions -> none]

Plot[x, {t, 0, 500}]

以下是我的输出:(第一个情节不显示,第二个显示)

输出:
output - screenshot

谢谢你的帮助, SV

0 个答案:

没有答案