4

EXIFの露出時間を秒単位で表示しようとしていますが、期待どおりの結果が得られません。おそらく小さな間違いです。

計算を行う2つのルーチンを見つけましたが、どちらも異なる結果と間違った結果をもたらします。

私が問題を抱えている値は次のとおりです。"0.0806451612903226"値はタイプExtendedです。

DecimalToFractStrは結果として「16129/200000」を与え、DecToFracは結果として「5/62」を与えます

誰もがそれを取得しているので、期待される結果は「1/12」になるはずです（トリックは何ですか）。エクスプローラーで画像を右クリックして詳細を表示すると、この値が表示されます。アプリケーションで取得するにはどうすればよいですか？誰かがここで私を助けてくれることを願っています。

よろしくロイMクレバー

解決しました！いくつかのテストの後、私はそれを理解しました。DecToFracの結果を使用して、左側の結果で整数で除算します。5 div 5 = 1/62 div 5 = 12なので、必要な結果1/12が残ります。

ご意見ありがとうございます。

よろしくロイMクレバー

procedure DecimalToFract(value: double; AllowedDecimals: integer; var num, den:
  integer);
var
  d, i: integer;
  ex: boolean;
begin
  d := Trunc(power(10, AllowedDecimals));
  num := Trunc(value * d);
  den := d;
  repeat
    ex := true;
    for i := 10 downto 2 do
      if ((num mod i) = 0) and ((den mod i) = 0) then
      begin
        num := num div i;
        den := den div i;
        ex := false;
      end;
  until ex;
end;

function DecimalToFractStr(value: double): string;
var
  num, den: integer;
begin
  DecimalToFract(value, 6, num, den);
  if den = 1 then
    result := inttostr(num)
  else
    result := inttostr(num) + '/' + inttostr(den);
end;

function Dec2Frac(f: Double): String;
var
  df: Double;
  lUpperPart: Integer;
  lLowerPart: Integer;
begin
  lUpperPart := 1;
  lLowerPart := 1;
  df := lUpperPart / lLowerPart;
  While (df <> f) do
  begin
    If (df < f) Then
      lUpperPart := lUpperPart + 1
    Else
    begin
      lLowerPart := lLowerPart + 1;
      lUpperPart := Trunc(f * lLowerPart);
    end;
    df := lUpperPart / lLowerPart;
  end;
  if lLowerPart = 1 then
    result := IntToStr(lUpperPart)
  else
    result := IntToStr(lUpperPart) + '/' + IntToStr(lLowerPart);
end;
4

4 に答える 4

4

1/12 は、実際にはその値の正しい結果ではありません。

おそらく、ある種の「スナップ先」ルックアップ テーブルを持っているのではないでしょうか。つまり、この値は、インクリメントされた値のリストの 1/12 に最も近いのでしょうか?

于 2010-01-04T00:30:55.823 に答える
3

おそらく、彼らは一般的な露光時間をハードコーディングして、最も近い露光時間を選択したのでしょうか?

于 2010-01-04T00:30:21.557 に答える
1

あなたのコードを読んでもわかりませんが、どこかで整数除算を誤って適用したために問題が発生したのではないかと思います。

1/12 = 0.0833333333 .....が得られるはずの答えであると確信している場合、報告したすべての結果は正しくありません。

私が問題を抱えている値は次のとおりです。"0.0806451612903226"値はタイプExtendedです。

DecimalToFractStrは結果として「16129/200000」を与え、DecToFracは結果として「5/62」を与えます

3つすべてが間違っています。

あなたが2つの整数の比率としてあなたの値を表現したら、私は最大公約数の線に沿ってもっと何かを見ることを期待していました。

于 2010-01-04T00:01:55.203 に答える
0

解決しました！いくつかのテストの後、わかりました。DecToFrac の結果を使用して、左辺の結果で単純に整数除算します。5 div 5 = 1 / 62 div 5 = 12 なので、必要な結果は 1 / 12 になります。

ご意見をお寄せいただきありがとうございます。

敬具 ロイ・M・クレバー

于 2010-01-05T23:57:40.177 に答える