第一篇：信息論上機實驗報告

華中科技大學文華學院

信息論上機實驗報告

專業年級：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、編制財務報表

最后，根據總賬和明細賬及資料所給的期初余額編制編制會計報表，包括資產負債表、利潤表、股東權益增減變動表和現金流量表。

三、撰寫實驗報告

在完成所有的實驗后，撰寫實驗報告。實驗報告是對本次實驗的總結，包括模擬實習單

位的概況，采用的會計政策，經濟業務處理過程，實驗內容和步驟，實驗體會等。實驗心得

在本次會計模擬實驗中，我掌握了應該如何處理具體的會計業務,彌補我們在課堂學習中實踐知識不足的缺陷,掌握書本中學不到的具體技巧,縮短從會計理論學習到實際操作的距離,也可通過實訓的仿真性,使我們感到實訓的真實性,增強積極參與實訓的興趣。會計理論來自于會計實踐,是會計實踐經驗的概括總結,同時又對會計實踐工作加以指導,所以我們在會計專業學習中,不僅需要構建出較完整的理論框架,而且還要樹立起完整的操作理念。

在短短兩天的會計模擬綜合實驗的學習中，讓我對其有了更深的認識和見解。我很遺憾實驗課程就這樣結束了，從這次會計實驗中，我學到了不少的知識。通過本次實驗，讓我對會計整個流程的操作有了較好的認識，我學會了會計中各個環節的操作，以及更加懂得了細心、謹慎和責任對于一個會計來說是那么的重要。通過這次的模擬實驗使我加強了對基礎會計各方面知識的記憶也讓我發現了自己在哪些方面的不足，發現問題及時補救是這一次實驗一大收獲。在實驗我學習到了許多在書本上不能學到的知識。

在記帳過程中，由于種種原因遇到了很多問題，但是通過對癥下藥，都得到了解決。在實驗中我也學會了原始憑證與證帳憑證、各明細帳與總帳核對等。這是非常繁瑣，也是非常重要的，否則會功虧一簣，徒勞無功。在實驗中最能體會的是累、煩！我的確是不耐煩的，但我不得不承認，通過這次實驗我成長了，我相信以后的日子里不管遇到什么艱難險阻，我都可以挺過去的。