equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2018 by Claus Gittinger |
4 COPYRIGHT (c) 2018 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
132 |baseIdx| |
134 |baseIdx| |
133 |
135 |
134 baseIdx := index * 2. |
136 baseIdx := index * 2. |
135 self basicAt:(baseIdx - 1) put:aComplex real. |
137 self basicAt:(baseIdx - 1) put:aComplex real. |
136 self basicAt:(baseIdx) put:aComplex imaginary. |
138 self basicAt:(baseIdx) put:aComplex imaginary. |
|
139 ! |
|
140 |
|
141 at:index put:realPart i:imaginaryPart |
|
142 |baseIdx| |
|
143 |
|
144 baseIdx := index * 2. |
|
145 self basicAt:(baseIdx - 1) put:realPart. |
|
146 self basicAt:(baseIdx) put:imaginaryPart. |
|
147 ! |
|
148 |
|
149 imaginaryAt:index |
|
150 |baseIdx| |
|
151 |
|
152 baseIdx := index * 2. |
|
153 ^ (self basicAt:(baseIdx)) |
|
154 ! |
|
155 |
|
156 realAt:index |
|
157 |baseIdx| |
|
158 |
|
159 baseIdx := index * 2. |
|
160 ^ (self basicAt:(baseIdx - 1)) |
137 ! ! |
161 ! ! |
138 |
162 |
139 !ComplexFloatArray methodsFor:'queries'! |
163 !ComplexFloatArray methodsFor:'queries'! |
140 |
164 |
141 defaultElement |
165 defaultElement |