不幸的是，某些數據只能以圖片形式獲得（日本出版物有人嗎？）。由於無法使用此方法，因此必須將其轉換為可以使用的數據集。我想知道這是否可以在Mathematica中完成。考慮以下示例圖像：

任務包括兩個步驟：

- 從圖形中提取一個點集
- 找到消除失真的函數並將其應用於數據集

在Mathematica中是否有一些簡化的方法？結果應該是盡可能準確的點集，並考慮可以輕鬆準確地繪製`Interpolation`

的點。沒有*獲取坐標*即可跟踪圖表的獎勵點。

以下是用於生成上面圖像的代碼：

```
img = ImagePerspectiveTransformation[
Rasterize[
Plot[x^((x - 2)^2 E^-x) + E^-x, {x, 0, 10}, PlotStyle -> Thick],
ImageSize -> 400
],
{{1, 0.1`, 0}, {0.1`, 1, 0}, {0, 0.1`, 1}},
Padding -> White
]
```