"; //echo $veggtykkelse."
"; //echo $tettheter["staal"]."
";; $MFraYtreRor = pi()/4*(pow($ytrediameter,2)-pow($ytrediameter-2*$veggtykkelse,2))*$tettheter["staal"]; //echo "MFraYtreRor ".$MFraYtreRor."
"; $MFraAndreRor = (98.47+78.72+18); //echo "MFraAndreRor ".$MFraAndreRor."
"; //echo ."
"; //echo pow($ytrediameter-2*$veggtykkelse,2)-pow(0.3397,2)."
"; //echo (pow(0.3153,2)-pow(0.2445,2))."
"; //echo (pow(0.2168,2)-pow(0.1016,2))."
"; $MFraMud = pi()/4*((pow($ytrediameter-2*$veggtykkelse,2)-pow(0.3397,2))*$tettheter["mud1"] + (pow(0.3153,2)-pow(0.2445,2))*$tettheter["mud2"] + (pow(0.2168,2)-pow(0.1016,2))*$tettheter["mud3"]); //echo "MFraMud ".$MFraMud."
"; return $MFraYtreRor+$MFraAndreRor+$MFraMud; } //hvis antall elementer er større enn 0 og lengden er større en 0 prøver den å regne ut ting og tang if(isset($kjedelinje) && $elementer>0 && $lengde>0){ if($elementer < 1001){ echo $elementer; $lengdeprelement = $lengde/$elementer; $krefter["vertikal"][0] = $strekk; $krefter["horisontal"][0] = $strompaaboye; for($i=0; $i<$elementer; $i++){ $krefter["vertikal"][$i+1] = $krefter["vertikal"][$i]-($tyngdeprmeter)*$lengdeprelement; $vinkler[$i] = atan((($strompaaror)*$lengdeprelement/2+$krefter["horisontal"][$i])/($krefter["vertikal"][$i]-($tyngdeprmeter)*$lengdeprelement/2)); $krefter["horisontal"][$i+1] = $krefter["horisontal"][$i]+($lengdeprelement)*($strompaaror)*cos($vinkler[$i]); $avdrift["horisontal"][$i] = ($lengdeprelement)*(sin($vinkler[$i])); $avdrift["vertikal"][$i] = ($lengdeprelement)*(1-cos($vinkler[$i])); } } } ?>

Inndata
Øverste raden trengs ikke fylles ut. Fylles den ut vil den regne ut verdiene i andre rad automatisk. Vil du fylle inn manuelle verdien i andre rad check i boksen. Husk bare å unchecke om du skal bruke tall fra øverste rad Løsningen konvergerer for ca 20 elementer. Maxelementer er 1000. Generelt: taster du inn vettuge verdier får du et vettugt svar
Stromhastighet [m/s]	Cd	Rordiameter [m]	Boyehoyde [m]	Boyediameter [m]	Vekt av bøye [kg]
Kraft på rør (strøm) [N/m]	Tyngde rør [N/m]	Strekk på rør [N]	Antall elementer	Lengde rør	Kraft på bøyen (strøm) [N]

0 && $elementer<1001){ for($i=0; $i<$elementer; $i++){ $totavdrifthor += $avdrift["horisontal"][$elementer-$i-1]; $totavdriftver += $avdrift["vertikal"][$elementer-$i-1] ?>

Elementer fra bunn til topp
Element	Vinkel	Avdrift hor	Avdrift ver	Total Avdrifttopp hor	Total Avdrifttopp ver	Kraft hor	Kraft ver
	0	0	0	0	0	0

0 && $elementer<1001){ for($i=0; $i<$elementer; $i++){ $totavdrifthor += $avdrift["horisontal"][$elementer-$i-1]; ?>

Totale avdrifter til å kopiere til excel

0