五度圏を描くプログラム
十進
BASIC
_グラフィックス へ戻る
大学生のための数学 へ戻る
2026.01.26
コピペ用テキストエリア:
OPTION BASE 0 DIM A$(12) LET A$(0)="C" LET A$(1)="G" LET A$(2)="D" LET A$(3)="A" LET A$(4)="E" LET A$(5)="B" LET A$(6)="♭G" LET A$(7)="♭D" LET A$(8)="♭A" LET A$(9)="♭E" LET A$(10)="♭B" LET A$(11)="F" DEF agl(p,w)=PI/2-2*PI*p/12+(w-1)*PI/6 SET WINDOW -5.2,5.2,-5.2,5.2 FOR i=0 TO 12 !IF j=1 THEN STR$(i)=A LET th=agl(i,1) PLOT TEXT ,AT COS(th),SIN(th): A$(i) NEXT i END ################################################################################ LET x=0 DEF agl(p,w)=PI/2-2*PI*p/12+(w-1)*PI/6 SET WINDOW -5.2,5.2,-5.2,5.2 FOR i=0 TO 15 LET x=x+1 LET th=agl(i,0.96) IF i=6 THEN LET i=-6 PLOT TEXT ,AT COS(th),SIN(th): STR$(i) IF x=12 THEN GOTO 10 NEXT i 10 END
※ 参照:
大学生のための数学 > 数理論 > 五度圏とマイナス6進数