编写要求：
股票网解答：
网友求助：
请将原来dzh的 起飞点 改成同花顺的 谢谢！
原码：
VAR1P:=(CLOSE-LLV(LOW,55.144))/(HHV(HIGH,55.144)-LLV(LOW,55.))*80;
VAR2P:=SMA(VAR1P,7,1);
VAR3P:=SMA(VAR2P,5,1);
起飞点:IF(CROSS(VAR2P,VAR3P) AND VAR2P<20,85,0.),stick,COLOR00FF7F,linethick2;
DRAWTEXT(CROSS(VAR2P,VAR3P) AND VAR2P<20,75,'起飞点'),COLORFFFF00;
DRAWTEXT(CROSS(VAR2P,VAR3P) AND VAR2P<20,120,'★'),COLORRE
解答如下：
N:=14;
TYP := (IF(ISNULL(HIGH),CLOSE,HIGH) + IF(ISNULL(LOW),CLOSE,LOW) + CLOSE)/3;
CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),LINESTICK,colorred,LINETHICK2;
STICKLINE(CROSS(200,CCI) AND CCI<REF(CCI,1),0,CCI,8,0),colorgreen;
DRAWTEXT(CROSS(200,CCI) AND CCI<REF(CCI,1),H*1.02,'跑'),colorgreen;
TYP := (IF(ISNULL(HIGH),CLOSE,HIGH) + IF(ISNULL(LOW),CLOSE,LOW) + CLOSE)/3;
CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),LINESTICK,colorred,LINETHICK2;
STICKLINE(CROSS(200,CCI) AND CCI<REF(CCI,1),0,CCI,8,0),colorgreen;
DRAWTEXT(CROSS(200,CCI) AND CCI<REF(CCI,1),H*1.02,'跑'),colorgreen;
- 0
- 顶一下