通达信MACD周月线金叉死叉未加密选股指标公式源码

通达信MACD周月线金叉死叉未加密选股指标公式源码

源码正文：

dif:=(ema(CLOSE,12)-Ema(CLOSE,26))*100,COLOR0000FF,LINETHICK2;
DEA:=EMA(DIF,9),COLORFFFFFF,LINETHICK2{XG51};
macd:=(DIF-DEA)*2,COLORstICK;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DIFW:="MacD.DIF#WEEK"{XG51};
DEAW:="MACD.DEA#WEEK";
FCA:=FILTER(crOSS(DIFW,DEAW),0);
SCA:=FILTER(CROSS(DEAW,DIFW),0);
M周金叉:IF(CROSS("MACD.DIF#WEEK","MACD.DEA#WEEK"),50,0),COLOR0000FF,LINETHICK2{XG51};
DIFM:="MACD.DIF#MONTH"; DEAM:="MACD.DEA#MONTH"{XG51};
FCB:=FILTER(CROSS(DIFM,DEAM),0);
SCB:=FILTER(CROSS(DEAM,DIFM),0);
M月金叉:IF(CROSS("MACD.DIF#MONTH","MACD.DEA#MONTH"),60,0),COLOR00FFFF,LINETHICK2;
M周死叉:IF(CROSS("MACD.DEA#WEEK","MACD.DIF#WEEK"),-50,0),COLOR0000FF,LINETHICK2{XG51};
M月死叉:IF(CROSS("MACD.DEA#MONTH","MACD.DIF#MONTH"),-60,0),COLOR00FFFF,LINETHICK2{X^G~5-1^C^N^{};

通达信持仓与盈亏主图未加密选股指标公式源码

源码正文：

股1成本:= 14.220;股1数量:=10000;股1现价:="000001$C";股1:='000001'{XG51};
股2成本:= 3.885;股2数量:= 2500;股2现价:="600509$C";股2:='600509'{XG51};
股3成本:= 9.95; 股3数量:= 2500;股3现价:="600802$C";股3:='600802'{XG51};
股4成本:= 6.125;股4数量:= 5000;股4现价:="601899$C";股4:='601899'{XG51};
股1盈亏:=CONst((股1现价-股1成本)*股1数量){XG51};
股2盈亏:=CONST((股2现价-股2成本)*股2数量){XG51};
股3盈亏:=CONST((股3现价-股3成本)*股3数量){XG51};
股4盈亏:=CONST((股4现价-股4成本)*股4数量){XG51};
盈亏:=IF(CODELIKE(股1),股1盈亏,IF(CODELIKE(股2),股2盈亏,IF(CODELIKE(股3),股3盈亏,
IF(CODELIKE(股4),股4盈亏,DRAWNULL)))){XG51};
持股价:=IF(CODELIKE(股1),股1成本,IF(CODELIKE(股2),股2成本,IF(CODELIKE(股3),股3成本,
IF(CODELIKE(股4),股3成本,DRAWNULL)))){XG51};
买股量:=IF(CODELIKE(股1),股1数量,IF(CODELIKE(股2),股2数量,IF(CODELIKE(股3),股3数量,
IF(CODELIKE(股4),股4数量,DRAWNULL)))){XG51};
STICKLINE(CONST(持股价)>1 AND CURRBARSCOUNT<13,CONST(持股价),CONST(持股价),2,0),
LINETHICK2,COLORBLUE{XG51};
STICKLINE(CURRBARSCOUNT>12 AND CURRBARSCOUNT<40 AND CONST(持股价)>1 ,持股价+
持股价*0.013,持股价-持股价*0.01,6,0),COLOR390898{XG51};
DRAWTEXT(CONST(持股价)>1 AND CURRBARSCOUNT=39,CONST(持股价),STRCAT(STRCAT(STRCAT
(CON2STR(持股价,2),'元 持'),CON2STR(买股量,0)),' 股')),COLORRED{XG51};
DRAWTEXT(CONST(持股价)>1 AND CURRBARSCOUNT=25,CONST(持股价),STRCAT(STRCAT(STRCAT
('',' 盈亏'),CON2STR(盈亏,1)),' 元')){X~G-5^1~C~N~{};