Postagens

Mostrando postagens de março, 2023
Imagem
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...