信息论上机实验报告

第一篇：信息论上机实验报告

华中科技大学文华学院

信息论上机实验报告

专业年级：10级通信工程** 学号：1001******** 姓名：** 指导教师：***

2012年 04月30日

目录 等长编码.........................2 1.1 求信源的熵...................2 1.2 求等长码码长.................2 1.3 求等长长等编码...............3 1.4 等长编码全部源代码...........3 1.5MATLAB仿真及其截图..........5 2霍夫曼编码.......................6 2.1 霍夫曼编码源代码.............6 2.2MATLAB仿真及其截图..........9 3游程编码.........................9 3.1 游程编码源代码...............9 3.2 MATLAB仿真及其截图..........11 4 学习心得........................12 5 参考书籍........................14

for i=1:1: 4;s=i;t=lc;for j=1:1:lc;if s>power(2,t)/2;A(i,lc-t+1)=1;s=s-power(2,t)/2;else A(i,lc-t+1)=0;end t=t-1;end end 1.4全部源代码

s=[0.25,0.25,0.25,0.25];len=size(s,2);if sum(s)~=1 error('s is not a complete set');end h=0;for i=1:1:len h=h-s(i)*log(s(i))/log(2);

结果：h=

2、lc=

2、A=00 01 10 11 1.5 MATLAB仿真及其截图

2、霍夫曼编码

2.1霍夫曼编码源代码

T(t-1)=r;T(t)=0;T=fliplr(sort(T));t=t-1;end B;%输出编码表

END1=sym('[0,1]');%给最后一列的元素编码 END=END1;t=3;d=1;for j=n-2:-1:1%从倒数第二列开始依次对各列元素编码 for i=1:t-2 if i>1 & B(i,j)==B(i-1,j)d=d+1;else d=1;end B(B(n,j+1),j+1)=-1;temp=B(:,j+1);

x=find(temp==B(i,j));END(i)=END1(x(d));

2.2MATLAB仿真及其截图

3、游程编码

3.1、游程编码源代码 I=checkerboard(10,2);[m,n]=size(I);J=[];for i=1:m

压缩图像大小：

Name Size Bytes Class J 1x400 3200 double array 图像压缩比：4 3.2 MATLAB仿真及其截图

就直接向他们求教，虽然有些时候他们也不一定能解答出来，但最少也能给我一些提示。最后有时候也靠自己，慢慢的想，慢慢的翻资料一遍一遍的输入，校正，最后就做出来了。虽然有些题目我也不知道自己的对不对，但是通过自己动手把它做出结果了我就觉得有收获了。

Matlab的课比较少，课堂上学到的东西也不是特别的多，但是通过实验，我自学了许多东西，也完成了学习任务，同时也锻炼了自己的个人能力

2012/5/3

314-

第二篇：上机实验报告格式

请各位同学按照下列格式写：否则按照0分记

上机实验报告格式

Matlab学习第？次上机实验报告（第？次）

姓名：？？？班级:???上机时间：？？？？？？

1.上机内容

2.建模及算法分析

3.程序

4.小结

5.参考文献

将文档发到我的邮箱里面

learn_matlab@163.com

第三篇：上机实验报告

一． 题目1． 建立一个学生档案，内容包括学号，姓名，年龄，性别，数学，物理和英语3门功课成绩。要求实现以下功能：1)数据输入；2)查询某个学生的成绩；3)按平均排列输出；4)统计某门课各分数段人数；5)删除某个学生记录；2． 编程实现对二位数进行加，减，乘运算，每运行一次程序做10道题，完成后给出成绩（每题10分）。二． 设计思想和模块划分1.1．先定义所需要的条件，例如，姓名，学号，性别，三门功课的成绩，平均分等。2．输入姓名，学号，性别，年龄，三门功课的成绩后，就输出相应的姓名，学号，性别，年龄，三门功课的成绩。3．打印表头；4．在求出平均分，并打印出平均分。5．在查找学生，并打印出学生的相关资料；并按照平均分的高低排列；6．在统计学生各科成绩是否》=60分，如果是就是通过，否就是没通过，最后打印出最后的结果。7．删除学生，选中删除的学生，如果确定要，那么该学生的一切记录就变为0；2．1．随机调用函数，产生两个其值为10到99的随机整数分别放在c,d中用作运算时的运算数。2．随机调用函数，产生一个值为1到3 的随机整数放入b中，用来选择不同的运算。根据b的值选择不同的运算。当b=1时，去进行c+d的运算练习；当b＝2 时，去进行c-d的运算练习；当b=3时，去进行c×d的运算练习。每完成一个算题就给出是否正确的信息。3．根据答案正确与否统计。正确时，显示’right’;错误时，显示’wrong’。4．步骤1.2.3.4.重复10次。5．输出学生成绩。三． 运行结果1.Input the 1 student :num:03name:wfage:18sex:fmath:98phy:75eng:65Input the 2 student :num:06name:scage:17sex:fmath:78phy:45eng:65Input the 3 student :num:09name:ytage:17sex:mmath:69phy:75eng:501.readin 2.finds 3.del 4.tj 5.exit1-----------------------------table----num name age sex math phy eng ave------3 wf 18 f 98.0 75.0 65.0 79.3------9 yt 17 m 69.0 75.0 50.0 64.7-------6 sc 17 f 78.0 45.0 65.0 62.7-------1.readin 2.finds 3.del 4.tj 5.exit2Into number:3---num name age sex math phy eng ave---3 wf 18 f 98.0 75.0 65.0 79.3----1.readin 2.finds 3.del 4.tj 5.exit3Into number:6---num name age sex math phy eng ave---6 sc 17 f 78.0 45.0 65.0 62.6---true? Y/Ny1----------------table------------------num name age sex math phy eng ave----3 wf 18 f 98.0 75.0 65.0 79.3-----9 yt 17 m 69.0 75.0 50.0 64.7-----0 0 0 f 0.0 0.0 0.0 0.0-----1.readin 2.finds 3.del 4.tj 5.exit4 1.input the math 2.input the phy 3.input the eng 1math: pass num is :3 no pass num is :02.32+82=114right!97*15=1455right!99-58=41right!76-66=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!73-38=31wrong!86+34=120right!mark is 80四． 主要错误改正方法1.在本题的编写过程中常出现begin 和end 不配对，只要始它们的个数相同就可以了，就可以了。在程序中常出现的’unknown identifier’没有定义的错误，只要在程序前加上定义，就可以了。还有就是type mismatch’的类型不匹配，只要根据前后内容，重新定义，就可以了。2.在本题编写中，题目要求是两个两位数运算，如果写成c:=random(100)在运行过程中，就会出现一位数运算，只要把它写成c:=random(90)+10，就可以了。五． 实习小结1．第一题的程序编写比较复杂，需要较多的定义，因而在后面的程序部分，就常出现标识符重复，而导致的类型不匹配。还有就是每个部分编好后，上下不能连接，而无法调用。2．第二题较第一题简单，和书上的例题类似，所以，比较简单，但从中也出现一些不问题。以上两大题中出现的问题，要在同学的帮助下，才能完成。总的来说两题程序比较困难六． 程序清单1.program twins;const m=3;n=3;typestudent=recordnum:integer;name:string[3];age:integer;sex:char;s:array[1..n] of real;math,eng,phy:real;ave:real;end;sarr=array[1..m] of student;ta=array [1..m] of student;f=string[6];varstu:sarr;ct:ta;k,d:integer;procedure readin(var stu:sarr);const wrong='0<=data<=100 ,again!';var j,i:integer;a:student;beginwriteln;writeln('Input ',m,' num name sex math phy eng',' of student.');for j:=1 to m dobeginwriteln;writeln('Input the ',j,' student :');with a dobeginwrite('num:');readln(num);write('name:');readln(name);write('age:');readln(age);write('sex:');readln(sex);while(sex<>'m')and(sex<>'f')dobeginwrite('sex:');readln(sex)end;for i:=1 to n do begincase i of1:begin write('math:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('math:');readln(s[i]);end;end;2:begin write('phy:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('phy:');readln(s[i]);end;end;3:begin write('eng:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('eng:');readln(s[i]);end;end;end;end;stu[j]:=a;end;writeln;end;end;procedure ave(var stu:sarr);var j,i:integer;k:real;beginfor j:=1 to m dobegink:=0;with stu[j] dobeginfor i:=1 to n do k:=k+s[i];ave:=k/nend;end;end;procedure px(var stu:sarr);var tm:ta;j,i,p:integer;beginfor j:=1 to m dobeginp:=j;for i:=j+1 to m doif stu[i].ave>stu[p].ave then p:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedure head(ct:ta);var i:integer;beginwrite(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;with ct[1] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7,' ');write(ave:10,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;procedure find(var stu:sarr);var n,i:integer;u:boolean;beginu:=true;while u dobeginwrite('Into number:');readln(n);for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i];u:=false;d:=iend;end;end;end;procedure del(var stu:sarr);var i:integer;b:char;beginhead(ct);write('true? Y/N');readln(b);if b='y' then begin write('1');with stu[d] dobeginnum:=0;name:='0';age:=0;sex:='f';for i:=1 to n do s[i]:=0;ave:=0end;endelseend;procedure tj(var stu:sarr);var w1,q1,q2,num,j:integer;h1,h2,h3:boolean;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writeln(' ':30,'1.input the math 2.input the phy 3.input the eng ');readln(w1);case w1 of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math>=60 thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy>=60 thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng>=60 thenq1:=q1+1elseq2:=q2+1;writeln('eng:');end;end;end;end;writeln(' ':5,'pass num is :',q1);writeln(' ':5,'no pass num is :',q2);end;procedure head1(var stu:sarr);var j,i:integer;beginwriteln('----------------table--------------':60);writeln;write(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;for j:=1 to m do beginwith stu[j] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7:1,' ');write(ave:10:1,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;end;beginreadin(stu);ave(stu);k:=0;while k<>5 dobeginwriteln('1.readin 2.finds 3.del 4.tj 5.exit');read(k);readln;while(k<>1)and(k<>2)and(k<>3)and(k<>4)and(k<>5)dobeginwriteln(' mistake,please again');read(k)end;case k of1: begin px(stu);head1(stu)end;2: begin find(stu);head(ct)end;3: begin find(stu);del(stu);px(stu);head1(stu)end;4: begin tj(stu);end;5: writeln('exit!');end;end;end..2.program shadow;var a,b,c,d,e:integer;right:boolean;procedure s1;beginwriteln('right!');right:=trueend;procedure s2;beginwriteln('wrong!');right:=falseend;procedure s3(x,y:integer);var h:integer;beginwrite(x,'+',y,'=');readln(h);if h=x+y then s1else s2 end;procedure s4(x,y:integer);var h,w:integer;beginif x

第四篇：《电子商务》上机实验报告

上机实验报告

实验名称： 电子商务模拟实验

学生姓名：

班级学号：

指导教师：

实验日期：

电子商务模拟实验

一、实验名称

电子商务模拟实验

二、实验目的

1．了解电子商务的框架体系与基本运行原理。2．掌握电子商务的各种交易模式与交易流程。3．具备初步电子商务网站的规划与设计能力。

三、实验内容

B2C电子商务交易 B2B电子商务交易 C2C电子商务交易

四、实验环境

主要仪器设备：微型计算机、服务器。

软件环境：WINDOWSXP等操作系统软件、电子商务模拟软件平台。

五、实验过程和结果

电子商务模拟试验报告 B2C电子商务交易（1）电子商务B2C的概念

（2）B2C交易流程

a）商户入住流程 申请电子邮箱

银行开户

商户注册

登陆商户后台

商户后台管理（布置商店、设置商品数据、处理订单等）注：见商家店铺设计

b）消费者购物流程

（3）商家店铺设计（抓图）

（4）B2C后台管理

a）B2C后台管理内容

b）B2C后台订单管理页面（抓图）B2B电子商务交易（1）电子商务B2B的概念

通 过 因 特 网、外 联 网、内 联 网 或 者 私 有 网 络，以 电 子 化 方 式 在 企 业 间 进 行 的 交 易。

（2）B2B交易流程

a）采购订货流程

进入交易中心首页，点击“采购商”，登陆

选择商家及产品，点击购买

进入购物车，对所购买商品进行处理

生成订单

（如在订购前与供应商进行签约，价格可优惠）签约：

进入供应商后台管理，点击客户管理

签约后的价格变化：

b）询价流程

作为采购商登陆，进入采购区点选商品，在购物车中生成询价单

进入供应商后台管理，点击网上洽谈，提交报价

进入采购商后台管理，点击网上洽谈，生成洽谈单

（3）B2B后台管理

a）B2B采购商后台管理内容和管理页面（抓图）

b）B2B供应商后台管理内容和管理页面（抓图）

C2C电子商务交易（1）电子商务C2C的概念

（2）C2C交易流程

a）消费者拍卖（卖商品）流程

b）消费者竞拍（买商品）流程

（3）C2C运行页面（抓图）

六、总结

（500字，内容为：电子商务的特点、电子商务对人们的影响尤其是对青年消费者的影响、本人对电子商务的实际体会（重点写）等等）

电子商务指的是利用简单、快捷、低成本的电子通讯方式，买卖双方不谋面地进行各种商贸活动。电子商务可以通过多种电子通讯方式来完成。

电子商务交易虚拟化、交易成本低、交易效率高、交易透明化。电子商务通过物联网进行交易活动，从前期的浏览商品，到洽谈合同，再到最后的交易成功、汇款，合作双方都不

必见面，所有环节都可以在网上进行。而且完全是无纸化办公，减少了成本。电子商务省去很多中间环节，大大提高效率。

电子商务为人们提供了很好的购物平台。对于消费者来说，可以足不出户，就能买到称心如意的商品；对于商家来讲，电子商务为其提高了企业效率、降低了成本，从而提高收益；对于青少年来说，好的方面是让其能有更多的学习空间，为青年创业开辟了一条新的道路。而不好的一面是让正处于成长期的青少年没有金钱的概念而养成乱花钱的习惯，给家里带来经济负担。

我个人认为电子商务现在已经成为现代人们生活中的一部分了，每一个人多多少少都会接触到电子商务或了解一些关于电子商务的知识。而学了电子商务后，我认为这是很重要的一个专业领域，也是很热门的一个专业。而在我的生活中，电子商务为我提供了极大的方便。我几乎可以从网上买到我生活中所需的所有东西，而且省去了我路上往返的辛苦和路费。由于在网上运营的商家成本较低，所以我在网上购物也可以省去很多不必要的花销。

总体而言，电子商务较其他专业来讲还是属于新生领域，发展空间很大，也给社会和我们的生活带来了很大的帮助。

第五篇：会计上机实验报告

会计模拟实验报告

姓名：赵波

班级：工商101班

学号：101565

指导教师：岳殿民

实验目的会计综合模拟实验是在学生掌握了一定的专业理论知识的基础上，以某个单位在一定时期内发生的实际经济业务资料作为模拟实验对象，采用直观的、逼真的实验材料和道具，包括原始凭证、记账凭证、会计账簿、报表及其他会计实验用具等，让学生在仿真的环境中增强实际操作能力和动手能力。通过这次实验，使得学生较系统地练习企业会计核算的基本程序和具体方法，加强学生对所学专业理论知识的理解、实际操作的动手能力，提高运用会计基本技能的水平，也是对学生所学专业知识的一个检验。

实验公司简介

我们本次模拟的企业原型是广东立竣机床股份有限公司。它是原广东省机械厅直属的生产各种机床的大型国有企业，于 1995 年改制成为股份有限公司，并于 1999 年在上海证券交易所挂牌交易。她位于广州市海珠区新港西路 888 号 , 占地 10 余公顷，注册资本为 6000 万元人民币。该公司设有铸造、加工和装配三个基本生产车间，主要从事立竣一号机床和立竣二号机床的生产。另设有供气和机修两个辅助生产车间，主要从事蒸汽生产和机器设备维修。

实验的内容及过程

一、模拟实验准备阶段

在模拟实验开始前，要全面了解模拟企业的概况，如，企业名称和性质，生产工艺概况，会计政策及核算要求等。同时要了解模拟企业会计工作组织，如，机构设置，财务人员分工，会计规范要求等。

二、模拟实习操作阶段

以企业的实际经济业务为实训资料，运用会计工作中的证、账等对会计核算的各步骤进行系统操作实验，包括账薄建立和月初余额的填制、原始凭证、记账凭证的审核和填制，各种账薄的登记、对账、结账等。实验为我们呈现了一个生产该厂可能涉及的各种基本业务，其各项凭证、账簿以及会计处理程序，按照该厂会计制度要求，具体的步骤如下：

1、会计凭证的编制

记账凭证的填写要注意记账凭证的名称、编号、日期、有关经济业务内容摘要、有关账户的名称(包括总账、明细分类账)方向和金额、有关原始凭证张数和其他有关资料份数、有关人员的签名或盖章。

记账凭证应按要求填制。

第一；要将经济业务的内容以简练概括的文字填入“摘要”栏内。

第二，要根据经济业务的性质，按照会计制度所规定的会计科目和每一会计科目所核算的内容，正确编制会计分录。

第三，每张记账凭证只能反映一项经济业务，除少数特殊业务必须将几个会计科目填在一张记账凭证上外，不得将不同类型经济业务的原始凭证合并填制记账凭证，对同一笔经济业务不得填制对应关系不清的多借多贷的记账凭证。

第四，附件数量完整。

第五，填写内容齐全。

第六，凭证按顺序和类型编号，一笔经济业务需要填制两张或者两张以上记帐凭证的，可以采用分数编号法编号。

第七，正确编制会计分录并保证借贷平衡。

2、科目汇总表的填制

根据记帐凭证逐笔登记总帐，如果工作量很大，可以先填制科目汇总表，然后根据科目汇总表再来登记总帐。

第一，填写记帐凭证汇总表的日期、编号和会计科目名称。汇总表的编号一般按年顺序编列，汇总表上会计科目名称的排列应与总帐科目的序号保持一致。

第二，将需要汇总的记帐凭证，按照相同的会计科目名称进行归类。

第三，将相同会计科目的本期借方发生额和贷方发生额分别加总，求出合计金额。第四，将每一会汁科目的合计金额填入汇总表的相关栏目。

第五，结计汇总表的本期借方发生额和本期贷方发生额合计，双方合计数应相等。

3、登记总分类账明细账和日记账

登记会计帐簿时要求准确完整。登记会计帐簿时，应将会计凭证的日期、编号，业务内容摘要、金额和其他相关资料逐项记入账内，作到数字准确、摘要清楚、登记及时、字迹工整。根据收款凭证、付款凭证逐日逐笔登记现金及银行存款日记帐，根据记账凭证及所附的登记明细分类账，再根据科目汇总表登记总分类账。

4、编制财务报表

最后，根据总账和明细账及资料所给的期初余额编制编制会计报表，包括资产负债表、利润表、股东权益增减变动表和现金流量表。

三、撰写实验报告

在完成所有的实验后，撰写实验报告。实验报告是对本次实验的总结，包括模拟实习单

位的概况，采用的会计政策，经济业务处理过程，实验内容和步骤，实验体会等。实验心得

在本次会计模拟实验中，我掌握了应该如何处理具体的会计业务,弥补我们在课堂学习中实践知识不足的缺陷,掌握书本中学不到的具体技巧,缩短从会计理论学习到实际操作的距离,也可通过实训的仿真性,使我们感到实训的真实性,增强积极参与实训的兴趣。会计理论来自于会计实践,是会计实践经验的概括总结,同时又对会计实践工作加以指导,所以我们在会计专业学习中,不仅需要构建出较完整的理论框架,而且还要树立起完整的操作理念。

在短短两天的会计模拟综合实验的学习中，让我对其有了更深的认识和见解。我很遗憾实验课程就这样结束了，从这次会计实验中，我学到了不少的知识。通过本次实验，让我对会计整个流程的操作有了较好的认识，我学会了会计中各个环节的操作，以及更加懂得了细心、谨慎和责任对于一个会计来说是那么的重要。通过这次的模拟实验使我加强了对基础会计各方面知识的记忆也让我发现了自己在哪些方面的不足，发现问题及时补救是这一次实验一大收获。在实验我学习到了许多在书本上不能学到的知识。

在记帐过程中，由于种种原因遇到了很多问题，但是通过对症下药，都得到了解决。在实验中我也学会了原始凭证与证帐凭证、各明细帐与总帐核对等。这是非常繁琐，也是非常重要的，否则会功亏一篑，徒劳无功。在实验中最能体会的是累、烦！我的确是不耐烦的，但我不得不承认，通过这次实验我成长了，我相信以后的日子里不管遇到什么艰难险阻，我都可以挺过去的。