f[x]

<<  user.m

Directory[]

SetDirectory["/home/user6/sugawa/data"]

<< user.m

f[x]

{2, 3, 4}  // Exp  // N

{2, 3, 4}  //  f

?SetAttributes

SetAttributes[f, Listable]

{2, 3, 4}  // f

Save["user.m", f]

Definition[f]  >>  user.m

ClearAttributes[f, Listable]

{2, 3, 4}  // f

Map[f, {2, 3, 4}]

ContinuedFraction[Sqrt[2], 10]

PolarMap[Sqrt, {0, 1}, {-Pi + 0.0001, Pi}]

Remove[PolarMap]

<< Graphics`ComplexMap`

PolarMap[Sqrt, {0, 1}, {-Pi + 0.0001, Pi}]

!! Graphics`ComplexMap`

?CartesianMap

$ImportFormats

$ExportFormats

?Import

img = Import["bers.gif"]

Show[img]

InputForm[img]

imgdat = img[[1, 1]]

Dimensions[imgdat]

img1 = 
      Graphics[Raster[imgdat, {{0, 0}, {512, 512}}, 
          ColorFunctionScaling -> False, 
          ColorFunction -> (Hue[1 - #1/16] &)], 
        ImageSize -> {512, 512}, PlotRange -> {{0, 511}, {1, 512}}, 
        AspectRatio -> Automatic]

Show[img1]

Save["img1.gif", img1]

Table[Random[], {i, 1, 10}, {j, 1, 10}] >> random.dat

MatrixForm[%]

rdm = << random.dat

%  // MatrixForm

<< mandel.m

Plot3D[height[x, y], {x, -3, 1}, {y, -2, 2}]

DensityPlot[height[x, y], {x, -3, 1}, {y, -2, 2}, 
      PlotPoints -> 100, Mesh -> False]

DensityPlot[height[x, y], {x, -3, 1}, {y, -2, 2}, 
      PlotPoints -> 100, Mesh -> False, 
      ColorFunction -> Hue]

mandel[ .3 +  .8  I]