Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Разработка алгоритма для исследования погрешностей МЭМС-акселерометра

Разработка алгоритма для исследования погрешностей МЭМС-акселерометра

Создание программного кода для моделирования и исследования статистических погрешностей микроэлектромеханического трехосевого акселерометра типа LSM303DLH. Характеристика методов калибровки устройства. Разработка его алгоритмического обеспечения.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 02.07.2016
Размер файла 2,7 M
рефераты на заказ со скидкой

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

begin

KorXY:=covXY/(SrKOX*SrKOY);

KorXZ:=covXZ/(SrKOX*SrKOZ);

KorYZ:=covXY/(SrKOZ*SrKOY);

KorXYLabel.Caption:='KorXY='+FloatToSTRf((KorXY),ffFixed,7,4);

KorXZLabel.Caption:='KorXZ='+FloatToSTRf((KorXZ),ffFixed,7,4);

KorYZLabel.Caption:='KorYZ='+FloatToSTRf((KorYZ),ffFixed,7,4);

end;

Исполнено в программном виде проверка гипотезы о нормальности распределении генеральной совокупности.

ПроцедураProcedurePirsonClick(Sender: TObject)

procedure TForm1.PirsonClick(Sender: TObject);

//проверяем нормальное распределение по согласию Пирсона

var

j3: Integer;

begin

j3:=1;

Reset(newXd); // Xg

Reset(newYd); // Yg

Reset(newZd); // Zg

IntX:=(Abs(MinX)+abs(MaxX))/Raz; //определяемразмеринтерваловразрядов

IntY:=(Abs(MinY)+abs(MaxY))/Raz;

IntZ:=(Abs(MinZ)+abs(MaxZ))/Raz;

aX [1]:=MinX; //определяем нижнюю границу первого разряда

aY [1]:=MinY;

aZ [1]:=MinZ;

for i:=2 to Raz do

for i:=2 to Raz do

begin

AX [i]:=MinX+IntX*(i-1); //определяем нижние границы разрядов

AY [i]:=MinY+IntY*(i-1

AZ [i]:=MinZ+IntZ*(i-1);

end;

while j3<=Kolizm do

begin

Read(newXd, X1);

Read(newYd, Y1);

Read(newZd, Z1);

for i:=1 to Raz do

begin

if ((X1>=ax [i]) and (X1<ax [i+1])) then bx [i]:=bx [i]+1;

if ((Y1>=ay [i]) and (Y1<ay [i+1])) then by [i]:=by [i]+1;

if ((Z1>=az [i]) and (Z1<az [i+1])) then bz [i]:=bz [i]+1;

end;

Inc(j3);

end;

for i:=1 to Raz do

begin

Series4.AddXY(I, (bx [i]), '', Series4.SeriesColor); //построениегистограмм

Series5.AddXY(I, (by [i]), '', Series5.SeriesColor);

Series6.AddXY(I, (bz [i]), '', Series6.SeriesColor);

end;

closefile(newXd);

closefile(newYd);

closefile(newZd);

end;

Размещено на Allbest.ru

...

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены