[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] How can I implement to PnF by Graham Kavanagh 17 Apr 2004



PureBytes Links

Trading Reference Links

That is the exploration code I wrote sometimes ago..
If you are interested for a newer version you may contact me privately.

Aron.

On 4/15/09, tomczykd <tomczykd@xxxxxxxxx> wrote:
> Hello,
>
> I use P&F chart based on closing price by Graham Kavanagh, 17 Apr 2004. This
> is very helpfull tools for me.
>
> Some time ago I found the following code for another PnF and I would like to
> implement Exploration Settings to Graham's PnF chart. Please help me. I try,
> try and nothing.
>
> Best regards. Dominik
>
> // part of code
> pattern = "";
> doubleTop = "";
> tripleTop = "";
> tripleBot = "";
> AscTriangle = "";
> DescTriangle = "";
> doubleBot  ="";
> rectangle = "";
> SymTriangle = "";
> Catapult = "";
>
> _SECTION_BEGIN("Exploration Settings");
> fr = Param("from", 3, 3, 100,1);
> to = Param("to", 50, 10, 100,1)+1;
> _SECTION_END();
>
> for (b = fr; b<to; b++)
> {
> 	Box = b/decimals;
> 	pf(box);
> 	btxt = NumToStr(b, 3.0);
> 	
> 		eq2 = Cl[x] == Cl[x-2];
> 		eq3 = eq2 && Cl[x-2] == Cl[x-4];
> 	
> 		if(eq2)
>
> 		{	if (direction[x] )
> 			doubleTop =  doubleTop + " " +  btxt;	
> 			else
> 			doubleBot =  doubleBot + " " +  btxt;	
> 		}
> 	
>
> 		if (eq3)
> 		{
> 			if (direction[x] )
> 			tripletop =  tripletop + " " + btxt;
> 			else
> 			tripleBot = tripleBot + " " +  btxt;
> 		}
> 		
> 		
> 		if ( eq3 == Cl[x-4]&& range[x-3] > range[x-1] && range[x-4] > 1.2*
> range[x-3])
> 		{	
> 			if(direction[x])
> 			AscTriangle =  AscTriangle + " " +  btxt;	
> 			else
> 			DescTriangle =  DescTriangle + " " +  btxt;
> 		}
> 	
> 		match = 0;
> 		for ( num = 1; num< 5; num++)
> 		{
> 			if(  range[x]- range[x-num]==0)
> 			match ++;	
> 		}
> 		if (match ==4)	
> 		rectangle = rectangle  + " " +  btxt;	
>
> 	
> 	if (range[x]- range[x-1]== range[x-1]- range[x-2] && range[x-1]- range[x-2]
> == range[x-2] - range[x-3]
> 		&& range[x]< range[x-1]&& range[x-4] > 1.2* range[x-3])	
> 		SymTriangle = SymTriangle  + " " +  btxt;	
> 	
> 	
> 	C1 = eq2 && Cl[x-4] == Cl[x-6];
> 	C2 = AlmostEqual(Cl[x-2] - Cl[x-4], -box,50)&& !direction[x];
> 	C3 = AlmostEqual(Cl[x-2] - Cl[x-4], box,50) && direction[x];
> 	C4 = C2 || C3;
> 	if( C1 && C2 || C1 && C3)
> 	Catapult = Catapult + " " +  btxt;	
> }
>
> Filter = 1;
> format = 8.0;
> CellWidth = 70;
> AddTextColumn( doubleTop,		"DoubleTop", 		format, colorBlue, 	colorDefault,
> CellWidth);
> AddTextColumn( doublebot, 		"DoubleBottom",	format, colorRed, 	colorDefault,
> CellWidth);
> AddTextColumn( tripleTop, 		"TripleTop", 		format, colorBlue, 	colorDefault,
> CellWidth);
> AddTextColumn( tripleBot, 		"TripleBottom", 	format, colorRed,
> 	colorDefault, CellWidth);
> AddTextColumn( AscTriangle, 	"AscTriangle",		format, colorBlue,
> 	colorDefault, CellWidth);
> AddTextColumn( DescTriangle,	"DescTriangle", 	format, colorRed,
> 	colorDefault, CellWidth);
> AddTextColumn( rectangle, 		"Range", 			format, colorGrey50, colorDefault,
> CellWidth);
> AddTextColumn( symTriangle, 	"SymTriangle",		format, colorGrey50,
> colorDefault, CellWidth);
> AddTextColumn( catapult, 		"Catapult",			format, colorGrey50, colorDefault,
> CellWidth);
>
>
>
>
> ------------------------------------
>
> **** IMPORTANT PLEASE READ ****
> This group is for the discussion between users only.
> This is *NOT* technical support channel.
>
> TO GET TECHNICAL SUPPORT send an e-mail directly to
> SUPPORT {at} amibroker.com
>
> TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
> http://www.amibroker.com/feedback/
> (submissions sent via other channels won't be considered)
>
> For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
> http://www.amibroker.com/devlog/
>
> Yahoo! Groups Links
>
>
>
>


------------------------------------

**** IMPORTANT PLEASE READ ****
This group is for the discussion between users only.
This is *NOT* technical support channel.

TO GET TECHNICAL SUPPORT send an e-mail directly to 
SUPPORT {at} amibroker.com

TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
http://www.amibroker.com/feedback/
(submissions sent via other channels won't be considered)

For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/

Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/amibroker/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/amibroker/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:amibroker-digest@xxxxxxxxxxxxxxx 
    mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx

<*> To unsubscribe from this group, send an email to:
    amibroker-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/