5 Einträge, 1 Seite |
dH ( e1 - d/2) ( e2 - H/2) + bt (e2 - t/2) (e1 - d - b/2)
my $result = $dH * ( $e1 - $d/2) * ( $e2 - $H/2) + $bt * ($e2 - $t/2) * ($e1 - $d - $b/2);
1
2
3
4
5
6
7
8
e1 = 20.714285714285715;
e2 = 11.785714285714286;
d = 20;
H = 30;
t = 15;
b = 30;
Iyz = d*H * ( e1 - d/2) * ( e2 - H/2) + b*t * (e2 - t/2) * (e1 - d - b/2);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
my $e1 = 20.714285714285715;
my $e2 = 11.785714285714286;
my $d = 20;
my $H = 30;
my $t = 15;
my $b = 30;
my $Iyz = $d*$H * ($e1 - $d/2) * ( $e2 - $H/2) + $b*$t * ($e2 - $t/2) * ($e1 - $d - $b/2);
print $Iyz;
5 Einträge, 1 Seite |