「翻訳してほしい」ということですが、
何に翻訳すればいいのかわからないので、VBAに翻訳
かなりテキトー。
VBA
1
2Public Sub test()
3
4Dim x(100) As Integer
5Dim y(100) As Integer
6Dim xn(100) As Integer
7
8 LX = 1280
9 NX = 100
10
11 dx = LX / NX
12
13 For i = 0 To NX
14
15 x(i) = i * dx
16 Next
17
18
19 imin = 0
20 jmin = 0
21 imax = 100
22 jmax = 100
23 yspan = y(jmax) - y(jmin)
24 ic = (imin + imax) / 2
25 jc = (jmin + jmax) / 2
26
27 For i = 0 To NX
28 xn(i) = (x(i) - x(ic)) / yspan
29 Next
30
31
32End Sub
もちろんエラーがでますw
配列の添え字は適当、
まずNX=100の部分にセミコロンが無い。
y[]が初期化されていないので、
yspan=y[jmax]-y[jmin];の部分は全部ゼロってことにしたw
たぶんなんかのコードが抜けている。
(yのSPANだと思うけど)
そのためyspanで割ると0で除算のエラーになる。
ic は50
x[]には0から12.8づつ増えた数値が100個入る。
よってxnには 0から12.8づつ増えた値から640を引いたものをyspanで割った数が100個はいる。
まぁ、yspanはゼロだからエラーになりますね。
なにかのループの中にいそうなきがする。