Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 10/29/2004(UTC)
Posts: 1,394
Location: Glastonbury, CT
Was thanked: 2 time(s) in 2 post(s)
|
 SpecialK weekly on Dell Code:
Normal
0
false
false
false
EN-US
X-NONE
X-NONE
MicrosoftInternetExplorer4
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
pds1:=Input("MA1
periods",1,260,60);
pds2:=Input("MA2
periods",2,260,60);
plt:=Input("[1]$
[2]%",1,2,1);
SpecKD:=(Mov(ROC(C,4,$),4,E)+
Mov(ROC(C,5,$),5,E)*2+
Mov(ROC(C,6,$),6,E)*3+
Mov(ROC(C,8,$),8,E)*4+
Mov(ROC(C,10,$),10,E)+
Mov(ROC(C,13,$),13,E)*2+
Mov(ROC(C,15,$),15,E)*3+
Mov(ROC(C,20,$),20,E)*4+
Mov(ROC(C,39,$),26,E)+
Mov(ROC(C,52,$),26,E)*2+
Mov(ROC(C,78,$),26,E)*3+
Mov(ROC(C,104,$),39,E)*4)*100/537;
SpecKP:=(Mov(ROC(C,4,%),4,E)+
Mov(ROC(C,5,%),5,E)*2+
Mov(ROC(C,6,%),6,E)*3+
Mov(ROC(C,8,%),8,E)*4+
Mov(ROC(C,10,%),10,E)+
Mov(ROC(C,13,%),13,E)*2+
Mov(ROC(C,15,%),15,E)*3+
Mov(ROC(C,20,%),20,E)*4+
Mov(ROC(C,39,%),26,E)+
Mov(ROC(C,52,%),26,E)*2+
Mov(ROC(C,78,%),26,E)*3+
Mov(ROC(C,104,%),39,E)*4)*100/537;
SpecK:=If(plt=1,SpecKD,SpecKP);
SpecKMA:=Mov(Mov(SpecK,pds1,S),pds2,S);
entry:=Cross(SpecK,SpecKMA);
exit:=Cross(SpecKMA,SpecK);
|
