dlog()是什么意思 matlab语言,Matlab讨论区 - 声振论坛 - 振动,动力学,声学,信号处理,故障诊断 - Powered by Discuz!...

%%Main_AutoRunMatlabProgramNum1

%by LiYang_faruto

%Email:farutoliyang@foxmail.com

%2015/01/01

%%A Little Clean Work

tic;

%clear;

%clc;

%close all;

formatcompact;

%%目录调整

FileStr= ['E:\###数据库-Faruto的数据库\FQuantToolBox']

cd(FileStr);

%%日志文件

fid= fopen('Dlog.txt','at+');

TitleStr= ['日期时间：',datestr(now),'操作记录日志by李洋faruto'];

fprintf(fid,'%s\n',TitleStr);

%%获取股票代码列表

run= 1;

if1 == run

ticID = tic;

try

[StockList,StockListFull] =GetStockList_Web;

save('StockList','StockList');

TitleStr = ['日期时间：',datestr(now),'更新股票代码列表成功'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'更新股票代码列表失败：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

else

load StockList;

end

%%获取指数代码列表

run= 1;

if1 == run

ticID = tic;

try

[IndexList] = GetIndexList_Web;

save('IndexList','IndexList');

TitleStr = ['日期时间：',datestr(now),'更新指数代码列表成功'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'更新指数代码列表失败：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

else

load IndexList;

end

%%获取股票基本信息以及所属行业板块(证监会行业分类)和所属概念板块(新浪财经定义)

run= 1;

if1 == run

ticID = tic;

try

[SaveLog,ProbList,NewList] =SaveStockInfo(StockList);

TitleStr = ['日期时间：',datestr(now),'更新股票基本信息成功'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'更新股票基本信息失败：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

end

%%更新指数数据

run= 1;

if1 == run

ticID = tic;

try

[SaveLog,ProbList,NewList] =SaveIndexTSDay(IndexList);

TitleStr = ['日期时间：',datestr(now),'更新指数日线数据成功'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'更新指数日线数据失败：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

end

%%股票日线数据更新-除权除息数据-无并行操作

run= 1;

if1 == run

ticID = tic;

try

AdjFlag = 0;

XRDFlag = 0;

[SaveLog,ProbList,NewList] =SaveStockTSDay(StockList,AdjFlag,XRDFlag);

TitleStr = ['日期时间：',datestr(now),'股票日线数据更新-除权除息数据成功！'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'股票日线数据更新-除权除息数据失败！：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

end

%%股票数据更新-前复权

run= 1;

if1 == run

ticID = tic;

try

AdjFlag = 1;

XRDFlag = 0;

[SaveLog,ProbList,NewList] =SaveStockTSDay(StockList,AdjFlag,XRDFlag);

TitleStr = ['日期时间：',datestr(now),'股票数据更新-前复权成功！'];

fprintf(fid,'%s\n',TitleStr);

elapsedTime = toc(ticID);

TimeStr = [ '共耗时',num2str(elapsedTime), ' seconds(',num2str(elapsedTime/60), ' minutes)', ...

'(',num2str(elapsedTime/60/60), 'hours)'];

fprintf(fid,'%s\n',TimeStr);

subject = TitleStr;

content = TimeStr;

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

catch err

TitleStr = ['日期时间：',datestr(now),'股票数据更新-前复权失败！：',err.message];

fprintf(fid,'%s\n',TitleStr);

for i = 1:size(err.stack,1)

StrTemp = ['FunName：',err.stack(i).name,'Line：',num2str(err.stack(i).line)];

fprintf(fid,'%s\n',StrTemp);

end

subject = TitleStr;

content = [];

TargetAddress = '516667408@qq.com';

Attachments = 'Dlog.txt';

MatlabSentMail(subject, content,TargetAddress, Attachments);

end

end

%… …

%由于代码过程没有粘贴全部代码

%%Exit

fclose(fid);

exit;

%%Record Time

toc;

displayEndOfDemoMessage(mfilename);