分享按钮
微明火花试验网    微明火花试验网   WeiMing Intrinsic Safety Spark Test
搏之不得,名曰;见小曰。  《道德经》  It is such a small thing that you can not touch it ,named WEI; But you can feel it,named MING. Written by Laozi《Tao Te Ching》

本安电路电气间隙数据拟合。数据来自GB3836.4-2010表5。Mathematica源码。
data = {{10, 1.5}, {30, 2.0}, {60, 3.0}, {90, 4.0}, {190, 5.0}, {375, 6.0}, {550, 7.0}, {750, 8.0}, {1000, 10.0}, {1300, 14.0}, {1575, 16.0}};
f1 = Fit[data, {1, x}, x];
f2 = Fit[data, {1, x, x^2}, x];
f3 = Fit[data, {1, x, x^2, x^3}, x];
f4 = Fit[data, {1, x, x^2, x^3, x^4}, x]
f5 = Fit[data, {1, x, x^2, x^3, x^4, x^5}, x]
pl = ListPlot[data(*,Joined\[Rule]True*), Frame -> {True, True, False, False}, FrameLabel -> {{"间隙/mm", "sin"},{"电压/V", "plot"}}, FrameStyle -> Directive[{Black, 14, Thickness[0.003]}], PlotLabel -> Style["SparkTest.cn", 16]];
p = Plot[{f1, f2, f3, f4, f5}, {x, 10, 1580}];
p1 = Plot[{f1}, {x, 10, 1580}];
p2 = Plot[{f2}, {x, 10, 1580}];
p3 = Plot[{f3}, {x, 10, 1580}];
p4 = Plot[{f4}, {x, 10, 1580}, ColorFunction -> Function[{x, y}, Hue[y]]];
p5 = Plot[{f5}, {x, 10, 1580}];
Show[pl, p]
Show[pl, p1]
Show[pl, p2]
Show[pl, p3]
Show[pl, p4]
Show[pl, p5]
f4 /. x -> 1500