编程思路破译 输出 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 注: 馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。 发文不易,如获益,欢迎赞赏,赞赏必复! |
|