Code cho amibroker Miễn phí

...

Bạn cho mình hỏi mình đã sửa 2 dòng
#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
theo đường dẫn file cài đặt của mình rồi
Nhưng code báo lỗi ở dòng #include_once thì dòng này mình có sửa như thế nào vậy bạn...mình sửa theo đường dẫn như 2 dòng trên đầu thì không được bạn.
Bạn chỉ mình với nha!

Trường hợp này có 1 file nằm trong PatternExplorer_f0.afl nằm trong thư mục PEInc bị lỗi. bạn phải thay file đó cho phù hợp.
Bạn có thể thư mục này PEInc trên zaloo của mình, rồi coppy đè vào thư mục đó trên amibroker ở ổ dĩa mà bạn đã cài đặt nhé
Hoặc bạn coppy nguyên đoạn code này sửa file có tên là f0_afl rồi lưu lại là được

//|-----------------------------------------------------------------------------------------
//|PatternExplorer.com - include file
//|Copyright © 2007, PatternExplorer.com
//|http://www.PatternExplorer.com
//|e-mail: support@PatternExplorer.com
//|-----------------------------------------------------------------------------------------
EnableTextOutput( False );

procedure AddGradientBackground( def_BGColorswitch, def_BgTopcolor, def_BgBottomcolor, def_titlebkcolor )
{
_SECTION_BEGIN( "Background" );
BGColorswitch = ParamToggle( "Set Background Color", "Off, On", def_BGColorswitch );
BgTopcolor = ParamColor( "Bg Top", def_BgTopcolor );
BgBottomcolor = ParamColor( "Bg Bottom", def_BgBottomcolor );
titlebkcolor = ParamColor( "Bg Title", def_titlebkcolor );

if ( BGColorswitch )
SetChartBkGradientFill( BgTopcolor, BgBottomcolor, titlebkcolor );

_SECTION_END();
}

procedure AddparamUsefromChart( defaultvalue )
{
global UsefromChart;
global InChart;
global InAA;
InChart = Status( "Action" ) == 1;
InAA = Status( "Action" ) >= 3;

if ( inAA )
Usefromchart = ParamToggle( "Use Sensitivity parameter from chart", "No|Yes", defaultvalue );
}

procedure AddparamUsefromChart2( defaultvalue )
{
global UsefromChart;
global InChart;
global InAA;
InChart = Status( "Action" ) == 1;
InAA = Status( "Action" ) >= 3;

if ( inAA )
Usefromchart = ParamToggle( "Use Sensitivity parameters from chart", "No|Yes", defaultvalue );
}

procedure AddparamUsefromChartFull( defaultvalue )
{
global UsefromChart;
global InChart;
global InAA;
InChart = Status( "Action" ) == 1;
InAA = Status( "Action" ) >= 3;

if ( inAA )
Usefromchart = ParamToggle( "Use parameter from chart", "No|Yes", defaultvalue );
}

function Beta( BaseSymbol, N )
{
Chg = ROC( C, 1 );
ChgBase = ROC( Foreign( BaseSymbol, "C" ), 1 );
return
( N * Sum( Chg * ChgBase, N ) - Sum( Chg, N ) * Sum( ChgBase, N ) ) /
( N * Sum( ChgBase ^ 2, N ) - Sum( ChgBase, N ) ^ 2 );
}

function TaioColor( Mode, period1, period2, upLevel, dnLevel, upbar, dnbar, up_color, RangePcolor, RangeNcolor, dn_color, SingleColor, defaultcolor )
{
global Upbar_col;
global Dnbar_col;
Taio = PeTaio( period1, period2 );
TaioUp = Taio > upLevel & Taio > Ref( Taio, -1 );
TaioDn = Taio 0 & Taio = DnLevel;

if ( mode == 0 )
pricecolor = IIf( upbar, upbar_col, IIf( dnbar, dnbar_col, Defaultcolor ) );
else
if ( mode == 1 )
{
pricecolor = IIf( TaioUp, up_color, IIf( TaioDn, dn_color,
IIf( Taio > 0 AND NOT TaioUP, RangePcolor, IIf( Taio upLevel, up_color, IIf( Taio Ref( Taio, -1 ), up_color, IIf( Taio 0, up_color, IIf( Taio 0, Volatility, 0.00001 );
ER = abs( Direction / Volatility );
FastSC = 2 / ( 2 + 1 );
SlowSC = 2 / ( 30 + 1 );
SSC = ER * ( FastSC - SlowSC ) + SlowSC;
Constant = SSC ^ 2;
return AMA( P, Constant );
}

procedure AddAvgTypeParam( type )
{
global AvgText;
global AvgType;
global AvgTextname;
ParamAverage =
ParamList( "Type",
List = "1 - GMA, 2 - SMA, 3 - EMA, 4 - WMA, 5 - DEMA, 6 - TEMA, 7 - WILDERS, 8 - LINEAR REGRESSION, 9 - TIME SERIES FORECAST, 10 - KAMA", type - 1 );

for ( i = 0; i Ref( C, -p3 );
FDL = C Ref( Ind, -1 );
Taio2dnflip = Ref( Ind, -1 ) == HHV( Ind, 3 )AND Ind Ref( SLDn, -1 ) AND Ref( H, -1 ) > Ref( SLDn, -1 )AND NOT L Ref( SLUp, -1 );
SLTrend = Flip( UP, DN );
}
else
SLTrend = Flip( Cross( C, Ref( SLDn, -1 ) ), Cross( Ref( SLup, -1 ), C ) );

SLTrend = IIf( SLTrend > 0, 1, -1 );

SLLong = IIf( SLTrend > 0, HighestSince( SLTrend > 0 AND Ref( SLTrend, -1 ) 0, SLDn ), Null );

SLLongTrigger = SLTrend == 1 AND Ref( SLTrend, -1 ) == 0;

SLShortTrigger = SLTrend == 0 AND Ref( SLTrend, -1 ) == 1;
}

function PlotSignalText ( Condition, Text, AdText, AdTextArray, Distance, Array, TextColor, BGColor )
{
Val = ( -1 * Distance ) * ATR( 10 );

for ( i = 0; i Ref( PP, -1 ), PP Nz( StaticVarGet( "AlertFlag" + Type + Name() ) ) )
{
StaticVarSet( "AlertFlag" + Type + Name(), LastDateTime );
AlertIf( Cond, Sound, Text + def_AudioAlertText, Type, 8, 1 );
AlertIf( Cond, "EMAIL", Text + def_EmailAlertText, Type, 8, 1 );
}
}

procedure SelCaPat( Ds, Hs, Hms, Sps, Ens, Hars, Pls, Mess )
{
global Dojistar_s;
global Hammer_s;
global Hangingman_s;
global Spinningtop_s;
global Eng_s;
global Harami_s;
global Piercingline_s;
global Morning_evening_star_s;
Dojistar_s = Ds;
Hammer_s = Hs;
Hangingman_s = Hms;
Spinningtop_s = Sps;
Eng_s = Ens;
Harami_s = Hars;
Piercingline_s = Pls;
Morning_evening_star_s = Mess;
}

procedure AddVolaRatio( RatioPds1, RatioPds2, pds )
{
global IV;
global IVabs;
global IV_abs_AVG;
global MAV1;
global MAV2;
global Ratio;
global VolaRatio;
IV = ( ( H / PeMp() ) - 1 ) * 100;//%
IV_abs = H / PeMp();
IV_abs_AVG = MA( IV_abs, pds );
MAV1 = MA( IV, RatioPds1 );
MAV2 = MA( IV, RatioPds2 );
Ratio = MAV1 / MAV2;
VolaRatio = 100 * ( Ratio - 1 );
// VolaRatio = Ratio;
}

SelCaPat( 1, 1, 1, 1, 1, 1, 1, 1 );

procedure AddSensPerATR()
{
global bars;
global Amount;
global SelectedMode;
_SECTION_BEGIN( "Sensitivity" );
ModeSel = ParamList( "Mode", List = "Bars only, Bars and ATR, Bars and %", 0 );

for ( i = 0; i Input;
return Valley AND LastValue( bi ) - ValueWhen( Valley, bi ) > bars;
}

procedure BarTop( Input, bars )
{
global bi;
bi = BarIndex();
Top = Input == HHV( Input, 2 * bars ) AND Ref( HHV( Input, bars ), bars ) bars;
}

procedure PerValley( Input, bars, percentage )
{
Valley = BarValley( Input, bars );
ValleyLow = ValueWhen( Valley, Input );
ValleyX = ValueWhen( Valley, bi );
MinDistance = ( 1 + ( 0.01 * percentage ) ) * Ref( ValleyLow, bars );
Valleypercentage =
Valley AND HHV( Input, bars ) > MinDistance AND Ref( HHV( Input, bars ), bars ) > MinDistance;
return Valleypercentage;
}

procedure PerTop( Input, bars, percentage )
{
Top = BarTop( Input, bars );
TopHigh = ValueWhen( Top, Input );
TopX = ValueWhen( Top, bi );
MinDistance = ( 1 - ( 0.01 * percentage ) ) * Ref( TopHigh, bars );
TopPercentage = Top AND LLV( Input, bars ) MinDistance AND Ref( HHV( L, bars ), bars ) > MinDistance;
//Plot(MinDistance, "Trigger", 5, 1);
return ValleyATR;
}

procedure ATRTop( Bars, ATRmultiplier )
{
Top = BarTop( H, bars );
TopHigh = ValueWhen( Top, H );
TopX = ValueWhen( Top, bi );
MinDistance = Ref( TopHigh, bars ) - ( ATRmultiplier * Ref( ValueWhen( Top, ATR( 10 ) ), bars ) );
TopATR = Top AND LLV( H, bars ) MinDistance AND Ref( HHV( Input, bars ), bars ) > MinDistance;
return ValleyATR;
}

procedure ATRTopInput( Input, Bars, ATRmultiplier )
{
Top = BarTop( Input, bars );
TopHigh = ValueWhen( Top, Input );
TopX = ValueWhen( Top, bi );
MinDistance = Ref( TopHigh, bars ) - ( ATRmultiplier * Ref( ValueWhen( Top, ATR( 10 ) ), bars ) );
TopATR = Top AND LLV( Input, bars ) C, O, C );
BH1 = Ref( BH, -1 );
BH2 = Ref( BH, -2 );
BL = IIf( O O;
wD1 = Ref( WD, -1 );
wD2 = Ref( WD, -2 );
BD = C 40 * R;
wLD = Longday AND wD;
wLD1 = Ref ( wLD, -1 );
wLD2 = Ref ( wLD, -2 );
bLD = Longday AND bD;
bLD1 = Ref ( bLD, -1 );
bLD2 = Ref ( bLD, -2 );
doji = PeDoji();
HAMMER = Hammer_s & PeHammer() & DT;
SStar = Hammer_s & BH ( 10 * R );
SStar1 = BH ( 10 * R );
beSSTAR = SStar & UT;
HangingMan = Hangingman_s & PeHammer() & UT;
InvertedHammer = Hangingman_s & BH ( 10 * R ) & DT;
SpinningTop = Spinningtop_s & BH ( 25 * R + L )AND B < ( 25 * R ) & H == HHV( H, 3 ) & L == HHV( L, 3 );
SpinningTop1 = BH ( 25 * R + L )AND B BH1 & BL BH1 & BL 0.25 * B1 & Inside() & BH BL1;
beHARAMI = Harami_s & wLD1 & bD & B 0.25 * B1 & Inside() & BH BL1;
buHARAMICROSS = Harami_s & bLD1 & BH BL1 & B < 0.25 * B1 & DT1;
beHARAMICROSS = Harami_s & wLD1 & BH BL1 & B H1 - ( DR1 / 2 ) & BL > BH1 & UT1;
buPIERCINGLINE = Piercingline_s & bLD1 & wLD & C > ( ( B1 / 2 ) + BL1 ) & O H1 & C > BL1 & UT1;
buMorningStar = Morning_evening_star_s & bLD2 & BH1 L1 & wld & B1 > 0.25 * B2 & B1 BL2 + B2 / 2;
buMorningDojiStar = Morning_evening_star_s & bLD2 & BH1 L1 & wld & B1 BL2 + B2 / 2;
beEveningStar = Morning_evening_star_s & wLD2 & BL1 > BH2 - B2 / 3 & B1 > 0.25 * B2 & B1 BH2 - B2 / 3 & B1 0.6 * DR & Ref( upshadow, -1 ) > 0.6 * DR1;
LongDNshadows = DNshadow > 0.6 * DR & Ref( DNshadow, -1 ) > 0.6 * DR1;
Pattern_1_Stick_BS = Hammer | InvertedHammer;
Pattern_1_Stick_SS = beSSTAR | HangingMan | SpinningTop;
Pattern_2_stick_BS = buENG | buHARAMI | buHARAMICROSS | buDS | buPIERCINGLINE | buMorningStar | buMorningDojiStar;
Pattern_2_stick_SS = beENG | beHARAMI | beHARAMICROSS | beDS | beDARKCLOUDCOVER | beEveningDojiStar | beEveningStar;
Pattern_3_stick_BS = 0;
Pattern_3_stick_SS = 0;
PR =
IIf( Pattern_1_Stick_BS, 1,
IIf( Pattern_2_Stick_BS, 2,
IIf( Pattern_3_Stick_BS, 3,
IIf( Pattern_1_Stick_SS, -1,
IIf( Pattern_2_Stick_SS, -2,
IIf( Pattern_3_Stick_SS, -3, 0 ) ) ) ) ) );
CandlePatternRank = PR;
LBPR = LastValue( ValueWhen( PR > 0, PR ) );
LSPR = LastValue( ValueWhen( PR 0 == 1;
Sell_point = PR = x_Buy, Sup_1, IIf( LBPR == 2 & x >= x_Buy - 1, Support, IIf( LBPR == 3 & x >= x_Buy - 2, Support, -1e10 ) ) );
Res_1 = LastValue( ValueWhen( Sell_point & LSPR == -1, H, 1 ) );
Res_2 = LastValue( ValueWhen( Sell_point & LSPR == -2, HHV( H, 2 ), 1 ) );
Res_3 = LastValue( ValueWhen( Sell_point & LSPR == -3, HHV( H, 3 ), 1 ) );
Resistance = IIf( LSPR == -1, Res_1, IIf( LSPR == -2, Res_2, IIf( LSPR == -3, Res_3, -1e10 ) ) );
x_Sell = LastValue( ValueWhen( Sell_point, x, 1 ) );
Plot_Sell = IIf( LSPR == -1 & x >= x_Sell, Res_1, IIf( LSPR == -2 & x >= x_Sell - 1, Resistance, IIf( LSPR == -3 & x >= x_Sell - 2, Resistance, -1e10 ) ) );
CandlePattern =
WriteIf( Hammer, "Hammer",
WriteIf( beSSTAR, "Shooting Star",
WriteIf( InvertedHammer, "Inverted Hammer",
WriteIf( HangingMan, "Hanging Man",
WriteIf( SpinningTop AND NOT buDS, "Spinning Top",
WriteIf( buENG, "Engulfing",
WriteIf( beENG, "Engulfing",
WriteIf( buHARAMI, "Harami",
WriteIf( beHARAMI, "Harami",
WriteIf( buHARAMICROSS, "Harami Cross",
WriteIf( beHARAMICROSS, "Harami Cross",
WriteIf( buDS, "Doji Star",
WriteIf( beDS, "Doji Star",
WriteIf( buPIERCINGLINE, "Piercingline",
WriteIf( beDARKCLOUDCOVER, "Dark Cloud Cover",
WriteIf( buMorningStar, "Morning Star",
WriteIf( buMorningDojiStar, "Morning Doji Star",
WriteIf( beEveningStar, "Evening Star",
WriteIf( beEveningDojiStar, "Evening Doji Star",
"" ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) );
}

//|-----------------------------------------------------------------------------------------
//|-----------------------------------------------------------------------------------------
RS = L;
Tickers = C;
CurrentTaio = PeTaio();

if ( GroupID() == 253 AND StrLeft( Name(), 2 ) == "~i" )
{
iRS = L;
iFT = C;
sRS = Null;
sFT = Null;
}
else
if ( GroupID() == 253 AND StrLeft( Name(), 2 ) == "~s" )
{
iRS = Null;
iFT = Null;
sRS = L;
sFT = C;
}
else
{
iRS = Foreign( "~i" + WriteVal( IndustryID(), 1.0 ) + " - " + IndustryID( 1 ), "L", 2 );
iFT = Foreign( "~i" + WriteVal( IndustryID(), 1.0 ) + " - " + IndustryID( 1 ), "C", 2 );
sRS = Foreign( "~s" + WriteVal( SectorID(), 1.0 ) + " - " + SectorID( 1 ), "L", 2 );
sFT = Foreign( "~s" + WriteVal( SectorID(), 1.0 ) + " - " + SectorID( 1 ), "C", 2 );
}

iRSavg = iRS / iFT;

sRSavg = sRS / sFT;
SymF = IIf( StrLeft( Name(), 1 ) == "~", StrLeft( Name(), 2 ) == "~s" OR StrLeft( Name(), 2 ) == "~i", 1 );
SymFSI = IIf( StrLeft( Name(), 1 ) == "~", StrLeft( Name(), 3 ) != "~s0" AND StrLeft( Name(), 3 ) != "~i0", Null );

if ( GroupID() == 253 )
{
if ( StrFind( Name(), "~s" ) )
{
sector = Name();
industry = "";
}
else
if ( StrFind( Name(), "~i" ) )
{
sector = "";
industry = Name();
}
else
{
sector = "";
industry = "";
}
}
else
{
sector = SectorID( 1 );
industry = IndustryID( 1 );
}

//|-----------------------------------------------------------------------------------------
//|-----------------------------------------------------------------------------------------
Bulls = H;

Tickers = C;

if ( GroupID() == 253 AND StrLeft( Name(), 2 ) == "~i" )
{
sFBu = Null;
sFT = Null;
iFBu = H;
iFT = C;
}
else
if ( GroupID() == 253 AND StrLeft( Name(), 2 ) == "~s" )
{
sFBu = H;
sFT = C;
iFBu = Null;
iFT = Null;
}
else
{
iFBu = Foreign( "~i" + WriteVal( IndustryID(), 1.0 ) + " - " + IndustryID( 1 ), "H", 2 );
iFT = Foreign( "~i" + WriteVal( IndustryID(), 1.0 ) + " - " + IndustryID( 1 ), "C", 2 );
sFBu = Foreign( "~s" + WriteVal( SectorID(), 1.0 ) + " - " + SectorID( 1 ), "H", 2 );
sFT = Foreign( "~s" + WriteVal( SectorID(), 1.0 ) + " - " + SectorID( 1 ), "C", 2 );
}

sFBu_p = 100 * sFBu / sFT;

sFBe_p = 100 - sFBu_p;
iFBu_p = 100 * iFBu / iFT;
iFBe_p = 100 - iFBu_P;
TickersDB = Foreign( "~Tickers_in_DB", "C" );
missing_quotes_filter = Highest( TickersDB ) - TickersDB > 10;

if ( GroupID() == 253 )
{
if ( StrFind( Name(), "~s" ) )
{
sector = Name();
industry = "";
}
else
if ( StrFind( Name(), "~i" ) )
{
sector = "";
industry = Name();
}
else
{
sector = "";
industry = "";
}
}
else
{
sector = SectorID( 1 );
industry = IndustryID( 1 );
}

SymF = IIf( StrLeft( Name(), 1 ) == "~", StrLeft( Name(), 2 ) == "~s" OR StrLeft( Name(), 2 ) == "~i", 1 );

SymFSI = IIf( StrLeft( Name(), 1 ) == "~", StrLeft( Name(), 3 ) != "~s0" AND StrLeft( Name(), 3 ) != "~i0", Null );

//|-----------------------------------------------------------------------------------------
//|-----------------------------------------------------------------------------------------
procedure AddFilterParameters()
{
global def_PatternExplorerFilter;
global def_CustomFilter;
global def_FilterList;
global PE_LongFilter;
global PE_ShortFilter;
global def_LongFilter;
global def_ShortFilter;
global MainLongFilter;
global MainShortFilter;
global MainLSFilter;
global def_LFC1;
global def_LFC2;
global def_LFC3;
global def_LFC4;
global def_LFC5;
global def_SFC1;
global def_SFC2;
global def_SFC3;
global def_SFC4;
global def_SFC5;
Pe_LFC1 = CandlePatternRank > 0;
Pe_LFC2 = 0;
Pe_LFC3 = 0;
Pe_LFC4 = 0;
Pe_LFC5 = 0;
Pe_LFC6 = iFBu_p > 50;
Pe_LFC7 = iRSavg > SRSavg;
Pe_LFC8 = 0;
Pe_LFC9 = 0;
Pe_LFC10 = 0;
Pe_FilterList = "Off, Candlestick Patterns, Up Trend Filter I, Up Trend Filter II, Oversold, SI Trend up, RelStrength: Ind > Sec, Filter 7, Filter 8, Filter 9, Filter 10";
Pe_SFC1 = CandlePatternRank 0, colorGreen, colorRed ) );
CandleColumnOn = 1;
}

//Variables
InChart = Status( "Action" ) == 1;
InAA = Status( "Action" ) >= 3;
AvgCalc200 = MovAvgC * 200;

L1 = Ref( L, -1 );
H1 = Ref( H, -1 );
C1 = Ref( C, -1 );
L2 = Ref( L, -2 );
H2 = Ref( H, -2 );
C2 = Ref( C, -2 );
L3 = Ref( L, -3 );
H3 = Ref( H, -3 );
C3 = Ref( C, -3 );
L4 = Ref( L, -4 );
H4 = Ref( H, -4 );
C4 = Ref( C, -4 );
L5 = Ref( L, -5 );
H5 = Ref( H, -5 );
C5 = Ref( C, -5 );
L6 = Ref( L, -6 );
H6 = Ref( H, -6 );
C6 = Ref( C, -6 );
L7 = Ref( L, -7 );
H7 = Ref( H, -7 );
C7 = Ref( C, -7 );
L8 = Ref( L, -8 );
H8 = Ref( H, -8 );
C8 = Ref( C, -8 );
L9 = Ref( L, -9 );
H9 = Ref( H, -9 );
C9 = Ref( C, -9 );

//---- heikin ashi
HaClose = ( O + H + L + C ) / 4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );

def_PatternPriceBasisCPR = 1;
def_PatternPriceBasisFractals = 1;
def_Taio2TFMultiplier = 4;
def_PlotVolume = 0;
def_VolumeType = 2;
def_VolumeUpColor = colorGreen;
def_VolumeDnColor = colorRed;
def_VolumeNeutralColor = colorWhite;
def_VolumeHeight = 4;
CandleColumnOn = 0;[/i][/i][/i][/i][/i][/i][/i][/i]

Cảm ơn bạn..mình đã sửa được nha. Bạn có thể cho mình **** để có thể kết nối thêm được không!! Mình inbox riêng cho bạn lại không được á. Tks bạn nha.

CHào bác, tình hình cái của mình cài patten rồi mà nó hiện
Error 30.
Syntax error, identifier "petaio" is undefined.
nhờ bác chỉ giáo cách khắc phục với ạ

bác cho e xin code cảnh báo phân kỳ RSI với MACD với
có dòng chữ (hiển thị dưới date): phân kỳ...
Thanks

Nguyên nhân sâu xa là PatternExplorer.dll chưa ở thư muc Plugins