Új hozzászólás Aktív témák

• #1367 Watercolour aktív tag

  Új Válasz 2011-05-08 21:15:29 #1367

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Watercolour

  aktív tag

  Üdv,

  segítségeteket kérném Excel VB makróban. A nyelvet nem ismerem, bár sikerült alapszinten megértenem a szintaxisát, viszont a problémám a (matematikai) logikájával van ennek a feladatnak.
  A lényeg az, hogy a feladat megoldása HIBÁS. Magával az algoritmussal van baj, gyanítom az, hogy létezik ennél optimálisabb megoldás.
  A lényeg az lenne, hogy ki kellene javítani optimálisra.
  Fontos lenne, aki tud, kérem nézzen rá.

  Adott a következő feladat:
  Adott egy híd, amin N ember át szeretne kelni. Azt tudjuk, hogy nem feltétlenül egyenlő sebességgel képesek haladni. Az egyes emberek átjutásához szükséges időket jelölje T(I). Egyszerre csak ketten tudnak átkelni a hídon. Sötét van, ezért szükségük van egy lámpásra. Leghamarabb mennyi idő alatt tudnak mindnyájan a túlsó partra jutni? (NE feledjük, a lámpást az egyik átjutottnak vissza kell hoznia, hogy a többiek is lássanak az átkelés során!)

  Van hozzá egy megoldás leírása:
  Látható, hogy 3 ember esetén a leggyorsabb bárki mással átmehet, ő jön vissza, és aki még maradt azzal újra átmegy a hídon. Az átkeléshez szükséges idő összesen T(1)+T(2)+(T(3) feltéve, hogy az embereket az átkelés sebessége szerint csökkenőbe (ez időben növekvőt jelent) rendeztük. Azaz pl. átmegy az 1. és a 2. (Idő: T(2)), visszajön az 1. (Idő: T(1)), és végül átmegy az 1. és a 3. (Idő: T(3)). Ha 4 ember van, akkor ez helyesen pl. úgy alakul, hogy: átmegy az 1. és a 2., visszajön az 1., átmegy a 3. és a 4., visszajön a 2., és végül átmegy az 1. és a 2. Észrevehető, hogy az 1. és a 2. tulajdonképpen átjuttatja a 3. és 4. párosát, és ehhez pontosan T(1)+2*T(2)+T(4) időre van szükség. majd végül ők is átmennek (Idő: T(2)). Ha az átkelők száma páros, akkor - az előzőekből helyesen következtetve - úgy tudjuk kiszámolni, hogy mennyi időre van szükség, hogy a leglassúbb idejéből elindulva minden másodikat összegzünk egészen T(4)-ig, és ehhez annyiszor T(1)+2*T(2)-t adunk hozzá, amennyi az átjuttatott párok száma. Végül ehhez még hozzáadunk T(2)-t. Páratlan esetben a 3.-at gondolatban kivéve páros esethez jutunk, és az így kapott összidőhöz még T(1)+T(3)-at hozzáadunk.

  És itt van rá egy kész megoldás (ami feltételezem az előző megoldás leírás alapján készült):
  Itt van a hibás megoldás (xls)

  A makró kód a következő:
  Dim N As Integer ' Az átkelni szándékozók száma
  Dim Lap As Object
  
  Dim S As Long
  Dim Allando As Integer
  Dim I As Integer, J As Integer
  Dim A1 As Integer, A2 As Integer
  
  Set Lap = Sheets("Alapadatok")
  
  N = Lap.Cells(1, 1).CurrentRegion.Rows.Count - 1
  
  Lap.Copy After:=Sheets(Sheets.Count)
  Sheets("Alapadatok (2)").Name = "Átkelés"
  
  Range(Cells(2, 1), Cells(N + 1, 1)).Select
  Selection.Sort Key1:=Cells(2, 1), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  
  Cells(2, 2).Activate
  A1 = Cells(2, 1).Value
  A2 = Cells(3, 1).Value
  Allando = 2 * A2 + A1
  S = A2
  J = 0
  For I = N + 1 To 5 Step -2
  J = J + 2
  S = S + Allando + Cells(I, 1).Value
  Cells(J, 3).Value = A1 & " + " & A2
  Cells(J, 4).Value = A1
  Cells(J, 5).Value = A1 + A2
  Cells(J + 1, 3).Value = Cells(I - 1, 1).Value & " + " & Cells(I, 1).Value
  Cells(J + 1, 4).Value = A2
  Cells(J + 1, 5).Value = A2 + Cells(I, 1).Value
  Next
  
  If N Mod 2 = 1 Then
  S = S + Cells(4, 1).Value + Cells(2, 1).Value
  J = J + 2
  Cells(J, 3).Value = A1 & " + " & A2
  Cells(J, 4).Value = A1
  Cells(J, 5).Value = A1 + A2
  Cells(J + 1, 3).Value = A1 & " + " & Cells(4, 1).Value
  Cells(J + 1, 5).Value = Cells(I, 1).Value
  Else
  J = J + 2
  Cells(J, 3).Value = A1 & " + " & A2
  Cells(J, 5).Value = A2
  End If
  
  Cells(2, 2).Value = S
  
  End Sub

  Előre is köszönöm a segítséget.

Új hozzászólás Aktív témák