X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FUnitsOfMeasure.fs;fp=Parasitemia%2FParasitemia%2FUnitsOfMeasure.fs;h=0000000000000000000000000000000000000000;hb=4bfa3cbdc6145e6944f02e24829ab2ef3a851ac1;hp=6a3b745619b2abe40874c9539b0b7d9206f9abc2;hpb=48ecdfc43001c444eff6ad442986049384674af2;p=master-thesis.git diff --git a/Parasitemia/Parasitemia/UnitsOfMeasure.fs b/Parasitemia/Parasitemia/UnitsOfMeasure.fs deleted file mode 100644 index 6a3b745..0000000 --- a/Parasitemia/Parasitemia/UnitsOfMeasure.fs +++ /dev/null @@ -1,16 +0,0 @@ -module UnitsOfMeasure - -[] type px -[] type μm -[] type inch -[] type ppi = px / inch - -let μmInchRatio = 25.4e3<μm/inch> - -let μmToInch(x: float<μm>) : float = x / μmInchRatio -let inchToμm(x: float) : float<μm> = x * μmInchRatio - - - - -