Download Tony Crabels Intraday Signal Chart For Amibroker (AFL)

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex

EOD and Realtime

Dividends and Trust Distributions

And Much More ....

For Portfolio Manager Click Here

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators

Advanced Pattern Exploration

Neural Networks

And Much More ....

Find Out More Here

3 / 5 (Votes 33)

amibroker, exploration, intraday

Very nice intraday signal generator chart.

Submitted by y2k_netizen about 14 years ago

Submitted by sajid almost 15 years ago

Submitted by iwan over 11 years ago

Submitted by kaiji over 15 years ago

Submitted by bob303 almost 13 years ago

Submitted by godisbogus about 15 years ago

Copy & Paste Friendly

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

/*
Code created by Pete Hahn, Phoneix Arizona, USA Updated 7/5/09
Notice: The contents of this code are intended to be purely 
educational in nature. Trade at your own risk. Nothing in this 
code is intended to guarantee profits or losses of any size. 
Past results are not indicative of future performance. Consult 
your registered financial planner before applying any of these 
techniques to your live trading account. Errors may be present
in the code of which the author is not aware.
Inquiries may be sent to: onedryheat@yahoo.com
 
Version Notes:
VVVVVVVVVVVVVVVVVV   1.3  VVVVVVVVVVVVVVVVVVVVVVVVV
v1.3 adds rounding feature with adjustable parameters to work
with stocks, futures and forex. Also added to V1.3 is an exploration
with two modes. One for quick scans run just after the market opens 
and can be run multiple securities with an output of the basic levels. 
The other is a more thorough exploration intended to be used with one 
security at a time, and then output to a spread sheet for further analysis. 
Search in this docutment for the word 'Exploration' as the instructions 
or it's use are contained within that section.
VVVVVVVVVVVVVVVVVV   1.4  VVVVVVVVVVVVVVVVVVVVVVVVV
## Added user selectable stop amount. Stop amount is selected in the 
parameters dialog and is used as a multiplier to position the stop loss
in between the breakout and the open. Lower values move the stop loss
closer to the brekout, higher values move the stop loss closer to the
open. Greater than 1 places the stop on the opposite side of the open.
## Fixed a bug in the FirstBOL and First BOL statements which prevented
an entry Signal from being recorded on the opening bar.
##Modified start and end time for market hours so the user can select whether
to adjust for daylight savings. User may chage the date ranges used for the 
daylight savings adjustment in the Parameters as well. Your data may not 
need to be adjusted for daylight savings so you should check your database
to determine if this parameter should be on or off.
## Cleaned up the code to reduce processor usage.
## Fixed some problems with the way the exploration was calculating the 
various levels AND recording entries/exits.
## Modified various price patterns so they can adjust for shortened
holiday trading days, (mostly used for futures and forex). User can select 
whether to filter out holidays or not. Your data may not contain data from 
shortened holiday market hours. This is mainly found in Futures and Forex data.
You should examine your data to determine the best seeting to use.
## Added parameter to allow adjustment of the profit target line
## IMPORTANT NOTICE: I used a section of VBScript in order to calculate some
of the time values related to the market open and close times. VBScript host 
is required in order to run this AFL, and it is included in Windows 2000 and XP.
I don't know if this is compatible with Windows Vista. More information is 
available in the AB help files. Search "AFL Scripting Host" to locate the 
Amibroker support information.
*/
 
_SECTION_BEGIN("Setup");
//required settings:
//      Tools --> Preferences | go to Intraday tab and select "START time of interval"
//      View --> Intraday --> "Show 24 Hours Trading"
//      View --> Intraday --> "Filter Weekends"
 
// Rounding the Study line values
StopLst = ParamList("Select Stop", ".25|.33|.50|.66|.75|1.0|1.5", 6);
TargetLst = ParamList("Adjust Target", "0.50|0.66|0.75|1.00|1.10|1.20|1.25|1.30|1.35", 0);
Instrument = ParamList("Instrument", "Stocks|Forex|Futures");
length  = ParamList("Digits to R of Decimal","0|2|4",1);        // Number or numbers to the right of the decimal
rounding  = ParamList("Rounding (for pts.)", "Truncate|NearestQuarter");    // don't round, round to nearest 1, round to nearest .25
ExpFilter = ParamList("Exploration", "ORB|STATS|OHLC", 1);
FltrHolidays = ParamToggle("Filter Holidays", "YES|NO", 0);
UseDaySave = ParamToggle("Daylight Savings", "YES|NO", 0);
UserSpringFoward = ParamDate("SpringForward", "3/8/2009");
UserFallBehind = ParamDate("FallBehind", "11/2/2008");
UserOpen = ParamTime("Market Open", "09:30");
UserClose = ParamTime("Market Close", "16:00");
_SECTION_END();
_SECTION_BEGIN("Plot lines");
//Set parameter default to YES for displaying the final
//results of the break out calculations.
PlotBreak =  ParamToggle("Plot Breakout", "YES|NO", 0);
//set parameter default to YES for displaying PP, S1 and R1
PPSR1 = ParamToggle("PP,S1/R1", "YES|NO", 0);
//set paramter default to NO for displaying S2 and R2
S2R2 = ParamToggle("S2,R2", "YES|NO", 1);
//set parameter default to NO for dsiplaying S3 and R3
S3R3 = ParamToggle("S3,R3", "YES|NO", 1);
//set paramter default to NO for diplaying S4 and R4
S4R4 = ParamToggle("S4,R4", "YES|NO", 1);
_SECTION_END();
 
_SECTION_BEGIN("Price");
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
SetChartBkColor(ParamColor("Panel color ",colorLightBlue));
_SECTION_END();
 
_SECTION_BEGIN("Speed Lines");
P20 = 20;
Plot( EMA( C, P20 ), "Spd20" ,colorBlack, styleLine | styleThick ); 
 
P18 = 18;
Plot( EMA( C, P18 ), "Spd18" ,colorCustom9, styleLine | styleThick ); 
 
P50 = 50;
Plot( MA( C, P50 ), "Spd 50" , colorBlue,styleDashed | styleThick); 
 
P200 = 200;
Plot( MA( C, P200 ), "Spd 200" , colorRed, ParamStyle("Style") ); 
 
Prd3HLC = Param("HLC 3 Prds", 3, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd3HLC), "HLC 3MA", colorBlue, styleLine | styleThick);
 
Prd5HLC = Param("HLC 5 Prds", 5, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd5HLC), "HLC 5MA", colorCustom12, styleLine | styleThick);
_SECTION_END();
 
_SECTION_BEGIN("Open Range Break Out");
 
CurBarTime = TimeNum();
 
//Need to use VBscript here to take the user selected date
//and covert it to the DateNum() format for use by AFL
EnableScript("vbscript");
<%
dim VarPart
    varPartSpring = Split(AFL("UserSpringFoward"), "/", 3)
 
AFL("Spring") = varPartSpring(0) 
    VarPartFall = Split(AFL("UserFallBehind"), "/", 3)
AFL("Fall") = VarPartFall(0)
 
%>
//convert VBscript output to number format and assign to 
//AFL variables
SpringForward = StrToNum(Spring);
FallBehind = StrToNum(Fall);
 
//based on user selection in parameters dialog for daylight savings and
// market open and close times, adjust the Open/Close for the market accordingly
if(UseDaySave == 0)
{
//if user selects daylight savings then test to see if each bar is within the daylight
//savings time window. For each bar that lies within the window, shift the time one hour
//forward. 
TimeOpen = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward,
             UserOpen + 10000, UserOpen ) ;
CalcClose = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward, 
                UserClose + 10000, UserClose ) ;
}
if(UseDaySave == 1)
{
//if user selects no for daylight savings then use the values as the are
TimeOpen = UserOpen ;
CalcClose = UserClose;
}
//Here is the $64,000.00 code. How to convert the TimeNum() output into
//a form which allows one to subtract the number of minutes based on
//the time frame selected. You have no idea how much brain mojo this took
//to put together. I could NOT have done it without an Excel spread sheet
//=IF(MID(A17,3,2)="00",6000-(B17*100)+(A17-10000),A17-(100*B17))
TimeClose = IIf(StrMid(NumToStr(CalcClose ,1,False),2,2)=="00",
            6000-((Interval()/60)*100)+(CalcClose-10000),
            CalcClose-(100*(Interval()/60)));
 
//Determine the value of the market open. Initial setting is for
//9:30 AM to match US Market Open. Adjust as need for your market
MrktOpen = ValueWhen(CurBarTime  == TimeOpen , Open);
DlyOpen =ValueWhen(CurBarTime == TimeClose, MrktOpen);
//Determine the highest high for each day's trading.
//Adjust time as needed for your market.
DlyHigh = HighestSince(CurBarTime  == TimeOpen , High);
//Take a snapshot value of the day's high at the time of market 
//close. Intial stting is 4:00 pm to match US Market Close. 
//Adjust as needed for your market.
DlyHighest = ValueWhen(CurBarTime  == TimeClose , DlyHigh);
//Do the same for the lowest value of the trading day.
//Adjust time as needed for your market.
DlyLow = LowestSince(CurBarTime  == TimeOpen , Low);
DlyLowest = ValueWhen(CurBarTime  == TimeClose , DlyLow);
//determine the market closing price
DlyClose = ValueWhen(CurBarTime  == TimeClose , C);
//Now calculate the min range value using Open, Low and High
//variables calculated above
RngMin = Min(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//Compres this to a daily time frame in order to capture
//the final value of the Range Min for each trading day
DlyRngMin = TimeFrameCompress(RngMin, inDaily, compressLast);
//Use the compressed variable to calculate a 10 day average\
RngMinAvg = MA(DlyRngMin , 10);
 
//uncompress the daily variable so that it can be used in 
//calcuating the long and short break out levels for each day
RngMinAvg = TimeFrameExpand(RngMinAvg, inDaily);
 
//caclculate the max range value using the opn, low and high
//variables
RngMax = Max(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//compress this to a daily time frame in order to capture
//the final value of the range max for each trading day
DlyRngMax = TimeFrameCompress(RngMax, inDaily, compressLast);
//use the compressed variable to calculate a 10 day average
RngMaxAvg = MA(DlyRngMax, 10);
//uncompress the daily variable so that it can be used in
//calculating the profit target for opening range breakouts
RngMaxAvg = TimeFrameExpand(RngMaxAvg, inDaily);
//Use the values calculated above to determine the opening
//range break outs. Notice the Range Min has been shifted so
//that is reads the previous day's value and this is used against
//the current day's open to determine the break out levels
BreakOutLong = MrktOpen + Ref(RngMinAvg, -1);
BreakOutShort = MrktOpen - Ref(RngMinAvg, -1);
 
//round the breakout levels based on user selection in parameters
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(Length == "0")
    {
        breakOutLong = int(breakOutLong );
        breakOutShort = int(breakOutShort );
    }
else if(Length == "2")
    {
    if(rounding == "NearestQuarter" AND Instrument == "Futures")
        {
        breakOutLong = 0.25 * ceil( 0.5 + BreakOutLong * 4 );
        breakOutShort = 0.25 * floor( 0.5 + BreakOutShort * 4 );
        }
    else
        {
        breakOutLong = 0.01 * round(0.5 + BreakOutLong * 100);
        breakOutShort = 0.01 * round(0.5 + BreakOutShort * 100);
        }
test = 0;
    }
else if(Length == "4")
{
        breakOutLong = Prec(breakOutLong , 4);
        breakOutShort = Prec(breakOutShort , 4);
}
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//now use the average max range to calculate a profit target
//for each day's opening range break out
UserTarget = StrToNum(TargetLst);
 
//allow user to modify the profit target from selection made in 
//the parameters.
ProfitLong = MrktOpen + (Ref(RngMaxAvg, -1))*UserTarget ;
ProfitShort = MrktOpen - (Ref(RngMaxAvg, -1))*UserTarget ;
 
UserStop = StrToNum(StopLst);
 
 
//Allow user to modify the stop loss values from selection made
//in the parameters.
StopAmtLong = Prec((breakOutLong - MrktOpen)*UserStop ,2);
StopAmtShort = Prec((MrktOpen - breakOutShort)*UserStop ,2);
 
//round the stop and profit target levels based on user selection in parameter
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
if(Length == "0")
    {
        StopAmtShort = int(StopAmtShort);
        StopAmtLong = int(StopAmtLong);
        ProfitShort = int(ProfitShort) ;
        ProfitLong = int(ProfitLong); 
    }
else if(Length == "2")
    {
    if(rounding == "NearestQuarter" AND Instrument == "Futures")
        {
        StopAmtShort = 0.25 * ceil( 0.5 + StopAmtShort * 4 )+0.25;
        StopAmtLong = 0.25 * floor( 0.5 + StopAmtLong * 4 );
        ProfitShort = 0.25 * ceil( 0.5 + ProfitShort * 4 ) ;
        ProfitLong = 0.25 * floor( 0.5 + ProfitLong * 4 ) - 0.25;
        }
    else
        {
        StopAmtShort = 0.01 * floor(0.5 + StopAmtShort * 100);
        StopAmtLong = 0.01 * round(0.5 + StopAmtLong * 100)+0.01;
        ProfitShort = Prec(ProfitShort , 2) ;
        ProfitLong = Prec(ProfitLong , 2);
        }
 
    }
else if(Length == "4")
{
        StopAmtShort = Prec(StopAmtShort , 4);
        StopAmtLong = Prec(StopAmtLong , 4);
        ProfitShort = Prec(ProfitShort , 4) ;
        ProfitLong = Prec(ProfitLong , 4); 
}
 
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
//create the title layout for the various levels
TitleBreakOuts = EncodeColor(colorCustom11) +"Today's Breakout Levels:" +"\n"
                    +"Long Target: " +ProfitLong + "\n"
                    +"Breakout Long: " +breakOutLong +"\n"
                    +"Long Stop: " +(BreakOutLong - StopAmtLong) +"\n"
                    +"Today's Open: " +MrktOpen +"\n"
                    +"Breakout Short: " +breakOutShort +"\n"
                    +"Short Target: " +ProfitShort +"\n"
                    +"Short Stop: " + (BreakOutShort + StopAmtShort)+"\n";
 
_SECTION_END();
 
_SECTION_BEGIN("Toby Crabel Patterns");
TitleHeader = EncodeColor(colorYellow) +"Yesterday's Price Patterns" +"\n";
TitleSwing = EncodeColor(colorLavender) +"1 Day Swing Trend" + "\n";
 
//compress daily high and low for use in calculations
DlyC = TimeFrameCompress(DlyClose , inDaily, compressLast);
DlyH = TimeFrameCompress(DlyHighest, inDaily, compressLast);
DlyL = TimeFrameCompress(DlyLowest, inDaily, compressLast);
DlyO = TimeFrameCompress(MrktOpen, inDaily, compressLast);
DlyRng = DlyH-DlyL;
//use compressed daily high and low to expand day's 2-5
PrevO = TimeFrameExpand(DlyO, inDaily);//day 2 open
//PrevO2 = TimeFrameExpand(Ref(DlyO, -1), inDaily);//day 3 open
CurH = TimeFrameExpand(DlyH, inDaily);//day 2 high
PrevH = TimeFrameExpand(Ref(DlyH,-1), inDaily);//day 3 high
PrevH2 = TimeFrameExpand(Ref(DlyH,-2), inDaily);//day 4 high
//PrevH3 = TimeFrameExpand(Ref(DlyH,-3), inDaily);//day 5 high
CurL = TimeFrameExpand(DlyL, inDaily);//day 2 low
PrevL = TimeFrameExpand(Ref(DlyL,-1), inDaily);//day 3 low
PrevL2 = TimeFrameExpand(Ref(DlyL,-2), inDaily);//day 4 low
//PrevL3 = TimeFrameExpand(Ref(DlyL,-3), inDaily);//day 5 low
PrevC = TimeFrameExpand(DlyC, inDaily);//day 2 close
PrevC2 = TimeFrameExpand(Ref(DlyC,-1), inDaily);//day 3 close
PrevC3 = TimeFrameExpand(Ref(DlyC,-2), inDaily);//day 4 close
 
//code and plot the Doji 
//abs(O-C)/(H-L) < .11 AND (O+C)/2 < H-((H-L)*.33) AND (O+C)/2 > L+((H-L)*.33)
DlyDoji = (abs(DlyO-DlyC)/(DlyRng)) < 0.11 AND 
            ((DlyO+DlyC)/2) < (DlyH-((DlyRng)*0.33)) AND
            ((DlyO+DlyC)/2) > (DlyL+((DlyRng)*0.33));
doji = TimeFrameExpand(DlyDoji, inDaily);
 
Cntr = 0;
Holiday = 0;
for(i=1;i<BarCount;i++)
    {
    if(CurBarTime[i] >= TimeOpen[i] AND CurBarTime[i] <= TimeClose[i])
        Cntr = 1;   
        if(Cntr[i] >= 1 AND CurBarTime[i] == TimeClose[i])
        {
            Cntr = 2;
        }
            if(Cntr[i] < 2 AND CurBarTime[i] > TimeClose[i])
            {
                Holiday[i] = 1;
            }
    }
 
Holiday = TimeFrameCompress(Holiday,inDaily);
 
//apply holiday filter if the user selects it in the parameters
if(FltrHolidays == 0)
{
 
//code and plot the NR4
DlyNR4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
            (LLV(DlyRng,5) == (DlyRng)),
            (LLV(DlyRng,4) == (DlyRng)));
//code and plot the WS4
DlyWS4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
            (HHV(DlyRng,5) == (DlyRng)),
            HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
            (LLV(DlyRng,8) == (DlyRng)),
            (LLV(DlyRng,7) == (DlyRng)));
//code and plot the WS7
DlyWS7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
            (HHV(DlyRng,8) == (DlyRng)),
            (HHV(DlyRng,7) == (DlyRng)));
//calculate the 2 day range
DlyTwoDayRng = IIf(Holiday OR (BarsSince(Holiday) == 1 ),
                    HHV(DlyH ,3) - LLV(DlyL ,3),
                    HHV(DlyH ,2) - LLV(DlyL ,2));
//calculate the 3 day range
DlyThreeDayRng = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
                    HHV(DlyH ,4) - LLV(DlyL ,4),
                    HHV(DlyH ,3) - LLV(DlyL ,3));
 
TitleDoji = WriteIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
                        EncodeColor(colorGold) +WriteIf(Ref(doji,-2), " Doji Day" +"\n", ""),
                        EncodeColor(colorGold) +WriteIf(Ref(doji,-1), " Doji Day" +"\n", ""));
}
 
 
//calculate the price patterns based on standard method if the user
//has selected NO in the filter holidays parameter.
if(FltrHolidays == 1)
{
//code and plot the NR4
DlyNR4 = (LLV(DlyRng,4) == (DlyRng));
//code and plot the WS4
DlyWS4 = (HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = (LLV(DlyRng,7) == (DlyRng));
//code and plot the WS7
DlyWS7 = (HHV(DlyRng,7) == (DlyRng));
//calculate the 2 day range
DlyTwoDayRng = HHV(DlyH ,2) - LLV(DlyL ,2);
//calculate the 3 day range
DlyThreeDayRng = HHV(DlyH ,3) - LLV(DlyL ,3);
 
TitleDoji = EncodeColor(colorGold) +WriteIf(Ref(doji,-1), " Doji Day" +"\n", "");
}
 
//code the NR
NR = (CurH - CurL) < (PrevH - PrevL);
 
NR4 = TimeFrameExpand(DlyNR4, inDaily);
TitleNR4 = EncodeColor(colorWhite) + WriteIf(Ref(NR4,0), " NR4 Day"+"\n", "");
 
WS4 = TimeFrameExpand(DlyWS4, inDaily);
TitleWS4 = EncodeColor(colorRed) +WriteIf(Ref(WS4,0), " WS4 Day"+"\n", "");
 
NR7 = TimeFrameExpand(DlyNR7, inDaily);
TitleNR7 = EncodeColor(colorWhite) + WriteIf(Ref(NR7,0), " NR7 Day"+"\n", "");
 
WS7 = TimeFrameExpand(DlyWS7, inDaily);
TitleWS7 = EncodeColor(colorRed) +WriteIf(Ref(WS7,0), " WS7 Day" +"\n", "");
 
TwoDayRng = TimeFrameExpand(DlyTwoDayRng, inDaily);
 
//determine lowest 2 day range in previous 20 days
DlyTwoBarNR = LLV(DlyTwoDayRng , 20) == DlyTwoDayRng ;
TwoBarNR = TimeFrameExpand(DlyTwoBarNR, inDaily);
TitleTwoBarNR = WriteIf(Ref(TwoBarNR, -1), " 2DayNR" +"\n", "");
 
ThreeDayRng = TimeFrameExpand(DlyThreeDayRng, inDaily);
 
//determine lowest 3 day range in previous 20 days
DlyThreeBarNR = LLV(DlyThreeDayRng , 20) == DlyThreeDayRng ;
ThreeBarNR = TimeFrameExpand(DlyThreeBarNR, inDaily);
TitleThreeBarNR = WriteIf(Ref(ThreeBarNR, -1), " 3DayNR" +"\n", "");
 
//code and plot the pivot top
PivotTop = CurL < PrevL  AND CurH < PrevH  AND PrevH > PrevH2;
 
//code and plot the pivot bottom
PivotBottom = CurH > PrevH   AND CurL > PrevL   AND PrevL < PrevL2;
 
SwingUP = PrevC > ValueWhen(PivotTop, PrevH,1);
SwingDWN = PrevC < ValueWhen(PivotBottom, PrevL,1);
 
TitleSwingTrend = WriteIf(SwingUP, " Swing UP" +"\n",
                        WriteIf(SwingDWN, " Swing DWN" +"\n", " Swing Flat" +"\n"));
ExpSwingTrend = IIf(SwingUP, 9,
                        IIf(SwingDWN, 0, 1));
 
//determine if previous day closed up or down
CloseUP = PrevO > PrevH;
//printf("Closed: " +WriteIf( Ref(DlyO,-1) < DlyC, "UP" +"\n", "DWN" +"\n"));
TitleUPDWN = WriteIf(PrevO > PrevH, " UP Day" +"\n", " DWN Day" +"\n");
GapDayUP = PrevO > PrevH2 ;
GapDayDWN = PrevO < PrevL2;
TitleGapDay = WriteIf(GapDayUP,
                WriteIf(CloseUP, " Gap UP and closed UP" +"\n", " Gap UP and closed DWN" +"\n"),
                WriteIf(GapDayDWN, 
                WriteIf(CloseUP, " Gap DWN and closed UP" +"\n", " Gap DWN and closed DWN" +"\n"),""));
_SECTION_END();
 
_SECTION_BEGIN("Exploration");
//the exploration is divided into two sections. each section is tied to the 
//the value of the parameter toggle which is used to select from two choices
 
//Choice 1 is ORB which is a simple scan showing the brekout, profit and stop 
//levels for each ticker. Run this scan within first minutes of market open to
//record the levels for each of the securities you are tracking. Set the range
//of the analsys window to 'n last days' where n=1.
 
//Choice 2 is STATS wich is a more thorough scan that is intended to be used on
//a single security at a time. Results can then be exported into a spread sheet for
//further analysis. While it is not perfect the intended goal is to output a set 
//of data which can be used to measure the profitabilty of the system on a given
//security as well as determine the best way to filter out undesirable trades. Set
//the range in the analysis window to include whatever range of days you want to 
//output.
 
/*
$$$$$$$$ The two lines below display the output of the STATS exploration $$$$$$$$$$
$$$$$$$$ The top line contains the column headings and the bottom line   $$$$$$$$$$
$$$$$$$$ contains the data for each time stamp. Trend is measured as a 1 $$$$$$$$$$
$$$$$$$$ day swing pivot. U means the previous day closed above a recent $$$$$$$$$$
$$$$$$$$ pivot top. D mena the previous day closed below a recent        $$$$$$$$$$
$$$$$$$$ pivot bottom. F means the previous day closed between a         $$$$$$$$$$
$$$$$$$$ both the recent pivot top and pivot bottom. D3 and D2 are  plus $$$$$$$$$$
$$$$$$$$ and minus symbols to show the close of each day relative to the $$$$$$$$$$
$$$$$$$$ previous. D1 is the current day's open relative to previous     $$$$$$$$$$
$$$$$$$$ day's close. D1 is trade day, D2 is the day before trade day    $$$$$$$$$$
$$$$$$$$ and D3 is the day before that. After this is a series of 5      $$$$$$$$$$
$$$$$$$$ price patterns taken from Toby Crabel's book. 1's and 0's show  $$$$$$$$$$
$$$$$$$$ for each time stamp what the PREVIOUS day's price pattern       $$$$$$$$$$
$$$$$$$$ looked like. After the price patterns you find the 6 dollar     $$$$$$$$$$
$$$$$$$$ values for the breakout, stop and profit targets. The final 6   $$$$$$$$$$
$$$$$$$$ columns show what occured during each step and using 1's and    $$$$$$$$$$
$$$$$$$$ 0's diplays when you enter long/short, stop out long/short or   $$$$$$$$$$
$$$$$$$$ hit the long/short target.                                      $$$$$$$$$$
 
Ticker              Date/Time           Trend   D3  D2  D1  WS4 WS7 Doji    NR4 NR7     BOL     LngTarg LngStp  BOS     ShrtTarg    ShrtStp LngEnt  StpOut  Targ    ShrtEnt StpOut  Targ
ESU9-GLOBEX-FUT 5/1/2009 9:37       U       +   -   +   1   1    0      0   0       873     886.75      871.5   867.25  853.25      868.5       0       0       0       1           0       0
 
So the line above tells us these things:
(Trend) Yesterday closed above a recent pivot top. (D1)Today's open was above yesterday's close, (D2) yesterday
closed below the previous day's close and (D3) that day closed above it's prior day. Yesterday was
also WS4 and WS7 day which means expansion. At 9:37 am pries broke below the short breakout level
and a short entry was indicated.
It is best to run the STATS exploration in a 1 minute time frame to prevent false stops occurring when
a single 5 or 15 minute bar stretches across both the stop loss and breakout levels
*/
 
intraHigh = HighestSince(CurBarTime  == TimeOpen, H);
intraLow = LowestSince(CurBarTime  == TimeOpen, L);
FirstBOL = Cross(H, breakOutLong) AND Ref(intraHigh,-1)  < breakOutLong OR
                H == breakOutLong AND Ref(intrahigh,-1) < breakOutlong OR
            Cross(H, breakOutLong) AND CurBarTime  == TimeOpen OR
                H == breakOutLong AND CurBarTime  == TimeOpen;
 
LongStop = L <= (breakOutLong - StopAmtLong) AND intraHigh >= breakOutLong AND intraHigh < ProfitLong;
FirstLongStop = LongStop AND Ref(LowestSince(Ref(FirstBOL,-1),L),-1) > (BreakOutLong - StopAmtLong) OR
                    LongStop AND Ref(FirstBOL,-1);
 
StgProfitLong = Cross(H, ProfitLong) AND Ref(intraHigh,-1) <= ProfitLong;
FirstProfitLong = IIf(HighestSince(CurBarTime  == TimeOpen, LongStop) < 1, StgProfitLong, 0);
 
FirstBOS = Cross(BreakOutShort, L) AND Ref(intraLow,-1) > breakOutShort OR
                L == breakOutShort AND Ref(intraLow,-1) > breakOutShort OR
            Cross(breakOutShort, L) AND CurBarTime  == TimeOpen OR
                L == breakOutShort AND CurBarTime  == TimeOpen;
 
ShortStop = H >= (BreakOutShort + StopAmtShort) AND intraLow <= breakoutShort AND intraLow > ProfitShort;
FirstShortStop  = ShortStop AND Ref(HighestSince(Ref(FirstBOS,-1),H),-1) < (BreakOutShort + StopAmtShort) OR
                        ShortStop AND Ref(FirstBOS,-1);
 
StgProfitShort = Cross(ProfitShort, L) AND Ref(intraLow,-1) >= ProfitShort;
FirstProfitShort = IIf(HighestSince(CurBarTime  == TimeOpen, ShortStop) < 1, StgProfitShort , 0);
MrktHours = CurBarTime  >= TimeOpen AND CurBarTime  <= TimeClose;
if(expFilter == "ORB")
{
Filter = TimeNum() == TimeOpen;
AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);
 
}
if(expFilter == "STATS")
{
 
Filter = MrktHours  AND
            ( FirstBOS  OR FirstShortStop OR FirstProfitShort OR FirstBOL OR FirstLongStop OR FirstProfitLong  );
AddColumn(IIf( ExpSwingTrend == 9, 85, 
            IIf( ExpSwingTrend == 0, 68, 70 )), "Trend", formatChar );
AddColumn(IIf(PrevC2 > PrevC3, 43, 45), "D3", formatChar);
AddColumn(IIf(PrevC > PrevC2, 43, 45), "D2", formatChar);
AddColumn(IIf(MrktOpen > PrevC, 43, 45), "D1", formatChar);
AddColumn(WS4, "WS4", 1);
AddColumn(WS7, "WS7", 1);
AddColumn(doji, "Doji", 1);
AddColumn(NR4, "NR4", 1);
AddColumn(NR7, "NR7", 1);
 
AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);
 
AddColumn(FirstBOL, "LngEnt", 1);
AddColumn(FirstLongStop, "StpOut", 1);
AddColumn(FirstProfitLong, "Targ", 1);
 
AddColumn(FirstBOS, "ShrtEnt", 1);
AddColumn(FirstShortStop, "StpOut", 1);
AddColumn(FirstProfitShort, "Targ", 1);
}
 
if(expFilter == "OHLC")
{
//When exploration filter is set to OHLC in parameters,
//this will output the O,H,L,C for each day/ticker selected in
//the analysis window.
Filter = CurBarTime == TimeClose ;
AddColumn(DlyOpen, "O", 1.2);
AddColumn(DlyHighest, "H", 1.2);
AddColumn(DlyLowest, "L", 1.2);
AddColumn(DlyClose, "C", 1.2);
 
}
_SECTION_END();
 
_SECTION_BEGIN("Daily Pivots");
//Determine the value of the market close. Initial setting is for
//4:00 PM to match US Market Open. Adjust as need for your market
MrktClose = ValueWhen(CurBarTime  == TimeClose , Close);
Range = DlyHighest - DlyLowest;
PP = (DlyHighest + DlyLowest + MrktClose)/3;
PP = round(PP * 4) / 4;
R1 = (2 * PP) - DlyLowest;
S1 = (2 * PP) - DlyHighest;
R2 = PP + Range;
S2 = PP - Range;
R3 = R2 + Range;
S3 = S2 - Range;
R4 = R3 + Range;
S4 = S3 - Range;
 
TitlePivots = EncodeColor(colorBlack) +"Today's Daily Pivots" +"\n"
                +"R1: " +R1 +"\n" +"PP: " +PP +"\n" +"S1: " +S1 +"\n";
if(PPSR1 == 0)
{
Plot(R1, "Dly R1", colorBlue, styleLine | styleThick | styleNoRescale);
Plot(PP, "Dly Pivot", colorCustom12, styleLine | styleThick | styleNoRescale);
Plot(S1, "Dly S1", colorBlue, styleLine | styleThick | styleNoRescale);
}
if(S2R2 == 0)
{
Plot(R2, "Dly R2", colorBlue, styleLine  | styleNoRescale);
Plot(S2, "Dly S2", colorBlue, styleLine  | styleNoRescale);
}
if(S3R3 == 0)
{
Plot(R3, "Dly R3", colorBlue, styleDashed | styleThick | styleNoRescale);
Plot(S3, "Dly S3", colorBlue, styleDashed | styleThick | styleNoRescale);
}
if(S4R4 == 0)
{
Plot(R4, "Dly R4", colorBlue, styleDashed  | styleNoRescale);
Plot(S4, "Dly S4", colorBlue, styleDashed  | styleNoRescale);
}
 
_SECTION_END();
if(PlotBreak == 0)
{
Plot(MrktOpen, "Daily Open", colorBlack, styleLine | styleNoRescale);
Plot(BreakOutLong , "Break Out Long", colorGreen, styleLine | styleNoRescale);
Plot(BreakOutShort , "Break Out Short", colorRed, styleLine | styleNoRescale);
Plot(ProfitLong, "Long Target", colorGold, styleDots | styleThick | styleNoRescale);
Plot(ProfitShort, "Short Target", colorGold, styleDots | styleThick | styleNoRescale);
PlotOHLC(MrktOpen, breakOutLong, MrktOpen, MrktOpen, "", colorPaleGreen, styleCloud | styleNoRescale | styleNoLabel);
PlotOHLC(MrktOpen, MrktOpen, BreakOutShort , MrktOpen, "", colorRose, styleCloud | styleNoRescale | styleNoLabel);
}
RibbonColor = IIf(MrktHours  , colorGreen, colorRed);
 
Plot( 2, "ribbon",RibbonColor,styleOwnScale|styleArea|styleNoLabel, -1, 100 );
 
_SECTION_BEGIN("Title");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) ", O, H, L, C, 
SelectedValue( ROC( C, 1 ) ) )+"\n" +TitleBreakOuts  +TitlePivots +TitleSwing +TitleSwingTrend +TitleHeader 
+TitleNR4  +TitleNR7 +TitleTwoBarNR +TitleThreeBarNR +TitleWS4 
+TitleWS7 +TitleDoji 
+EncodeColor(colorWhite) +WriteIf(TitleGapDay == "", TitleUPDWN, "") +TitleGapDay   );
_SECTION_END();

21 comments

1. administrator

over 15 years ago

I couldn’t test this formula since i don’t trade intraday but i read in another forum that it works on 1-hour bars

Report as Spam

2. eevra

over 15 years ago

Seems to be excellent.
Shall try & post my responses.
Great Work Tony..
Thanks…

Report as Spam

3. administrator

over 15 years ago

Welcome to the site eevra! I couldn’t test this formula since i don’t trade intraday. But if you test it i would be interested in hearing your thoughts on it.

Report as Spam

4. akxsat

about 15 years ago

hi,

seems good formula.

pls adv how to use it?

thank u

Report as Spam

5. rajaswamy

over 14 years ago

can any one tell me how to use and how to analyze a buy sell where to buy where to sell pls it look like good one but i cant understand how to use this features pls give the explanation for where i have to buy where i have to sell thank you by yours rajaswamy from Chennai

Report as Spam

6. rajaswamy

over 14 years ago

Report as Spam

7. ansal2370

about 14 years ago

hello can u tell me how to use this

Report as Spam

8. rajeshvravanappan

almost 14 years ago

YOu can use this for 5 mins candle only; chage time frame 9:30 to 13:30 for equity; 10;30 to 23:30 for commodity.. YOu will get auto buy / sell levels with sl & Target..

Report as Spam

9. montu999

almost 14 years ago

rajeshvravanppanji where to change the time frame?

Report as Spam

10. rajeshvravanappan

almost 14 years ago

Sorry for delay..

thro Parameters you can change time frame

Report as Spam

11. tradetoday

over 13 years ago

Lets test this from monday. very volatile market.

Report as Spam

12. mithoon

over 13 years ago

TRADE TODAY#how is it going with this indicator

Report as Spam

13. amitpandit4

over 13 years ago

Not able to Find Auto buy sell signal in 5 Minits Candel Chart Please help

Report as Spam

14. charmsenthil

almost 13 years ago

Seems Like good one..But how to intrepret…

Report as Spam

15. manojin1

about 12 years ago

This is good but this is for Forex

Report as Spam

16. azeez77

almost 12 years ago

It looks good
tk

Report as Spam

17. johnny03

almost 12 years ago

//create the title layout for the various levels
TitleBreakOuts = EncodeColor(colorCustom11) +"Today’s Breakout Levels:" +"\n"
+"Long Target: " +ProfitLong + “\n”
-——————————————————————————————-

How can I plot a line on the price shown at “Profit Long”

Please help.

Report as Spam

18. NASSER

about 11 years ago

it is a good indicator

Report as Spam

19. vinayak

about 10 years ago

It is showing 0 values for all the parameters. Time selected open time 9.15 am 3.30 pm close time.

Report as Spam

20. manuski

about 9 years ago

Can any one tell me what is the symbol for Nifty50 future on yahoo finance?
^NSEI is the symbol for spot nifty.
What about current month, next month and far month futures symbols?
Expert guys and gals, please share your knowledge.

Stock Portfolio Organizer

WiseTrader Toolbox

Tony Crabels Intraday Signal Chart for Amibroker (AFL)
sajid
over 15 years ago
Amibroker (AFL)

Similar Indicators / Formulas

Indicator / Formula

21 comments

Leave Comment

Stock Portfolio Organizer

WiseTrader Toolbox

Tony Crabels Intraday Signal Chart for Amibroker (AFL) sajid over 15 years ago Amibroker (AFL)

Similar Indicators / Formulas

Indicator / Formula

21 comments

Leave Comment

Tony Crabels Intraday Signal Chart for Amibroker (AFL)
sajid
over 15 years ago
Amibroker (AFL)