// Downloaded From https://www.WiseStockTrader.com
//KASE DevStop I L

//COMMON EXPRESSIONS
TrueH= IIf(H > Ref(C,-1),H,Ref(C,-1));
TrueL= IIf(L < Ref(C,-1),L,Ref(C,-1));
True_Range=TrueH-TrueL;

R1=IIf(H>Ref(H,-1),H,Ref(H,-1));
True_Double_H=Max(R1,Ref(C,-2));
R2=IIf(L<Ref(L,-1),L,Ref(L,-1));
True_Double_L=Min(R2,Ref(C,-2));
True_Range_Double= True_Double_H - True_Double_L;

True_Range_Double_SD=StDev(True_Range_Double,60);
True_Range_Double_SD_30=StDev(True_Range_Double,30);
True_Range_Double_SD_Percent=True_Range_Double_SD*100/HHV(H,2);
True_Range_Double_SD_Normalised=MA(True_Range_Double_SD,400);
True_Range_Double_SD_P_Normalised=MA(True_Range_Double_SD_Percent,400);

TRD_MA=MA(True_Range_Double,25);

Warning_Line_L = H-TRD_MA;
Dev1_L = H - TRD_MA - True_Range_Double_SD_30;
Dev2_L = H - TRD_MA - 2.2*True_Range_Double_SD_30;
Dev3_L = H - TRD_MA - 3.6*True_Range_Double_SD_30;

Warning_Line_S = L+TRD_MA;
Dev1_S = L + TRD_MA + True_Range_Double_SD_30;
Dev2_S = L + TRD_MA + 2.2*True_Range_Double_SD_30;
Dev3_S = L + TRD_MA + 3.6*True_Range_Double_SD_30;

Stop_Loss_Long = IIf(C>Dev1_L, C-Dev1_L, C/100);
Stop_Trail_Long = IIf(C>Dev2_L, C-Dev2_L, C/100);
Stop_Loss_Long_MA = MA(Stop_Loss_Long,3);

P = ParamField("Price");

Capital = Param("Capital",10000000,10000,100000000,1);
Risk=0.0025*Capital;
PositionSize = (Risk/Max(Stop_Loss_Long_MA,Stop_Loss_Long))*P;
PositionSize_Percent= PositionSize*100/Capital;

Plot(Max(Stop_Loss_Long,Stop_Loss_Long_MA),"Stop Loss Long", ParamColor( "Stop Loss Long - Color", colorDarkOliveGreen));
Plot(Stop_Trail_Long,"Stop Trail Long", ParamColor( "Stop Trail Long - Color", colorRed));
Plot(PositionSize,"Position Size", ParamColor( "Position Size - Color", colorDarkRed), styleOwnScale | styleNoLabel | styleNoLine);
Plot(PositionSize_Percent,"Position Size %", ParamColor( "Position Size % - Color", colorDarkTeal), styleOwnScale | styleNoLabel | styleNoLine);