Ggthjy

Identify 80s or 90s comics with ripped creatures (not dwarves)

Could an empire control the whole planet with today's comunication methods?

How do spell lists change if the party levels up without taking a long rest?

What was the last x86 CPU that did not have the x87 floating-point unit built in?

What information about me do stores get via my credit card?

How to read αἱμύλιος or when to aspirate

how can a perfect fourth interval be considered either consonant or dissonant?

How to handle characters who are more educated than the author?

Does Parliament hold absolute power in the UK?

How to politely respond to generic emails requesting a PhD/job in my lab? Without wasting too much time

Single author papers against my advisor's will?

Student Loan from years ago pops up and is taking my salary

Store Dynamic-accessible hidden metadata in a cell

Do warforged have souls?

How do you keep chess fun when your opponent constantly beats you?

What does Linus Torvalds mean when he says that Git "never ever" tracks a file?

"... to apply for a visa" or "... and applied for a visa"?

What do I do when my TA workload is more than expected?

Did the new image of black hole confirm the general theory of relativity?

The following signatures were invalid: EXPKEYSIG 1397BC53640DB551

Is this wall load bearing? Blueprints and photos attached

Deal with toxic manager when you can't quit

How to support a colleague who finds meetings extremely tiring?

Did the UK government pay "millions and millions of dollars" to try to snag Julian Assange?

How can this code which turns hourly data for columns of data into daily be improved?

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ margin-bottom:0;
}

0

$begingroup$

Ive got some code which converts data from hours to days. I am wondering if there are any improvements which could be made to make it more efficient or any other improvements in general that could be made? other information:for t = Int((n - 1) / 24) + 1, the n is the amount of rows of data. u is the first cell of the hourly data

u = Int(Worksheets("Hydrological_Data").Cells(6, 1))

t = Int((n - 1) / 24) + 1



Dim rain_recalc(), evap_recalc(), obs_q_recalc(), sim_q_recalc() As Double

Dim rain_d(), evap_d(), available_w_d(), interflow_d(), overflow_d(), obs_q_d(), sim_q_d() As Double





ReDim rain_recalc(t, 24), evap_recalc(t, 24), obs_q_recalc(t, 24), sim_q_recalc(t, 24) As Double



ReDim rain_d(t), evap_d(t), available_w_d(t), interflow_d(t), overflow_d(t), obs_q_d(t), sim_q_d(t) As Double



counter = 0

total_obs_q = 0



For w = 1 To t

    rain_d(0) = 0

    evap_d(0) = 0

    obs_q_d(0) = 0

    sim_q_d(0) = 0

    For s = 0 To 23

        rain_recalc(w, s) = rainfall(counter)

        rain_d(w) = rain_d(w) + rain_recalc(w, s)

        evap_recalc(w, s) = evaporation(counter)

        evap_d(w) = evap_d(w) + evap_recalc(w, s)

        obs_q_recalc(w, s) = obs_q(counter)

        obs_q_d(w) = obs_q_d(w) + obs_q_recalc(w, s)

        sim_q_recalc(w, s) = simulated_q(counter)

        sim_q_d(w) = sim_q_d(w) + sim_q_recalc(w, s)

        counter = counter + 1

    Next s



    total_obs_q = total_obs_q + obs_q_d(w)



    Worksheets("Hydrological_Data").Cells(5 + w, 7) = u + w - 1

    Worksheets("Hydrological_Data").Cells(5 + w, 8) = rain_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 9) = evap_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 10) = obs_q_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 11) = sim_q_d(w)

Next w

vba excel

share

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

add a comment | 

0

$begingroup$

Ive got some code which converts data from hours to days. I am wondering if there are any improvements which could be made to make it more efficient or any other improvements in general that could be made? other information:for t = Int((n - 1) / 24) + 1, the n is the amount of rows of data. u is the first cell of the hourly data

u = Int(Worksheets("Hydrological_Data").Cells(6, 1))

t = Int((n - 1) / 24) + 1



Dim rain_recalc(), evap_recalc(), obs_q_recalc(), sim_q_recalc() As Double

Dim rain_d(), evap_d(), available_w_d(), interflow_d(), overflow_d(), obs_q_d(), sim_q_d() As Double





ReDim rain_recalc(t, 24), evap_recalc(t, 24), obs_q_recalc(t, 24), sim_q_recalc(t, 24) As Double



ReDim rain_d(t), evap_d(t), available_w_d(t), interflow_d(t), overflow_d(t), obs_q_d(t), sim_q_d(t) As Double



counter = 0

total_obs_q = 0



For w = 1 To t

    rain_d(0) = 0

    evap_d(0) = 0

    obs_q_d(0) = 0

    sim_q_d(0) = 0

    For s = 0 To 23

        rain_recalc(w, s) = rainfall(counter)

        rain_d(w) = rain_d(w) + rain_recalc(w, s)

        evap_recalc(w, s) = evaporation(counter)

        evap_d(w) = evap_d(w) + evap_recalc(w, s)

        obs_q_recalc(w, s) = obs_q(counter)

        obs_q_d(w) = obs_q_d(w) + obs_q_recalc(w, s)

        sim_q_recalc(w, s) = simulated_q(counter)

        sim_q_d(w) = sim_q_d(w) + sim_q_recalc(w, s)

        counter = counter + 1

    Next s



    total_obs_q = total_obs_q + obs_q_d(w)



    Worksheets("Hydrological_Data").Cells(5 + w, 7) = u + w - 1

    Worksheets("Hydrological_Data").Cells(5 + w, 8) = rain_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 9) = evap_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 10) = obs_q_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 11) = sim_q_d(w)

Next w

vba excel

share

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

add a comment | 

$begingroup$

Ive got some code which converts data from hours to days. I am wondering if there are any improvements which could be made to make it more efficient or any other improvements in general that could be made? other information:for t = Int((n - 1) / 24) + 1, the n is the amount of rows of data. u is the first cell of the hourly data

u = Int(Worksheets("Hydrological_Data").Cells(6, 1))

t = Int((n - 1) / 24) + 1



Dim rain_recalc(), evap_recalc(), obs_q_recalc(), sim_q_recalc() As Double

Dim rain_d(), evap_d(), available_w_d(), interflow_d(), overflow_d(), obs_q_d(), sim_q_d() As Double





ReDim rain_recalc(t, 24), evap_recalc(t, 24), obs_q_recalc(t, 24), sim_q_recalc(t, 24) As Double



ReDim rain_d(t), evap_d(t), available_w_d(t), interflow_d(t), overflow_d(t), obs_q_d(t), sim_q_d(t) As Double



counter = 0

total_obs_q = 0



For w = 1 To t

    rain_d(0) = 0

    evap_d(0) = 0

    obs_q_d(0) = 0

    sim_q_d(0) = 0

    For s = 0 To 23

        rain_recalc(w, s) = rainfall(counter)

        rain_d(w) = rain_d(w) + rain_recalc(w, s)

        evap_recalc(w, s) = evaporation(counter)

        evap_d(w) = evap_d(w) + evap_recalc(w, s)

        obs_q_recalc(w, s) = obs_q(counter)

        obs_q_d(w) = obs_q_d(w) + obs_q_recalc(w, s)

        sim_q_recalc(w, s) = simulated_q(counter)

        sim_q_d(w) = sim_q_d(w) + sim_q_recalc(w, s)

        counter = counter + 1

    Next s



    total_obs_q = total_obs_q + obs_q_d(w)



    Worksheets("Hydrological_Data").Cells(5 + w, 7) = u + w - 1

    Worksheets("Hydrological_Data").Cells(5 + w, 8) = rain_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 9) = evap_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 10) = obs_q_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 11) = sim_q_d(w)

Next w

vba excel

share

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

u = Int(Worksheets("Hydrological_Data").Cells(6, 1))

t = Int((n - 1) / 24) + 1



Dim rain_recalc(), evap_recalc(), obs_q_recalc(), sim_q_recalc() As Double

Dim rain_d(), evap_d(), available_w_d(), interflow_d(), overflow_d(), obs_q_d(), sim_q_d() As Double





ReDim rain_recalc(t, 24), evap_recalc(t, 24), obs_q_recalc(t, 24), sim_q_recalc(t, 24) As Double



ReDim rain_d(t), evap_d(t), available_w_d(t), interflow_d(t), overflow_d(t), obs_q_d(t), sim_q_d(t) As Double



counter = 0

total_obs_q = 0



For w = 1 To t

    rain_d(0) = 0

    evap_d(0) = 0

    obs_q_d(0) = 0

    sim_q_d(0) = 0

    For s = 0 To 23

        rain_recalc(w, s) = rainfall(counter)

        rain_d(w) = rain_d(w) + rain_recalc(w, s)

        evap_recalc(w, s) = evaporation(counter)

        evap_d(w) = evap_d(w) + evap_recalc(w, s)

        obs_q_recalc(w, s) = obs_q(counter)

        obs_q_d(w) = obs_q_d(w) + obs_q_recalc(w, s)

        sim_q_recalc(w, s) = simulated_q(counter)

        sim_q_d(w) = sim_q_d(w) + sim_q_recalc(w, s)

        counter = counter + 1

    Next s



    total_obs_q = total_obs_q + obs_q_d(w)



    Worksheets("Hydrological_Data").Cells(5 + w, 7) = u + w - 1

    Worksheets("Hydrological_Data").Cells(5 + w, 8) = rain_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 9) = evap_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 10) = obs_q_d(w)

    Worksheets("Hydrological_Data").Cells(5 + w, 11) = sim_q_d(w)

Next w

share

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 4 mins ago

Josh AltonJosh Alton

1

New contributor

Josh Alton is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 4 mins ago

Josh AltonJosh Alton

1