編程思路破譯
輸出 CBW60:(獲利盤為80%的成本分布-獲利盤為20%的成本分布)/獲利盤為20%的成本分布*100,畫白色
JW60賦值:(收盤價-獲利盤為20%的成本分布)/(獲利盤為80%的成本分布-獲利盤為20%的成本分布)*100
NOTEXT60上賦值:如果CBW60>1日前的CBW60ANDJW60>80,返回CBW60,否則返回無效數,COLORFF80FF,POINTDOT,線寬為6
輸出 NOTEXT60下:如果CBW60>1日前的CBW60ANDJW60<5,返回CBW60,否則返回無效數,畫淡藍色,POINTDOT,線寬為6
輸出 CBW70:(獲利盤為85%的成本分布-獲利盤為15%的成本分布)/獲利盤為15%的成本分布*100,畫白色
JW70賦值:(收盤價-獲利盤為15%的成本分布)/(獲利盤為85%的成本分布-獲利盤為15%的成本分布)*100
輸出 NOTEXT70上:如果CBW70>1日前的CBW70ANDJW70>80,返回CBW70,否則返回無效數,COLORFF80FF,POINTDOT,線寬為6
輸出 NOTEXT70下:如果CBW70>1日前的CBW70ANDJW70<5,返回CBW70,否則返回無效數,畫淡藍色,POINTDOT,線寬為6
輸出 CBW90:(獲利盤為95%的成本分布-獲利盤為5%的成本分布)/獲利盤為5%的成本分布*100,畫白色
JW90賦值:(收盤價-獲利盤為5%的成本分布)/(獲利盤為95%的成本分布-獲利盤為5%的成本分布)*100
輸出 NOTEXT90上:如果CBW90>1日前的CBW90ANDJW90>80,返回CBW90,否則返回無效數,COLORFF80FF,POINTDOT,線寬為6
輸出 NOTEXT90下:如果CBW90>1日前的CBW90ANDJW90<5,返回CBW90,否則返回無效數,畫淡藍色,POINTDOT,線寬為6
CB96比賦值:CBW90/CBW60-1,NODRAW
S賦值:CBW60>1日前的CBW60ANDJW60>80ANDCBW70>1日前的CBW70ANDJW70>80ANDCBW90>1日前的CBW90ANDJW90>80
X賦值:CBW60>1日前的CBW60ANDJW60<5ANDCBW70>1日前的CBW70ANDJW70<5ANDCBW90>1日前的CBW90ANDJW90<5
輸出 NOTEXT上1:如果S,返回CBW60,否則返回無效數,畫紅色,POINTDOT,線寬為6
輸出 NOTEXT上2:如果S,返回CBW70,否則返回無效數,畫紅色,POINTDOT,線寬為6
輸出 NOTEXT上3:如果S,返回CBW90,否則返回無效數,畫紅色,POINTDOT,線寬為6
輸出 NOTEXT下1:如果X,返回CBW60,否則返回無效數,畫綠色,POINTDOT,線寬為6
輸出 NOTEXT下2:如果X,返回CBW70,否則返回無效數,畫綠色,POINTDOT,線寬為6
輸出 NOTEXT下3:如果X,返回CBW90,否則返回無效數,畫綠色,POINTDOT,線寬為6
CHOUMA賦值:(收盤價/獲利盤為50%的成本分布-1)*100
如果CHOUMA>0ANDCHOUMA>1日前的CHOUMA,返回CHOUMA,否則返回0畫紅色
如果CHOUMA<=0ANDCHOUMA<=1日前的CHOUMA,返回CHOUMA,否則返回0畫綠色
程序源碼
CBW60:(COST(80)-COST(20))/COST(20)*100,COLORWHITE;
JW60:=(C-COST(20))/(COST(80)-COST(20))*100;
NOTEXT60上:=IF(CBW60>REF(CBW60,1)ANDJW60>80,CBW60,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT60下:IF(CBW60>REF(CBW60,1)ANDJW60<5,CBW60,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;
CBW70:(COST(85)-COST(15))/COST(15)*100,COLORWHITE;
JW70:=(C-COST(15))/(COST(85)-COST(15))*100;
NOTEXT70上:IF(CBW70>REF(CBW70,1)ANDJW70>80,CBW70,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT70下:IF(CBW70>REF(CBW70,1)ANDJW70<5,CBW70,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;
CBW90:(COST(95)-COST(5))/COST(5)*100,COLORWHITE;
JW90:=(C-COST(5))/(COST(95)-COST(5))*100;
NOTEXT90上:IF(CBW90>REF(CBW90,1)ANDJW90>80,CBW90,DRAWNULL),COLORFF80FF,POINTDOT,LINETHICK6;
NOTEXT90下:IF(CBW90>REF(CBW90,1)ANDJW90<5,CBW90,DRAWNULL),COLORLIBLUE,POINTDOT,LINETHICK6;
CB96比:=CBW90/CBW60-1,NODRAW;
S:=CBW60>REF(CBW60,1)ANDJW60>80ANDCBW70>REF(CBW70,1)ANDJW70>80ANDCBW90>REF(CBW90,1)ANDJW90>80;
X:=CBW60>REF(CBW60,1)ANDJW60<5ANDCBW70>REF(CBW70,1)ANDJW70<5ANDCBW90>REF(CBW90,1)ANDJW90<5;
NOTEXT上1:IF(S,CBW60,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
NOTEXT上2:IF(S,CBW70,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
NOTEXT上3:IF(S,CBW90,DRAWNULL),COLORRED,POINTDOT,LINETHICK6;
NOTEXT下1:IF(X,CBW60,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;
NOTEXT下2:IF(X,CBW70,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;
NOTEXT下3:IF(X,CBW90,DRAWNULL),COLORGREEN,POINTDOT,LINETHICK6;
CHOUMA:=(CLOSE/COST(50)-1)*100;
IF(CHOUMA>0ANDCHOUMA>REF(CHOUMA,1),CHOUMA,0)COLORRED;
IF(CHOUMA<=0ANDCHOUMA<=REF(CHOUMA,1),CHOUMA,0)COLORGREEN;
該公式包含未來函數:COST
注：
館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。
發文不易，如獲益，歡迎贊賞，贊賞必復！
