| … | … | ||
|---|---|---|---|
| 533 | my $d2 = ($self->{ldx} ** 2 + $self->{ldy} ** 2) ** 0.5; | 533 | my $d2 = ($self->{ldx} ** 2 + $self->{ldy} ** 2) ** 0.5; |
| 534 | 534 | ||
| 535 | if ($d1 * $d2) { | 535 | if ($d1 * $d2) { |
| 536 | my $a2 = $d1 / $d2; | 536 | my $a2 = $d1 / $d2; |
| 537 | 537 | ||
| 538 | $a1 = 1 - $a2; | 538 | $a1 = (1/$a2); |
| 539 | 539 | ||
| 540 | $a1 *= 0.9; | 540 | #$a1 *= 0.9; |
| 541 | #$a2 *= 0.9; | 541 | #$a2 *= 0.9; |
| 542 | 542 | ||
| 543 | printf "%4g %4g %4g\n", $d1, $d2, $a1+$a2;#d# | 543 | printf "%4g %4g %4g\n", $d1, $d2, $a1+$a2;#d# |
| 544 | 544 | ||
| 545 | #$a1 = 1 - (1-$a1) * 0.707; | 545 | #$a1 = 1 - (1-$a1) * 0.707; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |