- TI nspire
[TI-nspire] Kron Reduction, Node Elimination 프로그램
-
- *.165.6.43
- 2024.07.27 - 01:58 2015.11.03 - 12:13 875
Define LibPub kronreduction(smat,row)= Func : :If dim(smat)[1]<row Then : Goto end :EndIf : :Local tmat,i,j :newMat(dim(smat)[1],dim(smat)[2])→tmat : :For i,1,dim(smat)[1] : For j,1,dim(smat)[2] : smat[i,j]-((smat[i,row]*smat[row,j])/(smat[row,row]))→tmat[i,j] : EndFor :EndFor : :Return tmat :Lbl end :EndFunc
Kron Reduction 이라는 것을 알게되어, 개략적인 기능만을 구현하여 보았습니다.
간단한 함수입니다만, 행렬을 어떻게 처리하는게 좋을지 몰라서 추가작업은 하지 않도록 하겠습니다. Matrix 확장 라이브러리와 통합하는게 좋을 것 같은데... 의견이 있으시면 댓글 남겨주세요.
행렬에서 특정 행과 열을 삭제하는데 사용된
matrix\delete(mat,#row,#col) 함수는 matrix 확장 라이브러리에 구현되어 있습니다.
