JSEMTS搜尋引擎
 

*******************
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;
}

**********************

**********************
{ 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 |
    搜尋引擎本文件可能涉及色情、暴力,按我申請移除該文件

    搜尋引擎網址長?按我產生分享用短址

    ©2024 JSEMTS

    https://tw.search.yahoo.com/search;_ylt=A8tUwYgkQU1YcXoAUE9r1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC10dwRncHJpZAMxWU5tY2FYMVFGQ2ZvUXZGN1N0bzVBBG5fcnNsdAMwBG5fc3VnZwMwBG9yaWdpbgN0dy5zZWFyY2gueWFob28uY29tBHBvcwMwBHBxc3RyAwRwcXN0cmwDBHFzdHJsAzQ4BHF1ZXJ5AyVFNiVBRCVBMSVFNiVBRCU4QyUyMCVFNSVCMCU4OCVFNiU4MyU4NSVFNSU5QyU5OAR0X3N0bXADMTQ4MTQ1Nzk3Ng--?p=%E6%AD%A1%E6%AD%8C+%E5%B0%88%E6%83%85%E5%9C%98&fr2=sb-top-tw.search&fr=yfp-t-900-tw&rrjfid=5990125 https://tw.search.yahoo.com/search;_ylt=A8tUwZJ2QE1YaVcAUmFr1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC1zLXR3BGdwcmlkAwRuX3JzbHQDMARuX3N1Z2cDMARvcmlnaW4DdHcuc2VhcmNoLnlhaG9vLmNvbQRwb3MDMARwcXN0cgMEcHFzdHJsAwRxc3RybAM4NARxdWVyeQMlRTglQjYlODUlRTUlOEYlQUYlRTYlODQlOUIlRTclOUElODQlRTUlQUYlQjYlRTUlQUYlQjYlMjAlRTglODMlQTElRTUlQUUlODklRTUlQTglOUMEdF9zdG1wAzE0ODE0NTc3OTM-?p=%E8%B6%85%E5%8F%AF%E6%84%9B%E7%9A%84%E5%AF%B6%E5%AF%B6+%E8%83%A1%E5%AE%89%E5%A8%9C&fr2=sb-top-tw.search&fr=yfp-t-900-s-tw&rrjfid=7472330 https://tw.search.yahoo.com/search;_ylt=A8tUwZJ2QE1YaVcAUmFr1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC1zLXR3BGdwcmlkAwRuX3JzbHQDMARuX3N1Z2cDMARvcmlnaW4DdHcuc2VhcmNoLnlhaG9vLmNvbQRwb3MDMARwcXN0cgMEcHFzdHJsAwRxc3RybAM4NARxdWVyeQMlRTglQjYlODUlRTUlOEYlQUYlRTYlODQlOUIlRTclOUElODQlRTUlQUYlQjYlRTUlQUYlQjYlMjAlRTglODMlQTElRTUlQUUlODklRTUlQTglOUMEdF9zdG1wAzE0ODE0NTc3OTM-?p=%E8%B6%85%E5%8F%AF%E6%84%9B%E7%9A%84%E5%AF%B6%E5%AF%B6+%E8%83%A1%E5%AE%89%E5%A8%9C&fr2=sb-top-tw.search&fr=yfp-t-900-s-tw&rrjfid=5829535 https://tw.search.yahoo.com/search;_ylt=A8tUwYgkQU1YcXoAUE9r1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC10dwRncHJpZAMxWU5tY2FYMVFGQ2ZvUXZGN1N0bzVBBG5fcnNsdAMwBG5fc3VnZwMwBG9yaWdpbgN0dy5zZWFyY2gueWFob28uY29tBHBvcwMwBHBxc3RyAwRwcXN0cmwDBHFzdHJsAzQ4BHF1ZXJ5AyVFNiVBRCVBMSVFNiVBRCU4QyUyMCVFNSVCMCU4OCVFNiU4MyU4NSVFNSU5QyU5OAR0X3N0bXADMTQ4MTQ1Nzk3Ng--?p=%E6%AD%A1%E6%AD%8C+%E5%B0%88%E6%83%85%E5%9C%98&fr2=sb-top-tw.search&fr=yfp-t-900-tw&rrjfid=7728407 https://tw.search.yahoo.com/search;_ylt=A8tUwYgkQU1YcXoAUE9r1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC10dwRncHJpZAMxWU5tY2FYMVFGQ2ZvUXZGN1N0bzVBBG5fcnNsdAMwBG5fc3VnZwMwBG9yaWdpbgN0dy5zZWFyY2gueWFob28uY29tBHBvcwMwBHBxc3RyAwRwcXN0cmwDBHFzdHJsAzQ4BHF1ZXJ5AyVFNiVBRCVBMSVFNiVBRCU4QyUyMCVFNSVCMCU4OCVFNiU4MyU4NSVFNSU5QyU5OAR0X3N0bXADMTQ4MTQ1Nzk3Ng--?p=%E6%AD%A1%E6%AD%8C+%E5%B0%88%E6%83%85%E5%9C%98&fr2=sb-top-tw.search&fr=yfp-t-900-tw&rrjfid=2057834 https://tw.search.yahoo.com/search;_ylt=A8tUwYgkQU1YcXoAUE9r1gt.;_ylc=X1MDMjExNDcwNTAwMwRfcgMyBGZyA3lmcC10LTkwMC10dwRncHJpZAMxWU5tY2FYMVFGQ2ZvUXZGN1N0bzVBBG5fcnNsdAMwBG5fc3VnZwMwBG9yaWdpbgN0dy5zZWFyY2gueWFob28uY29tBHBvcwMwBHBxc3RyAwRwcXN0cmwDBHFzdHJsAzQ4BHF1ZXJ5AyVFNiVBRCVBMSVFNiVBRCU4QyUyMCVFNSVCMCU4OCVFNiU4MyU4NSVFNSU5QyU5OAR0X3N0bXADMTQ4MTQ1Nzk3Ng--?p=%E6%AD%A1%E6%AD%8C+%E5%B0%88%E6%83%85%E5%9C%98&fr2=sb-top-tw.search&fr=yfp-t-900-tw&rrjfid=4373372