DALEõ! MODIFIED PRICE-VOLUME TREND INDICATOR ! ON BALANCE VOLUME INDICATOR ! PRICE-VOLUME TREND INDICATOR ! Author: David G. Hawkins, TASC April 2010 ! Coded by: Richard Denning 2/7/10 ! www.tradersEdgeSystems.com ! Add OBV, PVT, MPVT as three separate single line ! indicators to charts ! To speed up the calculation of the indicators, set the ! startMo, startDa, startYr to the smallest value ! that is needed for the application - currently it is ! set to about two years back from 3/1/2010 !-----------INPUTS--------------- obvLevel is 50. obvScale is 1. pvtLevel is 30. pvtScale is 100. mpvtLevel is 260. mpvtScale is 100. startMo is 03. startDa is 01. startYr is 2008. !------------------------------------- C is [close]. C1 is val([close],1). O is [open]. H is [high]. L is [low]. start is offSetToDate(startMo,startDa,startYr). sDate is makeDate(startMo,startDa,startYr). !ON BALANCE VOLUME (OBV) INDICATOR HD is hasdatafor(start). DaySum is HD. F is iff(C > C1,1,iff(C < C1,-1,0)). VolSum1 is Sum([volume] / 50000 * F, DaySum). VolSum2 is obvLevel + obvScale * VolSum1. OBV is iff(sDate >= ReportDate(),obvLevel,VolSum2). !PLOT !PRICE VOLUME TREND INDICATOR F2 is C / C1 - 1. VolSum3 is Sum([volume] / 50000 * F2, DaySum). VolSum4 is pvtLevel + pvtScale * VolSum3. PVT is iff(sDate >= Reportdate(),pvtLevel,VolSum4). !PLOT !PRICE VOLUME TREND & TYP PRICE TP is (O + H + L +C) / 4. F3 is TP / valresult(TP,1) - 1. VolSum5 is sum([volume] / 50000 * F3, DaySum) . VolSum6 is mpvtLevel + mpvtScale*VolSum5. MPVT is iff(sDate >= Reportdate(),mpvtLevel,VolSum6). !PLOT List if C > 0.  Rule Libraryÿÿ CCodeViewListÿÿ CReportViewÐSymbolÀ<¡OBVÀO¡PVTÀO¡MPVTÀO¡CÀO$AAPLK®6Cp½:C¼Œ=C\O=CADBEZÄ’Bf;B0™fCázBADPýl]B§q*B‚ÈsCÂ!BADSKQ¤LB¥É`BŶxC ×ÉAAKAM ™™A£‡Ã ٱš™³AALTRFMŸBF–@C·–ÁC)\ŸAAMAT<¶B/ÂhË¡BÍÌDAAMGN_ÌMBH,¶C?À DR¸QBAMZNÔ¥B®QFDð4YD®íBAPOL9k²AËÖú¾B¤peBATVIâ.BvÈCU·vC…ë%ABBBY³ì/B¥žC‚(åC\BBIDUÿ‚XBõIñB—Cš¹»CBIIBy1Bn/Ã4çB)\*BBRCM¾Ä™B0ŠƒC ¹ÅC= ÓACAÒÂBhkBgwhCHá¦ACELGªjB—ïA´°,C ×HBCEPHrKABêW¯AJmwCÃõXBCHKPRÔnB<÷“BP’CÃõøACHRWZYMBeé+Bn·€CR¸]BCMCSA^µÂäZþ€U<Àö(hACOST“pÁA2;Âìž/CgBCSCO‡SB µ‹CÅ™ƒC¸ACTASM=RB&äAzCàACTSHÔÔ…B,³C-§‘C33BCTXSŠTlBcœ“BÈ:‹C)\BDELLзkÁ-ÙÒÃ"\wÃ= gADISH TBQ°ÔA&dCffŒADTVbïAðA#ßFCffÔAEBAYv}B`#ªBèZC…³AERTSU°A ¶ Ã@U,Á{AESRX¶„BÈò¶Bìs–Cfæ¥BEXPDEDBž4BØúmCÂBEXPEÏ%SBh–øBcÙ¡C\¸AFASTr¸1BÛ“AQÎrC= BFISV”’[BYÅ BÞCš™6Binas100ÿÿÿÿ00:00