乾坤多空，红色是多（同花顺公式副图源码测试图）

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 同花顺公式 → 一键转帖：乾坤多空，红色是多（同花顺公式副图源码测试图）

软件名称：[B]乾坤多空，红色是多（同花顺公式副图源码测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：0 Bytes
官方主页：Home Page
更新时间：2021-05-26 00:14:42
软件简介:

同花顺公式乾坤多空，源码如下：

VAR0:=HIGH-REF(HIGH,1)+LOW-REF(LOW,1)+CLOSE-(OPEN+HIGH*2+LOW*2+CLOSE)/6;

DUO0:=(CLOSE-LOW)/(HIGH-LOW);

KON0:=(HIGH-CLOSE)/(HIGH-LOW);

IF HIGH=LOW AND CLOSE>REF(CLOSE,1)

THEN DUO0:=1;

IF HIGH=LOW AND CLOSE>REF(CLOSE,1)

THEN KON0=0;

IF HIGH=LOW AND CLOSE<REF(CLOSE,1)

THEN DUO0:=0;

IF HIGH=LOW AND CLOSE<REF(CLOSE,1)

THEN KON0=1;

BIZHI0:=IF(VAR0>=0,VAR0*DUO0,VAR0*KON0);

JIN0:=IF(ISNULL(BIZHI0),0,BIZHI0);

QIAN1:=REF(JIN0,1);

QIAN2:=REF(JIN0,2);

QIAN3:=REF(JIN0,3);

QIAN4:=REF(JIN0,4);

QIAN5:=REF(JIN0,5);

QIAN6:=REF(JIN0,6);

QIAN7:=REF(JIN0,7);

VAR11=REFX(&HIGH,1)-HIGH+REFX(&LOW,1)-LOW+REFX(&CLOSE,1)-(REFX(&OPEN,1)+REFX(&HIGH,1)*2+REFX(&LOW,1)*2+REFX(&CLOSE,1))/6;

VAR1:=IF(ISNULL(VAR11),0,VAR11);

DUO1:=IF(ISNULL((REFX(&CLOSE,1)-REFX(&LOW,1))/(REFX(&HIGH,1)-REFX(&LOW,1))),0,(REFX(&CLOSE,1)-REFX(&LOW,1))/(REFX(&HIGH,1)-REFX(&LOW,1)));

KON1:=IF(ISNULL((REFX(&HIGH,1)-REFX(&CLOSE,1))/(REFX(&HIGH,1)-REFX(&LOW,1))),0,(REFX(&HIGH,1)-REFX(&CLOSE,1))/(REFX(&HIGH,1)-REFX(&LOW,1)));

IF REFX(&HIGH,1)=REFX(&LOW,1) AND REFX(&CLOSE,1)>CLOSE

THEN DUO1:=1;

IF REFX(&HIGH,1)=REFX(&LOW,1) AND REFX(&CLOSE,1)>CLOSE

THEN KON1=0;

IF REFX(&HIGH,1)=REFX(&LOW,1) AND REFX(&CLOSE,1)<CLOSE

THEN DUO1:=0;

IF REFX(&HIGH,1)=REFX(&LOW,1) AND REFX(&CLOSE,1)<CLOSE

THEN KON1=1;//分析家公式网 www.70822.com

BIZHI1:=IF(VAR1>=0,VAR1*DUO1,VAR1*KON1);

HOU1:=IF(ISNULL(BIZHI1),0,BIZHI1);

VAR22=REFX(&HIGH,2)-REFX(&HIGH,1)+REFX(&LOW,2)-REFX(&LOW,1)+REFX(&CLOSE,2)-(REFX(&OPEN,2)+REFX(&HIGH,2)*2+REFX(&LOW,2)*2+REFX(&CLOSE,2))/6;

VAR2:=IF(ISNULL(VAR22),0,VAR22);

DUO2:=IF(ISNULL((REFX(&CLOSE,2)-REFX(&LOW,2))/(REFX(&HIGH,2)-REFX(&LOW,2))),0,(REFX(&CLOSE,2)-REFX(&LOW,2))/(REFX(&HIGH,2)-REFX(&LOW,2)));

KON2:=IF(ISNULL((REFX(&HIGH,2)-REFX(&CLOSE,2))/(REFX(&HIGH,2)-REFX(&LOW,2))),0,(REFX(&HIGH,2)-REFX(&CLOSE,2))/(REFX(&HIGH,2)-REFX(&LOW,2)));

IF REFX(&HIGH,2)=REFX(&LOW,2) AND REFX(&CLOSE,2)>REFX(&CLOSE,1)

THEN DUO2:=1;

IF REFX(&HIGH,2)=REFX(&LOW,2) AND REFX(&CLOSE,2)>REFX(&CLOSE,1)

THEN KON2=0;

IF REFX(&HIGH,2)=REFX(&LOW,2) AND REFX(&CLOSE,2)<REFX(&CLOSE,1)

THEN DUO2:=0;

IF REFX(&HIGH,2)=REFX(&LOW,2) AND REFX(&CLOSE,2)<REFX(&CLOSE,1)

THEN KON2=1;

BIZHI2:=IF(VAR2>=0,VAR2*DUO2,VAR2*KON2);

HOU2:=IF(ISNULL(BIZHI2),0,BIZHI2);

VAR33=REFX(&HIGH,3)-REFX(&HIGH,2)+REFX(&LOW,3)-REFX(&LOW,2)+REFX(&CLOSE,3)-(REFX(&OPEN,3)+REFX(&HIGH,3)*2+REFX(&LOW,3)*2+REFX(&CLOSE,3))/6;

VAR3:=IF(ISNULL(VAR33),0,VAR33);

DUO3:=IF(ISNULL((REFX(&CLOSE,3)-REFX(&LOW,3))/(REFX(&HIGH,3)-REFX(&LOW,3))),0,(REFX(&CLOSE,3)-REFX(&LOW,3))/(REFX(&HIGH,3)-REFX(&LOW,3)));

KON3:=IF(ISNULL((REFX(&HIGH,3)-REFX(&CLOSE,3))/(REFX(&HIGH,3)-REFX(&LOW,3))),0,(REFX(&HIGH,3)-REFX(&CLOSE,3))/(REFX(&HIGH,3)-REFX(&LOW,3)));

IF REFX(&HIGH,3)=REFX(&LOW,3) AND REFX(&CLOSE,3)>REFX(&CLOSE,2)

THEN DUO3:=1;

IF REFX(&HIGH,3)=REFX(&LOW,3) AND REFX(&CLOSE,3)>REFX(&CLOSE,2)

THEN KON3=0;

IF REFX(&HIGH,3)=REFX(&LOW,3) AND REFX(&CLOSE,3)<REFX(&CLOSE,2)

THEN DUO3:=0;

IF REFX(&HIGH,3)=REFX(&LOW,3) AND REFX(&CLOSE,3)<REFX(&CLOSE,2)

THEN KON3=1;

BIZHI3:=IF(VAR3>=0,VAR3*DUO3,VAR3*KON3);

HOU3:=IF(ISNULL(BIZHI3),0,BIZHI3);

VAR44=REFX(&HIGH,4)-REFX(&HIGH,3)+REFX(&LOW,4)-REFX(&LOW,3)+REFX(&CLOSE,4)-(REFX(&OPEN,4)+REFX(&HIGH,4)*2+REFX(&LOW,4)*2+REFX(&CLOSE,4))/6;

VAR4:=IF(ISNULL(VAR44),0,VAR44);

DUO4:=IF(ISNULL((REFX(&CLOSE,4)-REFX(&LOW,4))/(REFX(&HIGH,4)-REFX(&LOW,4))),0,(REFX(&CLOSE,4)-REFX(&LOW,4))/(REFX(&HIGH,4)-REFX(&LOW,4)));

KON4:=IF(ISNULL((REFX(&HIGH,4)-REFX(&CLOSE,4))/(REFX(&HIGH,4)-REFX(&LOW,4))),0,(REFX(&HIGH,4)-REFX(&CLOSE,4))/(REFX(&HIGH,4)-REFX(&LOW,4)));

IF REFX(&HIGH,4)=REFX(&LOW,4) AND REFX(&CLOSE,4)>REFX(&CLOSE,3)

THEN DUO4:=1;

IF REFX(&HIGH,4)=REFX(&LOW,4) AND REFX(&CLOSE,4)>REFX(&CLOSE,3)

THEN KON4=0;

IF REFX(&HIGH,4)=REFX(&LOW,4) AND REFX(&CLOSE,4)<REFX(&CLOSE,3)

THEN DUO4:=0;

IF REFX(&HIGH,4)=REFX(&LOW,4) AND REFX(&CLOSE,4)<REFX(&CLOSE,3)

THEN KON4=1;

BIZHI4:=IF(VAR4>=0,VAR4*DUO4,VAR4*KON4);

HOU4:=IF(ISNULL(BIZHI4),0,BIZHI4);

VAR55=REFX(&HIGH,5)-REFX(&HIGH,4)+REFX(&LOW,5)-REFX(&LOW,4)+REFX(&CLOSE,5)-(REFX(&OPEN,5)+REFX(&HIGH,5)*2+REFX(&LOW,5)*2+REFX(&CLOSE,5))/6;

VAR5:=IF(ISNULL(VAR55),0,VAR55);

DUO5:=IF(ISNULL((REFX(&CLOSE,5)-REFX(&LOW,5))/(REFX(&HIGH,5)-REFX(&LOW,5))),0,(REFX(&CLOSE,5)-REFX(&LOW,5))/(REFX(&HIGH,5)-REFX(&LOW,5)));

KON5:=IF(ISNULL((REFX(&HIGH,5)-REFX(&CLOSE,5))/(REFX(&HIGH,5)-REFX(&LOW,5))),0,(REFX(&HIGH,5)-REFX(&CLOSE,5))/(REFX(&HIGH,5)-REFX(&LOW,5)));

IF REFX(&HIGH,5)=REFX(&LOW,5) AND REFX(&CLOSE,5)>REFX(&CLOSE,4)

THEN DUO5:=1;

IF REFX(&HIGH,5)=REFX(&LOW,5) AND REFX(&CLOSE,5)>REFX(&CLOSE,4)

THEN KON5=0;

IF REFX(&HIGH,5)=REFX(&LOW,5) AND REFX(&CLOSE,5)<REFX(&CLOSE,4)

THEN DUO5:=0;

IF REFX(&HIGH,5)=REFX(&LOW,5) AND REFX(&CLOSE,5)<REFX(&CLOSE,4)

THEN KON5=1;

BIZHI5:=IF(VAR5>=0,VAR5*DUO5,VAR5*KON5);

HOU5:=IF(ISNULL(BIZHI5),0,BIZHI5);

VAR66=REFX(&HIGH,6)-REFX(&HIGH,5)+REFX(&LOW,6)-REFX(&LOW,5)+REFX(&CLOSE,6)-(REFX(&OPEN,6)+REFX(&HIGH,6)*2+REFX(&LOW,6)*2+REFX(&CLOSE,6))/6;

VAR6:=IF(ISNULL(VAR66),0,VAR66);

DUO6:=IF(ISNULL((REFX(&CLOSE,6)-REFX(&LOW,6))/(REFX(&HIGH,6)-REFX(&LOW,6))),0,(REFX(&CLOSE,6)-REFX(&LOW,6))/(REFX(&HIGH,6)-REFX(&LOW,6)));

KON6:=IF(ISNULL((REFX(&HIGH,6)-REFX(&CLOSE,6))/(REFX(&HIGH,6)-REFX(&LOW,6))),0,(REFX(&HIGH,6)-REFX(&CLOSE,6))/(REFX(&HIGH,6)-REFX(&LOW,6)));

IF REFX(&HIGH,6)=REFX(&LOW,6) AND REFX(&CLOSE,6)>REFX(&CLOSE,5)

THEN DUO6:=1;

IF REFX(&HIGH,6)=REFX(&LOW,6) AND REFX(&CLOSE,6)>REFX(&CLOSE,5)

THEN KON6=0;

IF REFX(&HIGH,6)=REFX(&LOW,6) AND REFX(&CLOSE,6)<REFX(&CLOSE,5)

THEN DUO6:=0;

IF REFX(&HIGH,6)=REFX(&LOW,6) AND REFX(&CLOSE,6)<REFX(&CLOSE,5)

THEN KON6=1;

BIZHI6:=IF(VAR6>=0,VAR6*DUO6,VAR6*KON6);

HOU6:=IF(ISNULL(BIZHI6),0,BIZHI6);

VAR77=REFX(&HIGH,7)-REFX(&HIGH,6)+REFX(&LOW,7)-REFX(&
[url=http://www.70822.com/soft/sort013/sort036/down-156061.html]乾坤多空，红色是多（同花顺公式副图源码测试图）[/url]