Orizousa AxA Pinaka (vb6 / delphi6)

[piosmexeri]

iparxi etimi sinartisi ,se vb6 i delphi6 ,pou na ipologizei tin orizousa enos tetragonikou pinaka ???

 

<small>[ 20-06-2002, 06:30: Το μήνυμα επεξεργάστηκε από: piosmexeri ]</small>

[piosmexeri]

r00t tnx ..exis PM...alla an den ta katafero me allous tropous...ine proklisi na to grapso se vb i delphi...aggouri omos apo oso prospathisa... <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" /> <img border="0" title="" alt="[Cool]" src="images/icons/cool.gif" />

 

<small>[ 21-06-2002, 14:24: Το μήνυμα επεξεργάστηκε από: piosmexeri ]</small>

[r00t]

Kati sxetiko pou vrika einai edo :

Edo

 

Tora apo oti eida, epidi to provlima exei apasxolisei kosmo,iparxoun polles liseis, epita apo ena grigoro search pou ekana exo na sou po ta eksis :

 

1) gia mathimatikes ekfraseis to kleidi einai fortran kai me polla DLL sto net pou einai ola etoima. Opote isos na einai pio eukolo na to vreis se fortran kai na to linkareis se VB.

 

Gia libraries me fortran allios dokimase edo .

 

Dokimase kai auto to sub, alla prosekse midenikes orizouses.

 

Option Explicit

 

Private Sub Form_Load()

Dim a(3, 4) As Double ' coefficients and constants

Dim x() As Double ' result (will be redimmed in subroutine)

Dim d As Double ' will receive determinant

Dim i As Integer ' counter

Dim out As String ' for message box with result

 

' fill the matrix with the coefficients, use the last column for the constants

' In this example:

' x + 2y + z = 6

' y + 6z = 6

' 2x + 7y + 9z = 2

a(1, 1) = 1: a(1, 2) = 2: a(1, 3) = 1: a(1, 4) = 6

a(2, 1) = 0: a(2, 2) = 1: a(2, 3) = 6: a(2, 4) = 6

a(3, 1) = 2: a(3, 2) = 7: a(3, 3) = 9: a(3, 4) = 2

 

' This would generate a zero determinant, try it!

' a(1, 1) = 1: a(1, 2) = 2: a(1, 3) = 1: a(1, 4) = 6

' a(2, 1) = 0: a(2, 2) = 1: a(2, 3) = 6: a(2, 4) = 6

' a(3, 1) = 2: a(3, 2) = 4: a(3, 3) = 2: a(3, 4) = 12

 

Call GEMPD(a(), d, x()) ' solve it

 

out = ""

 

Pantos iparxoun polla post epi tou thematos, des to kai an den vgaleis akria steile mail na to psaxo.

 

Episi linetai kai me matlab to opoio kaleis aneta me VB.