¤Þ¥Î: ³Ìªì¥Ñ tycoon868 µoªí
ZeroAry:=¦hªÅ*0; ³o¬O§Ú¹Á¸Õ°£¿ù¥Îªº¡A¤w¸g§ï¦^¨Ó¤F¡AÁÙ¬O¥X²{¿ù»~
³¡¤Àì½X¶}©l
Bullcon:=(DPS>=0or MBPS>=0)*1+(DP1>=0or MBP1>=0)*1+(¯»³t>=0)*1+(Âųt>=0)*1+(µµ³t>=0)*1,linethick;//«ù¦³1ªº¹LÂo±ø¥ó
Bearcon:=(DPS<0or MBPS<0)*1+(DP1<0or MBP1<0)*1+(¯»³t<0)*1+(Âųt<0)*1+(µµ³t<0)*1,linethick;//Âù¦©Âù³t¥|¤À¬°¥D+µµ³t¸É±j
Bullgo:=°Ê¤O>30or (Between(°Ê¤O,0,30)and (Bullcon)>=4);//30¤À¬°±Ò°Ê±ø¥ó»P°ò¥»±ø¥ó¡A¥[¤JBullcon°~µo±ø¥ó¨Óæíè±Ò°Ê®Éªº¾_Àú¶^¯}30
Beargo:=°Ê¤O<-30or (Between(°Ê¤O,0,-30)and (Bearcon)>=4);//¤@«ß¨ú¥Î¥¿¤À¤ñ¸û¦n²z¸Ñ
Bullstart:=°Ê¤O>=30and ¤T¤ô¥¿>=6and Bullcon>=4and ¯»³t>=0;//¸g¹L¤ñ¹ï±Ä¥ÎCrossªk¸¨®t¤£¤j¡A¦¹ªk¥i¥H¸É¿òº|
Bearstart:=°Ê¤O<-30and ¤T¤ôt>=6and Bearcon>=4and ¯»³t<0;//¤@«ß»Ýn¹F¨ìÂù¦©Âù³t±ø¥ó¡A¹ç¯Ê¤ðÀÝ
BullB:=Bullstart=1; BullBSP:=barslast(BullB);//«ù¦³1ÄY®æ¤Æ¦ÜÃö«n¡A¥þ¤é½L¤T¤ÀK¦³«Ü¦hªi
BullB:=Sum(Bullgo=1 ,BullBSP+1)=BullBSP+1;//¦¹¤@±ø¥ó«ù¦³´Á¦pªGÂk¹s¡A¤]¥i¥H¥ß§Y¸É¤W«·s«ù¦³1
Bullhold:=barslast(BullB=0);//¤£¥i¥HÅý¤½Âû¦b¥b©]¶Ã¥s¤@³q
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Beargo=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
«ù¦³:Bullhold-Bearhold,color009933,precision0,linethick0;//¾ã¬q¾Þ§@¶g´Áªº®É¶¡«ü¼Ð¡A¥þ¨t²Î²Ä¤@®É¶¡¸`«µ«ü¼Ð
BullTPR:=(¯»³t>=0or Âųt>=0or µµ³t>=0)and °Ê¤O>=60;//°Ê¤O60¥H¤W³£ºâ±j¶Õ¡A¤T§¡¶b¥u¬On¹LÂo°ªÀɾ_Àú¤T§¡¦P¨B¦V¤U®æ§½
BearTPR:=(¯»³t<0or Âųt<0or µµ³t<0)and °Ê¤O<=-60;//TPR=³Ì¨Î ¦¬¥ß/·ÀIȪº®É¶¡ÂI
Ü¥¿:=(ÂŤÀ>=0)*1+(¤@Âųt>=0)*1+(µµ¤À>=0)*1+(¤Gµµ³t>=0)*1+(¥d¤À>=0)*1+(¤T¥d³t>=0)*1+(¬õ¤À>=0)*1+(¥|¬õ³t>=0)*1+
(½Å¤À>=0)*1+(¤½Å³t>=0)*1+(¾ï¤À>=0)*1+(¤»¾ï³t>=0)*1-2,linethick,colorff00ff;//¤»¨Ä+¤»¥»¯ß§¡³tºc¦¨12¤Àܦì
Üt:=(ÂŤÀ<0)*-1+(¤@Âųt<0)*-1+(µµ¤À<0)*-1+(¤Gµµ³t<0)*-1+(¥d¤À<0)*-1+(¤T¥d³t<0)*-1+(¬õ¤À<0)*-1+(¥|¬õ³t<0)*-1+
(½Å¤À<0)*-1+(¤½Å³t<0)*-1+(¾ï¤À<0)*-1+(¤»¾ï³t<0)*-1+2,linethick,colorffff00;//ªÅÜÁÙ¬O¥Ht¼Æªí¥Ü¬°¨Î
¦h´î:=(DPS<0)*-1+(DP1<0)*-1+(DP2<0)*-1+(MBPS<0)*-1+(MBP1<0)*-1+(MBP2<0)*-1+//§@¬°´îܪº¤»µu¥|¤¤¦@¤QÓ±ø¥ó
(¯»³t<0)*-1+(¯»®t<0)*-1+(Âųt<0)*-1+(ÂÅ®t<0)*-1,linethick,coloryellow;
ªÅ´î:=(DPS>=0)*1+(DP1>=0)*1+(DP2>=0)*1+(MBPS>=0)*1+(MBP1>=0)*1+(MBP2>=0)*1+//§@¬°´îܪº¤»µu¥|¤¤¦@¤QÓ±ø¥ó
(¯»³t>=0)*1+(¯»®t>=0)*1+(Âųt>=0)*1+(ÂÅ®t>=0)*1,linethick,colorgreen;
¦h´îÜ:=IF(Ü¥¿>0,¦h´î,0),linethick,coloryellow;//º¥ý»Ýn¥ý¦³Ü¡A¤~¯à§@´îÜ
ªÅ´îÜ:=IF(Ü¥¿<0,ªÅ´î,0),linethick,colorgreen;
¦hÜ:=Ü¥¿+¦h´îÜ;//¼WÜ+¦h´îÜ=·í¤U§@¦hܤÀ¡AÜ¥¿¥»¨¤]¦Û±a¼W´îÜ¥\¯à(¤×¨ä¬O¬õ¾ï°Ï)
¦h±`:=IF(«ù¦³>=1and ¦hÜ>0,¦hÜ,0),linethick;//¥¿±`±¡ªp¤UªºÜ¦ì
¦h°ò:=IF(«ù¦³>=1and ¦hÜ<=0,1,0);//±¡ªp¤@«ù¦³1±ø¥ó¤£¦¨¼ô¡A¦Ü¤Ö¥ýµ¹¤@ܧ@¬°ÁZ®Ä°_ÀY(¦¨¥»½u»PÁZ®Ä²Îp»Ýn)
//±¡ªp¤G«ù¦³©|¥¼Âk¹s¤§«e¦Ü¤Ö¯d¤@Ü
ªÅÜ:=Üt+ªÅ´îÜ;
ªÅ±`:=IF(«ù¦³<=-1and ªÅÜ<0,ªÅÜ,0),linethick;//¥¿±`±¡ªp¤UªºÜ¦ì
ªÅ°ò:=IF(«ù¦³<=-1and ªÅÜ>=0,-1,0);//¨Ò¥~±¡ªpªº¸É±j³B²z
¦h¤À:=¦h±`+¦h°ò,linethick;
ªÅ¤À:=ªÅ±`+ªÅ°ò,linethick;
¦hªÅ:=SGN(«ù¦³),linethick; //¥u¬O±N±N«ù¦³´Á ªð¦^ 1§@¦h,0¥ð,-1§@ªÅ
ܤÀ:=¦h¤À*(¦hªÅ=1)+ªÅ¤À*(¦hªÅ=-1),linethick0,coloryellow;//±N¦h¤À¡BªÅ¤Àª½±µÂà¤Æ¦¨¥¿tܦì
¦hµo´Á:=«ù¦³>0and Sum(¯»³t<=0,«ù¦³)=0,linethick;//¦hµo±ø¥ó=¯»³t¤£´¿ÂàtȹL
¦h×´Á:=«ù¦³>0and Sum(¯»³t<=0,«ù¦³)>=1,linethick;//¥un´¿¸g¯»³tÂàt¡A±q¦¹´N¶i¤J´îÜ´Á
ªÅµo´Á:=«ù¦³<0and Sum(¯»³t>=0,«ù¦³)=0,linethick;
ªÅ×´Á:=«ù¦³<0and Sum(¯»³t>=0,«ù¦³)>=1,linethick;
¦h½Ä:=«ù¦³>0and ¦hµo´Á=1,linethick,coloryellow;
¦h½Ä¼Æ:=IF(«ù¦³>0and ¦hµo´Á=1,Barslast(Cross(¦h½Ä,0.1))+1,0),linethick,coloryellow;
¦h×:=«ù¦³>0and ¦h×´Á=1,linethick,colorgreen;
¦h×¼Æ:=IF(«ù¦³>0and ¦h×´Á=1,Barslast(Cross(¦h×,0.1))+1,0),linethick,colorgreen;
¦h½ÄÜ:=IF(¦h½Ä¼Æ>0,HHV(ܤÀ,¦h½Ä¼Æ),0),linethick,colorff00ff;//³B¦b¦hµo´Á®É¥u¼W¤£´î
¦h×Ü:=IF(¦h×¼Æ>0,LLV(ܤÀ,¦h×¼Æ),0),linethick,coloryellow;//³B¦b«D¦hµo´Á¥u´î¤£¼W
ªÅ½Ä:=«ù¦³<0and ªÅµo´Á=1,linethick,coloryellow;
ªÅ½Ä¼Æ:=IF(«ù¦³<0and ªÅµo´Á=1,Barslast(Cross(ªÅ½Ä,0.1))+1,0),linethick,coloryellow;
ªÅ×:=«ù¦³<0and ªÅµo´Á=1,linethick,coloryellow;
ªÅ×¼Æ:=IF(«ù¦³<0and ªÅ×´Á=1,Barslast(Cross(ªÅ×,0.1))+1,0),linethick,colorgreen;
ªÅ½ÄÜ:=IF(ªÅ½Ä¼Æ>0,LLV(ܤÀ,ªÅ½Ä¼Æ),0),linethick,colorff00ff;
ªÅ×Ü:=IF(ªÅ×¼Æ>0,HHV(ܤÀ,ªÅ×¼Æ),0),linethick,coloryellow;
ܦì:¦h½ÄÜ+¦h×Ü+ªÅ½ÄÜ+ªÅ×Ü,linethick0,color33cc00;//±N¦h¤À¡BªÅ¤Àª½±µÂà¤Æ¦¨¥¿tܦì
³¡¤Àì½Xµ²§ô
³ø§iÁ`ª©¥D
§Ú«OÃÒ§ÚªºÜ¦ì¼Æ¾Ú«D±`¥¿±`¡A³£¦³¦p§Ú©ÒÄ@¶]¥X -10~+10
¥i§_¨ãÅé¤@ÂIÁ|¥X§Úªº¿ù»~©O?
§Ú¹ê¦b¬O¤£·|°j°é¼gªk°Ú¡A³o¤@¾ã²Õ°j°éì½X³£¬O ª©¥Dµ¹§Úªº§Úª½±µªu¥Î(¥¦´¿¸g¹B§@¦¨¥\°Ú?)
«ô°Uª½±µÀ°§Úקï
¦ôp "ܦì" ¼Æ¦Cªº°_ÂI¡A¤£µ¥©ó "¦hªÅ" ¼Æ¦Cªº°_ÂI¡A¬G·|¤Þ°_¶V¬É°ÝÃD
½Ð¦b for i=StPos to datacount do begin ³o¦æªº«e±¡A¥[¤W¤U±³o¤@¦æ¸Õ¸Õ
ܦì:=if(barpos<=lbound(ܦì),ZeroAry,ܦì);
¥t¥~ ZeroAry:=¦hªÅ*1;
À³¸Ó¬O ZeroAry:=¦hªÅ*0; ¤~¹ï§a!!!
|