Гистограмма на А+

 

Функция hist

 

Подготовка данных для построения гистограммы

R  -  выборка даных

L  - число интервалов гистограммы

Z  - границы интервалов и оценки плотности распределения в формате, удобном для построения графика

 

n hist x:{

ã n is number of intervals of histogram

iû(Ä/x)++\0,nÒ((Ó/x)-Ä/x)ßn;

hûnÄ+/iÊ.¤x;

nû+/hÊ.=1+Én;

nûnß(+/n)«i[1]-i[0];

iû1Õ¢1Õ3/i;

nû0,,ô(ô((Òn),2)Ò2/n),0;

(i;n)}

Вспомогательные функции

 

Генерация n эквидистантных точек в диапазоне [L0],L1]]

L range n:{L[0]+(Én)«(L[1]-L[0])ßn-1}

 

Значения Гауссовской кривой с параметрами ms[0] (среднее) и ms[1] (дисперсия), расчитанные в точках x

 

ms gauss x:{

xû*-((x-ms[0])*2)ß2«ms[1];

xûxß((Ï2)«ms[1])*.5}

 

Генерация случайных чисел

 

Равномерное распределение на [0,1], L случайных чисел

 

RND L:(?T)ßTûLÒ1000000

 

Равномерное распределение на [R[0],R[1]], L случайных чисел

 

L RUN R:R[0]+(RND R)«R[1]-R[2]

 

Экспоненциальное распределение со средним R, L случайных чисел

 

L RNE R:-R«ðRND L

 

Нормальное распределение со средним R[0] и СКО R, L случайных чисел

 

L RNO R:R[0]+R[1]«((2«L RNE 1)*0.5)«2ÏÏ2«RND L

 

Сеанс A+ c примерами

Простая гистограмма

      $load s

     $load /home/askom/a+/rnd

     s.QUIETû1

     xû100 RNO 0 1

     (i;n)û13 hist x

     matûô>(i;n)

     gû`mat

     show `g is `graph

    

 

Сравнение распределений двух выборок

      xû100 RNO 2 1

     (i;n)û13 hist x

     mat1ûô>(i;n)

     gûg,`mat1

 

Гистограмма и Гауссовская кривая

 

      xû1000 RNO 0 1

     (i;n)û31 hist x

     mûô>(i;n)

     gû`m

     show `g is `graph

     xû¢3 3 range 101

     yû0 1 gauss x

     mgûô>(x;y)

     gûg,`mg