Diskuze: Velká část programu je červeně podtržená, hlásí chyby
V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.
Tvůrce
Odpovídá na Jaroslav Trojan
Libor Šimo (libcosenior):1.5.2016 8:48
Libor Šimo (libcosenior):1.5.2016 8:48
Ak VS hlási <b>"evidentně neexistující chyby"</b>, tak tie chyby evidentne existujú.
Odpovídá na Jan Vargovský
Jan Vargovský:1.5.2016 10:37
Editováno 1.5.2016 10:37
Jan Vargovský:1.5.2016 10:37
Tady ještě někdo nekompiloval ve starším VS s Roslyn... To je teprve
zábava neco psát a chyby pribyvaj (ten kód je porad zkompilovatelny) 
Odpovídá na Petr Čech
Jaroslav Trojan:1.5.2016 11:20
Jaroslav Trojan:1.5.2016 11:20
Já jsem začátečník a nevím jak program(kód) přiložit k odpovědi. Poraď mi. Díky...J.T.
Odpovídá na Jan Vargovský
Jaroslav Trojan:1.5.2016 11:24
Jaroslav Trojan:1.5.2016 11:24
Nevím jak ho mám zkompilovat, když jsou tam chyby (35 error) Díky... J.T.
Odpovídá na Jaroslav Trojan
Jan Vargovský:1.5.2016 11:35
Jan Vargovský:1.5.2016 11:35
To bylo jen naokraj, tohle určitě nebude tvůj případ. Kód normálně zkopíruj a dej ho mezi tagy code (tlačítko nad příspěvkem ti vygeneruje ten tag).
Odpovídá na Jaroslav Trojan
MadaraCZech:1.5.2016 14:31
Editováno 1.5.2016 14:31
MadaraCZech:1.5.2016 14:31
WTF ? Ty jsi nějakej
troll ?
Odpovídá na Jan Vargovský
Jaroslav Trojan:1.5.2016 15:05
Jaroslav Trojan:1.5.2016 15:05
Nenašel jsem tlačítko pro tagy
je tu vložit zdroják, tak jsem ho vložil ale nešel odeslat.
j.T.
Odpovídá na Jaroslav Trojan
pocitac770:1.5.2016 15:18
Editováno 1.5.2016 15:19
pocitac770:1.5.2016 15:18
Možná ho máš příliš dlouhý, tak použij pastebin: http://pastebin.com/ a sem dej odkaz...
Odpovídá na Jaroslav Trojan
Michal Štěpánek:1.5.2016 16:14
Michal Štěpánek:1.5.2016 16:14
vložit zdroják znamená stisknout druhé tlačítko zleva a mezi ty "tagy" vložit zdrojový kód v textové podobě, tak, jak ho zkopíruješ ze svého visual studia...
Odpovídá na Michal Štěpánek
Jaroslav Trojan:1.5.2016 17:34
Jaroslav Trojan:1.5.2016 17:34
právě to jsem provedl, zdroják se objevil a dál s tím nešlo nic udělat, jak píše kolega, je asi příliš dlouhý-má 45 stran A4.
Odpovídá na Petr Čech
Jaroslav Trojan:1.5.2016 17:37
Jaroslav Trojan:1.5.2016 17:37
pošli mi prosím e-mail, já k němu přiložím zdroják, jinak to neumím... Díky! J.T.
...
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 17:39
Editováno 1.5.2016 17:40
Adam Ježek:1.5.2016 17:39
Vlož to sem na dev lighter http://www.itnetwork.cz/dev-lighter nebo na pastebin, jestli jsi zvládnul napsat 45 stran zdrojáku, tak to zvládneš taky někam vložit.
Odpovídá na pocitac770
Jaroslav Trojan:1.5.2016 17:42
Jaroslav Trojan:1.5.2016 17:42
neumím s tím pastebinem pracovat, pošli mi e-mail adresu, já přiložím
zdroják.. jinak to nevím udělat.
Moc děkuji... J.T.
Odpovídá na Jaroslav Trojan
Petr Čech:1.5.2016 17:44
Editováno 1.5.2016 17:46
Petr Čech:1.5.2016 17:44
Jestli sem nedokážeš vložit zdroják, docela pochybuju o tvé
způsobilosti stát se programátorem 
Nápověda: zkus ctrl+k při psaní komentáře, mezi [ code ] a [ /code ] dej
tvůj kód. Pokud to nezvládneš tak opravdu nevím.
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 17:45
Adam Ježek:1.5.2016 17:45
Když to pošleš na mail, tak to tu neuvidí všichni. Jdi na http://pastebin.com/, přes celou stránku tam máš okno, do toho to vlož, zadej název, syntax higlight dej na C# a klikni na create new paste. Dostaneš link a ten sem dej.
Odpovídá na Adam Ježek
Jaroslav Trojan:1.5.2016 18:01
Jaroslav Trojan:1.5.2016 18:01
Bohužel, po vložení zdrojáku už se tam nic neobjeví, je to asi
příliš velké....
nemám možnost kliknou na create new paste, nic tam kromě zdrojáku není
Tak jedině na Úschovnu.cz , jinak nevím co
Odpovídá na Petr Čech
Jaroslav Trojan:1.5.2016 18:07
Jaroslav Trojan:1.5.2016 18:07
mezi code a code jsem vložil zdroják, nevím co se stalo dále, ale nic s
tím už nešlo provést, byl tam jen 45 str, dlouhý kód... J.T.
nevím si s tím rady....
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 18:25
Editováno 1.5.2016 18:25
Adam Ježek:1.5.2016 18:25
Právě sem tam naházel stostránkový dokument, co tu mám a vpohodě mi to
prošlo.
To tlačítko tam je už od začátku.Jestli nedokážeš něco někam vložit,
tak ti asi nedokážeme pomoct.
Odpovídá na MadaraCZech
Jaroslav Trojan:1.5.2016 19:12
Jaroslav Trojan:1.5.2016 19:12
nic nehraju, prostě mi to nejde vložit, já to přetahuju
myší na Pastebin a vždy je tam jen ten kód
Odpovídá na Jaroslav Trojan
Neaktivní uživatel:1.5.2016 19:20
Neaktivní uživatel:1.5.2016 19:20
pretahujes soubor na pastebin? jakoze soubor pres jeho ikonu? to asi nebude fungovat ... mel bys tam hodit text jako oznacit zkopirovat a vlozit => ctrl c -> ctrl v
Odpovídá na Petr Čech
Jaroslav Trojan:1.5.2016 20:09
Jaroslav Trojan:1.5.2016 20:09
Já jsem programoval v ALGOLU a FORTRANU už v roce 1975, takže nepochybuj
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 20:14
Adam Ježek:1.5.2016 20:14
To je sice hezké, ale pokud nedokážeš vložit někam zdroják, tak pochybovat budeme.
Odpovídá na Jaroslav Trojan
Petr Čech:1.5.2016 20:14
Petr Čech:1.5.2016 20:14
Potom by pro tebe neměl být problém používat rozum a dát nám nějakým
inteligentím způsobem ten zdroják
Odpovídá na Neaktivní uživatel
Jaroslav Trojan:1.5.2016 20:28
Jaroslav Trojan:1.5.2016 20:28
Jseš frajer! Ty jediný jsi mi poradil správně! Dostal jsem to na Pastebin Moc Děkuji! J.T.
Odpovídá na Jaroslav Trojan
Petr Čech:1.5.2016 20:29
Petr Čech:1.5.2016 20:29
Jako zkušený programátor bys to měl zvládnout sám...
A co třeba nám dát link?
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 20:35
Adam Ježek:1.5.2016 20:35
Jestli jsi na to stále nepřišel, na internetu dokonce existují instruktážní videa pro takové jako jsi ty. https://www.youtube.com/watch?…
Odpovídá na Jaroslav Trojan
sadlomaslox25:1.5.2016 20:42
sadlomaslox25:1.5.2016 20:42
Napsal jsem dlouhý program a ke konci se mi velká část programu červeně podtrhává a hlásí evidentně neexistující chyby
jezis proc ste mu nerekli kde ma chybu ... sak z popisu je jasne ze
tam mas navic jednu } pro C# nebo nejaky end v pripade visual basicu.
Odpovídá na sadlomaslox25
Petr Čech:1.5.2016 21:09
Petr Čech:1.5.2016 21:09
Protože to vypadá jako docela povedený troll a baví mě hrát tuhle hru
Schválně, jestli opravdu něco pošle
Odpovídá na Neaktivní uživatel
Jaroslav Trojan:1.5.2016 23:03
Jaroslav Trojan:1.5.2016 23:03
mám to na Pastebin, jak to dostanu na forum?
Jaroslav Trojan:1.5.2016 23:07
Imports System.IO
Module Module1
'DESKA- Kirchhofova tenká deska MKP
'pas=124,28 řad
Dim D(450), F(1, 2500), La(2500), A(3500), B(3500), A1(3500), B1(3100), A2(3100), x0, m, z, aa, bb As Double
Dim B2(3100), A3(95, 95), B3(99, 95), A4(96, 140), B4(96, 140), A5(96, 96), C(96, 96), C1(95, 140), C2(3100), A6(3100), B6(3100), K8(3010) As Double
Dim I(100), rad, sloupcu, i3, pp, i2, i4, i5, i6, i7, i8, i9, i1, i0, ii, j1, DA, B22, B33, CA, EE As Integer
Dim X(500, 500), S(5, 16), MAB(45000), NA(2000), EA(45000), wequ(5000, 300), L(16, 16) As Double
Dim D0(5, 16), BX(16, 16), AX(16, 16), K(16, 16), PX(500), cs, hl, f2, f3, f4, P2(5000) As Double
Dim w1, w2, w3, w4, w5, w6, w7, w8, w9, x1, x5, y7, y6, z4, y, h, d7, z7, z6, z3, z5, z2, d6 As Double
Dim z8, d5, p4, p5, p6, p3, p1, y0, y9, y8, z1, d1, d2, d3, d4, s7, v, w0, L1, c9, Text, id As Double
Dim retq(20), retaa(20), retx(20), q11(15), x11ret(15), retq1(20) As Char
Dim Ka1(400), U(100), UA(160000), KA(160000), XA(160000), VA(13000) As Double
Dim s0, s1, s2, s3, s4, s5, s6, s8, s9, x2, x3, x4, x6, x7, x8, x9, y1, y2, y3, y4, y5, aa1, aa2, aa3, aa4, aa5, aa6 As Double
Dim cc1, cc, am, div, det, eps, xp, ap, imax, amax, p, ss, q1, xx, xy, u5, q9, L9, r As Double
Dim k1, e9, u1, j, e, pas, g9, c0, a91, u3, j9, k9, u2, jj, ja, j5, g, k0, ki, mm, nn, iaa, yy, bb9, abc As Integer
Dim a0, b0, cx, cy, n, dd, prvek, sila, posun, pp2, xnut, h1, Lax, q, pk As Double
Dim retez(100), zret, aret, bret, yret, reta(150), ret, nazev(100), rett(50), mainip, retq2, retr(100), retp(100) As Char
Dim m0, m1, m2, m3, k2, k3, L3, L2, g6, g7, g8, q2, u4, u6, u7, u8, k1a, w, u9, z9, c22, c11 As Integer
Dim q3, q7, e2, e1, d9, h0, n1, f1, f0, r1, n2, n3, c3, B11, A11 As Double
Dim r9, IA, g4, g3, c5, ffns, ffns1, ffns2, c6, c7, j7, j4, c8, k4, j2, j8, ib, k81, b9, a12, p22, a13 As Single
Dim MA8, MYA, MXA, TX, T0, TT, KA8, WW, T1Y, TT8 As Single
' Dim FileName As String = "C:\temp\mainip.txt"
' Dim objReader As New System.IO.StreamReader(FileName)
' Dim objWriter As New System.IO.StreamWriter(FileName, False)
Public Sub typy()
i1 = 0 : Console.WriteLine(" Fyzikální data:")
780: Console.Write(" typ prvku ? ano=a ne=n ")
zret = Convert.ToChar(Console.ReadLine())
If zret = "n" Then
GoTo 1170
End If
i1 = i1 + 1 : aret = aret + "," : bret = bret + ","
Console.Write(" izotropní deska? ano=a ne=n ")
zret = Convert.ToChar(Console.ReadLine())
If zret = "n" Then
GoTo 860
End If
Console.Write(" desková tuhost E*h^3/12[kNm^2] ?, Poisson.č. ? ")
D(1) = Convert.ToSingle(Console.ReadLine())
D(2) = Convert.ToSingle(Console.ReadLine()) : pk = D(2)
D(3) = 0 : D(4) = 0 : dd = D(1) : pp = D(2)
Console.WriteLine(" Desková tuhost E*h^3/12 [kNm^2]=" & D(1) & " Poisson.č.=" & D(2) & ".") : GoTo 870
860: Console.Write(" Ortotropní deska: D11,D22,D33,D12= ? ")
D(1) = Convert.ToSingle(Console.ReadLine())
D(2) = Convert.ToSingle(Console.ReadLine())
D(3) = Convert.ToSingle(Console.ReadLine())
D(4) = Convert.ToSingle(Console.ReadLine())
Console.WriteLine(" Ortotropní deska: D11,D22,D33,D12 =" & D(1) & " " & D(2) & " " & D(3) & " " & D(4) & ".")
870: Console.Write(" Konstanty podloží C1[kN/m^3], Czx, ? Czy,[kN/m] ? ")
D(5) = Convert.ToSingle(Console.ReadLine())
D(6) = Convert.ToSingle(Console.ReadLine())
D(7) = Convert.ToSingle(Console.ReadLine())
Console.WriteLine(" Konstanty podloží: C1[kN/m^3[=" & D(5) & " Czx[kN/m]=" & D(6) & " Czy[kN/m]=" & D(7) & ".")
cc = D(5) : cx = D(6) : cy = D(7)
For u1 = 1 To 7
If D(u1) >= 0 Then
GoTo 930
End If
e = 21 ' gsb5320
chyba() : GoTo 1260
930: Next
If (D(3) = 0) And (D(4) = 0) Then
If D(1) = 0 Then
GoTo 1000
Else
D(4) = D(2) * D(1) : D(3) = D(1) * 0.5 * (1 - D(2)) : D(2) = D(1)
End If
End If
1000: For u1 = 1 To 7
F(i1, u1) = D(u1)
Next
Console.Write(" geometrie prvku: Lx, Vy, C [m] ? ")
D(8) = Convert.ToSingle(Console.ReadLine())
D(9) = Convert.ToSingle(Console.ReadLine())
D(10) = Convert.ToSingle(Console.ReadLine())
For u1 = 8 To 9
If D(u1) > 0 Then
GoTo 1090
End If
e = 21 'gsb5320
chyba() : GoTo 1260
1090: Next
For u1 = 8 To 9
F(i1, u1) = D(u1)
Next
GoTo 780
1170: If i1 = I(3) Then
GoTo 1200
End If
e = 23 'gsb 5320
chyba() : GoTo 1260
1200: If e9 = 0 Then
GoTo 1260
End If
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
For u1 = 1 To I(3)
For u2 = 1 To 10
sw.WriteLine(F(u1, u2))
Next u2
Next u1
sw.Flush()
End Using
1260:
End Sub
Public Sub kody()
Console.WriteLine(" Kodová čísla:")
Dim F(1, 45000)
For i0 = 1 To g9
F(1, i0) = 0
Next
a0 = 1 : n = 0
1320: If n - I(4) < 0 Then
GoTo 1360
End If
If n - I(4) = 0 Then
GoTo 1810
End If
e = 31 'gsb 5320
chyba() : GoTo 1880
1360: Console.Write(" 4 kodová čísla po prvcích ? ano=a ne=n ")
zret = Convert.ToChar(Console.ReadLine())
If zret = "a" Then
GoTo 1430
End If
Console.Write(" 6 čísel po seriích ? ano=a ne=n ")
yret = Convert.ToChar(Console.ReadLine())
If yret = "a" Then
GoTo 1460
End If
If a0 = 1 Then
GoTo 1490
End If
e = 33 'gsb 5320
chyba() ' GoTo 1880
GoTo 1320
1430: a0 = 0
'gsb 1890 unit coding
unitcod()
GoTo 1320
1460: a0 = 0
'gsb 2040 sequence coding
sequencecod()
GoTo 1320
1490: Console.Write(" počet řad M ? počet sloupců N ? ")
aa = Convert.ToSingle(Console.ReadLine()) : rad = aa
bb = Convert.ToSingle(Console.ReadLine()) : sloupcu = bb
Console.WriteLine(" automatické generování kodových čísel:počet řad aa=" & aa & " počet sloupců bb=" & bb & ".")
If aa > 0 And bb > 0 Then
GoTo 1560
End If
e = 34 : reta = "záporné aa,[bb]"
'gsb 5320
chyba() : GoTo 1880
1560: If aa * bb = I(4) Then
GoTo 1600
End If
e = 34 : reta = "aa=0 nebo bb=0"
'gsb 5320
chyba() : GoTo 1880
1600: k9 = (aa + 1) * (bb + 1)
If k9 = I(5) Then
GoTo 1650
End If
e = 34 : reta = "k9<>I(5)"
'gsb 5320
chyba() : GoTo 1880
1650: c0 = 0
a91 = aa + 1
For u1 = 1 To bb
For u2 = 1 To aa
u3 = c0 * 4
c0 = c0 + 1
k1 = u2
j1 = u1
j1 = j1 * a91 + k1
k1 = j1 - a91
F(1, u3 + 4) = k1
F(1, u3 + 1) = k1 + 1
F(1, u3 + 3) = j1
F(1, u3 + 2) = j1 + 1
Next u2
Next u1
1810: If e9 = 0 Then
GoTo 1880
End If
u1 = I(4) * 4
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
For u2 = 1 To u1
sw.WriteLine(F(1, u2))
Next
sw.Flush()
End Using
1880: End Sub
Public Sub unitcod()
Console.Write(" 4 kodová čísla prvku:D(1),D(2),D(3),D(4) ")
D(1) = Convert.ToSingle(Console.ReadLine())
D(2) = Convert.ToSingle(Console.ReadLine())
D(3) = Convert.ToSingle(Console.ReadLine())
D(4) = Convert.ToSingle(Console.ReadLine())
For u1 = 1 To 4
If D(u1) > 0 Then
GoTo 1960
End If
e = 36 : reta = "záporné nebo 0"
'gsb 5320
chyba() : GoTo 1980
1960: Next
u1 = n * 4
n = n + 1
For u2 = 1 To 4
u1 = u1 + 1
F(1, u1) = D(u2)
Next
1980: End Sub
Public Sub sequencecod()
Console.Write(" počet prvků v serii? přírůstek kod.čísel? 3.4.5.6.číslo prvního prvku serie ")
D(1) = Convert.ToSingle(Console.ReadLine())
D(2) = Convert.ToSingle(Console.ReadLine())
D(3) = Convert.ToSingle(Console.ReadLine())
D(4) = Convert.ToSingle(Console.ReadLine())
D(5) = Convert.ToSingle(Console.ReadLine())
D(6) = Convert.ToSingle(Console.ReadLine())
If D(1) > 0 Then
GoTo 2100
End If
e = 37 : reta = "0 nebo záporné"
'gsb 5320
chyba() : GoTo 2180
2100: For u1 = 3 To 6
If D(u1) > 0 Then
GoTo 2140
End If
e = 38
'gsb 5320
chyba() : GoTo 2180
2140: If D(u1) + (D(1) - 1) * D(2) <= I(5) Then
GoTo 2170
End If
e = 39
'gsb 5320
chyba() : GoTo 2180
2170: Next
For u1 = 1 To D(1)
u2 = (u1 - 1) * D(2)
u3 = n * 4
n = n + 1
For u4 = 1 To 4
F(1, u3 + u4) = D(u4 + 2) + u2
Next u4
Next u1
2180: End Sub
Public Sub vazby()
Console.WriteLine(" Vnější vazby:")
x0 = 4 : k9 = 4 * I(5)
For u1 = 1 To k9
F(1, u1) = -1
Next
n = 0 : jj = 0
2350: jj = jj + 1 : Console.WriteLine(" Vnější vazby-pokračovat=prázdný znak, ukončit=%")
'gsb 5390 read sub
read()
If retez = "%" Then
GoTo 2590
End If
Console.Write(" číslo uzlu ? , parametry ? ")
aa = Convert.ToInt32(Console.ReadLine())
bb = Convert.ToInt32(Console.ReadLine())
Console.WriteLine(" číslo uzlu=" & aa & " parametry uzlu=" & bb & ".")
A(jj) = aa : B(jj) = bb
If aa > 0 And (aa <= I(5)) Then
GoTo 2420
End If
e = 41
'gsb 5320
chyba() : GoTo 2760
2420: If bb >= 1 And bb <= 1234 Then
GoTo 2450
End If
e = 42
'gsb 5320
chyba() : GoTo 2760
2450: 'gsb 2770 decoding
decoding()
For u1 = 1 To 4
If D(u1) <= 4 Then
GoTo 2500
End If
e = 42 : reta = "D(u1)>4"
'gsb5320
chyba() : GoTo 2760
2500: Next u1
For u1 = 1 To 4
If D(u1) = 0 Then
GoTo 2570
End If
u2 = (aa - 1) * x0 + D(u1)
If F(1, u2) = 0 Then
GoTo 2570
End If
n = n + 1
F(1, u2) = 0
2570: Next u1
GoTo 2350
2590: If n + I(1) = I(5) * x0 Then
GoTo 2620
End If
e = 43 : reta = "n+I(1)<>I(5)"
'gsb5320
chyba() : GoTo 2760
2620: n = 0 : k9 = x0 * I(5)
For u1 = 1 To k9
If F(1, u1) = 0 Then
GoTo 2680
End If
n = n + 1
F(1, u1) = n
2680: Next u1
If n = I(1) Then
GoTo 2720
End If
e = 44 : reta = "n<>I(1)"
'gsb5320
chyba() : GoTo 2760
2720: If e9 = 0 Then
GoTo 2760
End If
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
For u1 = 1 To k9
sw.WriteLine(F(1, u1))
Next u1
sw.Flush()
End Using
2760: End Sub
Public Sub decoding()
D(1) = 0 : D(2) = 0 : D(3) = 0 : D(4) = 0
If bb > 9 Then
GoTo 2820
End If
D(1) = bb
GoTo 2970
2820: If bb > 99 Then
GoTo 2860
End If
D(1) = Int(bb / 10) : D(2) = bb - D(1) * 10
GoTo 2970
2860: If bb > 999 Then
GoTo 2920
End If
D(1) = Int(bb / 100) : u1 = bb - D(1) * 100 : D(2) = Int(u1 / 10)
D(3) = u1 - D(2) * 10
GoTo 2970
2920: D(1) = 1 : D(2) = 2 : D(3) = 3 : D(4) = 4
2970: End Sub
Public Sub prvky()
Console.WriteLine(" Typy prvků:")
For u1 = 1 To I(4)
F(1, u1) = 1
Next
n = 0 : jj = 0
3040: jj = jj + 1 : Console.WriteLine(" Soubory typů prvků:pokračovat=prázdný znak, ukončit=%")
'gsb5390
read()
If retez = "%" Then
GoTo 3220
End If
Console.Write(" číslo 1.prvku serie ?, typ ? ")
aa = Convert.ToInt32(Console.ReadLine())
bb = Convert.ToInt32(Console.ReadLine())
Console.WriteLine(" číslo 1.prvku serie:" & aa & " typ:" & bb & ".")
A1(1) = aa : B1(1) = bb
If aa > 0 And bb > 0 Then
GoTo 3110
End If
e = 51 : reta = "0-záporné"
'gsb5320
chyba() : GoTo 3260
3110: If aa - n > 0 Then
GoTo 3140
End If
e = 52 : reta = "0-záporné"
'gsb5320
chyba() : GoTo 3260
3140: n = aa
If (n <= I(4)) And (bb <= I(3)) Then
GoTo 3180
End If
e = 53
'gsb5320
chyba() : GoTo 3260
3180: For u1 = n To I(4)
F(1, u1) = bb
Next u1
GoTo 3040
3220: If e9 = 0 Then
GoTo 3260
End If
Using sw As New StreamWriter(" C:\temp\mainip.txt", True)
For u1 = 1 To I(4)
sw.WriteLine(F(1, u1))
Next
sw.Flush()
End Using
3260: End Sub
Public Sub pruzne()
Console.WriteLine(" Pružné zobecněné podpory:")
n = 0 : j = 0
3300: j = j + 1 : Console.WriteLine(" pružné zobec.podpory: pokračovat=prázdný znak, ukončit=%")
'gsb 5390
read()
If retez = "%" Then
GoTo 3570
End If
Console.Write(" číslo uzlu ?, parametr č.?, pérová konst. ? ")
aa = Convert.ToInt32(Console.ReadLine())
bb = Convert.ToInt32(Console.ReadLine())
cc = Convert.ToSingle(Console.ReadLine())
A6(j) = aa : B6(j) = bb : C2(j) = cc
Console.WriteLine(" č.uzlu:" & aa & " parametr č." & bb & " pérová konst.=" & cc & ".")
If aa > 0 Then
GoTo 3370
End If
e = 62 : reta = "0-záporné"
'gsb5320
chyba() : GoTo 3670
3370: If bb <> 0 Then
GoTo 3390
End If
bb = 1
3390: If aa <= I(5) Then
GoTo 3420
End If
e = 63 : reta = "aa>I(5)"
'gsb5320
chyba() : GoTo 3670
3420: If bb <= z Then
GoTo 3450
End If
e = 64 : reta = "bb>z"
'gsb5320
chyba() : GoTo 3670
3450: If cc > 0 Then
GoTo 3480
End If
e = 65 : reta = "0-záporné"
'gsb5320
chyba() : GoTo 3670
3480: n = n + 1
If n - I(9) <= 0 Then
GoTo 3520
End If
e = 66 : reta = "n-I(9)>0"
'gsb5320
chyba() : GoTo 3670
3520: j = n * 2 : KA(j - 1) = aa : La(n) = cc : KA(j) = bb
GoTo 3300
3570: If n = I(9) Then
GoTo 3600
End If
e = 61 : reta = "n<>I(9)"
'gsb5320
chyba() : GoTo 3670
3600: If (e9 = 0) Or (n = 0) Then
GoTo 3670
End If
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
For i1 = 1 To j Step 1
sw.WriteLine(KA(i1))
Next i1
For i1 = 1 To I(9)
sw.WriteLine(La(i1))
Next i1
sw.Flush()
End Using
3670: End Sub
Public Sub zobec()
Console.WriteLine(" Zobecnělé podpory s daným posunutím:")
n = 0 : j = 0
3710: j = j + 1 : Console.WriteLine(" podpory s danými posuny:pokračovat=prázdný znak, ukončit= % ")
read()
If retez = "%" Then
GoTo 3960
End If
Console.Write(" č.uzlu ? , parametry ? ")
aa = Convert.ToInt32(Console.ReadLine())
bb = Convert.ToInt32(Console.ReadLine())
A2(j) = aa : B2(j) = bb
Console.WriteLine(" číslo uzlu:" & aa & " parametry číslo:" & bb & ".")
If aa > 0 Then
GoTo 3780
End If
e = 72 : reta = "0-záporné"
chyba() : GoTo 4030
3780: If aa - I(5) <= 0 Then
GoTo 3810
End If
e = 73 : reta = "aa-I(5)>0"
chyba() : GoTo 4030
3810: If (bb < 1234) And (bb > 0) Then
GoTo 3840
End If
e = 74 : reta = "bb nesplňuje"
chyba() : GoTo 4030
3840: decoding()
For u1 = 1 To 4
If D(u1) = 0 Then
GoTo 3940
End If
If D(u1) <= z Then
GoTo 3900
End If
e = 75 : reta = "D(u1)>z"
chyba() : GoTo 4030
3900: n = n + 1 : j = n * 2
KA(j - 1) = aa : KA(j) = D(u1)
3940: Next u1
GoTo 3710
3960: If n = I(8) Then
GoTo 3990
End If
e = 71 : reta = "n<>I(8)"
chyba() : GoTo 4030
3990: If (e9 = 0) Or (n = 0) Then
GoTo 4030
End If
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
For i1 = 1 To j
sw.WriteLine(KA(i1))
Next i1
sw.Flush()
End Using
4030: End Sub
Public Sub chyba()
e9 = 0
Console.WriteLine(" číslo chyby:" & e & " číslo vstupu:" & pp & " " & reta & ".")
Console.WriteLine(" KONEC-chyba")
' GoTo 5430
End Sub
Public Sub read()
Console.Write(" retez=% ? ")
retez = (Console.ReadLine())
Console.WriteLine(" " & retez & ".")
End Sub
Public Sub zatiz()
k0 = 1
Console.WriteLine(" Název zatěžovacího stavu..80 znaků /ihned piš/ ")
read()
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
sw.WriteLine(retez)
sw.Flush()
End Using
k1 = k0 - 1
k1 = k1 * I(4)
n = 0 : ja = 0
4130: ja = ja + 1 : Console.WriteLine(" ronoměrné zatížení: pokračovat=prázdný znak, ukončit= %")
read()
Console.WriteLine(" rovnoměrné zatížení [kN/m^2] :") : If retez = "%" Then
GoTo 4340
End If
Console.Write(" 1.prvek ?, poslední prvek ? v serii stejného zat., intensita zatížení[kN/m^2]? ")
aa = Convert.ToInt32(Console.ReadLine())
prvek = K8(k0)
bb = Convert.ToInt32(Console.ReadLine())
cc = Convert.ToSingle(Console.ReadLine())
Console.WriteLine(" 1.prvek=" & aa & " poslední prvek v serii=" & bb & " intensita zatížení[kN/m^2]=" & cc & ".")
A3(K8(k0), ja) = aa : B3(K8(k0), ja) = bb : C(K8(k0), ja) = cc
If aa <= 0 Then
GoTo 4320
End If
If bb <= 0 Then
GoTo 4320
End If
If aa - bb <= 0 Then
GoTo 4240
End If
e = 82 : reta = "kladné"
chyba() : GoTo 4820
4240: If bb - I(4) > 0 Then
GoTo 4320
End If
u1 = k1 + aa : bb = k1 + bb : Console.WriteLine(" bb=" & bb & ".")
For j = u1 To bb Step 1
n = n + 1 : La(j) = La(j) + cc
Next j
GoTo 4130
4320: e = 83 : reta = "kladné"
chyba() : GoTo 4820
4340: If n - I(4) <= 0 Then
GoTo 4370
End If
e = 84 : reta = "kladné"
chyba() : GoTo 4820
4370: 'síly
n = 0 : j5 = I(8) * I(6) + x0
Console.WriteLine(" Osamělé síly [kN] :") : ja = 0
4410: ja = ja + 1 : Console.WriteLine(" osamělá síla[kN]: pokračovat=prázdný znak, ukončit= % ")
read()
If retez = "%" Then
GoTo 4660
End If
Console.Write(" uzel ?, parametr číslo ?, síla[kN] ? ")
aa = Convert.ToInt32(Console.ReadLine())
sila = K8(k0)
bb = Convert.ToInt32(Console.ReadLine())
cc = Convert.ToSingle(Console.ReadLine())
A4(K8(k0), ja) = aa : B4(K8(k0), ja) = bb : C1(K8(k0), ja) = cc
Console.WriteLine(" uzel=" & aa & " parametr číslo=" & bb & " Síla[kN]=" & cc & ".")
If aa <= 0 Then
GoTo 4640
End If
If aa - I(5) > 0 Then
GoTo 4640
End If
If bb <> 0 Then
GoTo 4490
End If
bb = 1
4490: If bb > z Then
GoTo 4640
End If
m = m + 1 : n = n + 1 : j = j5 + m
If j <= 6000 Then
GoTo 4560
End If
e = 86 : reta = "j>6000"
chyba() : GoTo 4820
4560: La(j) = cc : j = m * 2 + I(6)
If j <= 2000 Then
GoTo 4610
End If
e = 86 : reta = "j>2000"
chyba() : GoTo 4820
4610: KA(j) = bb : KA(j - 1) = aa
GoTo 4410
4640: e = 87 : reta = "bb,aa nesplňují"
chyba() : GoTo 4820
4660: If I(7) - n >= 0 Then
GoTo 4690
End If
e = 88 : reta = "0-záporné"
chyba() : GoTo 4820
4690: KA(k0) = n
' zatížení danými posuny
n = 0 : ja = 0
4720: ja = ja + 1 : Console.WriteLine(" Zatížení danými posuny v pořadí uzlů a parametrů:pokračovat=prázdný znak,")
Console.WriteLine(" ukončit= %") : read()
If retez = "%" Then
GoTo 4790
End If
Console.Write(" velikost posunu[m] ? ")
aa = Convert.ToSingle(Console.ReadLine()) : posun = K8(k0)
Console.WriteLine(" Dané posunutí[m]=" & aa & ".")
A5(K8(k0), ja) = aa : n = n + 1 : bb = x0 + n + (k0 - 1) * I(8) : La(bb) = aa
GoTo 4720
4790: If n <= I(8) Then
GoTo 4820
End If
e = 89 : reta = "n>I(8)"
chyba() : GoTo 4820
4820: End Sub
Private Sub FileOpen(v As Integer)
' Throw New NotImplementedException()
End Sub
Public Sub mainipe()
FileClose()
Using sr As New StreamReader("C:\temp\mainip.txt")
While Not sr.EndOfStream
Dim rett As String = sr.ReadLine()
Dim i1 As Double = CDbl(sr.ReadLine())
Dim i2 As Double = CDbl(sr.ReadLine())
Dim i3 As Double = CDbl(sr.ReadLine())
Dim i4 As Double = CDbl(sr.ReadLine())
Dim i5 As Double = CDbl(sr.ReadLine())
Dim i6 As Double = CDbl(sr.ReadLine())
Dim i7 As Double = CDbl(sr.ReadLine())
Dim i8 As Double = CDbl(sr.ReadLine())
Dim i9 As Double = CDbl(sr.ReadLine())
Dim i0 As Double = CDbl(sr.ReadLine())
For j = 1 To 850
sr.ReadLine()
Next
End While
End Using
' Console.WriteLine(" i1=" & i1 & " i2=" & i2 & " i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
i1 = I(1) : i2 = I(2) : i3 = I(3) : i4 = I(4) : i5 = I(5) : i6 = I(6) : i7 = I(7) : i8 = I(8) : i9 = I(9) : i0 = I(10)
Console.WriteLine(" i1=" & i1 & " i2=" & i2 & " i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
m0 = 153 : m1 = i9 + m0 : m2 = i4 * i6 + m1
m3 = m2 + i8 * i6 : x0 = 4 : x1 = i2 + i6
k2 = 4 * i4 + 1
k3 = k2 + x0 * i5
L1 = k3 + i4 - 1 + 1
L2 = L1 + 2 * i8 + 2 * i9
L3 = L2 + i6
h1 = i2 - 2
FileClose()
End Sub
Public Sub tisk()
'Tisk výpočtu desky
Console.WriteLine(" ") : Console.WriteLine(" ")
Console.WriteLine(" D E S K A **MKP** p r o g r a m")
Console.WriteLine(" ")
Console.WriteLine(" Řešení izotropní nebo ortotropní tenké desky [Kirchhof] i na pružném podloží")
Console.WriteLine(" Počet rovnic=" & I(1) & " polopas šíře:" & I(2) & " typů prvků:" & I(3) & " prvků=" & I(4) & ".")
Console.WriteLine(" počet uzlů=" & I(5) & " zatěžovacích stavů:" & I(6) & " osaměl.zatížení=" & I(7) & " parametrů deform.=" & I(8) & ".")
Console.WriteLine(" pružných podpor=" & I(9) & ".")
Console.WriteLine(" Automatické generování kodových čísel:počet řad=" & rad & " sloupců=" & sloupcu & ".")
Console.WriteLine(" Fyzikální data: desková tuhost E*h^3/12[kNm^2]= " & dd & " Poisson.konst.=" & pk & ".")
Console.WriteLine(" Konstanty podloží: C1[kN/m^3]=" & D(5) & " Czx[kN/m]=" & D(6) & " Czy[kN/m]=" & D(7) & ".")
Console.WriteLine(" Geometrie prvku: délka Lx[m]=" & D(8) & " výška Vy[m]=" & D(9) & " zkosení C[m]=" & D(10) & ".")
j = 0
4960: j = j + 1 : If A1(j) = 0 Then
GoTo 4990
End If
Console.WriteLine(" Typy prvků:")
Console.WriteLine(" číslo prvního prvku v serii:" & A1(j) & " typ prvku:" & B1(j) & ".")
GoTo 4960
4990: Console.WriteLine(" Vnější vazby:")
jj = 0
5010: jj = jj + 1 : If A(jj) = 0 Then
GoTo 5030
End If
Console.WriteLine(" číslo uzlu:" & A(jj) & " parametry uzlu:" & B(jj) & ".") : GoTo 5010
5030: Console.WriteLine(" Podpory se zadaným posunem:")
j = 0
5050: j = j + 1
If A2(j) = 0 Then
GoTo 5080
End If
Console.WriteLine(" číslo uzlu:" & A2(j) & " parametry uzlu:" & B2(j) & ".")
GoTo 5050
5080: j = 0
5090: j = j + 1 : If C2(j) = 0 Then
GoTo 5110
End If
Console.WriteLine(" Pružné podpory")
Console.WriteLine(" uzel číslo:" & A6(j) & " parametr:" & B6(j) & " pérová konst.:" & C2(j) & ".")
GoTo 5090
5110: jj = 0
5120: jj = jj + 1 : If K8(jj) = 0 Then
GoTo 5310
End If
Console.WriteLine(" ")
Console.WriteLine(" Zatěžovací stav:" & K8(jj) & ".") : Console.WriteLine(" ")
Console.WriteLine(" Rovnoměrné zatížení [kN/m^2]:")
j = 0
5160: j = j + 1 : If C(prvek, j) = 0 And A3(prvek, j) = 0 Then
GoTo 5200
End If
Console.WriteLine(" 1.prvek:" & A3(prvek, j) & " poslední prvek stejného zatížení:" & B3(prvek, j) & " velikost zatíž.[kN/m^2]=" & C(prvek, j) & ".")
GoTo 5160
5200: Console.WriteLine(" Osamělé síly[kN]:")
j = 0
5220: j = j + 1 : If C1(sila, j) = 0 Then
GoTo 5250
End If
Console.WriteLine(" uzel:" & A4(sila, j) & " parametr č:" & B4(sila, j) & " síla [kN]=" & C1(sila, j) & ".")
GoTo 5220
5250: Console.WriteLine(" Zatížení danými posuny:")
j = 0
5270: j = j + 1 : If A5(posun, j) = 0 Then
GoTo 5300
End If
Console.WriteLine(" uzel číslo:" & A2(j) & " parametry:" & B2(j) & " dané posunutí[m]=" & A5(posun, j) & ".")
GoTo 5270
5300: GoTo 5120
5310: End Sub
Public Sub Singul()
'matice AX(16,16)
eps = 0.000001
For i1 = 1 To 16
For j = 1 To 16
If i1 = j Then
X(i1, j) = 1
Else
X(i1, j) = 0
End If
Next j
Next i1
det = 1
For k1 = 1 To 16 'vedoucí prvek mat. AX()
If (k1 - 16) < 0 Then
imax = k1 : GoTo 3180
Else
GoTo 3290
End If
3180: amax = Math.Abs(AX(k1, k1)) : ki = k1 + 1
For i1 = ki To 16
If (amax - Math.Abs(AX(i1, k1))) >= 0 Then
GoTo 3220
End If
imax = i1 : amax = Math.Abs(AX(i1, k1))
3220: Next i1
'výměna řádků mat AX(),X()
If (imax - k1) = 0 Then
GoTo 3290
End If
For j = 1 To 16
ap = AX(imax, j) : AX(imax, j) = AX(k1, j)
AX(k1, j) = ap : xp = X(imax, j) : X(imax, j) = X(k1, j)
X(k1, j) = xp
Next j
det = -det 'test singularity
3290: If (Math.Abs(AX(k1, k1)) - eps) <= 0 Then
Console.WriteLine(" matice je singulární pro k=" & k1 & ".")
GoTo 3400
End If
det = AX(k1, k1) * det 'dělení řádku mat.A(),X() ved.prvkem
div = AX(k1, k1)
For j = 1 To 16
AX(k1, j) = AX(k1, j) / div
X(k1, j) = X(k1, j) / div
Next j
'úprava řádku matic AX(), X()
For i1 = 1 To 16
am = AX(i1, k1)
If i1 = k1 Then
GoTo 3390
End If
For j = 1 To 16
AX(i1, j) = AX(i1, j) - am * AX(k1, j)
X(i1, j) = X(i1, j) - am * X(k1, j)
Next j
3390: Next i1
Next k1
For i1 = 1 To 16
For j = 1 To 16
AX(i1, j) = X(i1, j)
Next j
Next i1
Console.WriteLine(" matice AX() je v pořádku")
3400: End Sub
Public Sub matk()
For i1 = 1 To 16
' Dim K(16, 16), BX(16, 16), AX(16, 16)
For k1 = 1 To 16
K(i1, k1) = 0
For j = 1 To 16
K(i1, k1) = K(i1, k1) + BX(i1, j) * AX(j, k1)
Next j
Next k1
Next i1
End Sub
Public Sub ffnsa()
b9 = 1 : a12 = Math.Abs(p1) + Math.Abs(p22)
If p22 >= 0 Then
ffns = a12 * b9
Else
b9 = -1 : ffns = a12 * b9
End If
End Sub
Public Sub matp()
' Dim L(16, 16), AX(16, 16)
For i1 = 1 To 16
ii = i1 + 1 : L(i1, i1) = AX(i1, i1)
For j = ii To 16
p = AX(i1, j)
L(i1, j) = AX(j, i1)
L(j, i1) = p
Next j
Next i1
End Sub
Public Sub matb()
' Dim BX(16, 16), L(16, 16), K(16, 16)
For i1 = 1 To 16
For k1 = 1 To 16
BX(i1, k1) = 0
For j = 1 To 16
BX(i1, k1) = BX(i1, k1) + L(i1, j) * K(j, k1)
Next j
Next k1
Next i1
End Sub
Public Sub matsi()
'určení matice S(5,16)
' Dim D0(5, 16), AX(16, 16), S(5, 16)
For i1 = 1 To 5
For k1 = 1 To 16
S(i1, k1) = 0
For j = 1 To 16
S(i1, k1) = S(i1, k1) + D0(i1, j) * AX(j, k1)
' Console.WriteLine(" S(i1,k1)=" & S(i1, k1) & ";")
If j = 16 Then
' Console.WriteLine(" ")
End If
Next j
Next k1
Next i1
End Sub
Public Sub mata()
' Dim AX(16, 16), xx As Single ' xx=w7 y=w8 i1=1,5,9,13
b9 = xx ^ 2
c9 = y ^ 2 : d1 = xx * y : j = i1 + 1 : k1 = i1 + 2 : L1 = i1 + 3
AX(i1, 1) = 1
AX(j, 2) = 1
AX(k1, 3) = 1 : AX(L1, 4) = 1
AX(i1, 2) = xx : AX(k1, 4) = xx
AX(i1, 3) = y : AX(j, 4) = y
AX(j, 5) = 2 * xx : AX(L1, 7) = 2 * xx
AX(k1, 6) = 2 * y
AX(L1, 8) = 2 * y : AX(i1, 4) = d1
AX(j, 7) = 2 * d1 : AX(k1, 8) = 2 * d1
AX(L1, 9) = 4 * d1 : AX(i1, 5) = b9
AX(k1, 7) = b9 : AX(i1, 6) = c9
AX(j, 8) = c9 : AX(i1, 7) = b9 * y
AX(i1, 8) = c9 * xx : AX(j, 10) = 3 * b9
AX(L1, 12) = 3 * b9 : AX(k1, 11) = 3 * c9
AX(L1, 13) = 3 * c9 : AX(i1, 9) = b9 * c9
AX(j, 9) = 2 * c9 * xx : AX(k1, 9) = 2 * b9 * y
AX(i1, 10) = b9 * xx : AX(k1, 12) = b9 * xx
AX(i1, 11) = c9 * y : AX(j, 13) = c9 * y
AX(i1, 12) = b9 * d1 : AX(i1, 13) = c9 * d1
AX(j, 12) = 3 * b9 * y : AX(k1, 13) = 3 * c9 * xx
AX(i1, 14) = b9 * c9 * xx : AX(i1, 15) = b9 * c9 * y
AX(i1, 16) = b9 * c9 * d1 : AX(j, 14) = 3 * b9 * c9
AX(k1, 15) = 3 * b9 * c9 : AX(j, 15) = 2 * c9 * d1
AX(j, 16) = 3 * b9 * c9 * y : AX(k1, 14) = 2 * b9 * d1
AX(k1, 16) = 3 * b9 * c9 * xx : AX(L1, 14) = 6 * b9 * y
AX(L1, 15) = 6 * c9 * xx : AX(L1, 16) = 9 * b9 * c9
AX(5, 5) = 0.01
' Console.WriteLine(" b9=" & b9 & " c9=" & c9 & " d1=" & d1 & " matice AX(16,16)")
For j = 1 To 16
For jj = 1 To 16
' Console.WriteLine(" AX(j,jj)=" & AX(j, jj) & ";")
If jj = 16 Then
' Console.WriteLine(" ")
End If
Next
Next
End Sub
Public Sub mats5()
Console.WriteLine(" zápis matice S15(5,16) typ=" & q1 & " max=" & I(3) & ".")
x1 = u1 : y = u2 : matd()
matsi() : Console.WriteLine(" Matice S15(5,16) : ")
Using sw As New StreamWriter("C:\temp\wmats15.txt",True)
For u3 = 1 To 5
For u4 = 1 To 16
ss = S(u3, u4)
sw.WriteLine(ss)
' Console.WriteLine(" matice S15(5,16)=" & S(u3, u4) & ";")
If u4 = 16 Then
' Console.WriteLine(" ")
End If
Next u4
Next u3
sw.Flush()
End Using
End Sub
Public Sub mats1()
x1 = u1 : y = u2 : matd() : matsi() : Console.WriteLine(" zápis Matice S1(5,16):wmats1")
Using sw As New StreamWriter("C:\temp\wmats1.txt",True)
For u3 = 1 To 5
For u4 = 1 To 16
ss = S(u3, u4)
sw.WriteLine(ss)
Next u4
Next u3
sw.Flush()
End Using
End Sub
Public Sub matd()
' Dim D0(20, 20) 'vstupuje x1=u1,y=u2
b9 = x1 ^ 2 : c9 = y ^ 2 : d1 = x1 * y
D0(1, 4) = -2 * y1 * d4 : D0(1, 5) = -2 * y2
D0(1, 6) = -2 * x0 * d4 : D0(1, 7) = -2 * y * y2 - 4 * x1 * y1 * d4
D0(1, 8) = -2 * x1 * x0 * d4 - 4 * y * y1 * d4
D0(1, 9) = -2 * c9 * y2 - 2 * b9 * x0 * d4 - 8 * d1 * y1 * d4
D0(1, 10) = -6 * x1 * y2 : D0(1, 11) = -6 * y * x0 * d4
D0(1, 12) = -6 * d1 * y2 - 6 * b9 * y1 * d4
D0(1, 13) = -6 * d1 * x0 * d4 - 6 * c9 * y1 * d4
D0(1, 14) = -6 * x1 * c9 * y2 - 2 * b9 * x1 * x0 * d4 - 12 * b9 * y * y1 * d4
D0(1, 15) = -2 * c9 * y * y2 - 6 * b9 * y * x0 * d4 - 12 * x1 * c9 * y1 * d4
D0(1, 16) = -6 * d1 * c9 * y2 - 6 * b9 * d1 * x0 * d4 - 18 * b9 * c9 * y1 * d4
D0(2, 4) = -2 * y1 * d2 : D0(2, 5) = -2 * y3
D0(2, 6) = -2 * x0 * d2 : D0(2, 7) = -2 * y * y3 - 4 * x1 * y1 * d2
D0(2, 8) = -2 * x1 * x0 * d2 - 4 * y * y1 * d2
D0(2, 9) = -2 * c9 * y3 - 2 * b9 * x0 * d2 - 8 * d1 * y1 * d2
D0(2, 10) = -6 * x1 * y3 : D0(2, 11) = -6 * y * x0 * d2
D0(2, 12) = -6 * d1 * y3 - 6 * b9 * y1 * d2 : D0(2, 13) = -6 * c9 * y1 * d2 - 6 * d1 * x0 * d2
D0(2, 14) = -6 * c9 * x1 * y3 - 2 * b9 * x1 * x0 * d2 - 12 * b9 * y * y1 * d2
D0(2, 15) = -2 * c9 * y * y3 - 6 * b9 * y * x0 * d2 - 12 * x1 * c9 * y1 * d2
D0(2, 16) = -6 * d1 * c9 * y3 - 6 * b9 * d1 * x0 * d2 - 18 * b9 * c9 * y1 * d2
D0(3, 4) = -2 * x8 * d3 : D0(3, 5) = -4 * x7 * d3
D0(3, 7) = -4 * x7 * y * d3 - 4 * x8 * x1 * d3 : D0(3, 8) = -4 * y * x8 * d3
D0(3, 9) = -4 * x7 * y * y * d3 - 8 * x8 * x1 * y * d3 : D0(3, 10) = -12 * x7 * x1 * d3
D0(3, 13) = -6 * y * y * x8 * d3 : D0(3, 12) = -12 * x1 * y * x7 * d3 - 6 * x1 * x1 * x8 * d3
D0(3, 14) = -12 * d3 * (x1 * y * y * x7 + x1 * x1 * y * x8)
D0(3, 15) = -4 * y * y * y * x7 * d3 - 12 * x8 * x1 * y * y * d3
D0(3, 16) = -12 * x7 * x1 * y * y * y * d3 - 18 * x8 * x1 * x1 * y * y * d3
D0(4, 7) = -4 * y1 * y4 : D0(4, 8) = -2 * x0 * y4
D0(4, 9) = -8 * y1 * y * y4 - 4 * x0 * x1 * y4 : D0(4, 10) = -6 * y2 - 12 * x9 * d3
D0(4, 12) = -6 * y2 * y - 12 * x9 * y * d3 - 12 * y1 * x1 * y4
D0(4, 13) = -6 * x0 * y * y4 : D0(4, 14) = -6 * y2 * c9 - 24 * d1 * y1 * y4 - 6 * b9 * x0 * y4 - 12 * c9 * d3 * x9
D0(4, 15) = -12 * c9 * y1 * y4 - 12 * d1 * x0 * y4
D0(4, 16) = -6 * c9 * y * y2 - 12 * c9 * y * x9 * d3 - 18 * b9 * y * x0 * y4 - 36 * c9 * x1 * y1 * y4
D0(5, 7) = -4 * x9 * x8 * d2 - 2 * x8 * y5 : D0(5, 8) = -6 * x7 * x0 * d2
D0(5, 9) = -12 * x1 * x8 * y1 * d2 - 8 * y * x7 * y1 * d2 - 4 * y * x8 * y5
D0(5, 10) = -6 * x7 * y5 : D0(5, 11) = -6 * x0 * x8 * d2
D0(5, 12) = -12 * x1 * x9 * x8 * d2 - (y * x7 + x1 * x8) * 6 * y5
D0(5, 13) = -(18 * y * x7 + 6 * x1 * x8) * x0 * d2
D0(5, 14) = -(18 * b9 * x8 + 24 * d1 * x7) * y1 * d2 - (6 * c9 * x7 + 12 * d1 * x8) * y5
D0(5, 15) = -(36 * d1 * y1 + 12 * c9 * x9 + 6 * b9 * x0) * x8 * d2 - 6 * c9 * x8 * y5
D0(5, 16) = -(54 * d1 * y1 + 36 * c9 * x9 + 6 * b9 * x0) * x8 * x1 * d2 - (6 * y * x7 + 18 * x1 * x8) * c9 * y5
D0(3, 6) = 0 : D0(3, 11) = 0 : D0(4, 11) = 0
' Console.WriteLine(" matice D0(5,16) ")
For i1 = 1 To 5
For j = 1 To 16
' Console.WriteLine(" " & D0(i1, j) & ";")
If j = 16 Then
' Console.WriteLine(" ")
End If
Next
Next
End Sub
Public Sub gauss4()
Console.WriteLine(" Gauss4 čte wequ od w4=" & w4 & " do w5=" & w5 & ".") : pas = I(2)
DA = w4 - A11 - 2 ' DA = Math.Abs(DA)
For A9 = w4 To w5 Step 1
z9 = A9 - w4
If w6 <> 0 Then
GoTo SA1260
End If
If d9 <= 0 Then
GoTo SA1140
End If
Console.WriteLine(" čte alfa:" & (q3 - 1) * z1 * g9 + 1 & " rovnice q3=" & q3 & ".")
Using sr As New StreamReader("C:\temp\alfa.txt", True)
While Not sr.EndOfStream
For j = 1 To z1 Step 1
Dim ss As Double = CDbl(sr.ReadLine())
UA(j) = ss 'načtení UA() z temp\alfa.txt na disku c:\
Console.Write(" UA(" & j & ")=")
Console.Write("(0) ", ss)
Next j
Console.WriteLine()
End While
End Using
q3 = q3 + 1
SA1140: If d9 >= 0 Then
GoTo SA1350
End If
Console.WriteLine(" čte beta:" & (q7 - 1) * z1 * g9 + 1 & " rovnice q7=" & q7 & ".")
Using sr As New StreamReader("c:\temp\beta.txt", True)
While Not sr.EndOfStream
For j = 1 To z1 Step 1
Dim ss As Double = CDbl(sr.ReadLine())
UA(j) = ss ' načtení UA() z temp\beta.txt na disku c:\
Console.Write(" UA(" & j & ")=")
Console.WriteLine("(0) ", UA(j))
Next j
Console.WriteLine()
End While
End Using
q7 = q7 + 1
SA1250: GoTo SA1350
SA1260: If w6 <= 5 Then
Console.WriteLine(" čte wequ " & z1 & " čísel, rovnice " & q1 & ".")
Else
z9 = z9 + c22 - c11 + 1
Console.WriteLine(" čte wequ " & z1 & " čísel, rovnice " & q1 & ".")
End If
Using sr As New StreamReader("c:\temp\wequ.txt", True)
' While Not sr.EndOfStream
For j = 1 To z1 Step 1 ' přiřazení wequ( , ) do UA()
Dim ss As Double = CDbl(sr.ReadLine())
' UA(j) = wequ(q1, j)
UA(j) = ss 'čtení vektoru UA() ze souboru temp\wequ.txt na disku c:\
Console.Write(" UAwequ(" & j & ")=")
Console.Write("(0) ", UA(j))
' Console.WriteLine(" wequ(" & q1 & "," & j & ")=" & wequ(q1, j) & ".")
Next j
q1 = q1 + 1
' End While
End Using
SA1350: DA = DA + 1
B33 = B22 - z9
u1 = I(2) - DA - 1
If u1 > B33 Then
GoTo SA1570
End If
If u1 >= 0 Then
d4 = z1 * (u1 - I(2) + DA) + 1
Else
u1 = 0 : d4 = z1 * (u1 - I(2) + DA) + 1
End If
For j = u1 To B33 Step f1
d4 = d4 + z1
d5 = d4 + I(2)
d3 = d5 - j - f1
If KA(d3) = f0 Then
GoTo SA1560
End If
m = -KA(d3) / KA(d4)
r1 = d3 - f1
For j1 = n1 + f1 To j + f1 Step f1
UA(j1) = UA(j1) + m * KA(r1 + j1)
Next j1
For j9 = n1 To p1 Step f1
n2 = s1 + j9
UA(n2) = UA(n2) + m * KA(d5 + j9)
Next j9
SA1560: Next j
SA1570: If d9 <= 0 Then
GoTo SA1690
End If
FileClose()
Using sw As New StreamWriter("C:\temp\beta.txt", True)
Console.WriteLine(" zápis Beta rovnice:" & q7 & ".")
For j = 1 To z1
Console.Write("UAbeta(" & j & ")=")
sw.WriteLine(UA(j)) : Console.Write("(0) ", UA(j))
Next j
Console.WriteLine()
sw.Flush()
End Using
q7 = q7 + 1
SA1690: If d9 >= 0 Then
GoTo SA1810
End If
Using sw As New StreamWriter("c:\temp\alfa.txt", True)
Console.WriteLine(" zápis Alfa rovnice:" & q3 & ".")
For j = 1 To z1
Console.Write("UAalfa(" & j & ")=")
sw.WriteLine(UA(j)) : Console.Write("(0) ", UA(j))
Next j
Console.WriteLine()
sw.Flush()
End Using
q3 = q3 + 1
SA1810: Next A9
Console.WriteLine(" konec gauss4")
End Sub
Private Sub gauss5()
i0 = i0 + 1
d2 = (w1 - A11 - 2) * z1 : pas = I(2) ' d2 = Math.Abs(d2)
For A9 = w1 To w2
d2 = d2 + z1
n2 = d2 + 1
n3 = d2 + z1
' n2 = Math.Abs(n2) :' n3 = Math.Abs(n3)
If w3 = 0 Then
GoTo SA1990
End If
Console.WriteLine(" Gauss5 čte wequ od" & n2 & " Do" & n3 & " rovnice:" & q1 & ".")
Using sr As New StreamReader("c:\temp\wequ.txt", True)
' For jj = 1 To (i0 - 1) * (I(2) + I(6))
' sr.ReadLine()
' Next jj
' While Not sr.EndOfStream
For j = n2 To n3
Dim ss As Double = CDbl(sr.ReadLine())
KA(j) = ss 'načtení KA() z temp\wequ.txt na disku c:\
Next j
ii = 0
For j = n2 To n3 'přiřazení wequ(q1,ii) do KA(j)
ii = ii + 1
' KA(j) = wequ(q1, ii)
Console.Write(" KAwequ(" & j & ")=")
Console.Write("(0) ", KA(j)) 'kontrolní tisk KA() !!
' Console.WriteLine(" wequ(" & q1 & "," & ii & ")=" & wequ(q1, ii) & ".") 'kontrolní tisk wequ( , )
Next j
' For j = 1 To (I(1) - i0) * (I(2) + I(6)) - 1
' sr.ReadLine()
' Next j
q1 = q1 + 1
' End While
End Using
SA1990: If w3 <> 0 Then
GoTo SA2240
End If
If d9 <= 0 Then
GoTo SA2120
End If
Using sr As New StreamReader("c:\temp\alfa.txt", True)
' While Not sr.EndOfStream
Console.WriteLine(" čte alfa-rovnice " & q3 & ".")
For j = n2 To n3
Dim ss As Double = CDbl(sr.ReadLine())
KA(j) = ss : Console.Write(" KAalfa(" & j & ")=") ' KA() načteno z temp\alfa.txt na disku c:\
Console.Write("(0) ", KA(j))
Next j
Console.WriteLine()
' End While
End Using
' Using sr As New StreamReader("c:\temp\alfb.txt")
' For j = n2 To n3
' Dim ss As Double = CDbl(sr.ReadLine())
' KA(j) = ss : Console.WriteLine(" KA(" & j & ")=" & KA(j) & ".")
' Next j
' End Using
q3 = q3 + 1
SA2120: If d9 >= 0 Then
GoTo SA2240
End If
Using sr As New StreamReader("c:\temp\beta.txt")
' While Not sr.EndOfStream
Console.WriteLine(" čte beta-rovnice " & q7 & " n2=" & n2 & " n3=" & n3 & ".")
For j = n2 To n3
Dim ss As Double = CDbl(sr.ReadLine())
KA(j) = ss : Console.Write(" KAbeta(" & j & ")=") ' KA() načteno z temp\beta.txt na disku c:\
Console.Write("(0) ", KA(j))
Next j
Console.WriteLine()
' End While
End Using
' Using SR As New StreamReader("c:\temp\betb.txt", True)
' For j = n2 To n3
' Dim ss As Double = CDbl(sr.ReadLine())
' KA(j) = ss : Console.WriteLine(" KA(" & j & ")=" & KA(j) & ".")
' Next j
q7 = q7 + 1
SA2240: Next A9 ' Stop
DA = w1 - A11 - 2 ' DA = Math.Abs(DA)
CA = DA * z1 + 1
EE = 8 * z1
Using sw As New StreamWriter("c:\temp\wwork.txt", True)
Console.WriteLine(" zápis souboru wwork: " & w1 & "------->" & w2 & ".")
For n = w1 To w2 Step f1 'eliminace Gauss... vektoru KA()
DA = DA + f1
CA = CA + z1
c3 = CA + i2
u1 = i2 - DA - f1
If u1 > B22 Then
GoTo SA2600
End If
If u1 >= 0 Then
d4 = z1 * (u1 - I(2) + DA) + f1
Else
u1 = f0 : d4 = z1 * (u1 - I(2) + DA) + f1
End If
For j = u1 To B22 Step f1
d4 = d4 + z1
d5 = d4 + I(2)
d3 = d5 - j - f1
If KA(d3) = f0 Then
GoTo SA2580
End If
If KA(d4) = 0 Then
KA(d4) = 1
End If
m = -KA(d3) / KA(d4)
r1 = d3 - CA
For j1 = n1 + CA To j + CA Step f1
KA(j1) = KA(j1) + m * KA(r1 + j1)
Next j1
For j9 = n1 To p1 Step f1
n2 = c3 + j9 ' n2 = Math.Abs(n2)
n3 = d5 + j9 ' n3 = Math.Abs(n3)
KA(n2) = KA(n2) + m * KA(n3)
Next j9
SA2580: Next j
SA2600: n3 = (CA + B11)
Console.WriteLine(" rovnice eliminovaná:" & n & " CA=:" & CA & " n3=:" & n3 & ".")
For j = CA To n3 Step f1
sw.WriteLine(KA(j)) 'zápis eliminované rovnice...vektoru KA() do souboru temp\wwork.txt na disk c:\
Console.Write(" KAelim(" & j & ")=")
Console.Write("(0) ", KA(j))
Next j
Console.WriteLine()
sw.Flush()
q2 = q2 + 1
Next n
End Using
Console.WriteLine(" konec gauss5")
End Sub
Public Sub Main1()
Dim rdr As System.IO.StreamReader
Dim s As String
rdr = My.Computer.FileSystem.OpenTextFileReader("C:\testfile.txt")
While Not rdr.EndOfStream
s = rdr.ReadLine()
MsgBox(s)
End While
End Sub
Sub Main()
g9 = 45000 : pp = 1 : e9 = 1 : z = 4 : k0 = 2
' Dim path As String = "C:\temp\mainip.txt"
' Dim fs As FileStream = File.Create(path)
Dim q12(15), q11(15) As Char
FileClose()
Using sw As New StreamWriter("C:\temp\mainip.txt")
q11 = "wmatk" : q12 = "wmats"
Console.WriteLine(" ") : Console.WriteLine(" ")
Console.WriteLine(" DESKA - program MKP..řešení izotropní nebo ortotropní tenké desky[Kirchhof]")
Console.WriteLine(" i na pružném podloží")
Console.Write(" zadej název úlohy ? ")
nazev = (Console.ReadLine())
sw.WriteLine(nazev)
Console.WriteLine(" " & nazev & ".")
Console.Write(" počet rovnic ?, šíře pasu ?, počet typů prvků ? ")
I(1) = Convert.ToSingle(Console.ReadLine())
I(2) = Convert.ToSingle(Console.ReadLine())
I(3) = Convert.ToSingle(Console.ReadLine())
Console.Write(" počet prvků ?, počet uzlů ?, zat.stavů ? ")
I(4) = Convert.ToSingle(Console.ReadLine())
I(5) = Convert.ToSingle(Console.ReadLine())
I(6) = Convert.ToSingle(Console.ReadLine())
Console.Write(" počet osaměl.zatíž. ?, daných param.deform. ?, počet pruž.podpor ? ")
I(7) = Convert.ToSingle(Console.ReadLine())
I(8) = Convert.ToSingle(Console.ReadLine())
I(9) = Convert.ToSingle(Console.ReadLine())
p1 = I(2) : pas = p1 : I(10) = 1
For u1 = 1 To 6 'kontrola chyb v zadání
If I(u1) > 0 Then
GoTo 210
End If
e1 = 3 'záporné číslo
' gsb5320
chyba() : GoTo 5430
210: Next
For u1 = 7 To 10
If I(u1) >= 0 Then
GoTo 260
End If
e1 = 4 'záporné číslo
'gsb5320
chyba() : GoTo 5430
260: Next
'testy na hraniční hodnoty a vztahy a omezení
If e9 = 0 Then
GoTo 320
End If
Console.WriteLine(" počet rovnic=" & I(1) & " počet typů prvků=" & I(3) & " šířka pasu=" & I(2) & " počet prvků=" & I(4) & " počet uzlů=" & I(5) & " zat.stavů=" & I(6) & ".")
Console.WriteLine(" počet osaměl.zat.=" & I(7) & " počet daných param.def.=" & I(8) & " pružných podpor=" & I(9) & " PAS=" & p1 & ".")
j = 0
sw.WriteLine(I(1))
sw.WriteLine(I(2)) : sw.WriteLine(I(3)) : sw.WriteLine(I(4)) : sw.WriteLine(I(5)) : sw.WriteLine(I(6))
sw.WriteLine(I(7)) : sw.WriteLine(I(8)) : sw.WriteLine(I(9)) : sw.WriteLine(I(10))
For ii = 1 To 10
Next : g9 = 45000
sw.Flush()
End Using
320: pp = 3 'gsb750
typy()
pp = 4 'gsb1270
kody()
pp = 5 'gsb2270
vazby()
pp = 6 'gsb 2980
prvky()
pp = 7 'gsb 3270
pruzne()
pp = 8 'gsb 3680
zobec()
pp = 9 : m1 = 0 : k0 = 1
x0 = I(4) * I(6)
u1 = x0 + I(8) * I(6)
For i1 = 1 To u1
La(i1) = 0
Next i1
For g = 1 To I(6) : Console.WriteLine(" I(6) = " & I(6) & ".")
Console.WriteLine(" Zatěžovací stav : " & g & ".") : K8(g) = g
'gsb 4040
zatiz()
Next g
Using sw As New StreamWriter("C:\temp\mainip.txt", True)
If e9 = 0 Then
GoTo 710
End If
If I(7) = 0 Then
GoTo 640
End If
For i1 = 1 To I(6)
sw.WriteLine(KA(i1))
Next i1
If m1 = 0 Then
GoTo 640
End If
u1 = I(6) + 1 : u2 = I(6) + m1 * 2
For i1 = u1 To u2
sw.WriteLine(KA(i1))
Next
640: 'cont
u1 = x0 + I(8) * I(6) + m1
For i1 = 1 To u1 Step 1
sw.WriteLine(La(i1))
Next
GoTo 720
710: Console.WriteLine(" not O.K.") : GoTo 750
720: Console.WriteLine(" je to O.K. ")
sw.Flush()
End Using
750: FileClose()
'gsb 4830
tisk()
' segment programu "qatrix"
Console.WriteLine(" qatrix is running")
w0 = 1 : q1 = 1 : FileClose()
Using sr As New StreamReader("C:\temp\mainip.txt")
' Dim D0(5, 16), BX(16, 16), AX(16, 16), K(16, 16), PX(1000), S(5, 16), L(16, 16), X(16, 16), xx As Single
While Not sr.EndOfStream
Dim rett As String = sr.ReadLine()
Dim i1 As Integer = CInt(sr.ReadLine())
Dim i2 As Integer = CInt(sr.ReadLine())
Dim i3 As Integer = CInt(sr.ReadLine())
Dim i4 As Integer = CInt(sr.ReadLine())
Dim i5 As Integer = CInt(sr.ReadLine())
Dim i6 As Integer = CInt(sr.ReadLine())
Dim i7 As Integer = CInt(sr.ReadLine())
Dim i8 As Integer = CInt(sr.ReadLine())
Dim i9 As Integer = CInt(sr.ReadLine())
Dim i0 As Integer = CInt(sr.ReadLine())
Console.WriteLine(" " & rett & ".")
Console.WriteLine(" i1=" & i1 & " i2=" & i2 & " i3=" & i3 & " i4=" & i4 & " i5=" & i5 & " i6=" & i6 & " i7=" & i7 & " i8=" & i8 & " i9=" & i9 & " i0=" & i0 & ".")
i1 = I(1) : i2 = I(2) : i3 = I(3) : i4 = I(4) : i5 = I(5) : i6 = I(6) : i7 = I(7) : i8 = I(8) : i9 = I(9) : i0 = I(10)
i0 = i3 * 5
For i1 = 1 To 5
For j = 1 To 16
D0(i1, j) = 0
Next
Next
w0 = 1
' For q1 = w0 To i(3) 'začátek cyklu q1 pro typy prvků
Console.WriteLine(" zápis matice WMATK-typ:" & q1 & " max:" & I(3) & ".")
Dim s1 As Single = CDbl(sr.ReadLine())
Dim s2 As Single = CDbl(sr.ReadLine())
Dim s3 As Single = CDbl(sr.ReadLine())
Dim s4 As Single = CDbl(sr.ReadLine())
Dim s5 As Single = CDbl(sr.ReadLine())
Dim s6 As Single = CDbl(sr.ReadLine())
Dim s7 As Single = CDbl(sr.ReadLine())
Dim s8 As Single = CDbl(sr.ReadLine())
Dim s9 As Single = CDbl(sr.ReadLine())
Dim s0 As Single = CDbl(sr.ReadLine())
For j = 1 To 250
sr.ReadLine()
Next
'sr.ReadLine(s1, s2, s3, s4, s5, s6, s7, s8, s9, s0)
Console.WriteLine(" s1,s2,s3,s4,s5,s6,s7,s8,s9,s0=" & s1 & " " & s2 & "," & s3 & "," & s4 & "," & s5 & "," & s6 & "," & s7 & "," & s8 & "," & s9 & "," & s0 & ".")
I(11) = s1 : I(12) = s2 : I(13) = s3 : I(14) = s4 : I(15) = s5 : I(16) = s6 : I(17) = s7 : I(18) = s8 : I(19) = s9 : I(20) = s0
End While
End Using
'konkretní deska 2 prvky
' s2 = 2150 : s3 = 913.75 : s4 = 322.5 : s5 = 0 : s6 = 0 : s7 = 0
' s8 = 1 : s9 = 1 : s0 = 0
' s1 = 2150 'konkretní deska 2 prvky
d1 = s1 : d2 = s2 : d3 = s3 : d4 = s4 : d5 = s5 : d6 = s6
d7 = s7 : h = s8 : v = s9 : c9 = s0
d1 = I(11) : d2 = I(12) : d3 = I(13) : d4 = I(14) : d5 = I(15) : d6 = I(16) : d7 = I(17) : h = I(18) : v = I(19) : c9 = I(20)
x1 = h * v * 4 : x2 = h * h : x3 = v * v : x4 = c9 * c9
x5 = Math.Sqrt(x3 + x4) : x6 = x5 * x5
x7 = -c9 / v : x8 = x5 / v : x9 = x7 * x7 : x0 = x8 ^ 2
Console.WriteLine(" x1,x2,x3,x4,x5,x6,x7,x8,x9,x0=" & x1 & "," & x2 & "," & x3 & "," & x4 & "," & x5 & "," & x6 & "," & x7 & ".")
Console.WriteLine(" " & x8 & "," & x9 & "," & x0 & ".")
y1 = x7 * x8 : y2 = d1 + x9 * d4 : y3 = x9 * d2 + d4
y4 = 2 * d3 + d4 : y5 = 2 * d3 + y3 : p1 = y2 + x9 * y3 + 4 * x9 * d3
pp2 = (y3 + 2 * d3) * y1 : p3 = y1 * x0 * d2
p4 = x0 * y3 : p5 = x0 ^ 2 * d2 : p6 = (d3 + x9 * d2) * x0 : y6 = x6 * x1 / 12
y7 = x2 * x1 / 12
y8 = x2 ^ 2 : y9 = y8 * x2 : y0 = x6 * x6 : z1 = y0 * x6
Console.WriteLine(" y1,y2,y3,y4,y5,y6,y7,y8,y9,y0=" & y1 & "," & y2 & "," & y3 & "," & y4 & "," & y5 & "," & y6 & "," & y7 & "," & y8 & "," & y9 & "," & y0 & ".")
aa1 = x1 / 80 : aa2 = x1 / 960 : aa3 = x1 / 5376
Console.WriteLine(" p1,pp2,p3,p4,p5,p6=" & p1 & "." & pp2 & "," & p3 & "," & p4 & "," & p5 & "," & p6 & ".")
xnut = x1
aa4 = x1 / 448 : aa5 = x1 / 35840 : z2 = y8 * aa1 : z3 = y0 * aa1
z4 = x2 * x6 * x1 / 144
z5 = y8 * x6 * aa2 : z6 = x2 * y0 * aa2 : z7 = y9 * x6 * aa3
z8 = x2 * z1 * aa3 : w1 = y8 * y0 * x1 / 6400 : w2 = y9 * aa4 : w3 = z1 * aa4
w4 = y9 * y0 * aa5 : w5 = y8 * z1 * aa5 : w6 = y9 * z1 * x1 / 200704.0!
Console.WriteLine(" w1,w2,w3,w4,w5,w6=" & w1 & "," & w2 & "," & w3 & "," & w4 & "," & w5 & "," & w6 & ".")
Console.WriteLine(" z1,z2,z3,z4,z5,z6,z7,z8=" & z1 & "," & z2 & "," & z3 & "," & z4 & "," & z5 & "," & z6 & "," & z7 & "," & z8 & ".")
For i1 = 1 To 16
For j = 1 To 16
AX(i1, j) = 0 'nulování matice AX()
Next
Next
For i1 = 1 To 16
For j = 1 To 16
BX(i1, j) = 0 'nulování matice BX()
Next
Next
For i1 = 1 To 16
For j = 1 To 16
K(i1, j) = 0 'nulování matice K()
Next
Next
'assings matrix BX()
BX(4, 4) = p6 * x1
BX(4, 5) = pp2 * x1
BX(4, 6) = p3 * x1
BX(4, 9) = pp2 * y6 + p3 * y7
BX(4, 12) = 3 * p6 * y7
BX(4, 13) = 3 * p6 * y6
BX(4, 16) = 9 * p6 * z4
BX(5, 5) = p1 * x1
BX(5, 6) = p4 * x1
BX(5, 9) = p1 * y6 + p4 * y7
BX(5, 12) = 3 * pp2 * y7
BX(5, 13) = 3 * pp2 * y6
BX(5, 16) = 9 * pp2 * z4
BX(6, 6) = p5 * x1
BX(6, 9) = p4 * y6 + p5 * y7
BX(6, 12) = 3 * p3 * y7
BX(6, 13) = 3 * p3 * y6
BX(6, 16) = 9 * p3 * z4
BX(7, 7) = p1 * y6 + 4 * p6 * y7
BX(7, 8) = 2 * pp2 * y6 + 2 * p3 * y7
BX(7, 10) = 6 * pp2 * y7
BX(7, 11) = 3 * p4 * y6
BX(7, 14) = 12 * pp2 * z4 + 2 * p3 * z2
BX(7, 15) = p1 * z3 + 3 * p4 * z4 + 12 * p6 * z4
BX(8, 8) = p5 * y7 + 4 * p6 * y6
BX(8, 10) = 3 * p4 * y7
BX(8, 11) = 6 * p3 * y6
BX(8, 14) = p5 * z2 + 3 * p4 * z4 + 12 * p6 * z4
BX(8, 15) = 12 * p3 * z4 + 2 * pp2 * z3
BX(9, 9) = p1 * z3 + 2 * p4 * z4 + 16 * p6 * z4 + p5 * z2
BX(9, 12) = 15 * pp2 * z4 + 3 * p3 * z2
BX(9, 13) = 3 * pp2 * z3 + 15 * p3 * z4
BX(9, 16) = 21 * pp2 * z6 + 21 * p3 * z5
BX(10, 10) = 9 * p1 * y7
BX(10, 14) = 9 * p1 * z4 + 3 * p4 * z2
BX(10, 15) = 18 * pp2 * z4
BX(11, 11) = 9 * p5 * y6
BX(11, 14) = 18 * p3 * z4
BX(11, 15) = 3 * p4 * z3 + 9 * p5 * z4
BX(12, 12) = (p1 * z4 + p6 * z2) * 9
BX(12, 13) = (p4 + p6) * z4 * 9
BX(12, 16) = (p1 * z6 + p4 * z5 + 3 * p6 * z5) * 9
BX(13, 13) = (p5 * z4 + p6 * z3) * 9
BX(13, 16) = (p4 * z6 + 3 * p6 * z6 + p5 * z5) * 9
BX(14, 14) = 9 * p1 * z6 + 6 * p4 * z5 + 36 * p6 * z5 + p5 * w2
BX(14, 15) = 24 * pp2 * z6 + 24 * p3 * z5
BX(15, 15) = p1 * w3 + 6 * p4 * z6 + 36 * p6 * z6 + 9 * p5 * z5
BX(16, 16) = 9 * p1 * z8 + 18 * p4 * w1 + 81 * p6 * w1 + 9 * p5 * z7
Console.WriteLine(" d5=" & d5 & " matice BX(16,16) ")
For i1 = 1 To 16
For j = 1 To 16
' Console.WriteLine(" " & BX(i1, j) & ",")
If j = 16 Then
' Console.WriteLine(" ")
End If
Next j
Next i1
If d5 = 0 Then
GoTo Q1650
End If
K(1, 1) = x1
K(1, 5) = y7
K(1, 6) = y6
K(1, 9) = z4
K(2, 2) = y7
K(2, 8) = z4
K(2, 10) = z2
K(2, 14) = z5
K(3, 3) = y6
K(3, 7) = z4
K(3, 11) = z3
K(3, 15) = z6
K(4, 4) = z4 : K(4, 12) = z5 : K(4, 13) = z6
K(4, 16) = w1 : K(5, 5) = z2 : K(5, 6) = z4
K(5, 9) = z5 : K(6, 6) = z3 : K(6, 9) = z6
K(7, 7) = z5 : K(7, 11) = z6 : K(7, 15) = w1
K(8, 8) = z6 : K(8, 10) = z5 : K(8, 14) = w1
K(9, 9) = w1 : K(10, 10) = w2 : K(10, 14) = z7
K(11, 11) = w3 : K(11, 15) = z8 : K(12, 12) = z7
K(12, 13) = w1 : K(12, 16) = w4 : K(13, 13) = z8
K(13, 16) = w5 : K(14, 14) = w4 : K(15, 15) = w5
K(16, 16) = w6 : Console.WriteLine(" matice K(16,16) ")
For i1 = 1 To 16
For j = 1 To 16
' Console.WriteLine(" " & K(i1, j) & ";" )
If j = 16 Then
' Console.WriteLine(" ")
End If
Next j
Next i1
d5 = d5 / 4
For u1 = 1 To 16
For u2 = u1 To 16
BX(u1, u2) = K(u1, u2) * d5 + BX(u1, u2)
Next u2
Next u1
Console.WriteLine(" d6=" & d6 & ".")
Q1650: Console.WriteLine(" d6=" & d6 & ".")
If d6 = 0 Then
GoTo Q2040
End If
For u1 = 1 To 16
For u2 = u1 To 16
K(u1, u2) = 0 'nulování matice K(,)
Next
Next
'assignes matrix K2()
K(2, 2) = x1 : K(2, 8) = y6 : K(2, 10) = 3 * y7 : K(2, 14) = 3 * z4
K(4, 4) = y6 : K(4, 12) = 3 * z4 : K(4, 13) = z3 : K(4, 16) = 3 * z6
K(5, 5) = 4 * y7 : K(5, 9) = 4 * z4 : K(7, 7) = 4 * z4 : K(7, 15) = 4 * z6
K(8, 8) = z3 : K(8, 10) = 3 * z4 : K(8, 14) = 3 * z6 : K(9, 9) = 4 * z6
K(10, 10) = 9 * z2 : K(10, 14) = 9 * z5 : K(12, 12) = 9 * z5 : K(12, 13) = 3 * z6
K(12, 16) = 9 * z5 : K(13, 13) = w3 : K(13, 16) = 3 * z8 : K(14, 14) = 9 * w1
K(15, 15) = 4 * z8 : K(16, 16) = 9 * w5
Console.WriteLine(" matice K(16,16) ")
For i1 = 1 To 16
For j = 1 To 16
' Console.WriteLine(" " & K(i1, j) & ";" )
If j = 16 Then
' Console.WriteLine(" ")
End If
Next j
Next i1
d6 = d6 / 4
For u1 = 1 To 16
For u2 = u1 To 16
BX(u1, u2) = K(u1, u2) * d6 + BX(u1, u2)
Next u2
Next u1
Q2040: Console.WriteLine(" d7=" & d7 & ".")
If d7 = 0 Then
GoTo Q2430
End If
For u1 = 1 To 16
For u2 = u1 To 16
K(u1, u2) = 0
Next
Next
'assignes matrix K3()
K(3, 3) = x1 : K(3,
Odpovídá na Jaroslav Trojan
Adam Ježek:1.5.2016 23:31
Adam Ježek:1.5.2016 23:31
Tak sem dej ten link na pastebin, kam se ti to povedlo vložit, takhle ti poradit nedokážeme.
Odpovídá na sadlomaslox25
Jaroslav Trojan:2.5.2016 8:05
Jaroslav Trojan:2.5.2016 8:05
Poraď mi prosím, jak to dostanu z Pastebin na forum.
Díky... J.T.
Jaroslav Trojan:2.5.2016 10:03
Zdravím, tak má už někdo ten můj program/kód/?
Jestli ano , tak zatím děkuji!
J.T.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.
Zobrazeno 50 zpráv z 79.