fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Hydraulische Berechnungen

Uploader:	Sebastian
Datum/Zeit:	18.01.2008 20:40:07

DIM AS DOUBLE wassertiefe, sohlbreite, boeschung, rauh, gefaelle, F, U, R, V, Q



INPUT "Wassertiefe in Metern: ", wassertiefe

INPUT "Sohlbreite in Metern:  ", sohlbreite

INPUT "B”schungsneigung:      ", boeschung

INPUT "Rauhigkeitsbeiwert:    ", rauh

INPUT "Gef„lle in m/km:       ", gefaelle



F = wassertiefe*sohlbreite+(wassertiefe^2*boeschung)

U = sohlbreite + (wassertiefe*2*SQR(1+boeschung^2))

R = F/U



V = rauh * (R^(2/3)) * ((gefaelle/1000)^(1/2))

Q = V*F



PRINT ""

COLOR 14

PRINT USING "Flieágeschwindigkeit: ###.## m pro sek "; V

PRINT USING "Querschnittsfl. i.T.: ###.## m2"; F

PRINT USING "Hydraulischer Radius: ###.## m"; R

PRINT USING "Benetzter Umfang:     ###.## m"; U

PRINT USING "Abfluss:              ###.## m3 pro sek"; Q

PRINT

SLEEP

END

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.