复制内容到剪贴板
代码:
江恩黄金分割线(大智慧公式) k:= hhv(c,n),coloryellow; d:= llv(c,n),coloryellow; hp:=k-d; z1:d+hp*0.236,POINTDOT,colorred, LINETHICK2; z2:d+hp*0.382,POINTDOT,colorblue, LINETHICK2; z3:d+hp*0.5,POINTDOT,colorwhite, LINETHICK2; z4:d+hp*0.618,POINTDOT,colorblue, LINETHICK2; z5:d+hp*0.764,POINTDOT,colorred, LINETHICK2; s:=llv(c,500); AA:=YEAR*100+MONTH>199901; BB:=(AA=0)+1; p1:=(c-ref(c,1))/ref(c,1)*1000; p2:=sum(abs(p1),0); p3:=count(c>0,0); k1:=p2/p3; a1:=ZIG(3 , 17); aa1:=a1>ref(a1,1); a2:=ZIG(2,17); aa2:=a20,c,B1=10 ,REF(c,B1)-s*K1/1400,1),COLOR33FFCC; X2:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*2*K1/1400,1),COLOR6666FF,LINETHICK2; X3:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*4*K1/1400,1),COLORFFFFCC; X4:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*8*K1/1400,1),COLOR00CCFF; X5:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*0.4*K1/1400,1),COLORgreen; Y1:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*8*K1/1700*2,1),COLOR33FFCC; Y2:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*K1/1700*2,1),COLOR00CCFF; Y3:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*2*K1/1700*2,1),COLOR6666FF,LINETHICK2; Y4:DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*4*K1/1700*2,1),COLORFFFFCC; Y5:DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*0.5*K1/1700*2,1),COLORgreen;
