close_btn

  • ※ 사이트 내부 통합검색


  • ※ 카카오페이로 기부하기

  • ※ 사이트 내부 통합검색
Atachment
첨부 '2'
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
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 이라는 것을 알게되어, 개략적인 기능만을 구현하여 보았습니다. 

11-03-2015 Image003.png

간단한 함수입니다만, 행렬을 어떻게 처리하는게 좋을지 몰라서 추가작업은 하지 않도록 하겠습니다. Matrix 확장 라이브러리와 통합하는게 좋을 것 같은데... 의견이 있으시면 댓글 남겨주세요.

 

행렬에서 특정 행과 열을 삭제하는데 사용된 
matrix\delete(mat,#row,#col) 함수는 matrix 확장 라이브러리에 구현되어 있습니다.  

 [TI-nspire] 행렬의 입력 & 계산 - 확장 라이브러리 Matrix Library

?