崔玉华
源代码已经彻底公开！stock生不逢时，6年心血毁于一旦！
股票软件源代码免费公开！反正大家没有钱赚！含选股器的设计和开发）
因为找不到合作伙伴，也没有资金自己搞公司所以只能把6年的开发心血如此发泄一下！
因为我一不是程序员，二不是江书记亲戚，所以没有办法实现自己的理想，所以我的开发热情只能通过源代码来表达！我还有许多程序，准备一一发布！
#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 <graphics.h>
#include <share.h>
#include <math.h>
float boll_g=1.667;
char *s16;void hxs(int x16,long int y16,char *s16,int color);
void dis24hz(int x16,long int y16,char *p,int color);void *arrow;
struct ffblk ffblk;time_t t;struct tm s;
double tmp,fd[5],xx,yy,zg,zd,zz,bb,bb1,zz1,zz2;//,zbs[1000][3];
int cc,aa,zs0[1000][5],j=0,key=0,gd,gm,i,zj=0,done,d[5],w=1,zdzt=0,x16,kk,cz,sum,cg,
bc=1,ts=70,kd=10,tz=0,xz,zb=0,ls,sjgs=0,zdj,bs,spss,spjg,zsp;//qx[240][2]
long int zdl,k,bigl,bigl1,x,y,x1,y1,z,z1,cjl,cjl0[1000],cjl1[1000],c[10],lj[30][8],y16,mm[6],fdd;
unsigned char rq[]=”000000″,rq0[]=” “,ch[]=” “,ch0[39],f[39],ff[39],
cch,kzm[5],ml[5],cs[4][39],ch1[]=” “,ch2[]=” “,ch3[]=” “,mc[8],
ccc[]=” “,ch8[80],fmlj[4],rq1[9],pf,enter,
chh[]=” “;//f5钱龙K线 ch键盘输入 ch1名称表 ch2保存 ch3纯表 chh,cch临时
FILE *fas,*fp,*f1,*f3,*f2; //,*f4,*f5f3为逐日K线 f1为名称表 f2为临时名称表 f4生成K线
void da(void) {struct date da1;getdate(&da1);
sprintf(rq1,”%4d%02d%02d”,da1.da_year,da1.da_mon,da1.da_day);return;}
void disp_tx(void); //显示一个图象菜单
void zxfs(void);
#include “xt.c”
#include “zb.c”
#include “px.c”
void main(void) {
da();
w=bc=1;ts=75;kd=10;tz=zb=sjgs=j=key=zj=zdzt=0;
fp=_fsopen(“hzk16″,”rb”,SH_DENYNO);fas=_fsopen(“asc16″,”rb”,SH_DENYNO);
s.tm_sec=s.tm_min=s.tm_hour=s.tm_wday=s.tm_yday=s.tm_isdst=1;
detectgraph(&gd,&gm); kd=580/ts; directvideo=0; initgraph(&gd,&gm,” “);
hxs(18*8,3*20,”行 情 快 车 盘 胜 股 票 分 析 系 统 (4.0)”,14);
hxs(8*8,6*20,”本系统为一股票分析软件，起到辅助分析行情的作用，其主要功能如下：”,3);
hxs(8*8,8*20,”１、数据格式袖珍：数据结构比流行分析系统小2到3倍,选股速度飞快.”,3);
hxs(8*8,10*20,”２、提供智能选股：采用自行研制盘局突破形态选股,具备较高成功率.”,3);
hxs(8*8,12*20,”３、提供模拟买卖：利用翻页定位和Ｋ线的平移,可进行复盘模拟选股.”,3);
hxs(8*8,16*20,” 阿华证券软件工作室 主页:www.hu.zj.cninfo.net/~stock”,4);
textcolor(3); gotoxy(68,25);getch();
//读参数设置文件
if ((f1=_fsopen(“cs.dat”,”rt”,SH_DENYNO))==0)
{fclose(f1); f1=_fsopen(“cs.dat”,”wb+”,SH_DENYNO);cch=e;
fwrite(&cch,1,1,f1);pf=c;fwrite(&pf,1,1,f1);
sprintf(chh,”slon”);fwrite(&chh,6,1,f1);fclose(f1); }
f1=_fsopen(“cs.dat”,”rt”,SH_DENYNO);fseek(f1,0,2);k=ftell(f1)-4;rewind(f1);
fread(&cch,1,1,f1);sjgs=cch-97;fread(&pf,1,1,f1);//sjgs=0;
for (i=0;i<k;i++) {fread(&cch,1,1,f1);sprintf(ccc,”%c”,cch);strcat(ff,ccc);}
switch(sjgs)
{case 0:sprintf(cs[1],”\\%s”,ff);sprintf(cs[2],”\\%s”,ff);break;
case 1:sprintf(cs[1],”\\%s\\data\\shase”,ff);sprintf(cs[2],”\\%s\\data\\sznse”,ff);break;
case 2:sprintf(cs[1],”\\%s”,ff);sprintf(cs[2],”\\%s”,ff);break;
case 3:sprintf(cs[1],”\\%s\\data\\shase”,ff);sprintf(cs[2],”\\%s\\data\\sznse”,ff);break;
case 4:sprintf(cs[1],”\\%s\\data\\sh”,ff);sprintf(cs[2],”\\%s\\data\\sz”,ff);break;}
fclose(f1); sprintf(kzm,”.day”);
//打开目录浏览文件
if ((f1=_fsopen(“sh.txt”,”rt”,SH_DENYNO))!=0) fseek(f1,6,1);
fscanf(f1,”%6s”,&ch1); if (w==1) hxs(1*8,18*24,”<日”,3);
if (w==2) hxs(1*8,18*24,”<周”,3); if (w==3) hxs(1*8,18*24,”<30″,3);
if (w==4) hxs(1*8,18*24,”<60″,3);
hxs(4*8,18*24,”线>F1必涨 F2熊市克星 F3穿3线 F4搜股 F7代码更新 H帮助 *指标”,3);
disp_tx();free(arrow);j=0;
while (1==1) {
key=getch();
// 退出 “ESC”
if (key==27) {
setfillstyle(1,7);bar(14*8,7*17,70*8,17*17);
hxs(14*8,7*17,”┌──────────────────────────┐”,0);
hxs(14*8,8*17,”│ │”,0);
hxs(14*8,9*17,”│ │”,0);
hxs(14*8,10*17,”│ │”,0);
hxs(14*8,11*17,”│ 是否退出(y/n)? │”,0);
hxs(14*8,12*17,”│ │”,0);
hxs(14*8,13*17,”│ │”,0);
hxs(14*8,14*17,”│ │”,0);
hxs(14*8,15*17,”│ │”,0);
hxs(14*8,16*17,”└──────────────────────────┘ “,0);
key=getch();if (key==y||key==Y) {cleardevice();closegraph(); fcloseall(); return;}
disp_tx();j=0;continue;}
if (key!=13) { ch[j]=key;gm=j;j++;if (j>5) j=5;}//1
if (key==47) {px();sprintf(ch1,”1A0001″);disp_tx();}
//涨跌”/”
if (key==13&&gm==1&&ch[0]==0) {//2
if (ch[1]==3) {gm=5;sprintf(ch,”1A0001″);}
if (ch[1]==4) {gm=5;sprintf(ch,”002A01″);}
if (ch[1]==5) {gm=3;sprintf(ch,”2B07″);} }
if (key==13&&gm==5) { sprintf(ch2,ch1);sprintf(ch3,ch);//if (gm==3) ch3[4]=ch3[5]= ;
sprintf(chh,”%c%c%c%c%c%c”,ch3[0],ch3[1],ch3[2],ch3[3],ch3[4],ch3[5]);
rewind(f1); while (ch1[0]!=e) {
fscanf(f1,”%6s”,&ch1);if (strcmp(ch1,chh)==0) break; }
if (ch1[0]==e) {ch1[0]=0;rewind(f1);
while (ch1[0]!=e) {fscanf(f1,”%6s”,&ch1);if (strcmp(ch1,ch2)==0) break;}}
disp_tx();}
if (key==75||key==77) {//3光标→ ←
if (xz>0) putimage(kd*(ts-xz)+kd/2+1,0,arrow,0);free(arrow);done=0;
if (key==75) xz++; else xz–;if (xz<=0) done=1;xz=min(max(1,xz),min(ts,zj));
arrow=malloc(imagesize(kd*(ts-xz)+kd/2+1,0,kd*(ts-xz)+kd/2+1,420));
getimage(kd*(ts-xz)+kd/2+1,0,kd*(ts-xz)+kd/2+1,426,arrow);
setcolor(7);line(kd*(ts-xz)+kd/2+1,10,kd*(ts-xz)+kd/2+1,426);
x=zs0[xz][0];
if (w<3) x=x/1000+(199000+100*((x%1000-1)/12)+(x%1000-1)%12+1)*100;
setcolor(0); outtextxy(582-8,20,”圹圹圹圹”);
setcolor(3);gcvt((double)x,8,chh);outtextxy(583-8,20,chh);
setcolor(0); outtextxy(582,32,”圹圹圹?);
setcolor(7);gcvt((double)zs0[xz][1]/100.,5,chh);outtextxy(582,32,”O:”);
outtextxy(598,32,chh);setcolor(0); outtextxy(582,42,”圹圹圹?);
setcolor(7);gcvt((double)zs0[xz][2]/100.,5,chh);outtextxy(582,42,”H:”);
outtextxy(598,42,chh);setcolor(0); outtextxy(582,52,”圹圹圹?);
setcolor(7);gcvt((double)zs0[xz][3]/100.,5,chh);outtextxy(582,52,”L:”);
outtextxy(598,52,chh);setcolor(0); outtextxy(582,62,”圹圹圹?);
setcolor(7);gcvt((double)zs0[xz][4]/100.,5,chh);outtextxy(582,62,”C:”);
outtextxy(598,62,chh); setcolor(0);outtextxy(582,80,”圹圹圹?);
setcolor(14);ltoa(cjl0[xz],chh,10);outtextxy(582,80,chh);gotoxy(40,23);
x=0;for (gd=0;gd<5;gd++) x=x+zs0[xz+gd+1][4];x=x/5.0;
setcolor(0);outtextxy(45,2,”圹圹圹?);setcolor(14);outtextxy(5,2,”5PMA”);
gcvt((double)x/100.,5,chh);outtextxy(45,2,chh);
x=0;for (gd=0;gd<10;gd++) x=x+zs0[xz+gd+1][4];x=x/10.0;
setcolor(0);outtextxy(135,2,”圹圹圹?);setcolor(13);outtextxy(95,2,”10PM”);
gcvt((double)x/100.,5,chh);outtextxy(135,2,chh);
x=0;for (gd=0;gd<20;gd++) x=x+zs0[xz+gd+1][4];x=x/20.0;
setcolor(0);outtextxy(220,2,”圹圹圹?);setcolor(9);outtextxy(185,2,”20PM”);
gcvt((double)x/100.,5,chh);outtextxy(220,2,chh);
x=0;for (gd=0;gd<30;gd++) x=x+zs0[xz+gd+1][4];x=x/30.0;
setcolor(0);outtextxy(310,2,”圹圹圹?);setcolor(2);outtextxy(275,2,”30PM”);
gcvt((double)x/100.,5,chh);outtextxy(310,2,chh);
x=0;for (gd=0;gd<75;gd++) x=x+zs0[xz+gd+1][4];x=x/75.0;
setcolor(0);outtextxy(405,2,”圹圹圹?);setcolor(6);outtextxy(365,2,”75PM”);
gcvt((double)x/100.,5,chh);outtextxy(405,2,chh);
x=0;for (gd=0;gd<150;gd++) x=x+zs0[xz+gd+1][4];x=x/150.0;
setcolor(0);outtextxy(500,2,”圹圹圹?);setcolor(7);outtextxy(455,2,”150PM”);
gcvt((double)x/100.,5,chh);outtextxy(500,2,chh);
x=0;for (gd=0;gd<5;gd++) x=x+zs0[xz+gd][4];x=x/5.0;//移动平均线
setcolor(0);outtextxy(45,2,”圹圹圹?);setcolor(14);outtextxy(5,2,”5PMA”);
gcvt((double)x/100.,5,chh);outtextxy(45,2,chh);
y=0;for (gd=0;gd<10;gd++) y=y+zs0[xz+gd][4];y=y/10.0;
setcolor(0);outtextxy(135,2,”圹圹圹?);setcolor(13);outtextxy(95,2,”10PM”);
gcvt((double)y/100.,5,chh);outtextxy(135,2,chh);
// cprintf(“%f”,(float)max(x,y)/min(x,y));
x=0;for (gd=0;gd<20;gd++) x=x+zs0[xz+gd][4];x=x/20.0;
setcolor(0);outtextxy(220,2,”圹圹圹?);setcolor(9);outtextxy(185,2,”20PM”);
gcvt((double)x/100.,5,chh);outtextxy(220,2,chh);
x=0;for (gd=0;gd<30;gd++) x=x+zs0[xz+gd][4];x=x/30.0;
setcolor(0);outtextxy(310,2,”圹圹圹?);setcolor(2);outtextxy(275,2,”30PM”);
gcvt((double)x/100.,5,chh);outtextxy(310,2,chh);
x=0;for (gd=0;gd<75;gd++) x=x+zs0[xz+gd][4];x=x/75.0;
setcolor(0);outtextxy(405,2,”圹圹圹?);setcolor(6);outtextxy(365,2,”75PM”);
gcvt((double)x/100.,5,chh);outtextxy(405,2,chh);
x=0;for (gd=0;gd<150;gd++) x=x+zs0[xz+gd][4];x=x/150.0;
setcolor(0);outtextxy(500,2,”圹圹圹?);setcolor(7);outtextxy(455,2,”150PM”);
gcvt((double)x/100.,5,chh);outtextxy(500,2,chh);
x=0;for (gd=0;gd<5;gd++) x=x+cjl0[xz+gd];x=x/5; //移动平均量
setcolor(0);outtextxy(100,222,”圹圹圹圹圹?);setcolor(14);outtextxy(40,222,”5PMV”);
ltoa(x,chh,10);outtextxy(100,222,chh);
x=0;for (gd=0;gd<10;gd++) x=x+cjl0[xz+gd];x=x/10;
setcolor(0);outtextxy(250,222,”圹圹圹圹圹?);setcolor(13);outtextxy(190,222,”10PMV”);
ltoa(x,chh,10);outtextxy(250,222,chh);
//
if (zb==1) {
ls=75;cz=xz+1;zz=0.000000000; for (j=cz;j<cz+ls;j++) {
bb=0.00000000000;for (i=0;i<ls;i++) bb=bb+(double)zs0[j+i][4]/(double)ls;//bb=(double)bb/(double)ls;
zz=zz+((double)zs0[j][4]-bb)*((double)zs0[j][4]-bb);
}zz=sqrt((double)zz/ls);
bb=0.0000000000;for (i=0;i<ls;i++) bb=bb+(double)zs0[cz+i][4]/(double)ls;//bb=(double)bb/ls;
xx=bb+boll_g*zz;yy=bb-boll_g*zz;
setcolor(0);outtextxy(60,302,”圹圹圹圹圹圹圹”);setcolor(15);
outtextxy(60,302,”UP:”);gcvt((double)xx/100.,5,chh);outtextxy(100,302,chh);
setcolor(0);outtextxy(190,302,”圹圹圹圹圹圹圹”);setcolor(14);
outtextxy(190,302,”MD:”);gcvt((double)bb/100.,5,chh);outtextxy(230,302,chh);
setcolor(0);outtextxy(320,302,”圹圹圹圹圹圹圹”);setcolor(2);
outtextxy(320,302,”DN:”);gcvt((double)yy/100.,5,chh);outtextxy(360,302,chh);
}
if (zb==0) {
if (key==75&&xz>1) {zz=(zz*10.0-(xx-yy)*2.0)/8.0;
xx=(xx*13.0-zs0[xz-1][4]*2.0)/11.0;yy=(yy*27.0-zs0[xz-1][4]*2.0)/25.0;
bb=(xx-yy-zz)*2.0; }
if (key==77&&done==0) {
xx=(xx*11.0+zs0[xz][4]*2.0)/13.0;
yy=(zs0[xz][4]*2.0+yy*25.0)/27.0;zz=(zz*8.0+(xx-yy)*2.0)/10.0;
bb=(xx-yy-zz)*2.0; }
setcolor(0);outtextxy(60,302,”圹圹圹圹圹圹圹圹圹圹”);setcolor(15);
outtextxy(60,302,”DIF:”);gcvt((double)(xx-yy),5,chh);outtextxy(100,302,chh);
setcolor(0);outtextxy(190,302,”圹圹圹圹圹圹圹圹圹圹”);setcolor(14);
outtextxy(190,302,”MACD:”);gcvt((double)zz,5,chh);outtextxy(230,302,chh);
setcolor(0);outtextxy(320,302,”圹圹圹圹圹圹圹圹圹圹”);setcolor(2);
outtextxy(320,302,”BAR:”);gcvt((double)bb,5,chh);outtextxy(360,302,chh);}
if (zb==2) ;
