COLOR 2：PR INT Dendrogra皿 （ ；ANAL． MET＄（IHO）； 皿ethod ） COLOR 3：LPRINT TAB（10）； Object number （ Left to Right）
LPRINT TAB（le）： PRINT TAB（49）；：COLOR O FOR 1＝1 TO NC
LPRINT USING O（＃＃＃） ；MAT（1， 1），
IF 1 MOD 5＝O THEN LPRINT ： LPRINT TAB（le）；
vaXT I
t一一一一一一一一一晶一一fンドログラムの表示一一一……一………一一一一一一一一一 FOR 1＝1 TO NC
XX（MAT（1， 1））＝1＊XL NEXT 1
FOR 1＝1 TO NC−1
IF IY（1）〈e THEN A＝一IY（1） ELSE A＝IY（1）
IP＝IY（1）／256 JP＝A−IP＊256 va2＝XMIN（IP， JP）
Yl＝Yl（IP）＊YL Y2＝YH2＊YL Y3＝Y3（JP）＊YL
PX＝XX（IP） ： PY＝Yl ： GOSUB 52290 ： MOVE PY＝Y2 ： GOSUB 52360 ： DRAW
PX＝XX（JP） ： GOSUB 52360 ： DRAW
PY＝Y3 ： GOSUB 52360 ： DRAW XX（IP）＝（xx（IP）＋XX（JP））／2
資料4 プログラム
34510 Y3（IP）＝va2 34520 Y3（JP）＝YH2
・34530・NEXT ・1
34540 一一一一一一一一一一一一一一一・一一一一一一一一一一一一一一一一一 一一一一一一 一L一一 一一一一一T一一7一一r一一一一
34550 PX＝XX（IP） ： PY＝Y2 ： GOSUB 52290 ： MOVE
34560 PY＝320： GOSUB 52360 i PRAW
34570． RETURN
40000 一一一一一…一一一一一一一一一一一一一一一一一一M一一一一一一一一m一 一L一一一一 …一一一一 一
40010 皿atrix inver．sion逆行列
40020 一一一一．一一▽一一一一一一曽m一一．曽層一一一一 一一一一一一一曽一 一 一一＝一一一一一一一一一一幽t 一一一 一一一
40030 FOR IP＝1 TO N 40040
40eso 40e6e 40070 40080 40090 40100 40110 40120 4013e・
40140
40150
40160・
40170 40180 40190
AP＝1／RI（IP， IP）
FOR 1＝1 TO N IF 1＝IP THEN 40110 FOR J＝1． TO N IF J＝IP THEN 40100
RI（1， J）＝RI（1， J）一RI（L IP）＊RI（IP， J）＊AP NEXT J
NEXT 1
FOR J＝ 1 TO N
RI（IP， J）＝RI（IP， J）＊AP RI（J， IP）＝一一RI（J， IP）＊AP NEXT J
RI（IP， IP）＝AP
NEXT IP
40200 RETURN
520eO 一一一一一一一一一一一一一 一一一T一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一．一一．一一一
52010t 汎用グラフィックサブルーチン
52020 ．一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一…一一一一一一一一一r一一一
52030 PLOT． STA貯．初期化サブルーチン
52040． ［argument・］ KO， LO， Kl， Ll， PO， QO， Pl， Ql， ICLEAR
52050 1．Screen definition
52060 （KO， LO）一（K1， L1）・graphi・・creeri para血・ter．s．
52070 ． （PO， QO）一（P1， Q1）＝．Plot range． para皿eters 52080
52090 2． if initial screen clear is needed，
52100 ICLEAR ＝ 1 character， t 2 graphic，
52110 ； 3 both， ＝ others not clear
52120
52130 IF ICLEAR＝1 OR ICLEAR＝2 OR ICLEAR＝3 THEN GosUB・52560： SCREEN， CLEAR 52140 K2；Kl−KO
52150 L2＝Ll 一LO 52160 Pl＝Pl−PO 52170 Ql＝Ql−QO
52180 K3＝KO ： L3tLl： initial move 52190 P2＝PO ： Q2i・QO
522eO 一一一一一一一r一一一一一一一一一一一一一一一一一一一一一一一一．一L一一一．一 一一一一 一一一一一一一一一一一一一一一一．一
52210 graphic screen definition， please皿odify 52220 （in this case， for pc8801）
52230 一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一
52240 SCREEN 3
52250 WINDOW（KO， LO）一・（Kl， Ll）
52260 VIEW （KO， LO）一（Kl， Ll）
52270 RETVRN
52280 一一一一一一一…一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一 52290 MOVE 皿ovePostion
52300 ［ARGUMENTS］ px， PY一一一HOR IZONTAL and vertical coordinates 52310 一一一一一一一一一一一一一一一一一一一一一一一…一一一一一一一一一一…一一一一一一一一一一一一一一一一
52320 GeSVB 52440 52330 K3＝K4 ： L3＝L4 52340 RETURN
52350
52360 DRAW draw line
52370 ［arguments］ PX， PY 一一一 horizontal and vertical coordinates 52380
52390 CeSUB 52440
52400 LINE（K3， L3）一（K4， L4），1＝ if you need ， Please 皿odify 52410 K3＝K4 ： L3＝L4
52420 RETVRN
52430
52440 CONYERT． CHECK
52450 （system ca］led subroutine）
52460
52470 K4＝INT（（PX一一PO）IPI＊K2＋． 5）＋KO 52480 L4＝Ll−INT（（PY−QO）IQI＊L2＋． 5）
52490 IF K4＞Kl TmeN K4＝K1 52500 1FK4〈KO THEN K4＝KO 52510 IF L4＞Ll TmeN L4＝L1 52520 IF L4〈LO THEN L4＝LO 52530 P2＝PX： Q2；PY 52540 RETURN
52550
52560 SCREEN CLEAR clear screen
52570 ［argu皿ent｝ ICLEAR − clear type（＝1 character，＝2 graphic clear）
52580
52590 CLS ICLEAR： if you need ，・ please modify 52600 RETURN
60000 60010 DATA 60020
60030DATA l 個体及び対象の数 n
60040DATA ＝ 変量．の数 m 60050 DATA60060 DATA
資料4 プログラム
資料5 分析教科書一覧
噸蝿・睡1灘繹軸属避｝麹
・魑1堕i型物趣盤1酪…幽……麹・墜
堕i