这是我用来拟合拉伸指数的方法，绘制图表来寻找异常并使用非线性平台进行拟合。
Fade=当前数据表():
Fade << New Column( "拉伸指数",
数字，
连续的，
公式( 参数( {a = 1, b = -0.01, c = 0.2}, a * Exp( b * :小时 ^ c ) ) )
）；
biv=淡入淡出 << 双变量(
Y(:标准输出1),
X（：小时），
发送至报告（
派遣（
{},
“2”,
秤盒，
{最小值( 0.65 ), 最大值( 1.05 ), Inc( 0.05 ), 次要刻度( 1 ),
标签行嵌套( 1 ), 标签行( 显示主网格( 1 ) )}
),
派遣（
{},
“比瓦尔情节”，
框架盒,
{帧大小( 375, 279 ), 行图例(
经验编号，
颜色( 1 ),
颜色主题（“JMP 默认”），
标记( 0 ),
标记主题( "" ),
连续刻度( 0 ),
反向缩放( 0 ),
排除的行( 0 )
)}
）
）
）；
biv<<期刊；
f=淡入淡出<<非线性（
Y( :名称("标准输出1") ),
X( :Name( "拉伸指数" ) ),
迭代限制( 100000 ),
无螺纹( 1 ),
牛顿，
结束，
通过（：设备ID），
自定义逆预测（响应（0.7），
期限值( 小时( . ) ) )
）；
f_rep = f <<报告；
rep=Report( f[1] )[大纲框(6)][表格框(1)] << 制作组合数据表；
代表<<当前数据表<<集合名称(“组合T70预测”);
rep=当前数据表();
rep<<新列("Exp No", 字符, 公式(Substr( :设备 ID , 1, 10 )));
希望这可以帮助。 如果您需要进一步的信息，请告诉我。
戴夫
