Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.arcetri.astro.it/~sbianchi/clumping/profile.mac Дата изменения: Tue Aug 24 19:51:04 1999 Дата индексирования: Tue Oct 2 13:24:59 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

profile expand 1.001

echo enter filename [.prof omitted]
define file ?

data $file.prof

echo enter axis [1: major 2: minor]
define axis ?

echo enter inclination [1: 20 2: 37 3: 48 4:58 ]
echo [5: 66 6: 75 7: 82 8:90 ]
define angle ?


if($axis==1){
lines 102 202
define colu (9+$angle)
}else{
lines 2 202
define colu (1+$angle)
}

read r 1
read prof $colu

if($axis==2){
set r=r*3/0.26
}

set prof_aux=prof if(prof>0)
set mag=2.5*lg(7888)-2.5*lg(prof_aux)
set r=r if(prof>0)

echo smooth [0:n 1:y]
define ism ?

if($ism==1) {
echo enter filter size [pixels]
define size ?

smooth mag mag_s $size
set mag=mag_s
}

limits r 8 0
box

ylabel mag

if($axis==1){
xlabel R [\ga\d\o,]
}else{
xlabel z [\gb\d\o,]
}

connect r mag