- 주의 1) 거래 전 가입자 실명과 장터 회원정보, 계좌명이 같은지 반드시 확인하세요. 3자 사기에 유의해 주세요.[CLICK]
- 2) 고액 거래를 하거나 아이디 도용이 의심될 경우, 본인인증 이력 확인으로 안전하게 거래하세요.[CLICK]
- 3) 적합성평가(KC, 전자파 인증)를 받지 않은 전자제품 등을 판매하는 행위는 불법입니다.[CLICK]
- 안내 장터 거래에 앞서, 안전하게 거래 하는 방법을 꼭 확인해주세요.
번호는 지웠습니다.
쪽지로 연락 부탁 드립니다 ! ..
-> 위 내용은 2014년05월14일 18시09분06초에 추가되었습니다.
Function MyLagrange(x, xdRng, ydRng)
Dim xd(NMAX) As Double, yd(NMAX) As Double
Dim nd As Integer '// 정수
Dim i As Integer '// 정수
Dim xdVar As Variant, ydVar As Variant
If xdRng.Rows.Count <> ydRng.Rows.Count Then
MyLagrange = CVErr(xlErrNum)
Exit Function
End If
For i = 0 To nd '// nd 정수
y = y + yd(i) * LagrangeFunction(i, x, nd, xd, yd)
Next i
MyLagrange = Lagrange(x, nd, xd, yd)
End Function
⦙(nd, xd, yd를 인수 xdRng, ydRng로부터 계산할 것!)
⦙(※ 주의사항 : 0부터 nd까지이므로, 데이터갯수 = nd+1 이다.)
⦙( 따라서, nd = 데이터갯수-1 이다.)
⦙
이거 워크시트에서 받아서 푸는건데 해결 부탁드립니다.
가격은 문자로 연락주세요! |
|
거래희망가격
등록안내
처음이라서ㅠㅠ 어수룩한데.. 연락부탁드립니다.