通达信山峰心理线副图+选股源码

来函数检测结果如下：
该公式没有未来函数

N:=5;

M:=3;

PSY:COUNT(CLOSE>REF(CLOSE,1),N)/N*100,LINETHICK1;

PSYMA:=MA(PSY,M),LINETHICK2;

LC:=REF(CLOSE,1);

RSI1:(SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100),LINETHICK2,COLOR0099FF;

RSI2:(SMA(MAX(CLOSE-LC,0),21,1)/SMA(ABS(CLOSE-LC),21,1)*100),LINETHICK2,COLORGREEN;

A1:=RSI2=REF(RSI2,1) AND RSI1< RSI2 AND RSI1< 20;

A2:=RSI2=REF(RSI2,1) AND RSI1=REF(RSI1,1) AND RSI1>10 AND RSI1< 40;

出击:IF(A1 OR A2, 50,25),COLORRED;

VARR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

VARR2:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;

VARR3:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;

VARR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;

VARR5:=(VARR2+2*VARR3+3*VARR4)/6;

VARR6:=MA(VARR5,3);

导弹:IF(VARR6<=-10,80,25),COLORYELLOW;

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

顶部雷达:IF(CROSS(80,RSI),75,85)LINETHICK1,COLORYELLOW;

VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;

VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;

VARD:=BARSCOUNT(CLOSE);

底部雷达:IF((VARB< 20 AND VARC< 25 AND VARD> 50),55,25),LINETHICK2, COLORFF9933;

主力:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2),LINETHICK2 ,COLORRED;

散户:=EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7),LINETHICK2 ,COLORWHITE;

上涨:IF(CROSS(主力,散户) AND 主力< -10,25,15),LINETHICK2,COLORMAGENTA;

DRAWICON(CROSS(主力,散户) AND 主力< -10 AND 散户>REF(散户,1)OR CROSS(主力,散户) AND 散户< -35 ,15,1);

DRAWTEXT(CROSS(18,RSI)AND 散户< -20 AND 底部雷达,25,'底 '),LINETHICK1,COLORYELLOW;

原理解析：
N赋值:5
M赋值:3
输出PSY:COUNT(收盘价>1日前的收盘价,N)/N*100,LINETHICK1
PSYMA:=PSY的M日简单移动平均,LINETHICK2
LC赋值:1日前的收盘价
输出RSI1:(SMA(收盘价-LC和0较大值,7,1)/SMA(收盘价-LC的绝对值,7,1)*100),LINETHICK2,COLOR0099FF
输出RSI2:(SMA(收盘价-LC和0较大值,21,1)/SMA(收盘价-LC的绝对值,21,1)*100),LINETHICK2,COLORGREEN
A1赋值:RSI2=1日前的RSI2 AND RSI1< RSI2 AND RSI1< 20
A2赋值:RSI2=1日前的RSI2 AND RSI1=1日前的RSI1 AND RSI1>10 AND RSI1< 40
如果A1 OR A2返回 50否则返回25
VARR1赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100
VARR2赋值:(收盘价-收盘价的6日简单移动平均)/收盘价的6日简单移动平均*100
VARR3赋值:(收盘价-收盘价的12日简单移动平均)/收盘价的12日简单移动平均*100
VARR4赋值:(收盘价-收盘价的24日简单移动平均)/收盘价的24日简单移动平均*100
VARR5赋值:(VARR2+2*VARR3+3*VARR4)/6
VARR6赋值:VARR5的3日简单移动平均
如果VARR6<=-10返回80否则返回25
RSI赋值:SMA(收盘价-LC和0较大值,6,1)/SMA(收盘价-LC的绝对值,6,1)*100
输出顶部雷达:IF(80上穿RSI,75,85)LINETHICK1,画黄色
VARB赋值:SMA(收盘价-LC和0较大值,7,1)/SMA(收盘价-LC的绝对值,7,1)*100
VARC赋值:SMA(收盘价-LC和0较大值,13,1)/SMA(收盘价-LC的绝对值,13,1)*100
VARD赋值:收盘价的有效数据周期数
输出底部雷达:IF((VARB< 20 AND VARC< 25 AND VARD> 50),55,25),LINETHICK2, COLORFF9933
主力赋值:EMA( (收盘价-MA(收盘价,7))/MA(收盘价,7)*480,2),LINETHICK2 ,画红色
散户赋值:EMA( (收盘价-MA(收盘价,11))/MA(收盘价,11)*480,7),LINETHICK2 ,画白色
输出上涨:IF(主力上穿散户 AND 主力< -10,25,15),LINETHICK2,COLORMAGENTA
DRAWICON(主力上穿散户 AND 主力< -10 AND 散户>1日前的散户OR 主力上穿散户 AND 散户< -35 ,15,1)
DRAWTEXT(18上穿RSIAND 散户< -20 AND 底部雷达,25,'底 '),LINETHICK1,画黄色