- TI nspire
[TI-nspire] Kron Reduction, Node Elimination 프로그램
-
- 2024.07.27 - 01:58 2015.11.03 - 12:13 3783
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 확장 라이브러리에 구현되어 있습니다.
[TI-nspire] 행렬의 입력 & 계산 - 확장 라이브러리 Matrix Library
-
25
세상의모든계산기 님의 최근 댓글
PC 소프트웨어에서 script Editor 로 소스코드를 쉽게 복사 -> AI에게 문의/개선요청 할 수 있습니다. 잘 되거나, 잘 안되는 부분이 있으면 대댓글 남겨주세요. 2026 10.16 AI로 딸깍하니까, lua 프로그램으로 바꿔주네요. 사용법 Root Locus 1+K*N/D=0 EX: (6s^2+5s+2)/(6s^3(s^2+7s+16)) INPUT (Calculator page): rl_num:={6,5,2} rl_den:={6,42,96,0,0,0} optional: rl_T:=10 rl_D:=1 Coeffs are descending powers of s. Back on graph page it refreshes itself, else press [r] or [enter]. KEYS: [+] [-] Kmax zoom, [0] reset, [r] reload MARKS: x=pole, o=zero, red line=real axis, gray dash=asymptote, box=break pt, diamond=j-cross VARS: rl_Kmax rl_sigma rl_r rl_JK rl_Jw 첨부파일 rlocus_lua.tns 2026 10.16 링크가 깨졌다고 하시니 404 에러가 나는 아래 링크를 말씀하시는 것 같은데 https://digilander.libero.it/fpirozzi/fourier.zip 이것은 TI-89 / TI-92 용 파일이며 [TI-92][TI-89] Fourier Transform Library https://allcalc.org/52455 링크의 Attached files + 안에 있습니다. 2026 09.11 본문에 사용된 nspire 용 파일은 본문 하단에 Attached files + 안에 있습니다. 클릭하면 표시됩니다. 2026 09.11 이 사이트에 올라와 있는 첨부 파일은 본문 하단에 있는 [Attached files +] 버튼을 눌러야 리스트가 보입니다. 2026 09.07