软件名称：[B]江恩时空 源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：16.0 KB
官方主页：Home Page
更新时间：2019-07-15 03:06:11
软件简介:
{江恩时空 ---主图 限期：无}
a1:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5;
a2:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5+2;
a3:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5+2+2;
{分析家公式网www.70822.com}
a4:=if(date<a1,1,0);
a5:=if(date<a2,1,0);
a6:=if(date<a3,1,0);
a7:=1;{a4*a5*a6;}
a8:=(2*2*2*2*2-5*5-10+2+2+2*2*2*2*2-5*5-10+2+2+2*2*2*2*2-5*5-10+2+2)/(5-2);
a9:=1;
a10:=barslast(dispstatus=1)+1;
a11:=dispstatus=2;
a12:=if(a7=a8,hhv(h,a10),0);
a13:=llv(l,a10);
a14:=if(a7=a8,a12-a13,0);
a15:=hhvbars(h,a10);
a16:=llvbars(l,a10);
a17:=if(a7=a8,a15-a16,0);
a18:=a12-a14*0.5;
if (a9 = 1 ) Then
begin
a19:=if(a7=a8,(a12-a13)*0.191,0);
a20:=(a12-a13)*0.382;
a21:=if(a7=a8,(a12-a13)*0.618,0);
a22:=(a12-a13)*0.809;
if (a17 < 0 ) Then
begin
a23:=if(a7=a8,a12-a19,0);
a24:=a12-a20;
a25:=if(a7=a8,a12-a21,0);
a26:=a12-a22;
end
else
begin
a23:=a13+a19;
a24:=if(a7=a8,a13+a20,0);
a25:=a13+a21;
a26:=if(a7=a8,a13+a22,0);
end;
if (a9 = 1 ) Then
begin
a27:=(a12-a13)*0.125;
a28:=(a12-a13)*0.25;
a29:=if(a7=a8,(a12-a13)*0.375,0);
a30:=(a12-a13)*0.625;
a31:=if(a7=a8,(a12-a13)*0.75,0);
a32:=(a12-a13)*0.875;
if (a17 < 0 ) Then
begin
a33:=a12-a27;
a34:=a12-a28;
a35:=a12-a29;
a36:=a12-a30;
a37:=a12-a31;
a38:=a12-a32;
end
else
begin
a33:=a13+a27;
a34:=a13+a28;
a35:=a13+a29;
a36:=a13+a30;
a37:=a13+a31;
a38:=a13+a32;
end;
end;
end;
drawtext(a11 and (a9<>3),a12*a7,' 最高价：'+a12),align2,coloryellow;
drawtext(a11 and (a9<>3),a13*a7,' 最低价：'+a13),valign2,align2,coloryellow;
drawtext(a11 and (a9<>3),a18*a7,' 中间价：'+a18),align2,coloryellow;
drawtext(a11 and (a9=1),if(a7=a8,a33,0),' 1/8：'+numtostrn(a33,2)),align2,coloryellow;
drawtext(a11 and (a9=1),a34*a7,' 1/4：'+numtostrn(a34,2)),align2,coloryellow;
drawtext(a11 and (a9=1),a35*a7,' 3/8：'+numtostrn(a35,2)),align2,coloryellow;
drawtext(a11 and (a9=1),if(a7=a8,a36,0),' 5/8：'+numtostrn(a36,2)),align2,coloryellow;
drawtext(a11 and (a9=1),a37*a7,' 3/4：'+numtostrn(a37,2)),align2,coloryellow;
drawtext(a11 and (a9=1),if(a7=a8,a38,0),' 7/8：'+numtostrn(a38,2)),align2,coloryellow;
drawtext(a11 and (a9<>3),a12*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),if(a7=a8,a13,0),'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),if(a7=a8,a18,0),'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a33*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a34*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a35*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a36*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a37*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
drawtext(a11 and (a9<>3),a38*a7,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),align2,colorff99cc;
a1:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5;
a2:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5+2;
a3:=2*2*2*2*5*5*5*5*10*10+2*2*2*2*5*5*5*5*10+2*2*5*5*10+2*2*5*5+10+5+2+2;
a4:=if(date<a1,1,0);
a5:=if(date<a2,1,0);
a6:=if(date<a3,1,0);
a39:=1;{a4*a5*a6;}
a40:=0+((5-2)*2)+((5-2)*2)+2-((5-2)*2-2);
a41:=((5-2)*2)*((5-2)*2-2)-((5-2)*2)-2-(((5-2)*2+((5-2)*2))/((5-2)*2+2-((5-2)*2)))+0;
a8:=(2*2*2*2*2-5*5-10+2+2+2*2*2*2*2-5*5-10+2+2+2*2*2*2*2-5*5-10+2+2)/(5-2);
a42:=hhvall(hhv(barpos,count(c,0)));
a43:=ref(h,3)=(hhv(h,2*3+1));
a44:=filter(a43,3);
a45:=backset(a44,3+1);
a46:=filter(a45,3);
a47:=ref(l,3)=(llv(l,2*3+1));
a48:=filter(a47,3);
a49:=backset(a48,3+1);
a50:=filter(a49,3);
a51:=(ref(llv(l,2*3),1)+ref(hhv(h,2*3),1))/2;
a52:=(h+l)/2;
a53:=a46 and (not(a50 and (a51>=a52))) or (barpos=a42) or (barscount(c)=1);
a54:=a50 and (not(a46 and (a51<a52)));
a55:=ref(barslast(a53),1)+1;
a56:=backset(a53 and (count(a54,a55)>0),llvbars(if(a54,l,10000),a55));
a57:=a56>ref(a56,1);
a58:=backset(a57,2);
a59:=a58>ref(a58,1);
a60:=a59 or (barpos=a42) or (barscount(c)=1);
a61:=ref(barslast(a60),1)+1;
a62:=backset(a60 and (count(a46 and (not(a50 and (a51>=a52))),a61)>0),hhvbars(if(a46 and (not(a50 and (a51>=a52))),h,0),a61));
a63:=a62>ref(a62,1);
a64:=backset(a63,2);
a65:=a64>ref(a64,1);
a66:=barslast(a65);
a67:=barslast(a59);
a68:=numtostr(a66);
a69:=numtostr(a67);
a70:=numtostr(min(a66,a67));
if (a39=a8 and (a40=a41) ) Then
begin
drawtext(a59,l*0.995,a68),linethick2,colorgreen;
drawtext(a65,h*1.005,a69),linethick2,colorred;
drawtext(a59,l*0.995,' 天'),linethick2,colorgreen;
drawtext(a65,h*1.005,' 天'),linethick2,colorred;
drawtext(barstatus=2,l*0.995,a70),linethick2,colorcyan;
drawtext(barstatus=2,l*0.995,' 天'),linethick2,colorcyan;
vertline(a59,2),pointdot,linethick2,colorgreen;
vertline(a65,2),pointdot,linethick2,colorred;
end
else
begin
if (a39 <> a8 ) Then
begin
drawtextrel(400,710,'指标已过期'),linethick7,colorgreen;
drawtextrel(310,565,'http://data520.taobao.com'),linethick7,colorred;
end;
end;
{公式组: 三大主流理论指标
描述: 菲波纳奇(有未来)
注释:空
参数精灵:空
}
{*********};
[url=http://www.70822.com/soft/sort013/sort03/down-138742.html]江恩时空 源码[/url]