コピペ用テキストエリア：

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

　※ 参照： 大学生のための数学 ＞ 数理論 ＞ 五度圏とマイナス６進数