Hi Gerd
Du brauchst die Formel für pleite ?
KEIN PROBLEM !!
enter long: 8
Proc Accellerierender Abwärtstrend:
const P1: [50,20,200,20,80,2,3,I];
const P2: [15,2,60,5,30,1,3,I];
calc Steigung1: LRSlope(close,P1);
calc Steigung2: LRSlope(Steigung1,P2);
(Steigung1 < 0) AND
(Steigung2 > 0) End;
const P_ADX: 1+days([20,1,200,5,50,2,3,I]);
const P_Mom: 1+ days([20,2,200,5,40,2,3,I]);
MOM(AD
P_ADX), P_Mom) < 100
const P_ADX: 1+days([20,1,200,5,50,2,3,I]);
const P_Mom: 1+ days([20,2,200,5,40,2,3,I]);
MOM(AD
P_ADX), P_Mom) < 100
End; const Perioden: 1+days([15, 5, 200, 10, 50, 2, 3, I]);
const Grenze: [25, 10, 50, 20, 35, 1, 3, I];
AD
Perioden)>Grenze
End;const PStd: [30,10,60,20,40,1,3,I];
const PGD: [3,1,10,1,5,0.2,3,I];
const P: [40,2,60,20,60,2,3,I];
const SF: [1,0.1,5,1,2,0.03,3];
calc GDVol: GD(volume,PStd,S);
calc Vola: StdAbw(volume,PStd,SF);
calc MaxVol: GDVol+Vola;
calc MinVol: GDVol-Vola;
calc Vol: GD(MA
MIN(Volume,MaxVol),MinVol),PGD,S);
Vol>Ref(HHV(Vol,P),-1)
End; const P1: [50,20,200,20,80,2,3,I];
const P2: [15,2,60,5,30,1,3,I];
calc Steigung1: LRSlope(close,P1);
calc Steigung2: LRSlope(Steigung1,P2);
(Steigung1 < 0) AND
(Steigung2 > 0)
End; const PStd: [30,10,60,20,40,1,3,I];
const PGD: [3,1,10,1,5,0.2,3,I];
const P: [40,2,100,20,60,2,3,I];
const SF: [1,0.1,5,1,2,0.03,3];
calc GDVol: GD(volume,PStd,S);
calc Vola: StdAbw(volume,PStd,SF);
calc MaxVol: GDVol+Vola;
calc MinVol: GDVol-Vola;
calc Vol: GD(MA
MIN(Volume,MaxVol),MinVol),PGD,S);
LRSlope(Vol, [50,2,200,10,120,2,3,I])>0
End; POszi(VIDYA(Close, [5,1,300,2,15,1,3.2157,I], [10,1,300,2,20,1,2.8054,I]), [10,1,300,10,60,2,3.9535,I], [20,1,300,15,70,2,3.9210,I], S, $) [<,>|<]0
End; VIDYA(Close, [5,1,300,2,15,1,3.2157,I], [10,1,300,2,20,1,2.8054,I])>VIDYA(Close, [10,1,300,10,60,2,3.9535,I], [20,1,300,15,70,2,3.9210,I])
Calc Daten: Close;
Const P_RSI: 1+days([14,2,300,15,90,3,3,I]);
Const P_GD: 1+days([14,1,50,3,20,1,3,I]);
Const Signal: [50,10,90,30,70,2,3,I];
Const Zeitraum: 1+days([10,3,100,5,20,1,3,I]);
Cross(GD(RSI(Daten, P_RSI), P_GD, [S,S|W|E|LR]),Signal,Zeitraum)= -1
Calc Daten: Close;
const P_RSI: 1+days([30,5,200,10,90,3,3,I]);
const L1: [5,1,50,1,10,0.5,3,I];
const L2: [5,1,50,1,10,0.5,3,I];
const Dauer: days([5,0,100,1,20,1,3,I]);
calc RSI: RSI(Daten, P_RSI);
BarsSince(RSI>Support(RSI,L1,L2,$),1)>Dauer
const P: [20,2,60,10,30,1,3,I];
Ref(LRSlope(Volume,P),-1)<0 AND
Volume>Ref(HHV(Volume, P), -1)*[1.1,1,1.5,1,1.2,0.01,3]
SAROszi(Close, [0.02,0.001,1,0.002,0.2,0.005,3,F], [0.2,0.01,10,0.02,2,0.05,3,F], $) < 0
const P1: 1+days([7,1,30,3,15,1,3,I]);
const P2: 1+days([50,10,200,15,90,2,3,I]);
const Methode: [S, S|E|W];
POszi(PVI(), P1, P2, Methode, $)>0 and
POszi(NVI(), P1, P2, Methode, $)>0
const P: 1+ days([14,2,300,5,100,3,3,I]);
const G1: 1+ days([7,2,100,2,12,1,3,I]);
const G2: 1+ days([28,5,300,15,50,2,3,I]);
calc OBOS: Obos(Close, P);
POszi(Obos, G1, G2, E, $) [>, >|<] 0
calc Mom: GD(MOM(Close, [90,2,300,30,200,3,3,I]), [10,1,300,5,30,1,3,I], E);
LRSlope(Mom, [40,20,300,20,70,2,3,I])<0
AND HHVBars(Mom, [8,1,15,3,15,0.2,3,I])=0
End; Proc Momentum-Signallinie:
BarsSince(GD(MOM(close, [12,2,300,5,100,3,3,I]), [14,1,100,2,20,1,3,I], [E,S|W|E]) [<,<|>] [100,80,120,90,110,1,3,I], 1) > [5,0,100,1,10,0.5,3,I]
End;
alles roger ?