Iniciado por
;
Function for TradeStations name: Htangent Input: x (NumericSimple), { input to function } NTerms (NumericSimple); { # terms in series } Var: pi (3.1415926536), Sum (0), ii (0); Sum = 0.; For ii = 0 to NTerms Begin Sum = Sum 1./(Power(((ii 0.5)*pi), 2) Power(x, 2)); End; Htangent = Sum * 2 * x; __________________________________________________ ___________________________ Signal for TradeStations name: Neural net simple Inputs: synapse1 (0), synapse2 (0),synapse3(0),synapseA1 (0), synapseA2 (0),synapseA3 (0),synapseB1(0),synapseB2 (0), synapseB3 (0); Var: inputneuron1 (0), inputneuron2 (0), Hiddenneuron1 (0), Hiddenneuron2 (0), Hiddenneuron3 (0), neuronOut (0); { inputs } if (average (C,3) - average (C,3) [2]) gt;0 Then inputneuron1= 1 Else inputneuron1 = -1; if (average (C,3) - average (C,3) [5]) gt;0 Then inputneuron2= 1 Else inputneuron2 = -1; {neural net } Hiddenneuron1 = Htangent(synapse1*inputneuron1 synapseA1*inputneuron2, 50); Hiddenneuron2 = Htangent(synapse2*inputneuron1 synapseA2*inputneuron2, 50); Hiddenneuron3 = Htangent(synapse3*inputneuron1 synapseA3*inputneuron2, 50); neuronOut = Htangent(synapseB1*Hiddenneuron1 synapseB2*Hiddenneuron2 synapseB3*Hiddenneuron3, 50); { buy or sell } If neuronOut gt;= 0.5 then Buy next bar at High stop; If neuronOut lt;= -0.5 then Sell next bar at low stop;