|
以下是通達信最牛分時圖（分時主圖 副圖源碼貼圖）（無源碼的請下載附件導入） 通達信最牛分時圖（分時主圖 副圖源碼貼圖） A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE
成交額:=V*C/100,NODRAW;
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<>
A4:=SUM((IF(((成交額/8<20) and="" (close="">(REF(CLOSE,1)))),成交額,0)),0);
A5:=SUM((IF(((成交額/8<20) and=""><>
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);
機構買:(A2),LINETHICK6,COLORRED;
機構賣:(A3),LINETHICK6,COLORGREEN;
機構進出:機構買-機構賣,NODRAW;
散戶買:(A4),COLOR5555FF;
散戶賣:(A5),COLOR55FF55;
強勢:((100*A2)/A6>50);
STICKLINE(強勢,機構買*1.02,機構買*1.1,1,0),COLORYELLOW;
拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,機構買*1.1,機構買*1.2,1,0),COLORRED;
DRAWTEXT(ISLASTBAR=1,機構買*0.95,''),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR=1,機構賣*0.95,''),LINETHICK2,COLORFFFF55; DD1:=1;
AAA1:=STRCAT(STRCAT('機構買入',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('機構賣出',CON2STR((100*A3)/A6,0)),'%');
AAA0:=STRCAT(STRCAT('機構總買入',CON2STR((100*(A2-A3))/A6,0)),'%');
AAA3:=STRCAT(STRCAT('散戶買入',CON2STR((100*A4)/A6,0)),'%');
AAA4:=STRCAT(STRCAT('散戶賣出',CON2STR((100*A5)/A6,0)),'%');
AAA5:=STRCAT(STRCAT('散戶總買入',CON2STR((100*(A4-A5))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.001,0.05,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0.001,0.15,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.001,0.25,0,AAA3),COLORRED;
DRAWTEXT_FIX(DD1=1,0.001,0.35,0,AAA4),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.001,0.45,0,AAA0),LINETHICK5,COLORCYAN;
DRAWTEXT_FIX(DD1=1,0.001,0.55,0,AAA5),LINETHICK5,COLORCYAN;
|
