软件名称：[B]黄金切分[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：31.0 KB
官方主页：Home Page
更新时间：2017-04-13 03:23:36
软件简介:
input:高(0,0,999,1),低(0,0,9999),黄(0,0,1),黄A(0,0,2),n1(5,0,999,1),n2(10,0,999,1),n5(55,0,9999);
DRAWTEXTABS(2,5,'【代码:'+STKLABEL+' 名称:'+STKNAME+'】'),Color00FFFF;
TF:= LLV(l, BARSLAST(DISPSTATUS=1)+0);
TS:=BARSCOUNT(TF);
天数:HHVALL(BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(DISPSTATUS=1)))+2)-TS,LINETHICK0;ZFF:=((H-L)/L)*100;
CFJ:=H-L;
DRAWTEXTABS(180,5,'【振幅:'+NUMTOSTRN(ZFF,2)+'%/ '+NUMTOSTRN(CFJ,2)+'元】'),ColorFFFF00,linethick0;
TJA:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJA,LOW,HIGH,0,0),Color0000E9;
STICKLINE(TJA,O,CLOSE,8,0),Color000044;
STICKLINE(TJA,O,CLOSE,7,0),Color000055;
STICKLINE(TJA,O,CLOSE,6,0),Color000077;
STICKLINE(TJA,O,CLOSE,4,0),Color000099;
STICKLINE(TJA,O,CLOSE,3,0),Color0000bb;
STICKLINE(TJA,O,CLOSE,2,0),Color0000dd;
STICKLINE(TJA,O,CLOSE,1,0),Color0000ff;
STICKLINE(NOT(TJA),HIGH,LOW,0,0),Color00ff00;
STICKLINE(NOT(TJA),CLOSE,OPEN,8,0),COLOR333333;
STICKLINE(NOT(TJA),CLOSE,OPEN,7,0),COLOR444444;
STICKLINE(NOT(TJA),CLOSE,OPEN,6,0),Color555555;
STICKLINE(NOT(TJA),CLOSE,OPEN,4,0),Color777777;
STICKLINE(NOT(TJA),CLOSE,OPEN,3,0),Color999999;
STICKLINE(NOT(TJA),CLOSE,OPEN,2,0),Colorbbbbbb;
STICKLINE(NOT(TJA),CLOSE,OPEN,1,0),Colordddddd;
Q1:=(H < REF(L,1));
Q2:=(L > REF(H,1));
DRAWTEXT(Q1,(H ),'缺口'),ALIGN1,VALIGN2,COLORffFF00;
DRAWTEXT(Q2,(L ),'缺口'),ALIGN1,VALIGN0,COLOR00ffff;{
DRAWFLAGTEXT(Q2,L,'缺口');
DRAWFLAGTEXT(Q1,H,'缺口');}
STICKLINE(Q1,(c+o)/2,o,5,0),coloraa0000;
STICKLINE(Q1,(c+o)/2,o,3,0),colorcc0000;
STICKLINE(Q1,(c+o)/2,o,1,0),coloree0000;
STICKLINE(Q2,O,(c+o)/2,5,0),color208AAA;
STICKLINE(Q2,O,(c+o)/2,3,0),color208CCC;
STICKLINE(Q2,O,(c+o)/2,1,0),color208EEE;
QC:=REF(C,1);QO:=REF(O,1);QH:=REF(H,1);QL:=REF(L,1);
FUZ:=L+((H-L)/2);FUS:=O+((C-O)/2); FUSY:=C+((O-C)/2);SSFU:=(FUZ+IF(C>O,FUS,FUSY))/2;
FUZ1:=L+((H-L)*0.333);FUS1:=O+((C-O)*0.333);FUS1Y:=C+((O-C)*0.333);SSFU1:=(FUZ1+IF(C>O,FUS1,FUS1Y))/2;
FUZ2:=L+((H-L)*0.667);FUS2:=O+((C-O)*0.677);FUS2Y:=C+((O-C)*0.667);SSFU2:=(FUZ2+IF(C>O,FUS2,FUS2Y))/2;
BS1:=Ql+((Qh-Ql)/2);BS2:=QO+((QC-QO)/2);BS3:=QC+((QO-QC)/2);
DB1:=QL+((QH-QL)*0.333);DB2:=QO+((QC-QO)*0.333);DB3:=QC+((QO-QC)*0.333);
EB1:=QL+((QH-QL)*0.667);EB2:=QO+((QC-QO)*0.667);EB3:=QC+((QO-QC)*0.667);
SYB1:=QH-((QH-QC)/2);SYB2:=QH-((QH-QO)/2);
SYB3:=IF(QC>QO,SYB1,SYB2);
XYB1:=QL+((QC-QL)/2);XYB2:=QL+((QO-QL)/2);
XYB3:=IF(QC<QO,XYB1,XYB2);
QFU:=(BS1+IF(QC>QO,BS2,BS3))/2;
QDFU:=(DB1+IF(QC>QO,DB2,DB3))/2;
QEFU:=(EB1+IF(QC>QO,EB2,EB3))/2;
STICKLINE(C=C,SSFU2,SSFU2,4,0),COLOR00FF00,LINETHICK1;
STICKLINE(C=C,SSFU1,SSFU1,4,0),COLOR00FF00,LINETHICK1;
STICKLINE(C=C,SSFU,SSFU,6,0),COLOR00FFFF,LINETHICK1;
STICKLINE(C=C,IF(C>O,H-((H-C)/2),H-((H-O)/2)),IF(C>O,H-((H-C)/2),H-((H-O)/2)),1.3,0),COLORYELLOW,LINETHICK1;
STICKLINE(C=C,IF(C<O,L+((C-L)/2),L+((O-L)/2)),IF(C<O,L+((C-L)/2),L+((O-L)/2)),1.3,0),COLORYELLOW,LINETHICK1;
DRAWTEXTABS(10,20,' 前/现日振幅的1/2 【'+NUMTOSTRN(QFU,2)+'】/【'+NUMTOSTRN(SSFU,2)+'】'),Color0DEEEE;
DRAWTEXTABS(10,35,'前/现日振幅的:1/3 【'+NUMTOSTRN(QDFU,2)+'】/【'+NUMTOSTRN(SSFU1,2)+'】'),Color00EE00;
DRAWTEXTABS(10,50,'前/现日振幅的:2/3 【'+NUMTOSTRN(QEFU,2)+'】/【'+NUMTOSTRN(SSFU2,2)+'】'),Color00EE00;
DRAWTEXTABS(10,65,'前上影线幅度的1/2 【'+NUMTOSTRN(SYB3,2)+'】'),ColorEEEEEE;
DRAWTEXTABS(10,80,'前下影线幅度的1/2 【'+NUMTOSTRN(XYB3,2)+'】'),ColorEEEEEE;
MC1:EMA(C,N1),ColorFFFfff,linethick1,DOTLINE;
DRAWTEXT(BARSTATUS=2 AND Mc1>REF(Mc1,1),MC1,' ↑'+NUMTOSTRn(Mc1,2)),COLORffffff;
DRAWTEXT(BARSTATUS=2 AND Mc1<REF(Mc1,1),Mc1,' ↓'+NUMTOSTRn(Mc1,2)),Colorffffff;
MC2:EMA(C,N2),Color00Ffff,linethick1,DOTLINE;
DRAWTEXT(BARSTATUS=2 AND Mc2>REF(Mc2,1),MC2,' ↑'+NUMTOSTRn(Mc2,2)),COLOR00ffff;
DRAWTEXT(BARSTATUS=2 AND Mc2<REF(Mc2,1),Mc2,' ↓'+NUMTOSTRn(Mc2,2)),Color00ffff;
MC5:EMA(C,N5),ColorFFFf00,linethick1;
DRAWTEXT(BARSTATUS=2 AND Mc5>REF(Mc5,1),MC5,' '+NUMTOSTRn(N5,0)+'↑'+NUMTOSTRn(Mc5,2)),COLORFFFf00;
DRAWTEXT(BARSTATUS=2 AND Mc5<REF(Mc5,1),Mc5,' '+NUMTOSTRn(N5,0)+'↓'+NUMTOSTRn(Mc5,2)),ColorFFFf00;
QJ:=atan((MA(C,n1)/ref(MA(C,n1),1)-1)*100)*57.3;
QJ1:=atan((ref(MA(C,n1),1)/ref(MA(C,n1),2)-1)*100)*57.3;
QJ2:=atan((ref(MA(C,n1),2)/ref(MA(C,n1),3)-1)*100)*57.3;
QMC:=REF(MC1,1);QMC1:=REF(MC1,2);
CMC:=MC1-QMC;CMC1:=QMC-QMC1;CPJ:=(CMC+CMC1)/2;
DRAWTEXTABS(20,95,''+NUMTOSTRN(n1,0)+'日 均线角度=∠'+NUMTOSTRN(QJ,2)+'/'+'度'+'/ 前日=；∠'+NUMTOSTRn(QJ1,2)+' 度'+'/ 前2日=；∠'+NUMTOSTRn(QJ2,2)+' 度'+''),Color00EEEE;
DRAWTEXTABS(20,110,''+NUMTOSTRN(N1,0)+''+'日 均值=： '+NUMTOSTRN(MC1,2)+' 元'+''+'/ 前日 =：'+NUMTOSTRN(QMC,2)+' 元'+'/ 前2日=： '+NUMTOSTRN(QMC1,2)+' 元'),ColorFFffff;
DRAWTEXTABS(20,125,''+NUMTOSTRN(N1,0)+''+'日 均线近三日的平均增(减)速=； '+NUMTOSTRN(CPJ,2)+' 元'+''),ColorFFffff;
NN:= DISPSTATUS=2 AND 黄=1;
NNN:= DISPSTATUS=2 AND 黄A=1;
NNNN:= DISPSTATUS=2 AND 黄A=2;
UG:=REF(H,高);UD:=REF(L,低);
HH := HHV(Ug,1);
LL := LLV(Ud,1);
HL := HH-LL;
Hk := LL-HH;
A1 := LL+hL*0.191; A10 := LL+hL*0.03; B1 := LL+hL*0.125;{1/8} B9 := LL+hL*0.22; G1 := LL-hK*1.191; G10 := LL-HK*1.02; JG1 := LL-HK*1.125; JG9 := LL-HK*1.22;
A2 := LL+hL*0.382; A11 := LL+hL*0.98; B2 := LL+hL*0.375;{3/8} B10 := LL+hL*0.28; G2 := LL-HK*1.382; G11 := LL-HK*1.03; JG2 := LL-HK*1.375; JG10 := LL-HK*1.28;
A3 := LL+hL*0.618; A12 := LL+hL*0.05; B3 := LL+hL*0.625;{5/8} B11 := LL+hL*0.72; G3 := LL-HK*1.618; G12 := LL-HK*1.05; JG3 := LL-HK*1.625; JG11 := LL-HK*1.72;
A4 := LL+hL*0.809; A13 := LL+hL*0.93; B4 := LL+hL*0.875;{7/8} B12 := LL+hL*0.78; G4 := LL-HK*1.809; G13 := LL-HK*1.08; JG4 := LL-HK*1.875; JG12 := LL-HK*1.78;
A5 := LL+hL*0.50; A14 := LL+hL*0.08; B5 := LL+hL*0.333;{1/3} G5 := LL-HK*1.50; G14 := LL-HK*1.10; JG5 := LL-HK*1.333; JG13 := LL-HK*2;
A6 := LL+HL*0.55; A15 := LL+hL*0.15; B6 := LL+hL*0.667;{2/3} G6 := LL-HK*1.45; G15 := LL-HK*1.15; JG6 := LL-HK*1.667;
A7 := LL+HL*0.45; A16 := LL+hL*0.85; B7 := LL+hL*0.25; {2/8} G7 := LL-HK*1.55; G16 := LL-HK*1.85; JG7 := LL-HK*1.25;
A8 := LL+HL*0.95; A17 := LL+hL*0.92; B8 := LL+hL*0.75; {6/8} G8 := LL-HK*1.95; JG8 :
[url=http://www.70822.com/soft/sort013/sort03/down-109601.html]黄金切分[/url]
[url=http://www.70822.com/soft/sort013/sort03/down-109601.html]黄金切分[/url]