Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2017, 08:42   #31
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Да. Но "от xmin до xmax" - это, строго говоря, не обязательно. Допустим, строим гистограммы размеров деталей, выдаваемый неким автоматом. Допустиый размер - от 4.9 до 5.1 мм. Вот из расчета этого строим гистограмму: делим, к примеру на 20 интервалов по 0.01 мм. В зависимости от настройки автомата xmin и xmax могут быть сдвинуты к разным краям гистограммы, но нет смысла каждый раз менять ее параметры.
В нашем случае интервал уже определен заданием 1.0 и 3.0 . И если, положим, в результате заполнения массива случайными числами получим xmin = 1.03, xmax = 2.96 - это еще не повод брать эти значения за концы интервала с неким совершенно невнятным шагом разбиения. Берем округленные значения - от xmin в меньшую сторону, от xmax - в большую.

Одна поправка: в этом случае
Код:
 n := Trunc((x[i]-1.0)*15.0)

Последний раз редактировалось digitalis; 27.05.2017 в 18:10.
digitalis на форуме Ответить с цитированием
Старый 27.05.2017, 17:33   #32
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 40
По умолчанию

Так поняла.

Цитата:
Сообщение от digitalis Посмотреть сообщение
В нашем случае интервал уже определен заданием 2.0 и 3.0
Вот тут не пойму это интервал a и b? То у меня вроде интервал 1 и 3
Мария34 вне форума Ответить с цитированием
Старый 27.05.2017, 18:13   #33
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Ну за долгой дискуссией забыл я начальные условия с поста #1. Конечно, 1 и 3. Поправил.
digitalis на форуме Ответить с цитированием
Старый 28.05.2017, 12:03   #34
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 40
По умолчанию

Так, как строить эту гистограмму вроде разобралась, но опять не понимаю вот на рисунке берутся эти значения разной высоты столбцов? У меня они ведь тоже должны быть разными.
Изображения
Тип файла: png 1.png (20.0 Кб, 79 просмотров)

Последний раз редактировалось Мария34; 28.05.2017 в 12:53.
Мария34 вне форума Ответить с цитированием
Старый 28.05.2017, 12:40   #35
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Цитата:
вот на рисунке берутся эти значения разной высоты столбцов? У меня они ведь тоже должны быть разными.
Ну и кто этому препятствует? По мордам его ! В рассчитанной гистограмме значения, надеюсь, и получились разными ? Или до расчета дело пока не дошло?
Приведенного рисунка я совсем не понял. Тут слеплены 2 гистограммы, причем одна перекручена на 270град. Как приблизительно выглядит нормальная гистограмма - у меня в посте #17.
А, понял. Тут в правой части графически показаны значения самого исследуемого массива ( надеюсь, тебе не придет в голову изображать черточками все 1000 значений массива x) - забудь как кошмарный сон. Гистограмма - это левая часть, только поставленная в правильную позицию, а не через ##пу.
Изображения
Тип файла: jpg hist2.JPG (3.6 Кб, 47 просмотров)

Последний раз редактировалось digitalis; 28.05.2017 в 12:53.
digitalis на форуме Ответить с цитированием
Старый 28.05.2017, 12:52   #36
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 40
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
В рассчитанной гистограмме значения, надеюсь, и получились разными ? Или до расчета дело пока не дошло?
Дак вот и не пойму как эти значения рассчитываются... Блин не ужели я настолько тупая не могу вникнуть. Вроде задание не сложное.
Мария34 вне форума Ответить с цитированием
Старый 28.05.2017, 13:02   #37
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

О, как все запущено...
Массив x случайными числами заполнен? Мой пост #17 читала? Там уже готовый код.
Мария34, а Вы, случаем, не тролль? Сидит там по этим ником хитро##пый вьюноша и, ухмыляясь, наблюдает, как старик-программер пытается поставить на путь истинный виртуальную "двоечницу". Скан зачетки - в студию !
digitalis на форуме Ответить с цитированием
Старый 28.05.2017, 13:09   #38
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 40
По умолчанию

Нет не тролль, просто до этого были довольно простые задания. Программирование конечно не быстро дается, но очень интересно =) Плюс учюсь на заочном, и самой все приходится "схватывать".
Мария34 вне форума Ответить с цитированием
Старый 28.05.2017, 13:39   #39
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 40
По умолчанию

Просто вот нашла код строится гистограмма, но никак разъберусь в нем как его под ваш массив сделать.
Код:
uses graph;
const n=7;
var a:array[1..n] of real;
    i,j,x0,y0,w,c:integer;
    mx,h:real;
    s:string;
begin
randomize;
for i:=1 to n do
a[i]:=20*random;
initgraph(x0,y0,'');
w:=20;{ширина столбцов}
x0:=50;{левый край диаграммы}
y0:=getmaxY-80;{нижний край}
mx:=a[1];
for i:=1 to n do
if a[i]>mx then mx:=a[i];{находим максимум}
h:=(y0-40)/mx;{масштаб по вертикали}
for i:=1 to n do
 begin
  setcolor(i);{цвет}
  setfillstyle(1,i);
  {рисуем прямоугольники с заданной шириной, шагом
    и высотой соответственно значению}
  bar(x0+4*w*(i-1),y0-round(a[i]*h),x0+w*(4*i-2),y0);
  str(i,s);
  outtextXY(x0+4*w*(i-1)+15,y0+20,s);{выводим по низу номер}
  str(a[i]:5:2,s);{преобразуем значения в строку}
  outtextXY(x0+4*w*(i-1),y0-round(a[i]*h)-20,s);{выводим значения выше столбика}
 end;
readln
end.
Мария34 вне форума Ответить с цитированием
Старый 28.05.2017, 13:46   #40
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Простые залания... Разве бывают еще проще ?!
Ну дык за дело - запустить мой код; столбики можно пока не рисовать , просто распечатать гистограмму цифрами.
Того, кто придумал заочное дипломо-выдавательство, я бы судил за экономическую диверсию. Исключения редки - моя матушка училась на заочном в пед., но у нее каждая оценка в зачетке была полита по'том учительницы сельской школы.
Еще раз повторяю: не нужно выискивать в куче... интернета что-то с похожими словами и потом пытаться прикрутить гнилыми нитками к своему проекту. Самой. По шагам. Секционируя подзадачи.
1. сгенерировать random массив.
2. определить параметры распределения.
3. рассчитать гистограмму.
4. визуализировать ее.
К следующему этапу переходить, когда закончен предыдущий. из найденного брать нужную часть, точно разобравшись - что она делает.
PS массив не мой, он Паскалевский, у меня своих девать некуда.

Кстати, в каком Паскале терпите мучения? Если АВС, то я пас - снес его на фиг бо ненужен. Если ТР - одолеем и графику.
=================================== ===
Модераторы, мне за сверх-терпение какой-нить приз полагается ?

Последний раз редактировалось digitalis; 28.05.2017 в 14:10.
digitalis на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти значение случайной величины по методу Монте-Карло Вероника99 Помощь студентам 0 13.07.2016 19:41
математическое ожидание для дискретной случайной величины Делфи 7 программирование Помощь студентам 2 10.10.2013 21:39
Нормальный (Гауссовский) закон распределения VOVA-74 C++ Builder 0 19.02.2013 18:33
закон распределения Эрланга. Lenr88 Паскаль, Turbo Pascal, PascalABC.NET 0 13.02.2012 12:56