股票成功率测试软件源代码免费公开！这几天我感觉身体不行，为以防万一把软件送还给CSDN论坛，希望大家好好收藏，为立志于消灭目前流行股

gp7788 2003-02-07 08:51:15

股票成功率测试软件源代码免费公开！这几天我感觉身体不行，为以防万一把软件送还给CSDN论坛，希望大家好好收藏，为立志于消灭目前流行股票的勇士献礼！

//金龙数据:共29btye 日期:长整型 K线:实型(开盘4 最高8 最低12 收盘16) 长整型:成交量24
#include <conio.h>
#include <ctype.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dos.h>
#include <dir.h>
#include <time.h>
#include <share.h>
#include <math.h>
int aa_,cc,aa,zs0[3000][5],j=0,key=0,gd,gm,i,zj=0,zj1,done,d[5],zdzt=0,cz=0,
xz,ls,zdl,zdj,bs,spss;
//double xx,yy,zg,zd,zz,bb,bb1,zz1,zz2;//,zbs[1000][3];
//bc=1,,kd=10,tz=0,xz,zb=0,ls,sjgs=0,pfgs,zdl,zdj,bs,spss,spjg,zsp,qx[240][2];
//cjl1[3000],
long int yyy,xxx,ts=75,bigl1,bigl,x,y,x1,y1,z,z1,cjl,cjl0[3000],c[10],lj[30][8],sum=0,cg=0,fdd=0;
unsigned char rq[]="000000",rq0[]=" ",ch[]=" ",ch0[39],f[39],
cch,kzm[5],ml[5],ch4[]=" ",ch1[]=" ",ch2[]=" ",ch3[]=" ",
ccc[]=" ",cs[3][39],fmlj[4],enter,chh[]=" ";
FILE *f1,*f3,*f2; //12345678
#include "xt.c"
void main(void) {
clrscr();
while (1==1) {j=key=zj=zdzt=0;
//读参数设置文件
sprintf(kzm,".day");
sprintf(cs[1],"c:\\slon\\data\\sh");sprintf(cs[2],"c:\\slon\\data\\sz");
//打开目录浏览文件
if ((f1=_fsopen("tmp","rt",SH_DENYNO))!=0) fseek(f1,18,1);
fscanf(f1,"%6s",&ch1);
j=0;
while (1==1) {
key=getch();
//f5动态盘面
// 退出 "ESC"
if (key==27) {
clrscr();gotoxy(30,13); cprintf("是否退出(y/n)?"); key=getch();
if (key=='y') {fcloseall(); return;} j=0;continue;}
if (key!=13) { ch[j]=key;gm=j;j++;if (j>5) j=5;}//1
if (key==59) {zdzt=(zdzt+1)%2; fclose(f1); gotoxy(25,15);cprintf("zqdm:");
if ((f1=_fsopen("tmp","rt",SH_DENYNO))!=0) fseek(f1,6,1);
sprintf(ml,"/day");sprintf(kzm,".day");

//***********
/* if (strcmp(ch3,"190000")<=0) {
if (strcmp(ch3,"002A01")==0) sprintf(ch3,"2A01");
sprintf(ch0,"%c:%s%s/%s%s",pf,cs[2],ml,ch3,kzm);
// if (sjgs==0) sprintf(ch0,"%c:%s%s/SZ%s%s",pf,cs[2],ml,ch3,kzm);
// ch3[4]=ch3[5]=' ';
} else sprintf(ch0,"%c:%s%s%c%s%s",pf,cs[1],ml,'\\',ch3,kzm);
//***********
if (ch1[0]=='S') sprintf(ch,"SZ%4s",ch1);else*/
sprintf(ch,ch1);
fscanf(f1,"%6s",&ch1);

if (zdzt==1) { while ((ch1[0]!=ch[0])||(ch1[1]!=ch[1])||
(ch1[2]!=ch[2])||(ch1[3]!=ch[3])||(ch1[4]!=ch[4])||(ch1[5]!=ch[5]))
{fscanf(f1,"%6s",&ch1);} fseek(f1,-6,1);} //定位

if (ch1[0]=='6'||ch1[0]=='5'||ch1[0]=='9')
sprintf(ch0,"%s%s/%6s%s",cs[1],ml,ch3,kzm);
else sprintf(ch0,"%s%s/%6s%s",cs[2],ml,ch3,kzm);

if (zdzt==0) break;
if (zdzt==1) {// cprintf("%ld",x);getch();
// gcvt((double)x,8,chh);//gotoxy(70,24);cprintf("%s",chh);
// x=xz;
f2=_fsopen("99.txt","wb+",SH_DENYNO);
for (i=0;i<17;i++) ch4[i]='k';fwrite(&ch4,17,1,f2);
/////////////////////////////////////////////
while (!kbhit()&&ch1[0]!='e') { fscanf(f1,"%6s",&ch1);sprintf(ch3,ch1);
//getch();
if (ch1[0]=='6'||ch1[0]=='5'||ch1[0]=='9')
sprintf(ch0,"%s%s/%6s%s",cs[1],ml,ch3,kzm);
else sprintf(ch0,"%s%s/%6s%s",cs[2],ml,ch3,kzm);

if ((f3=_fsopen(ch0,"rb",SH_DENYNO))!=0){
cjl0[1]=0l;xz=0;fseek(f3,0,2);zj=ftell(f3)/40l;fseek(f3,-40l,2);
// printf("%d",zj);getch();
// zj1=zj;

for (i=0;i<min(zj,2499l);i++)
{

fread(&c,28,1,f3);for (j=1;j<5;j++)
{if (ch3[1]=='A'||ch3[1]=='B') c[j]=c[j]/100; zs0[i][j]=-1*c[j]/10;}
zs0[i][2]=-1*c[3]/10;zs0[i][3]=-1*c[4]/10;zs0[i][4]=-1*c[2]/10;
c[0]=-1*c[0]-1; zs0[i][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[i]=-1*c[6]; fseek(f3,-40,1);
if (ftell(f3)==0L) {zj=i;break;} fseek(f3,-40,1);
} fclose(f3);}
for (cz=0;cz<min(zj,2499l);cz++) {
aa=3;
for (i=0;i<10;i++) {for (j=0;j<7;j++) lj[i][j]=0;}
//均量\均线 0-5日线 1-10日线 2-30日线 3-5日量 4-10日量
for (gd=0;gd<10;gd++) {for(i=0;i<30;i++)lj[gd][2]=lj[gd][2]+zs0[i+cz+gd][4];lj[gd][2]=lj[gd][2]/30.0;}
//lj[4][1]
for (gd=0;gd<4;gd++) {for(i=0;i<10;i++)lj[gd][1]=lj[gd][1]+zs0[i+cz+gd][4];lj[gd][1]=lj[gd][1]/10.0;}
//lj[1--10][2]
for (gd=0;gd<aa;gd++) {;
for(i=0;i<5;i++)lj[gd][0]=lj[gd][0]+zs0[i+cz+gd][4];lj[gd][0]=lj[gd][0]/5.0;
// for(i=0;i<10;i++)lj[gd][1]=lj[gd][1]+zs0[i+cz+gd][4];lj[gd][1]=lj[gd][1]/10.0;
// for(i=0;i<30;i++)lj[gd][2]=lj[gd][2]+zs0[i+cz+gd][4];lj[gd][2]=lj[gd][2]/30.0;
for(i=0;i<75;i++)lj[gd][5]=lj[gd][5]+zs0[i+cz+gd][4];lj[gd][5]=lj[gd][5]/75.0;
for(i=0;i<150;i++)lj[gd][7]=lj[gd][7]+zs0[i+cz+gd][4];lj[gd][7]=lj[gd][7]/150.0;
for(i=0;i<20;i++)lj[gd][6]=lj[gd][6]+zs0[i+cz+gd][4];lj[gd][6]=lj[gd][6]/20.0;
for (i=0;i<5;i++) lj[gd][3]=lj[gd][3]+cjl0[i+cz+gd];lj[gd][3]=lj[gd][3]/5.0;
for(i=0;i<10;i++)lj[gd][4]=lj[gd][4]+cjl0[i+cz+gd];lj[gd][4]=lj[gd][4]/10.0;}
if (zj<60+cz||cjl0[cz]<=0l||zs0[cz][4]<=0) ;
else {xt();}
}

gotoxy(30,15);cprintf("%s",ch3); cprintf("\n%5.2f %ld %ld zgfd:%8.3f ",(float)100l*cg/max(sum,1),cg,sum,(float)(fdd/100.)/max(cg,1));

} //while为止
/////////////////////////////////////////////////////
enter=13;fwrite(&enter,1,1,f2); enter=10;fwrite(&enter,1,1,f2);
for (i=0;i<17;i++) ch4[i]='e'; fwrite(&ch4,17,1,f2);
enter=13;fwrite(&enter,1,1,f2); enter=10;fwrite(&enter,1,1,f2);
fclose(f2);fclose(f1);
gotoxy(30,15);cprintf("ok:");cprintf("%5.2f cg:%ld sum:%ld zgfd:%f ",(float)100l*cg/max(sum,1),cg,sum,(float)fdd/max(sum,1));
fcloseall();getch();getch();return;
/* f1=_fsopen("sh.txt","rt",SH_DENYNO);
fseek(f1,6,1);fscanf(f1,"%6s",&ch1);
zdzt=1;*/
}
} } } }

...全文