機構佔比分時機構版通達信指標公式源碼

07-05

成交額:=V*C/100,NODRAW;{萬元}A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);A4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);A5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);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,COLORFFFF55;機構進出:=機構買-機構賣,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),COLORFF00FF;DRAWTEXT(ISLASTBAR=1,機構買*0.95,"●機構買"),LINETHICK2,COLORRED;DRAWTEXT(ISLASTBAR=1,機構賣*0.95,"○機構賣"),LINETHICK2,COLORFFFF55;DRAWTEXT(機構進出>0 AND REF(機構進出,1)<=0,機構買*1.02,"●機買"),COLORRED;DRAWTEXT(機構進出<0 AND REF(機構進出,1)>=0,機構買*0.98,"○機賣"),COLORFFFF55;DD1:=1;AAA1:=STRCAT(STRCAT("機構買",CON2STR((100*A2)/A6,0)),"%%");AAA2:=STRCAT(STRCAT("機構賣",CON2STR((100*A3)/A6,0)),"%%");AAA3:=STRCAT(STRCAT("散戶買",CON2STR((100*A4)/A6,0)),"%%");AAA4:=STRCAT(STRCAT("散戶賣",CON2STR((100*A5)/A6,0)),"%%");DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLORFFFF55;DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR5555FF;DRAWTEXT_FIX(DD1=1,0,0.35,0,AAA4),COLOR55FF55;