Logo GenDocs.ru

Поиск по сайту:  


Загрузка...

Лабораторная работа - Исследование свойств информационных мер - файл 1.doc


Лабораторная работа - Исследование свойств информационных мер
скачать (249 kb.)

Доступные файлы (1):

1.doc249kb.27.11.2011 20:08скачать

содержание
Загрузка...

1.doc

Реклама MarketGid:
Загрузка...

1 Цель занятия: Получить навыки исследования информационных объектов на основе классической теории информации

2 Задачи на работу

  1. Провести анализ основных существующих информационных мер, применяемых в информационных системах.

  2. Разработать сводную таблицу сравнительных характеристик информационных мер на основе качественного подхода к информации


  3. Разработать программу на (любом) языке высокого уровня реализующую в интерактивном режиме выбор допустимых информационных мер для заданных условий оценки ИО и вычисление их значений

  4. Сравнить чувствительность информационных мер на конкретных примерах.

  5. Оформить отчет ( индивидуально для каждого студента) исследований и защитить его.


^

3 Содержание отчета:

  1. Тема, цель и задачи лабораторного занятия

  2. Результаты изучения понятий «энтропия» и «информационные меры», в том числе и сводная таблица


  3. Программа в электронном варианте (отлаженная)

  4. Результаты тестирования полученной программы на заданном наборе исходных данных (индивидуальных заданий)



Энтропия – информационная мера организованности или разнообразия (сложности, неопределенности) ситуации (ИО).

Информация- фундаментальное понятие кибернетики, означающее определенные сведения, совокупность данных, знаний и т.п..

Свойства информации

- Аддитивность.

Теорема: I(1:2) есть аддитивная функция независимых случайных величин, т.е. для X и Y, независимых при гипотенузах H, i =1,2:

I(1:2; X, Y)=I(1:2; X)+I(1:2; Y)
- Выпуклость.

Теорема : I(1:2) почти всюду неотрицательна, т.е. I(1:2) 0, и равенство имеет место тогда и только тогда, когда f(x)=
- Инвариантность.

Вводим, пусть Y=T(x)- статистика, т.е. T(x) является функцией с областью определения X и областью значения Y, и пусть- аддитивный класс подмножества Y. Предположим, что T(x)- измеримая функция, т.е. для любого множества G полный прообраз T(G)={x: T(x) G } [T( G) ] есть совокупность элементов x таких, что T(x) G] принадлежит классу S измеримых подмножеств пространства X. Класс всех множеств вида T( G), где G, обозначается T(). Таким образом, мы имеем измеримое отображение T вероятностного пространства (x,S,)

Теорема: I(1:2;Y) с равенством тогда и только тогда, когда f(x)f(x)=g(T(x)) .
^

Анализ информационных мер в информационных системах


1. Комбинаторно-вероятностная мера разнообразия заданного множества объектов (неопределенности опытов с N различными исходами или возможности выбора) Р.Хартли [ ]:

H = k ln N,

где k - коэффициент пропорциональности (при k = 1 используются натуральные единицы измерения, наты; при k = 1/ln2 - двоичные единицы, дведы или биты; при k = 1/ln10 - десятичные, диты).

Характеризуется тем, что:

- математическая строгость определения обеспечена за счет абстрагирования от семантических и прагматических свойств (качества) информации;

- проста и удобна в ряде практических задач связи и управлениях [ ];

- не учитывает различие между характером имеющихся исходов (почти невероятному исходу придается такое же значение, как и достаточно правдоподобному);

- не отражает случайного характера формирования информационных массивов (ИМ) в задачах анализа, синтеза и управления информационных системами.
^ 2. Вероятностно-статистическая усредненная мера неопределенности заданного множества объектов (статистической «редкости» символов в сообщениях, информационных массивах (ИМ)) Н.Винера и К.Шеннона [ ](селективная энтропия):

H = - pmi ln pmi, i = ,

где pmi - вероятность i го из возможных N ИМ mi.

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет абстрагирования от семантических и прагматических свойств (качества) информации;

  • удобна в практических задачах передачи информации по физическим каналам связи и некоторых задачах управления;

  • учитывает различие между характером имеющихся исходов с помощью использования понятия вероятности (появления символов в ИМ);

  • учитывает статистическую структуру ансамбля компонентов ИМ (сообщений);

  • требует получения надежных статистических характеристик информационных объектов;

  • не может описать такой важный случай информационного обмена как поступление дезинформации, так как H0 и «количество информации» I = Hapr - Haps  0 ;

  • требует рассмотрения исходного ограниченного множества объектов (сообщений), т.е. относится к закрытым системам;

  • не учитывает целей источника и получателя сообщений;

  • не учитывает различимость исходов (значений случайной величины);

  • не применима для оценки состояния сложной (с большим числом элементов и связей) системы вследствие практической невозможности оценить распределение вероятностей состояний сложной системы.


^

3. Алгоритмическая мера сложности индивидуального объекта


(сложности восстановления двоичного слова s по фиксированной функции или методу программирования f: z  s, который ставит в соответствие программам-описаниям zZf(s) различной длины слово s) А.Колмогорова [ ]:

Kf (s) =

где s  S, z  Zf(s) - двоичные слова; f(z) - фиксированная оптимальная вычислимая функция восстановления (метод программирования).

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет абстрагирования от семантических и прагматических свойств (качества) информации;

  • применима к индивидуальным конструктивным объектам, т.е. позволяет определить количество информации в одном индивидуальном объекте относительно другого;

  • не учитывает сложности процесса «развертывания» краткого описания (z) объекта в полное описание (s), а для многих конструктивных объектов, заданных очень короткими описаниями (т.е. по Колмогорову их сложность мала), восстановление осуществляется в результате вычислений нереальной сложности;

  • не является эффективно (алгоритмически, регулярно) вычислимой, так как не существует восстанавливающего алгоритма, определяющего по любому описанию конечной длины его сложность.



^ 4. Мера неопределенности распределения вероятностей R1(s) относительно распределения R2(s)
(среднее количество информации)[ ] C.Кульбака :

I(R1│R2) = R1(s) ln{R1(s) / R2(s)}.

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет абстрагирования от семантических и прагматических свойств (качества) информации;

  • проста и понятна;

  • значение количества информации по Кульбаку в частном случае двух близких гипотез о значении параметра, т.е. в случае, когда в определении количества информации по Кульбаку

    R1(s) = R(s, V), R2(s) = R(s, V + V),

    где V - многомерный параметр, представляет собой количество информации по Р.Фишеру.



^ 5. Мера сложности описания объекта (его алгебраической структурно-функциональной модели) А.Шилейко и В.Кочнева[ ].

I() = mеln(nе) + (i ln{i/ci})  [mcln(2)] + mæ ln(næ),

mе + mc + mæ = min , i = ,

где me, mc, mæ - число подстрингов (символов), отражающих элементы e  E, c  C, æ  K соответственно в минимальном стринге (упорядоченная последовательность символов, представляющем собой описание объекта (системы) ; E, C, K - множества элементов, информационных связей и структур объекта (системы) соответственно; ne, nc, næ - количество элементов множеств E, C, K соответственно; - максимально возможное значение интенсивности информационной связи; c - погрешность измерения интенсивности связи; 2 - число возможностей при простом наличии-отсутствии информационной связи;  - знак логического «ИЛИ» (здесь означает, что при вычислении I() второе слагаемое может иметь какое-либо одно из двух приведенных выражений в зависимости от характера информационных связей в системе).

Характеризуется следующими свойствами:

  • аддитивности (так как использован логарифм разнообразия Р. Хартли );

  • универсальности (поскольку класс рассматриваемых объектов достаточно широк вследствие применения конструктивного подхода А. Колмогорова, а если, в частности, само разнообразие можно определить через вероятности, следуя подходу К.Шеннона, - никаких дополнительных свойств данная мера не приобретет);

  • детерминированности (не требует статистических данных);

  • конструктивности (не требует ансамбля объектов);

  • независимости от потребителя (согласно подходу А. Шилейко и В. Кочнева I() без учета задач переработки информации (ЗПИ) представляет собой пассивный структурно-информационный ресурс информационной системы).



^ 6. Комбинаторная мера разнообразия общесистемного тезауруса (запаса знаний) Ю.Шрейдера[ ]:

H(m,T) = ln[T(Om)] = ln [ini(Om)],

где Om  O - оператор преобразования тезауруса T = < X,Y, Z>, соответствующий единичному ИМ m  M; X, Y, Z - множества объектов троек <имя-смысл-значение>, предикатов и отношений, событий-высказываний соответственно; ni, i = x, y, z - кардинальное число го множества.

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет учета семантических и прагматических свойств (качества) информации в виде разнообразия соответствующих подмножеств тезауруса;

  • проста и понятна;

  • содержит формальную модель (описание) предметной области, что позволяет получателю осмысливать информацию.



^ 7. Вероятностная мера целесообразности управления А.Харкевича [ ]:

I = ln p1/po, (1.10)

где pо, p1 - вероятности достижения цели управления до получения и после получения информации соответственно.

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет абстрагирования от природы информации («на основании некоторой информации система принимает решение, изменяющее вероятность достижения цели»). Кроме того, физическая природа сигналов, логическая структура сообщений и их длина полностью игнорируются;

  • проста и понятна;

  • учитывает семантические и прагматические свойства (качество) содержательной информации;

  • может описать случай поступления дезинформации, так как возможно I  0.



^ 8. Мера неопределенности результата принятия решения (наших знаний о возможных результатах принятых нами решений) Н.Н.Моисеева [ ] :


J+ - J-
 = ────,

J
+ + J-

J
+ = max J(u*, +), J- = max J(u*, -),

u u

-  (t)  + t  [tо, T],

где x(t) - управляемый процесс, о котором отсутствует полная информация, а известны только нижняя (-) и верхняя (+) оценки его значений; J[u(t), (t)] - целевая максимизируемая функция (функционал) управления; u*(t) - оптимальное управление.

Характеризуется тем, что:

  • математическая строгость определения обеспечена за счет отвлечения от природы информации («на основании некоторой информации система принимает решение, уменьшающее степень неопределенности достижения цели»). Кроме того, физическая природа сигналов, логическая структура сообщений и их длина полностью игнорируются;

  • проста и понятна: является оценкой количества (достаточности) и качества (прагматических свойств) содержательной информации о процессе (t);

  • учитывает значения показателя эффективности управления, т.е. позволяет судить о ценности имеющейся в системе информации;

  • не может описать важный случай поступления дезинформации;

  • близка, по существу, к мере Н.Винера и К.Шеннона, которая является именно мерой неопределенности той информации, которая содержится в передаваемом сообщении;

  • в частном случае, если (t) - случайный процесс с математическим ожиданием (t) и не известна его конкретная реализация, то в качестве варианта данной меры можно принять дисперсию случайной величины J[u*(), ], т.е.


     = D{ J[u*(), ] },

u* = arg max J[u(t), (t)].
9. Негэнтропия (отрицательная энтропия)[ ] :

_

H = H* - H , (1.13)

где H, H* - термодинамические энтропии системы, находящейся в начальном и конечном состояниях соответственно.

Характеризуется тем, что:

  • является чисто термодинамической величиной, которую можно интерпретировать как меру того, насколько далеко определенная физическая система находится от доступного ей при данной энергии состояния (H*) полного статистического равновесия;

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


^ Вид программы





Форма расчета меры Моисеева



^ Листинг программы

unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, Unit2, ExtCtrls, jpeg;
type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Label7: TLabel;

Edit4: TEdit;

Label8: TLabel;

Edit5: TEdit;

Button2: TButton;

Edit6: TEdit;

Label11: TLabel;

Label12: TLabel;

Edit7: TEdit;

Label13: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Label14: TLabel;

Label15: TLabel;

Edit10: TEdit;

Label16: TLabel;

Edit11: TEdit;

Edit12: TEdit;

Label17: TLabel;

Edit13: TEdit;

Label18: TLabel;

Button3: TButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

Edit14: TEdit;

Edit15: TEdit;

Edit17: TEdit;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Button4: TButton;

Edit16: TEdit;

Label24: TLabel;

Edit18: TEdit;

Label25: TLabel;

Label26: TLabel;

Edit19: TEdit;

Button5: TButton;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Button6: TButton;

Label32: TLabel;

Edit23: TEdit;

Edit24: TEdit;

Label33: TLabel;

Label34: TLabel;

Edit25: TEdit;

Button7: TButton;

Label35: TLabel;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image1: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

RadioButton11: TRadioButton;

RadioButton12: TRadioButton;

RadioButton13: TRadioButton;

RadioButton14: TRadioButton;

RadioButton15: TRadioButton;

Panel9: TPanel;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Edit26: TEdit;

Label1: TLabel;

Edit27: TEdit;

Edit28: TEdit;

Edit29: TEdit;

Label5: TLabel;

Label6: TLabel;

Label9: TLabel;

Button8: TButton;

Button9: TButton;

procedure File1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure able1Click(Sender: TObject);

procedure RadioButton15Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure TForm1.File1Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel1.Visible:=true;

Panel1.Enabled:=true;

end;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel2.Visible:=true;

Panel2.Enabled:=true;

end;

end;
procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel3.Visible:=true;

Panel3.Enabled:=true;

end;

end;
procedure TForm1.RadioButton4Click(Sender: TObject);

begin

if RadioButton4.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel4.Visible:=true;

Panel4.Enabled:=true;

end;

end;
procedure TForm1.RadioButton5Click(Sender: TObject);

begin

if RadioButton5.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel5.Visible:=true;

Panel5.Enabled:=true;

end;

end;
procedure TForm1.RadioButton6Click(Sender: TObject);

begin

if RadioButton6.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel6.Visible:=true;

Panel6.Enabled:=true;

end;

end;
procedure TForm1.RadioButton7Click(Sender: TObject);

begin

if RadioButton7.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel7.Visible:=true;

Panel7.Enabled:=true;

end;

end;
procedure TForm1.RadioButton8Click(Sender: TObject);

begin

if RadioButton8.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Panel9.Visible:=false;

Label35.Caption:='';

Panel8.Visible:=true;

Panel8.Enabled:=true;

end;

end;
procedure TForm1.About1Click(Sender: TObject);

begin

Form3.Show;

end;
procedure TForm1.Button1Click(Sender: TObject);

var

k,N,R:Real;

begin

k:=StrToInt(Edit1.Text);

N:=StrToInt(Edit2.Text);

R:=k*Ln(N);

Edit3.Text:=FloatToStr(R);

end;
procedure TForm1.Button2Click(Sender: TObject);

const

rusalf=['а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','ю','я',' '];

angalf=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','r','s','t','u','v','w','x','y','z',' ','q'];

var

ch:real;

i,j:integer;

masr: array [1..33] of string;

masc: array [1..33] of real;

masa: array [1..27] of string;

masac: array [1..27] of real;

masn: array [1..27] of real;

masf: array [1..27] of real;

begin

ch:=0;

{======= Русский алфавит =======}

masr[1]:='а'; masc[1]:=0.064; masr[18]:='с'; masc[18]:=0.045;

masr[2]:='б'; masc[2]:=0.014; masr[19]:='т'; masc[19]:=0.053;

masr[3]:='в'; masc[3]:=0.038; masr[20]:='у'; masc[20]:=0.021;

masr[4]:='г'; masc[4]:=0.012; masr[21]:='ф'; masc[21]:=0.002;

masr[5]:='д'; masc[5]:=0.025; masr[22]:='х'; masc[22]:=0.009;

masr[6]:='е'; masc[6]:=0.072; masr[23]:='ц'; masc[23]:=0.004;

masr[7]:='ё'; masc[7]:=0.072; masr[24]:='ч'; masc[24]:=0.012;

masr[8]:='ж'; masc[8]:=0.007; masr[25]:='ш'; masc[25]:=0.006;

masr[9]:='и'; masc[9]:=0.062; masr[26]:='щ'; masc[26]:=0.003;

masr[10]:='й'; masc[10]:=0.010; masr[27]:='ь'; masc[27]:=0.014;

masr[11]:='к'; masc[11]:=0.028; masr[28]:='ы'; masc[28]:=0.016;

masr[12]:='л'; masc[12]:=0.035; masr[29]:='ъ'; masc[29]:=0.014;

masr[13]:='м'; masc[13]:=0.026; masr[30]:='э'; masc[30]:=0.003;

masr[14]:='н'; masc[14]:=0.053; masr[31]:='ю'; masc[31]:=0.006;

masr[15]:='о'; masc[15]:=0.090; masr[32]:='я'; masc[32]:=0.018;

masr[16]:='п'; masc[16]:=0.023; masr[33]:=' '; masc[33]:=0.175;

masr[17]:='р'; masc[17]:=0.040;

{======= Английский алфавит =======}

masa[1]:='a'; masac[1]:=0.081; masa[14]:='n'; masac[14]:=0.072;

masa[2]:='b'; masac[2]:=0.014; masa[15]:='o'; masac[15]:=0.029;

masa[3]:='c'; masac[3]:=0.027; masa[16]:='p'; masac[16]:=0.020;

masa[4]:='d'; masac[4]:=0.039; masa[17]:='r'; masac[17]:=0.069;

masa[5]:='e'; masac[5]:=0.130; masa[18]:='s'; masac[18]:=0.061;

masa[6]:='f'; masac[6]:=0.129; masa[19]:='t'; masac[19]:=0.015;

masa[7]:='g'; masac[7]:=0.020; masa[20]:='u'; masac[20]:=0.024;

masa[8]:='h'; masac[8]:=0.052; masa[21]:='v'; masac[21]:=0.009;

masa[9]:='i'; masac[9]:=0.062; masa[22]:='w'; masac[22]:=0.015;

masa[10]:='j'; masac[10]:=0.002; masa[23]:='x'; masac[23]:=0.002;

masa[11]:='k'; masac[11]:=0.004; masa[24]:='y'; masac[24]:=0.019;

masa[12]:='l'; masac[12]:=0.034; masa[25]:='z'; masac[25]:=0.001;

masa[13]:='m'; masac[13]:=0.025; masa[26]:=' '; masac[26]:=0.175;

masa[27]:='q'; masac[27]:=0.052;

masn[1]:=0.129; masn[14]:=0.062; masf[1]:=0.076; masf[14]:=0.076;

masn[2]:=0.010; masn[15]:=0.088; masf[2]:=0.008; masf[15]:=0.053;

masn[3]:=0.044; masn[16]:=0.032; masf[3]:=0.033; masf[16]:=0.032;

masn[4]:=0.046; masn[17]:=0.069; masf[4]:=0.036; masf[17]:=0.068;

masn[5]:=1.141; masn[18]:=0.076; masf[5]:=0.177; masf[18]:=0.082;

masn[6]:=0.070; masn[19]:=0.043; masf[6]:=0.010; masf[19]:=0.073;

masn[7]:=0.091; masn[20]:=0.040; masf[7]:=0.011; masf[20]:=0.060;

masn[8]:=0.007; masn[21]:=0.006; masf[8]:=0.006; masf[21]:=0.012;

masn[9]:=0.070; masn[22]:=0 ; masf[9]:=0.072; masf[22]:=0;

masn[10]:=0.002; masn[23]:=0.007; masf[10]:=0.001; masf[23]:=0.005;

masn[11]:=0 ; masn[24]:=0.010; masf[11]:=0 ; masf[24]:=0.002;

masn[12]:=0.052; masn[25]:=0.003; masf[12]:=0.058; masf[25]:=0.007;

masn[13]:=0.025; masn[26]:=0.002; masf[13]:=0.027; masf[26]:=0.051;

masn[27]:=0.015; masf[27]:=0.013;

if (RadioButton11.Checked=false) and (RadioButton12.Checked=false) and (RadioButton13.Checked=false) and (RadioButton14.Checked=false) then ShowMessage('Выберите язык') else

if (RadioButton11.Checked=true) and (Edit4.Text[1] in rusalf) then

for i:=1 to length(Edit4.Text) do

for j:=1 to 33 do

begin

if Edit4.Text[i]=masr[j] then ch:=ch+masc[j];

Edit5.Text:=FloatToStr(ch);

end else
if (RadioButton12.Checked=true) and (Edit4.Text[1] in angalf) then

for i:=1 to length(Edit4.Text) do

for j:=1 to 26 do

begin

if Edit4.Text[i]=masa[j] then ch:=ch+masac[j];

Edit5.Text:=FloatToStr(ch);

end else

if (RadioButton13.Checked=true) and (Edit1.Text[1] in angalf) then

for i:=1 to length(Edit4.Text) do

for j:=1 to 26 do

begin

if Edit4.Text[i]=masa[j] then ch:=ch+masn[j];

Edit5.Text:=FloatToStr(ch);

end else

if (RadioButton14.Checked=true) and (Edit4.Text[1] in angalf) then

for i:=1 to length(Edit4.Text) do

for j:=1 to 26 do

begin

if Edit4.Text[i]=masa[j] then ch:=ch+masf[j];

Edit5.Text:=FloatToStr(ch);

end else

ShowMessage('Неправильно выбран язык');

end;
procedure TForm1.Button3Click(Sender: TObject);

var

me,ne,ma,na:real;

L,summa:real;

ec,mc:real;

begin

me:=StrToFloat(Edit6.Text);

ne:=StrToFloat(Edit8.Text);

ma:=StrToFloat(Edit9.Text);

na:=StrToFloat(Edit10.Text);

if RadioButton9.Checked then

begin

L:=StrToFloat(Edit12.Text);

ec:=StrToFloat(Edit11.Text);

summa:=ln(L/ec);

end

else

begin

mc:=StrToFloat(Edit13.Text);

summa:=mc*ln(2);

end;

Edit7.Text:=FloatToStr(me*ln(ne)+summa+ma*ln(na));
end;
procedure TForm1.Button4Click(Sender: TObject);

var

ni,Om:real;

begin

Om:=StrToFloat(Edit14.Text);

ni:=StrToFloat(Edit17.Text);

Edit15.Text:=FloatToStr(ln(ni*Om));
end;
procedure TForm1.Button5Click(Sender: TObject);

var

p1,p0:real;

begin

p1:=StrToFloat(Edit18.Text);

p0:=StrToFloat(Edit16.Text);

Edit19.Text:=FloatToStr(ln(p1/p0));

end;

procedure TForm1.Button6Click(Sender: TObject);

var

j1,j2:real;

begin

j1:=StrToFloat(Edit20.Text);

j2:=StrToFloat(Edit21.Text);

Edit22.Text:=FloatToStr(abs((j1-j2)/(j1+j2)));
end;
procedure TForm1.Button7Click(Sender: TObject);

var

h1,h2:real;

begin

h1:=StrToFloat(Edit25.Text);

h2:=StrToFloat(Edit24.Text);

Edit23.Text:=FloatToStr(h1-h2);
end;
procedure TForm1.able1Click(Sender: TObject);

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

end;
procedure TForm1.RadioButton15Click(Sender: TObject);

begin

if RadioButton15.Checked=true then

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

Panel4.Visible:=false;

Panel5.Visible:=false;

Panel6.Visible:=false;

Panel7.Visible:=false;

Panel8.Visible:=false;

Label35.Caption:='';

Panel9.Visible:=true;

Panel9.Enabled:=true;

end;

end;
procedure TForm1.Button8Click(Sender: TObject);

Var

ir1r2:real;

s,i,k1,k2:integer;

r1,r2:array [1..50] of real;

z,ed1,ed2:string;

f:boolean;

begin

ed1:=Edit27.Text; ed2:=Edit28.Text;

Edit27.Text:=Edit27.Text+' ';

Edit28.Text:=Edit28.Text+' ';

k1:=1; k2:=1;
for i:=1 to length(Edit27.Text) do

begin

if Edit27.Text[i]=' ' then

Begin

r1[k1]:=StrToInt(z);

k1:=k1+1;

z:='';

end else

z:=z+Edit27.Text[i];

end;
for i:=1 to length(Edit28.Text) do

begin

if Edit28.Text[i]=' ' then

Begin

r2[k2]:=StrToFloat(z);

k2:=k2+1;

z:='';

end else

z:=z+Edit28.Text[i];

end;

f:=false;

if (StrToInt(Edit26.Text)=k1-1) and (StrToInt(Edit26.Text)=k2-1) then

begin

f:=true;

ir1r2:=0;

for i:=1 to k1-1 do

ir1r2:=ir1r2+r1[i]*ln(r1[i]/r2[i]);

End else ir1r2:=0;

if f=true then Edit29.Text:=FloatToStr(ir1r2) else

Edit29.Text:='Результат: НЕПРАВИЛЬНЫЙ ВВОД';

Edit27.Clear; Edit27.Text:=ed1;

Edit28.Clear; Edit28.Text:=ed2;

end;
procedure TForm1.Button9Click(Sender: TObject);

begin

Form4.Visible:=True;

end;
end.


Скачать файл (249 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации
Рейтинг@Mail.ru