 | |  |  |
{★股海观潮★}
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
M3:=MA(OBV,3);
KLINE(REF(OBV,1),MAX(M3,OBV),MIN(M3,OBV),OBV,0);
MAV1:SMA(TMA(OBV,0.618,0.382),3,1),ColorFFFFFF,linethick1;
MAV2:MA(MAV1,8),ColorFFFF00,linethick1;
MAV3:MA(MAV2,8),ColorFF00FF,linethick1;
MAV4:MA(MAV3,8),Color00FFFF,linethick1;
kh:=max(MAV4,max(MAV1,max(MAV2,MAV3)))=MAV4;
kl:=min(MAV4,min(MAV1,min(MAV2,MAV3)))=MAV1;
partline(OBV>MA(OBV,5)ANDREF(OBV<MAV1,1)andkhandkl,OBV),CIRCLEDOT,COLORFF99DD,linethick5;
partline(OBV>MA(OBV,5)ANDREF(OBV<MAV1,1)andkhandkl,OBV),CROSSDOT,COLORFFFFFF,linethick3;
STICKLINE(REF(REF(OBV,1)<OBVANDMIN(M3,OBV)<REF(OBV,1),1)ANDREF(OBV,1)>OBV,REF(OBV,1),OBV,7.5,0),COLOR00FFFF;
STICKLINE(REF(REF(OBV,1)>OBVANDMAX(M3,OBV)>REF(OBV,1),1)ANDREF(OBV,1)<OBV,REF(OBV,1),OBV,3,0),COLOR00FF00;
STICKLINE(REF(REF(OBV,1)>OBVANDMAX(M3,OBV)>REF(OBV,1),1)ANDREF(OBV,1)<OBVANDREF(OBV,1)<MAV2,REF(OBV,1),OBV,7.5,0),COLOR00FF00;
通达信的----------
{★股海观潮★}
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL)/1000000;
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),NODRAW;
M3:=MA(OBV,3);
STICKLINE(REF(OBV,1)>OBV,MAX(M3,OBV),MIN(M3,OBV),0,0),COLORDDDD05;
STICKLINE(REF(OBV,1)<OBV,MAX(M3,OBV),MIN(M3,OBV),0,0),COLOR0505BB;
STICKLINE(REF(OBV,1)>OBV,REF(OBV,1),OBV,3,0),COLORDDDD05;
STICKLINE(REF(OBV,1)<OBV,REF(OBV,1),OBV,3,1),COLOR0505BB;
MAV1:SMA(EMA(OBV,3),3,1),COLORFFFFFF,LINETHICK1;
MAV2:MA(MAV1,8),COLORFFFF00,LINETHICK1;
MAV3:MA(MAV2,8),COLORFF00FF,LINETHICK1;
MAV4:MA(MAV3,8),COLOR00FFFF,LINETHICK1;
KH:=MAX(MAV4,MAX(MAV1,MAX(MAV2,MAV3)))=MAV4;
KL:=MIN(MAV4,MIN(MAV1,MIN(MAV2,MAV3)))=MAV1;
IF(OBV>MA(OBV,5)ANDREF(OBV<MAV1,1)ANDKHANDKL,OBV,DRAWNULL),CIRCLEDOT,COLORFF99DD,LINETHICK5;
IF(OBV>MA(OBV,5)ANDREF(OBV<MAV1,1)ANDKHANDKL,OBV,DRAWNULL),CROSSDOT,COLORFFFFFF,LINETHICK3;
STICKLINE(REF(REF(OBV,1)<OBVANDMIN(M3,OBV)<REF(OBV,1),1)ANDREF(OBV,1)>OBV,REF(OBV,1),OBV,3.5,0),COLOR00FFFF;
STICKLINE(REF(REF(OBV,1)>OBVANDMAX(M3,OBV)>REF(OBV,1),1)ANDREF(OBV,1)<OBV,REF(OBV,1),OBV,1,0),COLOR00FF00;
STICKLINE(REF(REF(OBV,1)>OBVANDMAX(M3,OBV)>REF(OBV,1),1)ANDREF(OBV,1)<OBVANDREF(OBV,1)<MAV2,REF(OBV,1),OBV,3.5,0),COLOR00FF00;
| |  | |  |
|
