*******************
1
*******************
{ JESSD }
Inputs : High0(NumericSimple), Low0(NumericSimple), HighN(NumericSimple), LowN(NumericSimple),
CloseN(NumericSimple);
value4 = ( High0 + Low0 ) / 2.0;
value5 = 2*value4 - LowN;
value6 = 2*value4 - HighN;
If CloseN < value4 then JESSD = value5 else JESSD = value6;
*******************
2
*******************
{ ASC Volatility }
Inputs : Length(NumericSimple), Const(NumericSimple), Pass8(NumericSimple);
Var : Switch(1);
If Pass8 = 100188 then begin
Value1 = 0 ;
For Value2 = 1 to Length-1 Begin
Value1 = Value1 + TrueRange[Value2] ;
End ;
Value5 = Value1 / (Length-1) ;
Value6 = (Value5 * (Length-1) + TrueRange) / Length ;
Value7 = ( 13 * Value6 + TrueRange) / 14 ;
Value10 = Lowest(Close, Length) + Value6 * Const; { Short Stop }
Value20 = Highest(Close, Length) - Value6 * Const; { Long Stop }
If Close >= Value10 then Switch = 1; { Long Position }
If Close <= Value20 then Switch = 0; { Short Position }
If Switch = 1 then ASCVT = value20;
If Switch = 0 then ASCVT = value10;
End else ASCVT = C;
*******************
1
*******************
{ ASCTrend3}
Inputs: RISK(3), MONYRISK(500);
vars: value1(1), value2(18), value3(9) ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "JESSD", float, float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "BS105", float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "SS105", float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "BS0", float, float, float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "SS0", float, float, float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "BS2", float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "ASCRateD", float, float, float ;
value1 = Risk;
value2 = 18 + 3*value1;
value15 = Average(C, 9);
value16 = Average(C, value2);
value18 = Average(Range, 8);
value4 = value3;
If MRO(AbsValue( O - C[1] ) >= Average(Range, 10) * 2.0, 9, 1) > -1 then value4 = 3 else value4 = value3;
If MRO(AbsValue( C[3] - C ) >= Average(Range, 10) * 4.6, 6, 1) > -1 then value4 = 4 else value4 = value3;
value17 = ASCRateD(Highest(H, value4), Lowest(L, value4), C);
If value17 > 70 then begin
condition1 = TRUE;
condition2 = FALSE;
End;
If value17 < 30 then begin
condition1 = FALSE;
condition2 = TRUE;
End;
value5 = JESSD( High, Low, H[value1], L[value1], C[value1] );
If MRO (value5 > value5[1] and value5[1] < value5[2], 2, 1) > -1 and L[1] > value5[1] then
value7 = value5[1] - value18 * 0.8;
If MRO (value5 < value5[1] and value5[1] > value5[2], 2, 1) > -1 and H[1] < value5[1] then
value8 = value5[1] + value18 * 0.8;
If value17[1] < 70 and value17 >= 70 then value13 = TrueLow - (8 + RISK)*MinMove points;
If value17[1] > 30 and value17 <= 30 then value14 = TrueHigh + (8 + RISK)*MinMove points;
If AbsValue( O - C[1] ) >= Average(Range, 10) * 1.618 then begin
If value17[1] < 70 and value17 >= 70 then value13 = Low - (8 + RISK)*MinMove points;
If value17[1] > 30 and value17 <= 30 then value14 = High + (8 + RISK)*MinMove points;
End;
value9 = BS105(L, 1.618, value18[1], value11 );
value10 = SS105(H, 1.618, value18[1], value12 );
value11 = BS0(L, 70, value11, Risk, MonyRisk, BigPointValue);
value12 = SS0(H, 70, value12, Risk, MonyRisk, BigPointValue);
If value15 >= value16 and value7 > value11 then value11 = value7;
If value15 <= value16 and value8 < value12 then value12 = value8;
If value15 <= value16 and value7 < value11 then value11 = value7;
If value15 >= value16 and value8 > value12 then value12 = value8;
If value13 > value11 then value11 = value13;
If value14 < value12 then value12 = value14;
value11 = BS0(L, 70, value11, Risk, MonyRisk, BigPointValue);
value12 = SS0(H, 70, value12, Risk, MonyRisk, BigPointValue);
If MRO(value17 > 70, 2, 2) > -1 and value11 <= value11[1] then value11 = value11[1] ;
If MRO(value17 < 30, 2, 2) > -1 and value12 >= value12[1] then value12 = value12[1] ;
If value11 > 0 and condition1 and C > ASCVT(14, 3, 100188) and value11 <= H then Plot1 (value11, "BuyStop3");
If value12 > 0 and condition2 and C < ASCVT(14, 3, 100188) and value12 >= L then Plot2 (value12, "SellStop3");
{ ************* Alert Settings ******************* }
{
If value11 > 0 and condition1 and C >ASCVT(14, 3, 100188) and value11 <= H
and (condition1[1] = FALSE or C[1] < ASCVT(14, 3, 100188)[1] )
then alert = TRUE else alert = FALSE;
If C[1] > Plot1[1] and C < Plot1 and H <= H[1] then alert = TRUE else alert = FALSE;
If value12 > 0 and condition2 and C < ASCVT(14, 3, 100188) and value12 >= L
and (condition2[1] = FALSE or C[1] > ASCVT(14, 3, 100188)[1] )
then alert = TRUE else alert = FALSE;
If C[1] < Plot2[1] and C > Plot2 and L >= L[1] then alert = TRUE else alert = FALSE;
}
*****************
2
*****************
{ASCTrendUP}
Inputs: RISK(3);
Vars: value11(0), value10(10), x1(70), x2(30);
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "ASCRateD", float, float, float;
value10 = 3 + RISK*2 ;
x1 = 67 + RISK;
x2 = 33 - RISK;
value11 = value10;
If MRO(AbsValue( O - C[1] ) >= Average(Range, 10) * 2.0, 9, 1) > -1 then value11 = 3 else value11 = value10;
If MRO(AbsValue( C[3] - C ) >= Average(Range, 10) * 4.6, 6, 1) > -1 then value11 = 4 else value11 = value10;
value2 = ASCRateD(Highest(H, value11), Lowest(L, value11), C);
IF value2 > x1 then Begin
Plot1(High,"HB");
Plot2(Low,"LB");
End;
{ ****************** Alert ************************** }
{
value3 = ASCRateD(Highest(H, value11), Lowest(L, value11), L);
value4 = ASCRateD(Highest(H, value11), Lowest(L, value11), H);
If value2[1] > x1 and value4 > x1 and value3 < x2 and C < C[1] then Alert = TRUE else Alert = FALSE;
}
{
If value2[1] < x1 and value4 > x1 then Alert = TRUE else Alert = FALSE;
}
********************
3
********************
{ASCTrendDN}
Inputs: RISK(3);
Vars: value11(0), value10(10), x1(70), x2(30);
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "ASCRateD", float, float, float;
value10 = 3 + RISK*2 ;
x1 = 67 + RISK;
x2 = 33 - RISK;
value11 = value10;
If MRO(AbsValue( O - C[1] ) >= Average(Range, 10) * 2.0, 9, 1) > -1 then value11 = 3 else value11 = value10;
If MRO(AbsValue( C[3] - C ) >= Average(Range, 10) * 4.6, 6, 1) > -1 then value11 = 4 else value11 = value10;
value2 = ASCRateD(Highest(H, value11), Lowest(L, value11), C);
IF value2 < x2 then Begin
Plot1(High,"HS");
Plot2(Low,"LS");
End;
{ ****************** Alert ************************** }
{
value3 = ASCRateD(Highest(H, value11), Lowest(L, value11), L);
value4 = ASCRateD(Highest(H, value11), Lowest(L, value11), H);
If value2[1] < x2 and value3 < x2 and value4 > x1 and C > C[1] then Alert = TRUE else Alert = FALSE;
}
{
If value2[1] > x2 and value3 < x2 then Alert = TRUE else Alert = FALSE;
}
**********************
4
**********************
{ ASCTrend2 }
Inputs: RISK(3), MONYRISK(500);
vars: value2(1), value3(18), value6(10000), value10(10000), value8(10000);
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "JESSD", float, float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "BS105", float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "SS105", float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "BS0", float, float, float, float, float, float ;
DefineDLLFunc: "C:\ASCTREND\ASCTREND.DLL", float, "SS0", float, float, float, float, float, float ;
value2 = Risk;
value3 = 18 + 3*value2;
value11 = Average(C, 9);
value12 = Average(C, value3);
value13 = Average(Range, 10);
value4 = JESSD( High, Low, H[value2], L[value2], C[value2] );
If MRO (value4 > value4[1] and value4[1] < value4[2], 2, 1) > -1 and L[1] > value4[1] then
value5 = value4[1] - value13 ;
If MRO (value4 < value4[1] and value4[1] > value4[2], 2, 1) > -1 and H[1] < value4[1] then
value6 = value4[1] + value13 ;
value7 = BS105(L, 2.40, value13, value9 );
value8 = SS105(H, 2.40, value13, value10 );
value9 = BS0(L, 60, value7, Risk, MonyRisk, BigPointValue);
value10 = SS0(H, 60, value8, Risk, MonyRisk, BigPointValue);
If value11 >= value12 and value5 > value9 then value9 = value5;
If value11 <= value12 and value6 < value10 then value10 = value6;
If value11 <= value12 and value5 < value9 then value9 = value5;
If value11 >= value12 and value6 > value10 then value10 = value6;
If value9 > 0 and value11 >= value12 and value9 <= H then Plot1 (value9, "BuyStop2");
If value10 > 0 and value10 < 10000 and value11 <= value12 and value10 >= L then Plot2 (value10, "SellStop2");
{ ************* Alert Settings ******************* }
{
If value9 > 0 and value11 >= value12
and value11[1] < value12[1]
and value9 <= H then alert = TRUE else alert = FALSE;
If C[1] > Plot1[1] and C < Plot1 and H <= H[1] then alert = TRUE else alert = FALSE;
If value10 > 0 and value10 < 10000 and value11 <= value12
and value11[1] > value12[1]
and value10 >= L then alert = TRUE else alert = FALSE;
If C[1] < Plot2[1] and C > Plot2 and L >= L[1] then alert = TRUE else alert = FALSE;
}
******************
|
 讓我們程式搜尋結果更加完美 如果您覺得該文件有幫助到您，煩請按下我如果您覺得該文件是一個一無是處的文件，也煩請按下我 |
|
該文件您看起來是亂碼嗎？您可以切換編碼方式試試看！ISO-8859-1 | latin1 | euc-kr | euc-jp | CP936 | CP950 | UTF-8 | GB2312 | BIG5 |
|