|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 280 (0x118)
Types: TextFile
Names: »tfact.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire.V/V1.1/EMPSUBS/tfact.c«
#define D_NATSTR
#include "empdef.h"
double
tfact(cno, value)
int cno;
double value;
{
double teffect, log();
getnat(cno);
teffect = log(nat.nat_t_level + 10.0) / 9.2;
teffect = (teffect < 1.0 ? teffect : 1.0);
return(teffect * value);
}