- TI nspire
[TI-nspire] [program] 내 우산은 어디에? - 순열(Permutation)
-
- 2024.07.27 - 01:59 2015.09.28 - 20:35 3866 3
문제 :
비오는 어느 날에 5명이 한 집에 모였습니다. 모임이 끝나고 돌아가려는데 갑자기 정전이 되어 어떤게 자기 우산인지 알 수 없게 되었고, 하는 수 없이 모두 아무 우산을 하나씩 들고 집으로 돌아갔습니다.
이 때 자기 우산을 가져간 사람이 0명일 경우의 수부터 5명인 경우의 수까지 차례대로 구하시오.
Define umb()=
Prgm
:
:Local this_combi
:Local my_umb,n_person
:
:newList(6)→n_person
:
:For d5,1,5
:
: For d4,1,5
: If d5=d4 Then
: Goto pass4
: EndIf
:
: For d3,1,5
: If d5=d3 or d4=d3 Then
: Goto pass3
: EndIf
:
: For d2,1,5
: If d5=d2 or d4=d2 or d3=d2 Then
: Goto pass2
: EndIf
:
: For d1,1,5
: If d5=d1 or d4=d1 or d3=d1 or d2=d1 Then
: Goto pass1
: EndIf
:
:© New Permutation list generated
: 1*{d5,d4,d3,d2,d1}→this_combi
: 0→my_umb
:
:© Count matching person
: For each_d,1,5
: If this_combi[each_d]=each_d Then
: my_umb+1→my_umb
: EndIf
: EndFor
:
: n_person[my_umb+1]+1→n_person[my_umb+1]
:
:© Disp "Test Disp",this_combi,"My Umb=",my_umb
:
: Lbl pass1
: EndFor
:
: Lbl pass2
: EndFor
:
: Lbl pass3
: EndFor
:
: Lbl pass4
: EndFor
:
:EndFor
:
:Disp "zero, one, ...., five = ",n_person
:EndPrgm
umb()
zero, one, ...., five = {44,45,20,10,0,1}
Done
-
25
세상의모든계산기 님의 최근 댓글
본문의 변환 위젯에 사용된 전서체 폰트는 대만의 최고 학술 연구 기관인 중앙연구원(Academia Sinica)에서 제공하는 ‘숭희전체(崇羲篆體)’로 전통 한자 서체인 소전(小篆)을 현대 컴퓨터 폰트(글꼴)로 구축한 오픈소스 프로젝트로 개발되었습니다. https://xiaoxue.iis.sinica.edu.tw/chongxi/download.htm 2026 10.20 예제1) 예제2) 예제3) 추가옵션 2026 10.18 PC 소프트웨어에서 script Editor 로 소스코드를 쉽게 복사 -> AI에게 문의/개선요청 할 수 있습니다. 잘 되거나, 잘 안되는 부분이 있으면 대댓글 남겨주세요. 2026 10.16 AI로 딸깍하니까, lua 프로그램으로 바꿔주네요. 세상 참... 본문의 ti-basic 기반으로 만들었고, 서로 문제를 일으킬 수 있을 듯 하여 별개의 파일로 작성하였습니다. 1.1 Page : 설명 1.2 Page : 그래프 1.3 Page : Calculator 사용법 Root Locus 1+K*N/D=0 EX: (6s^2+5s+2)/(6s^3(s^2+7s+16)) INPUT (Calculator page 1.3 ): rl_num:={6,5,2} rl_den:={6,42,96,0,0,0} or num(6s^2+5s+2) den(6s^3(s^2+7s+16)) 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