File: dim.m

package info (click to toggle)
abinit 7.8.2-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 278,292 kB
  • ctags: 19,095
  • sloc: f90: 463,759; python: 50,419; xml: 32,095; perl: 6,968; sh: 6,209; ansic: 4,705; fortran: 951; objc: 323; makefile: 43; csh: 42; pascal: 31
file content (17 lines) | stat: -rw-r--r-- 399 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
load file.out
ngx=60
ngy=50
ngz=50
isodens=0.005
x=[1:ngx]
y=[1:ngy]
z=[1:ngz]
v=file(:);
v1=reshape(v,ngx,ngy,ngz);
p=patch(isosurface(y,x,z,v1,isodens));
axis([1 ngy 1 ngx 1 ngz])
set(p,'FaceColor','blue','EdgeColor','none');
light('Position',[0 1 0],'Style','infinite')
light('Position',[1 0 0],'Style','infinite')
light('Position',[0 0 -1],'Style','infinite')
set(gca,'DataAspectRatio',[1 1 1])