【答案】应助回帖

k1[t_] = 991 (1 - 1.13 (t - 296)/1356);
ans[t_] = DSolve[{k[1000] == 0, k[t] == k1[t] + k'[t]/8}, k[t], t][[1, 1, 2]]
p = Plot[ans[t], {t, 200, 400}, PlotRange -> All]
SystemOpen@Export["a.txt", Cases[p, Line[a_] :> a, Infinity][[1]], "Table"]

11楼: Originally posted by xzczd at 2015-01-09 13:17:17
我就不明白了，为什么这么多人用Mathematica画完图后还要再弄回Origin去，Mathematica的绘图能力也好图像的精美程度也好都比Origin强多啦：


k1 = 991 (1 - 1.13 (t - 296)/1356);
ans = DSolve[]
p = Plot
...

11楼: Originally posted by xzczd at 2015-01-09 13:17:17
我就不明白了，为什么这么多人用Mathematica画完图后还要再弄回Origin去，Mathematica的绘图能力也好图像的精美程度也好都比Origin强多啦：


k1 = 991 (1 - 1.13 (t - 296)/1356);
ans = DSolve[]
p = Plot
...

13楼: Originally posted by NicoleLas at 2015-01-13 15:48:55
哈哈，这样的人很多？
   你对Mathematica很喜欢而且用法比较了解啊！也许StackExchange那儿也会是你的另一片天地。...

14楼: Originally posted by xzczd at 2015-01-15 13:03:53
嗯，我真的遇到了不少。
SE我也一直在逛的。...

15楼: Originally posted by NicoleLas at 2015-01-15 13:49:38

   那也许我已经知道你是谁了，哈哈，只是一种直觉而已，权当搞笑。
   xzcyr？
   
   Mathematica我也很喜欢，一直没有学习.........

16楼: Originally posted by xzczd at 2015-01-15 14:31:44
你知道的太多了。...