【Mathematica】用神经网络来拟合数据

1、把非线性数据，转化为训练集：data = Table[x -> Sin[10 x]*Exp[-x^2], {x, -3, 3, .1}]训练集一定是个集合的元素的一一对应。

3、创建一个神经网络：net = NetChain[{10, Ramp, 10, Tanh, 1}, "Input" -> "Sc锾攒揉敫alar", "Output" -> "Scalar"];里面有五个层。

5、可视化训练结果：Show[ListLinePlot[d0,PlotStyle->Red,PlotRange->All],Plot[tnet[x],{x,-3,3},PlotStyle->Green,PlotRange->All]]

7、下面是训练2秒的结果：