Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Умножение матрицы на вектор, с использованием StringGrid 
:(
    Опции темы
Гость_Lana
Дата 2.12.2005, 15:41 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
В данной процедуре должно происходить заполнение массива Matrix1 даными из StringGrid1 и Vector1 из StringGrid2. Но нажатие кнопки Button1 после заполнения StringGrid вызывает ошибку.
Код
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 Setlength(Matrix1, Stringgrid1.ColCount-1, Stringgrid1.RowCount-1); 
 Setlength (Vector1, 1, StringGrid2.RowCount-1); 
 For i:=1 to StringGrid1.colcount-1 do 
   For j:=1 to StringGrid1.rowcount-1 do 
   Matrix1 [i,j]:= StrToFloat (StringGrid1.Cells[i,j]); 
 For i:=1 to StringGrid2.colcount-1 do 
   Vector1 [1,i]:= StrToFloat (StringGrid2.Cells[1,i]); 
 Umnoz (Matrix1, Vector1, StringGrid1.ColCount, Stringgrid1.RowCount); 
end; 

Процедура Umnoz должна выполнять умножение матрицы на вектор 
procedure Umnoz (const Matrix:ardex; const Vector:ardex; col:Integer; row:Integer); 
 var i1,j1:Integer; 
   Rachet:Double; 
begin 
  for i1:=1 to col do 
  begin 
      Rachet:= 0; 
      for j1:=1 to row do 
         begin 
         Rachet:= (Matrix[i1,j1])* (Vector[1,j1]); 
       end; 
    end;


Это сообщение отредактировал(а) Girder - 7.12.2005, 17:01
  Вверх
amium
Дата 2.12.2005, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 2.12.2005

Репутация: нет
Всего: нет

Цитата
Umnoz (Matrix1, Vector1, StringGrid1.ColCount, Stringgrid1.RowCount);



здесь в таком случае тоже надо сделать -1 для ColCount и RowCount.
PM MAIL   Вверх
Гость_Lana
Дата 7.12.2005, 16:51 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
На данный момент ввод данных осуществляется правильно. Но в процедуре Umnoz ошибка при подстановке значения матрицы квадратной проблем не возникает, но при прямоугольной smile Выдает ошибку.

Код
unit Work5555;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
StringGrid2: TStringGrid;
Label5: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type Ardex= array of array of Extended;
var
Form1: TForm1;
i,j:Integer;
Matrix1, Vector1: ardex;

implementation

{$R *.dfm}
[b]procedure Umnoz [/b](const Matrix:ardex; const Vector:ardex; col:Integer; row:Integer; out s:string);
var i1,j1:Integer; Prom:Extended;
begin
s:= ' ';
for i1:=0 to col-1 do
begin
Prom:=0;
for j1:=0 to row-1 do Prom:= Prom + (Matrix[i1,j1])* (Vector[j1,0]);
s:=s+FloatToStr(Prom)+ ' ';
end;
[b]end;[/b]
procedure TForm1.Edit1Change(Sender: TObject);
Var i1,kod: Integer;
begin
Val(Edit1.Text,i1,kod); If (kod = 0) and (i1 > 0) then
begin
Label4.Caption:='';
StringGrid1.ColCount := i1;
StringGrid2.RowCount := i1;
end
else Label4.Caption := 'Число не верно';
end;
procedure TForm1.Edit2Change(Sender: TObject);
Var i1,kod: Integer;
begin
Val(Edit2.Text,i1,kod); If (kod = 0) and (i1 > 0) then
begin
Label4.Caption:='';
StringGrid1.RowCount := i1;
end
else Label4.Caption := 'Число не верно';
end;

procedure TForm1.Button1Click(Sender: TObject);
var s1: String;
begin
s1:=' ';
Setlength(Matrix1,Stringgrid1.RowCount, Stringgrid1.ColCount);
Setlength(Vector1, StringGrid2.RowCount,1);
For i:=0 to StringGrid1.colcount-1 do
For j:=0 to StringGrid1.rowcount-1 do
Matrix1 [j,i]:= StrToFloat (StringGrid1.Cells[i,j]);
For i:=0 to StringGrid2.rowcount-1 do
Vector1 [i,0]:= StrToFloat (StringGrid2.Cells[0,i]);
Umnoz (Matrix1, Vector1, StringGrid1.ColCount, Stringgrid1.RowCount, s1);
Label5.Caption :=s1;
end;
end.


Это сообщение отредактировал(а) Girder - 7.12.2005, 17:02
  Вверх
Alcohol
Дата 7.12.2005, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 28.11.2005

Репутация: нет
Всего: нет
Наверняка опять дело в границах массивов. Поставь точки останова в процедуре, и посмотри, где именно рубится. Если не сможешь ничего сделать сама, то тогда хотябы скажи что за ошибка и в каком месте именно.
PM MAIL   Вверх
Лана
Дата 8.12.2005, 09:06 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
При установке колонок больше чем строк появляется Invalid floating point, а при установке строк больше чем колонок Access violation at address.....
Ошибка возникает в цикле при умножении Matrix на Vector. smile
  Вверх
sexton
Дата 8.12.2005, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 1
Всего: 9
Цитата
Setlength(Matrix1,Stringgrid1.RowCount, Stringgrid1.ColCount);
Setlength(Vector1, StringGrid2.RowCount,1);
For i:=0 to StringGrid1.colcount-1 do
For j:=0 to StringGrid1.rowcount-1 do
Matrix1 [j,i]:= StrToFloat (StringGrid1.Cells[i,j]);


Насколько я понимаю, что ты пытаешься в матрицу NxM запихать значения MxN...
Разбирайся с размерностью матрицы...

Это сообщение отредактировал(а) sexton - 8.12.2005, 09:15


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
Лана
Дата 8.12.2005, 10:44 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Всем большое спасибо моя задача получилась smile !!!!!!!!!!!!!!!! smile
Привожу работающий итоговый код
Код

unit Work5555;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    StringGrid2: TStringGrid;
    Label5: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type Ardex= array of array of Extended;
var
  Form1: TForm1;
  i,j:Integer;
  Matrix1, Vector1: ardex;

implementation

{$R *.dfm}
procedure Umnoz (const Matrix:ardex; const Vector:ardex; col:Integer; row:Integer; out s:string);
  var i1,j1:Integer; Prom:Extended;
begin
  s:= ' ';
  for j1:=0 to row-1 do
   begin
     Prom:=0;
     for i1:=0 to col-1 do Prom:= Prom + (Matrix[i1,j1])* (Vector[0,i1]);
     s:=s+FloatToStr(Prom)+ ' ';
      end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
Var i1,kod: Integer;
begin
 Val(Edit1.Text,i1,kod); If (kod = 0) and (i1 > 0) then
    begin
    Label4.Caption:='';
    StringGrid1.ColCount := i1;
    StringGrid2.RowCount := i1;
    end
    else Label4.Caption := 'Число не верно';
end;

procedure TForm1.Edit2Change(Sender: TObject);
Var i1,kod: Integer;
begin
 Val(Edit2.Text,i1,kod); If (kod = 0) and (i1 > 0) then
    begin
    Label4.Caption:='';
    StringGrid1.RowCount := i1;
    end
    else Label4.Caption := 'Число не верно';
end;

procedure TForm1.Button1Click(Sender: TObject);
var s1: String; Prov:Extended; kod:Integer;
begin
  s1:=' ';
  Setlength(Matrix1,Stringgrid1.ColCount, Stringgrid1.RowCount);
  Setlength(Vector1,1, Stringgrid1.ColCount);
  For i:=0 to StringGrid1.colcount-1 do
    For j:=0 to StringGrid1.rowcount-1 do
    begin
    val(StringGrid1.Cells[i,j], Prov,kod);
    if kod=0 then Matrix1 [i,j]:= StrToFloat (StringGrid1.Cells[i,j])
    else
        begin
        ShowMessage ('Число не верно, введите другое');
        exit;
        end;
    end;
 For j:=0 to StringGrid2.rowcount-1 do
    begin
    val(StringGrid2.Cells[0,j], Prov,kod);
    if kod=0 then Vector1 [0,j]:= StrToFloat (StringGrid2.Cells[0,j])
    else
        begin
        ShowMessage ('Число не верно, введите другое');
        exit;
        end;
    end;
  Umnoz (Matrix1, Vector1, StringGrid1.ColCount, Stringgrid1.RowCount, s1);
   Label5.Caption :=s1;
end;
end.
  Вверх
sexton
Дата 8.12.2005, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 1
Всего: 9
Вот видишь какой эффект от перемены местами двух переменных smile


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0827 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.