File: Mathematica_1.m

package info (click to toggle)
cloc 2.06-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 8,064 kB
  • sloc: perl: 30,146; cpp: 1,219; python: 623; ansic: 334; asm: 267; makefile: 244; sh: 186; sql: 144; java: 136; ruby: 111; cs: 104; pascal: 52; lisp: 50; haskell: 35; f90: 35; cobol: 35; objc: 25; php: 22; javascript: 15; fortran: 9; ml: 8; xml: 7; tcl: 2
file content (31 lines) | stat: -rw-r--r-- 611 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
(* http://spot.colorado.edu/~sitelic/samplecode/mathematica/imagesfile.html
 *)

image = Import["denise.png","PNG"]   (* or *)

image = Import["denise.gif","GIF"]

A = image[[1,1]]/255.;
ListDensityPlot[A,Mesh->False, AspectRatio->Automatic]

(*
        -- or -- 
 *)

Show[Graphics[Raster[A]], AspectRatio->Automatic]


blurA = ListConvolve[Table[1/25,{5},{5}],A];

Show[Graphics[Raster[blurA]], AspectRatio->Automatic]
B = Fourier[A];

(*
          delete
    higher frequencies *)

B[[Range[30,278],All]]=0;

B[[All,Range[30,202]]]=0;

Show[Graphics[Raster[ Re[InverseFourier[B]] ]], AspectRatio->Automatic]