lab1.nb

mathmatic程序 这是一个用MATHMATIC 做出来的关于:HUFFMANR的函数图像的程序,有一定的参考价值.

(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.0'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: [e-mail]
  phone: [phone] (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     28246,        884]*)
(*NotebookOutlinePosition[     28890,        906]*)
(*  CellTagsIndexPosition[     28846,        902]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
    \(Plot[Log[2, x], {x, 0.0001, 3}]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.31746 0.540585 0.039581 [
[.18254 .52808 -9 -9 ]
[.18254 .52808 9 0 ]
[.34127 .52808 -3 -9 ]
[.34127 .52808 3 0 ]
[.5 .52808 -9 -9 ]
[.5 .52808 9 0 ]
[.65873 .52808 -3 -9 ]
[.65873 .52808 3 0 ]
[.81746 .52808 -9 -9 ]
[.81746 .52808 9 0 ]
[.97619 .52808 -3 -9 ]
[.97619 .52808 3 0 ]
[.01131 .06561 -18 -4.5 ]
[.01131 .06561 0 4.5 ]
[.01131 .14477 -18 -4.5 ]
[.01131 .14477 0 4.5 ]
[.01131 .22394 -12 -4.5 ]
[.01131 .22394 0 4.5 ]
[.01131 .3031 -12 -4.5 ]
[.01131 .3031 0 4.5 ]
[.01131 .38226 -12 -4.5 ]
[.01131 .38226 0 4.5 ]
[.01131 .46142 -12 -4.5 ]
[.01131 .46142 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.18254 .54058 m
.18254 .54683 L
s
[(0.5)] .18254 .52808 0 1 Mshowa
.34127 .54058 m
.34127 .54683 L
s
[(1)] .34127 .52808 0 1 Mshowa
.5 .54058 m
.5 .54683 L
s
[(1.5)] .5 .52808 0 1 Mshowa
.65873 .54058 m
.65873 .54683 L
s
[(2)] .65873 .52808 0 1 Mshowa
.81746 .54058 m
.81746 .54683 L
s
[(2.5)] .81746 .52808 0 1 Mshowa
.97619 .54058 m
.97619 .54683 L
s
[(3)] .97619 .52808 0 1 Mshowa
.125 Mabswid
.05556 .54058 m
.05556 .54433 L
s
.0873 .54058 m
.0873 .54433 L
s
.11905 .54058 m
.11905 .54433 L
s
.15079 .54058 m
.15079 .54433 L
s
.21429 .54058 m
.21429 .54433 L
s
.24603 .54058 m
.24603 .54433 L
s
.27778 .54058 m
.27778 .54433 L
s
.30952 .54058 m
.30952 .54433 L
s
.37302 .54058 m
.37302 .54433 L
s
.40476 .54058 m
.40476 .54433 L
s
.43651 .54058 m
.43651 .54433 L
s
.46825 .54058 m
.46825 .54433 L
s
.53175 .54058 m
.53175 .54433 L
s
.56349 .54058 m
.56349 .54433 L
s
.59524 .54058 m
.59524 .54433 L
s
.62698 .54058 m
.62698 .54433 L
s
.69048 .54058 m
.69048 .54433 L
s
.72222 .54058 m
.72222 .54433 L
s
.75397 .54058 m
.75397 .54433 L
s
.78571 .54058 m
.78571 .54433 L
s
.84921 .54058 m
.84921 .54433 L
s
.88095 .54058 m
.88095 .54433 L
s
.9127 .54058 m
.9127 .54433 L
s
.94444 .54058 m
.94444 .54433 L
s
.25 Mabswid
0 .54058 m
1 .54058 L
s
.02381 .06561 m
.03006 .06561 L
s
[(-12)] .01131 .06561 1 0 Mshowa
.02381 .14477 m
.03006 .14477 L
s
[(-10)] .01131 .14477 1 0 Mshowa
.02381 .22394 m
.03006 .22394 L
s
[(-8)] .01131 .22394 1 0 Mshowa
.02381 .3031 m
.03006 .3031 L
s
[(-6)] .01131 .3031 1 0 Mshowa
.02381 .38226 m
.03006 .38226 L
s
[(-4)] .01131 .38226 1 0 Mshowa
.02381 .46142 m
.03006 .46142 L
s
[(-2)] .01131 .46142 1 0 Mshowa
.125 Mabswid
.02381 .0854 m
.02756 .0854 L
s
.02381 .10519 m
.02756 .10519 L
s
.02381 .12498 m
.02756 .12498 L
s
.02381 .16457 m
.02756 .16457 L
s
.02381 .18436 m
.02756 .18436 L
s
.02381 .20415 m
.02756 .20415 L
s
.02381 .24373 m
.02756 .24373 L
s
.02381 .26352 m
.02756 .26352 L
s
.02381 .28331 m
.02756 .28331 L
s
.02381 .32289 m
.02756 .32289 L
s
.02381 .34268 m
.02756 .34268 L
s
.02381 .36247 m
.02756 .36247 L
s
.02381 .40205 m
.02756 .40205 L
s
.02381 .42184 m
.02756 .42184 L
s
.02381 .44163 m
.02756 .44163 L
s
.02381 .48121 m
.02756 .48121 L
s
.02381 .501 m
.02756 .501 L
s
.02381 .52079 m
.02756 .52079 L
s
.02381 .56038 m
.02756 .56038 L
s
.02381 .58017 m
.02756 .58017 L
s
.02381 .59996 m
.02756 .59996 L
s
.02381 .04582 m
.02756 .04582 L
s
.02381 .02603 m
.02756 .02603 L
s
.02381 .00624 m
.02756 .00624 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02384 .01472 m
.02502 .22241 L
.02609 .25864 L
.02732 .28337 L
.02849 .29976 L
.03056 .32073 L
.03282 .33717 L
.0353 .35106 L
.03793 .36283 L
.04265 .3793 L
.05208 .40248 L
.05745 .41241 L
.06248 .42036 L
.08277 .44446 L
.09418 .45455 L
.10461 .46245 L
.14432 .48527 L
.18251 .50099 L
.22315 .51401 L
.26228 .52425 L
.30386 .53342 L
.34393 .54106 L
.38248 .54755 L
.42348 .55373 L
.46296 .55911 L
.50093 .56385 L
.54136 .56849 L
.58026 .57263 L
.62162 .57673 L
.66147 .58041 L
.6998 .58374 L
.74058 .58709 L
.77984 .59013 L
.81759 .59292 L
.85779 .59574 L
.89648 .59833 L
.93762 .60096 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`00
5Goo0P00ogoo2Woo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<0
07ooOol0ogoo2Goo000EOol00`00Oomoo`3oOol9Ool001Eoo`800?moo`Yoo`005Goo00<007ooOol0
ogoo2Goo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0
ogoo2Goo000EOol2003oOol:Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo
000EOol00`00Oomoo`3oOol9Ool000Moo`D00003Ool00000008000Aoo`03001oogoo0?moo`Uoo`00
2Goo00D007ooOomoo`0000Moo`03001oogoo0?moo`Uoo`002Goo00<007ooOol00Woo00<007ooOol0
17oo0`00ogoo2Goo00000goo000000020004Ool00`00Oomoo`03Ool00`00Oomoo`03Ool00`00Oomo
o`3oOol9Ool000Uoo`05001oogooOol00002Ool00`00Oomoo`02Ool00`00Oomoo`3oOol9Ool000Qo
o`8000Aoo`8000Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo000EOol2003oOol:
Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo000EOol00`00Oomoo`3oOol9
Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo000EOol2003oOol:Ool001Eo
o`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo000EOol00`00Oomoo`3oOol9Ool001Eo
o`03001oogoo0?moo`Uoo`005Goo0P00ogoo2Woo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001o
ogoo0?moo`Uoo`001goo1@000Woo0P001Goo00<007ooOol0ogoo2Goo0009Ool01@00Oomoogoo0000
0Woo00<007ooOol00Woo00<007ooOol0ogoo2Goo0009Ool01@00Oomoogoo00000Woo00<007ooOol0
0Woo0`00ogoo2Goo00000goo000000020004Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<0
07ooOol0ogoo2Goo0009Ool01@00Oomoogoo00000Woo00<007ooOol00Woo00<007ooOol0ogoo2Goo
0008Ool20004Ool20005Ool00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<0
07ooOol0ogoo2Goo000EOol2003oOol:Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0
ogoo2Goo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo0P00ogoo2Woo
000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo
000EOol00`00Oomoo`3oOol9Ool001Eoo`800?moo`Yoo`005Goo00<007ooOol0ogoo2Goo000EOol0
0`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`003Woo0P001Goo00<007ooOol0ogoo2Goo
000=Ool01000Oomoo`0017oo00<007ooOol0ogoo2Goo000=Ool01000Oomoo`0017oo0`00ogoo2Goo
0007Ool40003Ool20005Ool00`00Oomoo`3oOol9Ool000eoo`04001oogoo0004Ool00`00Oomoo`3o
Ool9Ool000ioo`8000Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo2Goo000EOol2003o
Ool:Ool001Eoo`800?moo`Yoo`005Goo0P00ogoo2Woo000EOol2003oOol:Ool001Eoo`800?moo`Yo
o`005Goo0P00ogoo2Woo000EOol2003oOol:Ool001Eoo`800?moo`Yoo`005Goo0P00ogoo2Woo000E
Ool2003oOol:Ool001Eoo`800?moo`Yoo`005Goo0P00ogoo2Woo000EOol2003oOol:Ool001Eoo`80
0?moo`Yoo`003Goo0`001Goo0P00ogoo2Woo000=Ool01000Oomoo`0017oo0P00ogoo2Woo000=Ool0
1000Oomoo`0017oo0`00ogoo2Goo0007Ool40002Ool30005Ool2003oOol:Ool000ioo`03001oogoo
00Aoo`800?moo`Yoo`003Woo0`0017oo00<007oo0000ogoo2Goo000EOol00`00Ool0003oOol9Ool0
01Eoo`03001oo`000?moo`Uoo`005Goo0`00ogoo2Goo000EOol00`00Ool0003oOol9Ool001Eoo`03
001oo`000?moo`Uoo`005Goo00<007oo0000ogoo2Goo000EOol00`00Ool0003oOol9Ool001Eoo`<0
0?moo`Uoo`005Goo00@007ooOol00?moo`Qoo`005Goo00@007ooOol00?moo`Qoo`005Goo00@007oo
Ool00?moo`Qoo`005Goo00@007ooOol00?moo`Qoo`005Goo00D007ooOomoo`000?moo`Moo`005Goo
0P000Woo00<007ooOol0ogoo1Goo000EOol01@00Oomoogoo0000ogoo1goo000EOol01@00Oomoogoo
0000ogoo1goo000?Ool30003Ool00`00Oomoo`02Ool00`00Oomoo`3oOol4Ool0011oo`03001oogoo
009oo`03001oogoo009oo`03001oogoo0?moo`Aoo`003Goo1@000goo0`000Woo00<007ooOol0ogoo
17oo0007Ool40002Ool01000Oomoo`0017oo00<007ooOol00goo00<007ooOol0ogoo0goo000>Ool0
0`00Ool00004Ool00`00Oomoo`03Ool00`00Oomoo`3oOol3Ool000moo`8000Aoo`03001oogoo00Ao
o`03001oogoo0?moo`9oo`005Goo00<007ooOol017oo00<007ooOol0ogoo0Woo000EOol20006Ool0
0`00Oomoo`3oOol1Ool001Eoo`03001oogoo00Eoo`03001oogoo0?moo`5oo`005Goo00<007ooOol0
1Woo00<007ooOol0ogoo000EOol00`00Oomoo`06Ool00`00Oomoo`3oOol001Eoo`03001oogoo00Io
o`03001oogoo0?moo`005Goo00<007ooOol01goo00<007ooOol0oWoo000EOol20009Ool00`00Oomo
o`3mOol001Eoo`03001oogoo00Uoo`03001oogoo0?aoo`005Goo00<007ooOol02Woo00<007ooOol0
ngoo000EOol00`00Oomoo`0:Ool00`00Oomoo`3kOol001Eoo`03001oogoo00]oo`03001oogoo0?Yo
o`005Goo0P003Goo00<007ooOol0nGoo000EOol00`00Oomoo`0=Ool00`00Oomoo`3hOol001Eoo`03
001oogoo00ioo`03001oogoo0?Moo`003Goo100017oo00<007ooOol03goo00<007ooOol0mWoo000=
Ool00`00Oomoo`05Ool00`00Oomoo`0@Ool00`00Oomoo`3eOol000ioo`03001oogoo00Aoo`<0015o
o`800?Eoo`001goo100017oo00<007ooOol00goo00<007ooOol04goo00<007ooOol0lWoo000=Ool0
1000Oomoo`0017oo00<007ooOol057oo0P00lWoo000>Ool20005Ool00`00Oomoo`0FOol2003`Ool0
01Eoo`03001oogoo01Qoo`800>ioo`005Goo00<007ooOol06Woo0P00k7oo000EOol2000MOol2003Z
Ool001Eoo`03001oogoo01ioo`800>Qoo`005Goo00<007ooOol087oo0P00iWoo000EOol00`00Oomo
o`0ROol3003SOol001Eoo`03001oogoo02Eoo`800>5oo`005Goo0P008Woo0P0017oo0`000goo0P00
8Woo1@0087oo1@000Woo0P0017oo0P008goo10008Goo10000goo0P0017oo0P008goo0P001goo000E
Ool00`00Oomoo`0POol01000Oomoo`001Woo0`000Woo00<007ooOol08Goo00<007ooOol08Woo00<0
07ooOol01goo00@007ooOol0029oo`03001oogoo029oo`03001oogoo00Uoo`04001oogoo000QOol0
1000Oomoo`001Woo000EOol00`00Oomoo`0POol01000Oomoo`002Goo0`008goo00<007ooOol08Woo
00<007ooOol02Woo00<007ooOol08Goo00<007ooOol08Woo00<007ooOol02goo00<007ooOol08Goo
00<007ooOol01Goo000EOol00`00Oomoo`0POol01000Oomoo`002Goo1@008Goo00<007ooOol08Woo
00<007ooOol027oo0P009Goo00<007ooOol08Woo00<007ooOol027oo0P009Goo00<007ooOol017oo
000EOol00`00Oomoo`0POol01000Oomoo`002Goo00<007ooOol00Woo0`007Woo00<007ooOol08Woo
00<007ooOol027oo00<007ooOol08Woo00@007ooOol0025oo`04001oogoo0009Ool00`00Oomoo`0Q
Ool01000Oomoo`001Woo000EOol00`00Oomoo`0QOol2000:Ool30005Ool4000IOol2000SOol2000:
Ool3000SOol2000SOol2000:Ool3000ROol20007Ool001Eoo`8003Yoo`@00<]oo`005Goo00<007oo
Ool0?Goo1000agoo000EOol00`00Oomoo`11Ool60031Ool001Eoo`03001oogoo04Moo`D00;aoo`00
5Goo00<007ooOol0C7oo1P00]Woo000>Oooo000C000001Eoo`03001oogoo00Ioo`03001oogoo00Eo
o`03001oogoo00Ioo`03001oogoo00Eoo`03001oogoo00Ioo`03001oogoo00Ioo`03001oogoo00Eo
o`03001oogoo00Ioo`03001oogoo00Ioo`03001oogoo00Eoo`04001oogooOol60008Ool00`00Oomo
o`05Ool00`00Oomoo`06Ool00`00Oomoo`05Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomo
o`05Ool00`00Oomoo`06Ool00`00Oomoo`06Ool00`00Oomoo`05Ool00`00Oomoo`06Ool00`00Oomo
o`06Ool00`00Oomoo`05Ool00`00Oomoo`06Ool00`00Oomoo`05Ool00`00Oomoo`06Ool00`00Oomo
o`06Ool00`00Oomoo`05Ool00`00Oomoo`06Ool00`00Oomoo`05Ool001Eoo`03001oogoo02Qoo`03
001oogoo02Qoo`03001oogoo00Ioo`D001eoo`03001oogoo02Uoo`03001oogoo02Qoo`03001oogoo
02Qoo`03001oogoo00Eoo`005Goo00<007ooOol0HGoo1P00XGoo000EOol00`00Oomoo`1WOol8002I
Ool001Eoo`80071oo`/008ioo`005Goo00<007ooOol0NWoo2000QWoo000EOol00`00Oomoo`22Ool6
0020Ool001Eoo`03001oogoo08Qoo`L007Uoo`005Goo00<007ooOol0Sgoo2`00KWoo000EOol00`00
Oomoo`2JOol;001SOol001Eoo`800:Ioo`/005Qoo`005Goo00<007ooOol0/7oo2`00CGoo000EOol0
0`00Oomoo`2kOol;0012Ool001Eoo`03001oogoo0<IooaD002eoo`005Goo00<007ooOol0fgoo2P00
8goo000EOol2003VOolF000=Ool001Eoo`03001oogoo0?]oo`H000Moo`005Goo00<007ooOol0ogoo
2Goo000EOol00`00Oomoo`3oOol9Ool001Eoo`03001oogoo0?moo`Uoo`005Goo00<007ooOol0ogoo
2Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00001\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.247788, -14.0657, \
0.0115777, 0.0928593}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Log[2, 64]\)], "Input"],

Cell[BoxData[
    \(6\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{