以下是行情快车4.0的！更新日期是.1.26日！
#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 aa_,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," 阿华证券软件工作室 主页:~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) ;
}
if (key==72||key==80) {//4光标↑↓
if (key==72) ts=(ts)/2+1;else ts=(ts)*2+1;
if (ts<11) ts=11;if (ts>580) ts=580;kd=580/(ts);
disp_tx();}
//5 Ctrl+Home
if (key==115||key==116) {if (key==115) tz=tz+bc;else tz=tz-bc;
if (tz<0) tz=0; disp_tx();}
//6 Ctrl+End
if (key==119) bc=bc+5;if (key==117) bc=bc-5;if (bc<1) bc=1;
//7Pgup Pgdn
if (key==73||key==81) {if (key==73) fseek(f1,-12,1);fscanf(f1,"%6s",&ch1);
if (ch1[0]==‘k‘) {fseek(f1,-12,2);fscanf(f1,"%6s",&ch1);} if (ch1[0]==‘e‘)
{fseek(f1,6,0);fscanf(f1,"%6s",&ch1);}disp_tx();}
//10.5个股资料
if (key==68) {
if (sjgs==0) {
if (strcmp(ch3,"190000")>0) sprintf(f,"%c:/%s/txt/%6s.txt",pf,ff,ch1); else
sprintf(f,"%c:/%s/txt/%c%c%c%c.txt",pf,ff,ch1[2],ch1[3],ch1[4],ch1[5]);}
if (sjgs==1) {
if (strcmp(ch3,"190000")>0) sprintf(f,"%c:/%s/data/shase/base/%6s.txt",pf,ff,ch1); else
sprintf(f,"%c:/%s/data/sznse/base/%c%c%c%c.txt",pf,ff,ch1[2],ch1[3],ch1[4],ch1[5]);}
if (sjgs==3) {
if (strcmp(ch3,"190000")>0) sprintf(f,"%c:/%s/txt/sh/%6s.txt",pf,ff,ch1); else
sprintf(f,"%c:/%s/txt/sz/%c%c%c%c.txt",pf,ff,ch1[2],ch1[3],ch1[4],ch1[5]);}
if (sjgs==4) {
if (strcmp(ch3,"190000")>0) sprintf(f,"%c:/%s/info/sh/base/%6s.txt",pf,ff,ch1); else
sprintf(f,"%c:/%s/info/sz/base/%c%c%c%c.txt",pf,ff,ch1[2],ch1[3],ch1[4],ch1[5]);}
if ((f3=_fsopen(f,"rb",SH_DENYNO))!=0)
{ls=0;
while (!feof(f3)) {cleardevice();cjl0[ls]=ftell(f3); for (j=0;j<30;j++) {
i=0;fread(&cch,1,1,f3);
if (cch==‘\r‘) {cch=‘ ‘; fseek(f3,1,1);sprintf(ccc,"%c",cch);
sprintf(ch8,ccc);hxs(0*8,j*16,ch8,14);continue;}
sprintf(ccc,"%c",cch);
sprintf(ch8,ccc);
if (cch>=‘ ‘&&cch<=‘~‘) done=0;else done=1;
if (cch==‘\t‘) {sprintf(ch8," ");done=0;}
while (!feof(f3)&&i<77) {i++;
fread(&cch,1,1,f3);if (cch==‘\r‘) {fseek(f3,1,1);break;}
sprintf(ccc,"%c",cch);strcat(ch8,ccc);
if (cch>=‘ ‘&&cch<=‘~‘) done=0;else done++;
}
if (done%2==1) {fseek(f3,-1,1);ch8[i]=‘ ‘;}
if feof(f3) break;hxs(0*8,j*16,ch8,14);}
while (1==1) {key=getch();if (key==73||key==27||key==81) break;}
if (key==27) break; if (key==73&&ls>0) {ls--;fseek(f3,cjl0[ls],0);ls--;}
ls++;if feof(f3) {ls=0;fseek(f3,cjl0[ls],0);}} fclose(f3);}key=0;disp_tx();}
//11 *指标变换
if (key==42) {setviewport(2,302,579,428,0); zb=(zb+1)%5;
clearviewport();setviewport(0,0,639,479,0); disp_zb(zb);}
//f7 名称更新
if (key==65) {fclose(f1);fclose(f3);bar(1*8,24*18,79*8,25*18);
hxs(1*8,24*18," 正在更新代码表..... ",3);
ch8[79]=‘ ‘;
if (sjgs==3) sprintf(ch8,"dir %c:%s\\5?????.day/on/b>name",pf,cs[1]);
else sprintf(ch8,"dir %c:%s\\day\\5?????.day/on/b>name",pf,cs[1]);
for (i=0;i<78;i++) { while (ch8[i]==‘ ‘&&i<78&&i>3)
{for (j=i;j<78;j++) ch8[j]=ch8[j+1];}} system(ch8);
if (sjgs==3) sprintf(ch8,"dir %c:%s\\6?????.day/on/b>>name",pf,cs[1]);
else sprintf(ch8,"dir %c:%s\\day\\6?????.day/on/b>>name",pf,cs[1]);
for (i=0;i<78;i++) { while (ch8[i]==‘ ‘&&i<78&&i>3)
{for (j=i;j<78;j++) ch8[j]=ch8[j+1];}}system(ch8);
if (sjgs==0) sprintf(ch8,"dir %c:%s\\day\\00????.day/on/b>>name",pf,cs[2]);
else if (sjgs==3)sprintf(ch8,"dir %c:%s\\00????.day/on/b>>name",pf,cs[2]);
else sprintf(ch8,"dir %c:%s\\day\\00????.day/on/b>>name",pf,cs[2]);
for (i=0;i<78;i++) { while (ch8[i]==‘ ‘&&i<78&&i>3)
{for (j=i;j<78;j++) ch8[j]=ch8[j+1];}}system(ch8);
if (sjgs==0) sprintf(ch8,"dir %c:%s\\day\\18????.day/on/b>>name",pf,cs[2]);
else if (sjgs==3)sprintf(ch8,"dir %c:%s\\18????.day/on/b>>name",pf,cs[2]);
else sprintf(ch8,"dir %c:%s\\day\\18????.day/on/b>>name",pf,cs[2]);
for (i=0;i<78;i++) { while (ch8[i]==‘ ‘&&i<78&&i>3)
{for (j=i;j<78;j++) ch8[j]=ch8[j+1];}}system(ch8);
f3=_fsopen("name","rt",SH_DENYNO);fseek(f3,0,2);if (ftell(f3)!=0)
{f1=_fsopen("sh.txt","wt+",SH_DENYNO);rewind(f3);
for (i=0;i<6;i++) chh[i]=‘k‘;fwrite(&chh,6,1,f1);chh[0]=‘1‘;chh[1]=‘A‘;
chh[2]=‘0‘;chh[3]=‘0‘;chh[4]=‘0‘;chh[5]=‘1‘;fwrite(&chh,6,1,f1);
chh[0]=‘0‘;chh[1]=‘0‘;chh[2]=‘2‘;chh[3]=‘A‘;chh[4]=‘0‘;chh[5]=‘1‘;
fwrite(&chh,6,1,f1); fread(&chh,6,1,f3);
while (!feof(f3)&&chh[4]!=‘.‘) {fwrite(&chh,6,1,f1);fseek(f3,6,1);fread(&chh,6,1,f3);}
for (i=0;i<6;i++) chh[i]=‘e‘; fwrite(&chh,6,1,f1);fclose(f1);}
fclose(f3); bar(1*8,24*18,79*8,25*18);
hxs(7*8,24*18," 代码表更新完毕!任意键退回!",3); cch=getch();fclose(f1);
if ((f1=_fsopen("sh.txt","rt",SH_DENYNO))!=0) fseek(f1,6,1);
sprintf(ch,ch3);
fscanf(f1,"%6s",&ch1); if (ch3[0]==32) sprintf(ch,ch1);
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); //定位
gotoxy(60,25);cprintf(" "); disp_tx();
}
// H帮助功能
if (key==104) { setfillstyle(1,7);bar(10*8,7*17,74*8,21*17);
hxs(10*8,7*17,"┌──────────────────────────────┐",0);
hxs(10*8,8*17,"│ 功 能 说 明 │",0);
hxs(10*8,9*17,"││",0);
hxs(10*8,10*17,"│ H:帮助 F1,F2,F3:选股 F7:代码更新 F8:周期 F10:个股资料 │",0);
hxs(10*8,11*17,"││",0);
hxs(10*8,12*17,"│ *:指标↑:放大图形 ↓:缩小图形 →:左移查询 ←:右移查询 │",0);
hxs(10*8,13*17,"││",0);
hxs(10*8,14*17,"│ /:涨跌Ctrl+Home:增加翻页天数Ctrl+End:减少翻页天数 │",0);
hxs(10*8,15*17,"││",0);
hxs(10*8,16*17,"│ Pageup:上翻 Pagedn:下翻 Ctrl+→:往前翻 Ctrl+→:往后翻 │",0);
hxs(10*8,17*17,"││",0);
hxs(10*8,18*17,"│ (选股时出现退出或者死机现象,证明你的数据有误,要更新!) │",0);
hxs(10*8,19*17,"││",0);
hxs(10*8,20*17,"└──────────────────────────────┘",0);
textcolor(3);textbackground(0);getch();disp_tx();}
//12 周期变换
if (key==66) { if (w==1) bc=bc*5;if (w==2) bc=3.*bc/5.;if (w==3||w==4) bc=2.*bc;if (w==5) bc=bc/12.;
w=w%5+1; disp_tx();}
//13 F2自动推荐 f1为全目录 f2为条件选股目录 f3为即时文件 zd.txt为自动文件
if (key==59||key==60||key==61||key==62) {fclose(f1);x=atol(rq1);if (x>30020512l||x<19900101l) return;
zdzt=(zdzt+1)%2; setfillstyle(1,7);bar(10*8,7*17,74*8,21*17);
if (key==59) {
hxs(10*8,7*17,"┌──────────────────────────────┐",0);
hxs(10*8,8*17,"│ 必涨形态选股(10天5％成功率在95％左右) │",0);
hxs(10*8,9*17,"││",0);
hxs(10*8,10*17,"│ 该形态是在上升通道或者盘跌尾端突然出现大幅低开， │",0);
hxs(10*8,11*17,"││",0);
hxs(10*8,12*17,"│ 然后引起股价急速上行的现象，从物理学原理解释，这种股 │",0);
hxs(10*8,13*17,"││",0);
hxs(10*8,14*17,"│ 价的运动起其惯性趋势最强，如果我们买在该趋势刚出现的 │",0);
hxs(10*8,15*17,"││",0);
hxs(10*8,16*17,"│ 第一天，那么赚的概率就是最高。该算法数量每年15只左右 │",0);
hxs(10*8,17*17,"││",0);
hxs(10*8,18*17,"│ 正在分析： │",0);
hxs(10*8,19*17,"││",0);
hxs(10*8,20*17,"└──────────────────────────────┘",0);}
if (key==61) {
hxs(10*8,7*17,"┌──────────────────────────────┐",0);
hxs(10*8,8*17,"│ 穿三线(10天3％成功率在70％左右)│",0);
hxs(10*8,9*17,"││",0);
hxs(10*8,10*17,"│ 按F2键实现自动推荐和不推荐之间的互相转换，自动推荐后按 │",0);
hxs(10*8,11*17,"││",0);
hxs(10*8,12*17,"│ 翻页键只能查询到自动推荐的股票，不推荐则恢复到推荐之前， │",0);
hxs(10*8,13*17,"││",0);
hxs(10*8,14*17,"│ 该算法将推荐探底短期均线且均线多头排列的股票。一般大盘 │",0);
hxs(10*8,15*17,"││",0);
hxs(10*8,16*17,"│ 走牛的时候，可以天天找到，成功率很高！ │",0);
hxs(10*8,17*17,"││",0);
hxs(10*8,18*17,"│ 正在分析： │",0);
hxs(10*8,19*17,"││",0);
hxs(10*8,20*17,"└──────────────────────────────┘",0);}
if (key==62) {
hxs(10*8,7*17,"┌──────────────────────────────┐",0);
hxs(10*8,8*17,"│ 底 部 形 态(10天3％成功率在70％左右) │",0);
hxs(10*8,9*17,"││",0);
hxs(10*8,10*17,"│ 该算法将推荐具备七大底部形态特征的股票，七大底部形态是 │",0);
hxs(10*8,11*17,"││",0);
hxs(10*8,12*17,"│ 指：阳夹阴、平台底、海底月、红三兵、均线星、探底线、长 │",0);
hxs(10*8,13*17,"││",0);
hxs(10*8,14*17,"│ 尾线；该算法在行情启动之初相当实用，对走出盘局即将拉升 │",0);
hxs(10*8,15*17,"││",0);
hxs(10*8,16*17,"│ 的股票有很高的预见性！ │",0);
hxs(10*8,17*17,"││",0);
hxs(10*8,18*17,"│ 正在分析： │",0);
hxs(10*8,19*17,"││",0);
hxs(10*8,20*17,"└──────────────────────────────┘",0);}
if (key==60) {
hxs(10*8,7*17,"┌──────────────────────────────┐",0);
hxs(10*8,8*17,"│ 熊 市 克 星 (10天3％成功率在77％左右) │",0);
hxs(10*8,9*17,"││",0);
hxs(10*8,10*17,"│ 该算法推荐调整比较充分,低位启动比较明显的股票! │",0);
hxs(10*8,11*17,"││",0);
hxs(10*8,12*17,"││",0);
hxs(10*8,13*17,"││",0);
hxs(10*8,14*17,"││",0);
hxs(10*8,15*17,"││",0);
hxs(10*8,16*17,"││",0);
hxs(10*8,17*17,"││",0);
hxs(10*8,18*17,"│ 正在分析： │",0);
hxs(10*8,19*17,"││",0);
hxs(10*8,20*17,"└──────────────────────────────┘",0);
}
if ((f1=_fsopen("sh.txt","rt",SH_DENYNO))!=0) fseek(f1,6,1);
if (w<3) sprintf(ml,"/day");else sprintf(ml,"/min");
if (sjgs==3) sprintf(ml,"/");
if (w==5) sprintf(kzm,".min");if (w==4) sprintf(kzm,".min");
if (w<3) sprintf(kzm,".day");
sprintf(ch,ch3);
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 (strcmp(ch3,"190000")<=0) {//数据文件设定
sprintf(ch3,ch1);
sprintf(ch0,"%c:%s%s/%6s%s",pf,cs[2],ml,ch3,kzm); }
else sprintf(ch0,"%c:%s%s/%6s%s",pf,cs[1],ml,ch3,kzm);
if (zdzt==1) {
f2=_fsopen("zd.txt","wb+",SH_DENYNO);for (i=0;i<6;i++) ch1[i]=‘k‘;fwrite(&ch1,6,1,f2);
while (!kbhit()&&ch1[0]!=‘e‘) { fscanf(f1,"%6s",&ch1);
sprintf(ch3,ch1);
if (strcmp(ch3,"190000")<=0) {
sprintf(ch0,"%c:%s%s/%6s%s",pf,cs[2],ml,ch3,kzm); }
else {sprintf(ch0,"%c:%s%s/%6s%s",pf,cs[1],ml,ch3,kzm);}
hxs(30*8,18*17,ch3,0);
if ((f3=_fsopen(ch0,"rb",SH_DENYNO))!=0){
cjl0[1]=0l; xz=0;textcolor(3);fseek(f3,0,2);
if (sjgs==0) zj=ftell(f3)/16-tz; if (sjgs==2) zj=ftell(f3)/29-tz;
if (sjgs==1||sjgs==3||sjgs==4) zj=ftell(f3)/40-tz;
cjl0[0]=0; zs0[0][3]=zs0[0][4]=zs0[0][1]=zs0[0][2]=zs0[0][0]=0;
if (sjgs==0) fseek(f3,-16l*(tz+1),2);if (sjgs==2) fseek(f3,-29l*(tz+1),2);
if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40l*(tz+1),2);
if (w==3) zj=zj/6; if (w==4) zj=zj/12;
for (i=0;i<min(ts+250,zj);i++)
{if (sjgs==0) {fread(&zs0[i+1],10,1,f3);fseek(f3,2,1);fread(&cjl0[i+1],4,1,f3);}
if (sjgs==1||sjgs==3) {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+1][j]=c[j]/10;}
zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[i+1]=c[6];}
if (sjgs==4) {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+1][j]=-1*c[j]/10;}
zs0[i+1][2]=-1*c[3]/10;zs0[i+1][3]=-1*c[4]/10;zs0[i+1][4]=-1*c[2]/10;
c[0]=-1*c[0]-1; zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[i+1]=-1*c[6];}
if (sjgs==2) {fread(&c[0],4,1,f3);fread(&fd,20,1,f3);fread(&c[6],4,1,f3);
for (j=1;j<5;j++) {if (ch3[1]==‘A‘||ch3[1]==‘B‘) fd[j-1]=fd[j-1]/100;
zs0[i+1][j]=fd[j-1]*100;}
zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,1,1);cjl0[i+1]=c[6]/100;}
if (sjgs==0) fseek(f3,-16,1);if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40,1);
if (sjgs==2) fseek(f3,-29,1);
//周线
if (w>1) zxfs();
//
if (ftell(f3)==0L) {zj=i+1;break;}
if (sjgs==0) fseek(f3,-16,1);if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40,1);
if (sjgs==2) fseek(f3,-29,1);} fclose(f3); cjl0[0]=cjl0[1];
for (i=1;i<min(ts,zj);i++) {if (cjl0[0]<cjl0[i+1]) cjl0[0]=cjl0[i+1];}
zs0[0][2]=zs0[1][2]; for (i=1;i<min(ts,zj);i++)
{if (zs0[0][2]<zs0[i+1][2]) zs0[0][2]=zs0[i+1][2]; }
zs0[0][3]=zs0[1][3]; for (i=1;i<min(ts,zj);i++)
{if (zs0[0][3]>zs0[i+1][3]) zs0[0][3]=zs0[i+1][3];}
aa=25;//30
for (i=0;i<aa;i++) {for (j=0;j<8;j++) lj[i][j]=0;}
//均量\均线 0-5日线 1-10日线 2-30日线 3-5日量 4-10日量
for (gd=0;gd<aa;gd++) {
tmp=0.;for(i=0;i<5;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][0]=tmp/5.0;
tmp=0.;for(i=0;i<10;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][1]=tmp/10.0;
tmp=0.;for(i=0;i<30;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][2]=tmp/30.0;
tmp=0.;for(i=0;i<75;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][5]=tmp/75.0;
tmp=0.;for(i=0;i<150;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][7]=tmp/150.0;
tmp=0.;for(i=0;i<20;i++)tmp=tmp+zs0[i+1+gd][4];lj[gd][6]=tmp/20.0;
tmp=0.;for (i=0;i<5;i++)tmp=tmp+cjl0[i+1+gd];lj[gd][3]=tmp/5.0;
tmp=0.;for(i=0;i<10;i++)tmp=tmp+cjl0[i+1+gd];lj[gd][4]=tmp/10.0;}
enter=‘Z‘;cz=1; //if (zj+tz<150l) cjl0[1]=0l;
if (cjl0[cz]<=0l||zs0[cz][4]<=0||zs0[cz][3]<=0||zs0[cz][2]<=0
||zs0[cz][1]<=0) ; else
{cc=0;xt();//printf("%d",cc);getch();
}} hxs(30*8,18*17,ch3,7);} //while为止
for (i=0;i<6;i++) ch1[i]=‘e‘; fwrite(&ch1,6,1,f2);fclose(f2);fclose(f1);
if ((f1=_fsopen("zd.txt","rt",SH_DENYNO))!=0) fseek(f1,6,1);
fscanf(f1,"%6s",&ch1);}
if (ch1[0]==‘e‘){fclose(f1);cleardevice();hxs(30*8,12*17,"找不到!",10);
getch();f1=_fsopen("sh.txt","rt",SH_DENYNO);
fseek(f1,6,1);fscanf(f1,"%6s",&ch1);zdzt=0; }
else if (zdzt==1) {cleardevice();i=2;hxs(28*8,0,"找到以下股票",10);
for (j=0;!feof(f1)&&j<10;j++) {hxs(j*60,i*17,ch1,10);fscanf(f1,"%6s",&ch1);
if (j==9) {j=-1;i++;} if (i>20) break;}
getch();rewind(f1);fseek(f1,6,1);fscanf(f1,"%6s",&ch1);
} textbackground(0);disp_tx();}
//14
if (key>47&&key<58) { sprintf(ccc,"%c",key); hxs((72+gm)*8,24*18,ccc,3);}
else { setfillstyle(1,0); bar(72*8,24*18,78*8,24*18+17);j=0;}
}
}
void disp_tx(void) {//图形显示
if (w<3) sprintf(ml,"/day");else sprintf(ml,"/min");
if (w==5) sprintf(kzm,".min");
if (w==3) sprintf(kzm,".min");
if (w<3) sprintf(kzm,".day");
sprintf(ch3,ch1);
if (sjgs==3) {sprintf(chh,ch3);
if (strcmp(ch3,"1A0001")==0) sprintf(ch3,"000001");
if (strcmp(ch3,"002A01")==0) sprintf(ch3,"9901"); }
if (sjgs==2) {sprintf(chh,ch3);
if (strcmp(ch3,"1A0001")==0)sprintf(ch3,"000000");
if (strcmp(ch3,"002A01")==0) sprintf(ch3," 00000"); }
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);
} else sprintf(ch0,"%c:%s%s%c%s%s",pf,cs[1],ml,‘\\‘,ch3,kzm);
if (sjgs==2||sjgs==3) sprintf(ch3,chh);
cleardevice();sprintf(f,"txt/%s.nam",ch3);//printf("%s",f);getch();
if ((f3=_fsopen(f,"rb",SH_DENYNO))!=0) {//fseek(f3,102l,1);
fread(&mc,8,1,f3);hxs(63*8,18*24,mc,14);fclose(f3);}
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,"<15",3);if (w==4) hxs(1*8,18*24,"<30",3);
if (w==5) hxs(1*8,18*24,"<60",3);
hxs(4*8,18*24,"线>F1必涨 F2熊市克星 F3穿3线 F4搜股 F7代码更新 H帮助 *指标",3);
if ((f3=_fsopen(ch0,"rb",SH_DENYNO))!=0){
cjl0[1]=0l;xz=0;textcolor(3); hxs(74*8,18*23,ch3,3);fseek(f3,0,2);
if ((sjgs==0&&tz>=ftell(f3)/16)||((sjgs==1||sjgs==3||sjgs==4)&&tz>=ftell(f3)/40)||
(sjgs==2&&tz>=ftell(f3)/29))
{fclose(f3);hxs(26*8,12*18," 此日无该股资料!",3);return;}
if (sjgs==0) zj=ftell(f3)/16-tz; if (sjgs==1||sjgs==3||sjgs==4) zj=ftell(f3)/40-tz;
if (sjgs==2) zj=ftell(f3)/29-tz;
cjl0[0]=0; zs0[0][3]=zs0[0][4]=zs0[0][1]=zs0[0][2]=zs0[0][0]=0;
if (sjgs==0) fseek(f3,-16l*(tz+1),2); if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40l*(tz+1),2);
if (sjgs==2) fseek(f3,-29l*(tz+1),2); if (w==3) zj=zj/6; if (w==4) zj=zj/12l;
for (i=0;i<min(ts+250,zj);i++)
{if (sjgs==0) {fread(&zs0[i+1],10,1,f3);
fread(&cjl1[i+1],2,1,f3);fread(&cjl0[i+1],4,1,f3);}
if (sjgs==1||sjgs==3) {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+1][j]=c[j]/10;}
zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[i+1]=c[6];}
if (sjgs==4) {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+1][j]=-1*c[j]/10;}
zs0[i+1][2]=-1*c[3]/10;zs0[i+1][3]=-1*c[4]/10;zs0[i+1][4]=-1*c[2]/10;
c[0]=-1*c[0]-1;zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1); cjl0[i+1]=-1*c[6];cjl1[i+1]=-1*c[5];}
if (sjgs==2) {fread(&c[0],4,1,f3);fread(&fd,20,1,f3);fread(&c[6],4,1,f3);
for (j=1;j<5;j++)
{if (ch3[1]==‘A‘||ch3[1]==‘B‘) fd[j-1]=fd[j-1]/100;zs0[i+1][j]=fd[j-1]*100;}
zs0[i+1][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,1,1);cjl0[i+1]=c[6]/100;}
if (sjgs==0) fseek(f3,-16,1);if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40l,1);
if (sjgs==2) fseek(f3,-29,1); zxfs();
if (ftell(f3)==0L) {zj=i+1;break;}
if (sjgs==0) fseek(f3,-16,1);if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40l,1);
if (sjgs==2) fseek(f3,-29,1);
} fclose(f3);
cjl0[0]=cjl0[1]; for (i=1;i<min(ts,zj);i++)
{if (cjl0[0]<cjl0[i+1]) cjl0[0]=cjl0[i+1];}
zs0[0][2]=zs0[1][2]; for (i=1;i<min(ts,zj);i++)
{if (zs0[0][2]<zs0[i+1][2]) zs0[0][2]=zs0[i+1][2]; }
zs0[0][3]=zs0[1][3]; for (i=1;i<min(ts,zj);i++)
{if (zs0[0][3]>zs0[i+1][3]) zs0[0][3]=zs0[i+1][3];}
setcolor(4);setlinestyle(1,1,1);line(0,0,0,0);line(1,230,580,230);
line(0,10,580,10);line(0,71,580,71);line(0,141,580,141);setlinestyle(0,0,1);
line(0,0,580,0);line(0,300,580,300);line(580,0,580,430);line(0,0,0,430);
line(0,429,640,429);line(0,220,580,220);setcolor(12);
if (zs0[0][2]==zs0[0][3]) return;
itoa(zs0[0][2],chh,10);outtextxy(580,4,chh);itoa(zs0[0][3],chh,10);
outtextxy(580,210,chh);itoa(2*zs0[0][2]/3.0+zs0[0][3]/3.0,chh,10);
outtextxy(580,71,chh);itoa(zs0[0][2]/3.0+2*zs0[0][3]/3.0,chh,10);
outtextxy(580,141,chh);setcolor(14);ltoa(cjl0[0],rq0,10);
outtextxy(580,222,rq0);ltoa(2*cjl0[0]/3.0,rq0,10);outtextxy(580,247,rq0);
ltoa(cjl0[0]/3.0,rq0,10);outtextxy(580,272,rq0);
//K线和量
for (i=max(ts-zj,0);i<ts;i++) {
if (zs0[ts-i][1]<=zs0[ts-i][4])setcolor(12);
if (zs0[ts-i][1]>zs0[ts-i][4])setcolor(3);
x=219.0-208.0*(zs0[ts-i][1]-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
y=219.0-208.0*(zs0[ts-i][4]-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
x1=219.0-208.0*(zs0[ts-i][2]-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
y1=219.0-208.0*(zs0[ts-i][3]-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<=x) setfillstyle(0,12); else setfillstyle(1,3);
if (x>y){ line(kd*i+kd/2+1,x1,kd*i+kd/2+1,y); line(kd*i+kd/2+1,x,kd*i+kd/2+1,y1); }
else { line(kd*i+kd/2+1,x1,kd*i+kd/2+1,x); line(kd*i+kd/2+1,y,kd*i+kd/2+1,y1); }
bar3d(kd*i+kd/2+1-kd/3,x,kd*i+kd/2+1+kd/3,y,0,0);
x1=302.0-(70.0*cjl0[ts-i])/cjl0[0];
bar3d(kd*i+kd/2+1-kd/3,x1,kd*i+kd/2+1+kd/3,299,0,0);} setcolor(14);
//移动平均量
x=0;for (gd=0;gd<5;gd++) x=x+cjl0[xz+gd+1];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+1];x=x/10;
setcolor(0);outtextxy(250,222,"圹圹圹圹圹?);setcolor(13);outtextxy(190,222,"10PMV");
ltoa(x,chh,10);outtextxy(250,222,chh);
//均量线
for (i=max(ts-zj,0);i<ts;i++) {
if (zj>ts-i+4) {x=0;x1=0;for (gd=0;gd<5;gd++) x=x+cjl0[ts-i+gd];
y=302.0-(70.0*(x/5.0)/cjl0[0]);
for (gd=0;gd<5;gd++) x1=x1+cjl0[ts-i+1+gd];
y1=302.0-(70.0*(x1/5.0)/cjl0[0]);if (y<300&&y1<300&&y>220&&y1>220)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(13); }
if (zj>ts-i+9) {x=0;x1=0;for (gd=0;gd<10;gd++) x=x+cjl0[ts-i+gd];
y=302.0-(70.0*(x/10.0)/cjl0[0]);
for (gd=0;gd<10;gd++) x1=x1+cjl0[ts-i+1+gd];
y1=302.0-(70.0*(x1/10.0)/cjl0[0]);if (y<300&&y1<300&&y>220&&y1>220)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(14);}}
//移动平均线
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);
//均线
for (i=max(ts-zj,0);i<ts;i++) {
if (zj>ts-i+74) {setcolor(6);
x=0;x1=0;for (gd=0;gd<75;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/75.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<75;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/75.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(13); }
if (zj>ts-i+149) {setcolor(7);
x=0;x1=0;for (gd=0;gd<150;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/150.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<150;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/150.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(13); }
if (zj>ts-i+4) {setcolor(14);
x=0;x1=0;for (gd=0;gd<5;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/5.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<5;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/5.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(9); }
if (zj>ts-i+19) {
x=0;x1=0;for (gd=0;gd<20;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/20.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<20;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/20.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(13);}
if (zj>ts-i+9) {
x=0;x1=0;for (gd=0;gd<10;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/10.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<10;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/10.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);setcolor(2);}
if (zj>ts-i+29) {
x=0;x1=0;for (gd=0;gd<30;gd++) x=x+zs0[ts-i+gd][4];
y=219.0-208.0*(x/30.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
for (gd=0;gd<30;gd++) x1=x1+zs0[ts-i+1+gd][4];
y1=219.0-208.0*(x1/30.0-zs0[0][3])/(zs0[0][2]-zs0[0][3]);
if (y<219&&y1<219&&y>10&&y1>10)
line(kd*i+kd/2+1,y,kd*(i-1)+kd/2+1,y1);}}
disp_zb(zb);return;}
}
void zxfs(void) {//周线
if (w==2) {zs0[0][0]=zs0[i+1][0];zs0[0][4]=zs0[i+1][4];
zs0[0][2]=zs0[i+1][2];zs0[0][3]=zs0[i+1][3];cjl0[0]=cjl0[i+1];
cjl1[0]=cjl1[i+1]; zs0[999][0]=zs0[0][0];x=zs0[0][0];
x=x/1000+(9000+100*((x%1000-1)/12)+(x%1000-1)%12+1)*100;
s.tm_mday=1;s.tm_mon=0;s.tm_year=x/10000l;
t=mktime(&s);y=s.tm_wday;
s.tm_mon=(x%10000)/100-1;s.tm_mday=x%100;t=mktime(&s);
y1=(s.tm_yday+y)/7+1;zs0[999][1]=zs0[i+1][1];
while (ftell(f3)!=0L) {
if (sjgs==0) {fseek(f3,-16,1);fread(&done,2,1,f3);fseek(f3,-2,1);}
if (sjgs==1||sjgs==3||sjgs==4) {fseek(f3,-40,1); fread(&c[0],4,1,f3);
fseek(f3,-4,1); if (sjgs==4) c[0]=-1*c[0]-1;
done=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;}
if (sjgs==2) {fseek(f3,-29,1); fread(&c[0],4,1,f3);fseek(f3,-4,1);
done=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;}
x=done;x=x/1000+(9000+100*((x%1000-1)/12)+(x%1000-1)%12+1)*100;
s.tm_mday=1;s.tm_mon=0;s.tm_year=x/10000;t=mktime(&s);y=s.tm_wday;
s.tm_mon=(x%10000)/100-1;s.tm_mday=x%100;s.tm_year=x/10000;t=mktime(&s);
if ((s.tm_yday+y)/7+1!=y1) {if (sjgs==0) fseek(f3,16,1);
if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,40,1);if (sjgs==2) fseek(f3,29,1);
break;} y1=(s.tm_yday+y)/7+1;if (sjgs==0) {fread(&zs0[999],10,1,f3);
fseek(f3,2,1);fread(&cjl0[999],4,1,f3);fseek(f3,-16,1);}
if (sjgs==1||sjgs==3) {fread(&c,28,1,f3);for (j=1;j<5;j++)
{if (ch3[1]==‘A‘||ch3[1]==‘B‘) c[j]=c[j]/100; zs0[999][j]=c[j]/10;}
zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[999]=c[6];fseek(f3,-40,1);}
if (sjgs==4) {fread(&c,28,1,f3);for (j=1;j<5;j++)
{if (ch3[1]==‘A‘||ch3[1]==‘B‘) c[j]=c[j]/100; zs0[999][j]=-1*c[j]/10;}
zs0[999][2]=-1*c[3]/10;zs0[999][3]=-1*c[4]/10;zs0[999][4]=-1*c[2]/10;
c[0]=-1*c[0]-1;zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[999]=-1*c[6];cjl1[999]=-1*c[5];fseek(f3,-40,1);}
if (sjgs==2) {fread(&c[0],4,1,f3);fread(&fd,20,1,f3);fread(&c[6],4,1,f3);
for (j=1;j<5;j++){if (ch3[1]==‘A‘||ch3[1]==‘B‘) fd[j-1]=fd[j-1]/100;
zs0[999][j]=fd[j-1]*100;}
zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,1,1);cjl0[999]=c[6]/100;fseek(f3,-29,1);}
zs0[0][2]=max(zs0[0][2],zs0[999][2]);zs0[0][3]=min(zs0[0][3],zs0[999][3]);
cjl0[0]=cjl0[0]+cjl0[999];cjl1[0]=cjl1[0]+cjl1[999];}zs0[i+1][0]=zs0[0][0];
zs0[i+1][4]=zs0[0][4];zs0[i+1][2]=zs0[0][2];zs0[i+1][3]=zs0[0][3];
zs0[i+1][1]=zs0[999][1];cjl0[i+1]=cjl0[0];cjl1[i+1]=cjl1[0];
}
//30,60线
// /*
if (w>2) {zs0[0][0]=zs0[i+1][0];zs0[0][4]=zs0[i+1][4];zs0[0][2]=zs0[i+1][2];
zs0[0][3]=zs0[i+1][3];cjl0[0]=cjl0[i+1];cjl1[0]=cjl1[i+1];
zs0[999][0]=zs0[0][0];x=zs0[0][0];x=c[0];
if (x%10000>1200) x=(x/10000)*10+(x%10000-1300)/60+5;
elsex=(x/10000)*10+(x%10000-950)/60+1; zs0[0][0]=x;
zs0[999][1]=zs0[i+1][1];ls=0;if (w==3) gd=2;if (w==4) gd=5;if (w==5) gd=11;
while (ftell(f3)!=0&&ls<gd) {ls++; if (sjgs==0) fseek(f3,-16,1);
if (sjgs==1||sjgs==3||sjgs==4) fseek(f3,-40,1);
if (sjgs==2) fseek(f3,-29,1); if (sjgs==0) {fread(&zs0[999],10,1,f3);
fseek(f3,2,1);fread(&cjl0[999],4,1,f3);fseek(f3,-16,1);}
if (sjgs==1||sjgs==3) {fread(&c,28,1,f3);for (j=1;j<5;j++)
{if (ch3[1]==‘A‘||ch3[1]==‘B‘) c[j]=c[j]/100; zs0[999][j]=c[j]/10;}
zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[999]=c[6];fseek(f3,-40,1);}
if (sjgs==4) {fread(&c,28,1,f3);for (j=1;j<5;j++)
{if (ch3[1]==‘A‘||ch3[1]==‘B‘) c[j]=c[j]/100; zs0[999][j]=-1*c[j]/10;}
zs0[999][2]=-1*c[3]/10;zs0[999][3]=-1*c[4]/10;zs0[999][4]=-1*c[2]/10;
c[0]=-1*c[0]-1;zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,12,1);cjl0[999]=-1*c[6];cjl1[999]=-1*c[5];fseek(f3,-40,1);}
if (sjgs==2) {fread(&c[0],4,1,f3);fread(&fd,20,1,f3);fread(&c[6],4,1,f3);
for (j=1;j<5;j++){if (ch3[1]==‘A‘||ch3[1]==‘B‘) fd[j-1]=fd[j-1]/100;
zs0[999][j]=fd[j-1]*100;}
zs0[999][0]=(c[0]%100)*1000+(c[0]/10000-1990)*12+(c[0]%10000)/100;
fseek(f3,1,1);cjl0[999]=c[6]/100;fseek(f3,-29,1);}
zs0[0][2]=max(zs0[0][2],zs0[999][2]);zs0[0][3]=min(zs0[0][3],zs0[999][3]);
cjl0[0]=cjl0[0]+cjl0[999];cjl1[0]=cjl1[0]+cjl1[999];}
zs0[i+1][0]=zs0[0][0];zs0[i+1][4]=zs0[0][4];zs0[i+1][2]=zs0[0][2];
zs0[i+1][3]=zs0[0][3];zs0[i+1][1]=zs0[999][1];cjl0[i+1]=cjl0[0];
cjl1[i+1]=cjl1[0];}
return;}
//hzk
void dis24hz(int x16,long int y16,char *p,int color)
{char m[32],n[32];char far *adr;long offset;
int qm,wm,i,j;adr=(char far *)(0xa0000000+y16*80+x16/8);qm=(*p-0xa1)&0x7f;
wm=(*++p-0xa1)&0x7f;offset=(qm*94+wm)*32L;fseek(fp,offset,0);
fread(m,32,1,fp);
for(i=0;i<16;i++) for(j=0;j<2;j++){outport(0x3ce,0x0205);outport(0x3ce,0x08);
outport(0x3cf,m[2*i+j]);kk=*(adr+80*i+j);*(adr+80*i+j)=color;} }
void hxs(int x16,long int y16,char *s16,int color)
{char buf[16];long int add;int i,j;
while (*s16!=NULL) {while (x16<640&&*s16!=NULL)
{if (*s16>=‘ ‘&&*s16<=‘~‘) {
add=(*s16)*16L;fseek(fas,add,0);fread(buf,16,1,fas);
for (i=0;i<16;i++) for (j=0;j<8;j++)
if ((buf[i]>>7-j)&1) putpixel(x16+j,y16+i,color);x16+=8;s16+=1;
} else{ dis24hz(x16,y16,s16,color);x16+=16;s16+=2;}};}
return;}
