projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Micro optimization to improve analysis speed by ~20%
[master-thesis.git]
/
Parasitemia
/
ParasitemiaCore
/
EEOver.fs
diff --git
a/Parasitemia/ParasitemiaCore/EEOver.fs
b/Parasitemia/ParasitemiaCore/EEOver.fs
index
a7791c9
..
0824e98
100644
(file)
--- a/
Parasitemia/ParasitemiaCore/EEOver.fs
+++ b/
Parasitemia/ParasitemiaCore/EEOver.fs
@@
-404,7
+404,7
@@
let private cubicroots (p : float[]) (r : float[,]) =
for k = 1 to 3 do
r.[2, k] <- 0.0
for k = 1 to 3 do
r.[2, k] <- 0.0
-let private biquadroots (p : float[]) (r : float[,]) =
+let
inline
private biquadroots (p : float[]) (r : float[,]) =
if p.[0] <> 1.0 then
for k = 1 to 4 do
p.[k] <- p.[k] / p.[0]
if p.[0] <> 1.0 then
for k = 1 to 4 do
p.[k] <- p.[k] / p.[0]