blogmpv221

Método Simplex OpenOffice LibreOffice Basic 31/03/2023. Marcelo Paiva.   '*****oo-simplex-11 Sub oosimplex11 Dim oDesk As Variant Dim oDoc As Object Dim oPlanilha As Object Dim oCelula As Object dim i as integer dim j as integer dim mmax as integer dim m as integer dim n as integer dim nmax as integer dim n1 as INTEGER dim a(20,21) as double dim copia(20,21) as double dim somacof(nmax) dim eq as integer dim va as integer dim linpivo as integer dim zz as integer dim bb as integer dim nfolga as integer dim colpivo as integer dim contal as integer dim contac as integer dim nva as integer dim xx as double dim pivo1 as double dim invpivo1 as double dim cofzero1 as double dim inimp as integer dim inicol as integer inimp=4 inicol=1 oDoc = ThisComponent oPlanilha = oDoc.Sheets(0) oCelula = oPlanilha.getCellByPosition(0,0) oCelula.setString("METODO SIMPLEX ENTRADA DE DADOS") oCelula = oPlanilha.getCellBy...

 TK90X, Microdigital, 1987 ...

LINK PARA ALGORITMO E ROTINA EM PDF: Rotina algoritmo Gauss/Jordan PYTHON   LINK PARA ROTINA EM PYTHON 3:  ROTINA PYTHON 3  

  'subrotina de Gauss FreeBasic, Marcelo Paiva. 'Fonte:Adaptado Fortran,liv.Calculo Numerico c/Aplicacoes Leonidas Barroso, 2ªed.,editora HARPRA. sub diagzero print "O elemento da diagonal principal igual a zero 00000!!!!!" end sub sub ind print "o sistema e indeterminado" end sub sub imp1 print "o sistema e impossivel" end sub sub gauss dim i as integer dim j as integer dim mmax as integer dim n as integer dim nmax as integer dim n1 as INTEGER dim det as double dim mult as double dim ic as integer dim k as integer dim l as integer dim lf as integer dim li as integer dim m as integer dim mm as integer 'dim nc as integer dim dta(1000) as string dim c1 as integer dim dd22(10,10) as string dim as string token, tokens() dim as integer pos1 = 1, pos2 ' changed pos1 to 1 (was 0) dim idd22 as integer dim jdd22 as integer dim as string textline(1000) dim As Integer pComma mmax=20 nmax=mmax+1 dim a(mmax,nmax) as double dim x(mmax)...