Excel pomoč

Razlaga primera je dokaj nerazumljiva in se v podrobnosti ne spuščam.

Opozarjam samo, da če je v celici D32 formula ali bi lahko bila formula v odvisnosti od N12 / I32 potem ne ugibaj ročno ciljne vrednosti, temveč uporabi Iskanje cilja ( Goal seek) v Podatki - Kaj če analiza - Iskanje cilja. Možno, da je to tudi odgovor na vprašanje.

Če je za ta primer res pravi odgovor je odvisno od uporabnika in njegove tabele :)

Ajde sam odgovor na temo Iskanja Cilja naj bo pa res v nulo:

Iskanje cilja razlaga

Sicer ne vem, kakšna je formula za izračun celice I32, ampak jaz bi v to celico linkal vrednost iz N12 in v izpostavil v formuli kot polnitve in v jo vpisal v D32... nisem siguren če je IF prava funkcija...

Če bi vedeli formulo za I32, bi bilo vse dosti lažje ;)

Ena varianta je, da si na drugem listu narediš iteracijo s tangentno metodo. Seveda moraš formulo najprej spremeniti v polinom. V tvoji tabeli bi uporabil celico D34, kamor bi zapisal začetno vrednost, v celici D32 pa bi se ti izpisala željena vrednost, ki bi ti jo izračunala tangentna metoda.
Vem precej komplicirano in je treba poznati numerične metode, vendar ko se to enkrat naredi, je zelo učinkovito.
Sicer pa, ker gre za excel bi te napotil na forum Matjažev.NET.

Narediš si novo tabelo nekje s 3 podatki: kot polnitve, manning, diff (manning - željena vrednosti). Vstaviš za kot cifre 0-360 na poljubnem intervalu, manninga po formuli iz podatkov, rezultate pa sortiraš po diff naraščujoče, odčitaš kot v prvi vrstici.

Mogoče jaz kaj ne razumem, ampak v I32 mora biti formula, ki je odvisna od D32.

Zakaj v I32 ne napišeš =N12, formulo pa preoblikuješ in vstaviš v D32?

Bom pa še podal eno vprašanje ali obstaja kje na internetu aplikacija da vneseš notri enačbo in ti sam obrne če iščeš določeni člen? Neki kot npr wolfram alpha, ki ti reši zadeve...

Vanadium, s katero oznako je v tvojih formulah označen padec? Katero količino pa označuje I? Na prvi pogled formul zelo verjetno ne bo mogoče eksaktno obrniti (prisotni so namreč mešani členi oblike sin(x) in sin(x)^(2/3)), lahko pa poskusimo s kakšnim približkom ali razvojem. V vsakem primeru pa lahko uporabiš - kot so že svetovali - Excelovo vgrajeno orodje za numerično reševanje enačb (Iskanje cilja).

Kot sem že omenil, formule se pač žal ne da eksplicitno obrniti.

Če ne maraš vgrajenega Reševalnika, si lahko napišeš svoj numerični reševalnik v VBA, ki bo tvojo rešitev poiskal numerično z bisekcijo. Primer:

Function Q(theta, D, I, ng)
    R = (D / 4) * (1 - Sin(theta) / theta)
    S = Application.WorksheetFunction.Power(D, 2) * (theta - Sin(theta)) / 8    
    Q = (1000 / ng) * Application.WorksheetFunction.Power(R, 2 / 3) * Application.WorksheetFunction.Power(I, 1 / 2) * S
End Function

Function NajdiKot(Q0, D, I, ng) As Double
    Dim xm As Double
    Dim fxp As Double, fxk As Double, fxm As Double, eps As Double, xp As Double, xk As Double
    
    D = D / 1000
    I = I / 1000
    
    xp = 0.001
    xk = 3
    
    j = 0
    
    Do
        xm = (xp + xk) / 2
        
        fxp = Q(xp, D, I, ng) - Q0
        fxk = Q(xk, D, I, ng) - Q0
        fxm = Q(xm, D, I, ng) - Q0
        
        If fxp * fxm < 0 Then
            xk = xm
        Else
            xp = xm
        End If
        
        j = j + 1
    Loop Until Abs(xp - xk) < eps Or j > 100
    
    NajdiKot = Application.WorksheetFunction.Degrees(xm)
End Function

Funkcijo nato pokličeš v zvezku kot =NajdiKot(Q, D, I, ng)

Pa tole potem deluje tut pri kopiranju tabele na druge računalnike? Je ta VBA potem fizično v xslx datoteki kot del tabele?

Moram priznati, da tudi jaz ne razumem v celoti te tematike in ne vem kako naj bi z ročnim spreminjanjem vrednosti celice dobili rezultat, če pa računalnik spreminja vrednost te iste celice (iskanje cilja) pa ni rezultata???

No kakorkoli :)! Očitno gre za preračune in v teh primerih se optimizacija programa pozna. V VBA kodi je dobro, da se znebimo VSH zunanjih klicev, saj so počasni in Excel mora preklapljati med VBA in "internimi" Excelovimi funkcijami. VBA (oz. BASIC) pozna POWER operator in to je ^. Namesto Application.WorksheetFunction.Power(j, i) lahko torej uporabimo ^, kar je nekje 15x hitrejše:

#If Win64 Then
  Declare PtrSafe Function GetTickCount Lib "kernel32" Alias "GetTickCount64" () As LongLong
#Else
  Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#End If

Sub test()
  Dim i, j, k, l, result, timer
  
  timer = GetTickCount
  
  For i = 1 To 100
    For j = 1 To 1000 Step 2.17
      For l = 1 To 100
        k = j ^ i
      Next
    Next
  Next
  
  result = GetTickCount - timer
  Debug.Print "^", result
  
  timer = GetTickCount
  
  For i = 1 To 100
    For j = 1 To 1000 Step 2.17
      For l = 1 To 100
        k = Application.WorksheetFunction.Power(j, i)
      Next
    Next
  Next
  
  result = GetTickCount - timer
  Debug.Print "Application.WorksheetFunction.Power", result
End Sub

Namesto Degrees funkcije pa se lahko napiše lasta funkcija (ampak v konkretnem primeru se ta tako ali tako kliče le 1x in verjetno ni neke pridobitve)

Function radians_to_degrees(radians as Double) as Double 
  radians_to_degrees = radians * (180 / WorksheetFunction.Pi)
End Function

PS: kljuka13, seveda pa kode nikakor ne grajam... le mojih 5 sekund, ki lahko koga še kaj naučijo ;)

@prtenjam, če prav razumem Vanadiuma, on ne želi ročno odpirati Reševalnika in ustrezno nastavljati parametrov vsakič znova, temveč bi rad to rešil kar z Excelovo formulo. Kar zadeva pa potenciranja: meni operator ^ ne deluje - bojda je to pogost problem na 64-bitnih sistemih, zato sem se tudi zatekel k zunanjemu klicu za power.

@Vanadium, ti bom poskusil povedati še četrtič: tvoje formule se žal ne da eksplicitno obrniti - ne glede na to, kateremu matematiku boš dal problem za reševati :) Ne da se namreč vsake enačbe obrniti tako, da bi rešitev bila "preprosta" (elementarna) funkcija. Kot enostaven primer si lahko zamisliš funkcijo y = sin(x) + x, iz katere želiš izraziti x. Tega se enostavno ne da narediti tako, da bi dobil ven lep, "preprost" izraz (=elementarno funkcijo). Tvoj izraz je oblike Q = (t - sin(t)/t)(1 - sin(t)/t)^(2/3) in se ga - tako kot moj prejšnji primer - pač ne da eksplicitno obrniti, da bi izrazil t.

Kot so že ostali ugotovili, se formule ne da kar tako obrniti.

Osebno bi uporabil VBA, samo ne bi nič kaj kompliciral:

Sub test1()
Range("I31").GoalSeek Goal:=Range("N12"), ChangingCell:=Range("D31")
End Sub