咨詢內容：

文華改博易指標

1.
?
H1:=MAX(REF(C,DAYBARPOS),H);
L1:=MIN(REF(C,DAYBARPOS),L);
P1:=H1-L1;
阻力:=L1+P1*7/8,COLORGREEN;
支撐:=L1+P1*0.5/8,COLORRED;
中線:=(支撐+阻力)/2,COLORWHITE,POINTDOT;
V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趨勢線:EMA(V11,3),LINETHICK2,COLORYELLOW;
V12:=(趨勢線-REF(趨勢線,1))/REF(趨勢線,1)*100;
//STICKLINE1(趨勢線<11,趨勢線,11,5,0),COLORYELLOW;
AA:=(趨勢線<11) AND FILTER((趨勢線<=11),15) AND C<中線;
BB0:=REF(趨勢線,1)<11 AND CROSS(趨勢線,11) AND C<中線;
BB1:=REF(趨勢線,1)<11 AND REF(趨勢線,1)>6 AND CROSS(趨勢線,11);
BB2:=REF(趨勢線,1)<6 AND REF(趨勢線,1)>3 AND CROSS(趨勢線,6);
BB3:=REF(趨勢線,1)<3 AND REF(趨勢線,1)>1 AND CROSS(趨勢線,3);
BB4:=REF(趨勢線,1)<1 AND REF(趨勢線,1)>0 AND CROSS(趨勢線,1);
BB5:=REF(趨勢線,1)<0 AND CROSS(趨勢線,0);
BB:=BB1=1 OR BB2=1 OR BB3=1 OR BB4=1 OR BB5=1;
//STICKLINE1(BB=1 AND C<中線,11,50,3,0),COLORRED;
DRAWTEXT(AA,16,'準備買入');
//STICKLINE1(趨勢線>89,趨勢線,89,5,0),COLORWHITE;
CC:=(趨勢線>89) AND FILTER((趨勢線>89),15) AND C>中線;
DD0:=REF(趨勢線,1)>89 AND CROSS(89,趨勢線) AND C>中線;
DD1:=REF(趨勢線,1)>89 AND REF(趨勢線,1)<94 AND CROSS(89,趨勢線);
DD2:=REF(趨勢線,1)>94 AND REF(趨勢線,1)<97 AND CROSS(94,趨勢線);
DD3:=REF(趨勢線,1)>97 AND REF(趨勢線,1)>99 AND CROSS(97,趨勢線);
DD4:=REF(趨勢線,1)>99 AND REF(趨勢線,1)<100 AND CROSS(99,趨勢線);
DD5:=REF(趨勢線,1)>100 AND CROSS(100,趨勢線);
DD:=DD1=1 OR DD2=1 OR DD3=1 OR DD4=1 OR DD5=1;
//STICKLINE1(DD=1 AND C>中線,89,50,3,0),COLORGREEN;
DRAWTEXT (CC,84,'準備賣出');
頂:89,COLORGREEN;
底:11,COLORRED;

DRAWTEXT(ISLASTBAR,頂,'***'),COLORGREEN;
DRAWTEXT(ISLASTBAR,底,'***'),COLORRED;

IF(趨勢線>頂||趨勢線<底,趨勢線,NULL),COLORBLUE,LINETHICK5;
?
2.
VAR1:=1;
VAR2:=1/WINNER(CLOSE);
VAR3:=MA(CLOSE,13);
VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100);
VAR5:=LLV(LOW,75);
VAR6:=HHV(HIGH,75);
VAR7:=(VAR6-VAR5)/100;
VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1);
VAR9:=SMA((OPEN-VAR5)/VAR7,20,1);
VARA:=3*VAR8-2*SMA(VAR8,15,1);
VARB:=3*VAR9-2*SMA(VAR9,15,1);
VARC:=100-VARB;
主力: (100-VARA)*VAR1,COLOR0099FF,LINETHICK2;
?
IF(主力>REF(主力,1),主力,NULL),COLORGREEN,LINETHICK3;
IF(主力<REF(主力,1),主力,NULL),COLORRED,LINETHICK3;



{股旁網-股票公式網站 WWW.GUPANG.COM}
散戶: MA(WINNER(CLOSE*0.95)*100,3)*VAR1,COLOR0000FF;
新莊: (100-IF(VAR2>5,IF(VAR2<100,VAR2,VAR4-10),0))*VAR1,COLORGREEN,LINETHICK1,POINTDOT ;
VARD:=散戶>VAR4;
VARE:=REF(LOW,1)*0.9;
VARF:=LOW*0.9;
CAPITAL:=GETPRICE1('流通股本');
VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;
VAR11:=EMA(VAR10,30);
VAR12:=CLOSE-REF(CLOSE,1);
VAR13:=MAX(VAR12,0);
VAR14:=ABS(VAR12);
VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100;
VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100;
VAR17:=BARSCOUNT(CLOSE);
VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100;
VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1);
INDEXC:="999001$C";
INDEXL:="999001$L";
INDEXH:="999001$H";
VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
VAR1D:=SMA(VAR1C,4,1);
VAR1E:=SMA(VAR1D,3,1);
VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50;
STICKLINE(VARD,VAR4,散戶,5,0),COLORWHITE;
STICKLINE(1,新莊,100,1,0),COLORGREEN;
STICKLINE(VAR20,0,80,5,0),COLORRED,LINETHICK3 ;
100,COLORGREEN ,LINETHICK2 ;
0,COLORYELLOW ,LINETHICK2 ;
中線: 15,COLORBLUE ,LINETHICK2 ;
?3.
VAR1:=1;
VAR55:=LLV(LOW,8);
VAR66:=HHV(HIGH,8);
VAR77:=(VAR66-VAR55)/10;
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);
VARA:=3*VAR88-2*SMA(VAR88,15,1);
散戶籌碼集中度: =(10-VARA)*VAR1*6,COLORGREEN,LINETHICK2;
機構籌碼集中度:EMA(WINNER(C)*70,3),LINETHICK2,COLORRED;
主力籌碼: 10*WINNER(CLOSE*0.9)*8, COLORCYAN;
十天主力籌碼:=EMA(主力籌碼,10),LINETHICK2,COLORYELLOW;
VAR100:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10);
增減力度:VAR100*6,COLORMAGENTA,LINETHICK2;

0,COLORYELLOW ;
X4:=EMA(C,6);
斜率6:=(X4-REF(X4,1))/REF(X4,1)*100,LINETHICK1;
X5:=EMA(C,12);
斜率12:(X5-REF(X5,1))/REF(X5,1)*100,LINETHICK2,COLORRED;
X6:=EMA(C,18);
斜率18:=(X6-REF(X6,1))/REF(X6,1)*100,LINETHICK2;

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： ？？？？？？？？？？沒人回答嗎？ 無法修改 來源 程序化久久網