Show us what have you developed so far.
my program ,
(defun jsyq_read_basic_data()
(setq jsyq_read_data_circle_check 0)
(setq jsyq_read_data_text (open "c:\\lisp\\Datas\\jsyq_datas.txt" "r"))
(setq jsyq_data_list '() jsyq_read_str 0)
(while (= jsyq_read_data_circle_check 0)
(if (/= jsyq_read_str nil)
(progn
(setq jsyq_read_str (read-line jsyq_read_data_text))
(setq jsyq_data_list (cons jsyq_read_str jsyq_data_list))
)
(setq jsyq_read_data_circle_check 1)
)
)
(setq jsyq_data_list (cdr jsyq_data_list))
(setq jsyq_data_basic_g_list (cadr (cddddr jsyq_data_list)))
(setq jsyq_data_basic_p_list (car (cddddr jsyq_data_list)))
(setq jsyq_data_basic_e_list (car (cdddr jsyq_data_list)))
(setq jsyq_data_basic_m_list (car (cddr jsyq_data_list)))
(setq jsyq_data_basic_h_list (car (cdr jsyq_data_list)))
(setq jsyq_data_basic_b_list (car jsyq_data_list))
)
the items in the textbook
*jsyq_g_list*G1*G2*G3*G4*G5*
*jsyq_p_list*P1*P2*P3*P4*P5*P6*
*jsyq_e_list*E1*E2*E3*E4*E5*E6*E7*
*jsyq_m_list*M1*M2*M3*M4*M5*M6*M7*M8*
*jsyq_h_list*H1*H2*H3*H4*H5*H6*H7*H8*H9*
*jsyq_b_list*B1*B2*B3*B4*B5*B6*B7*B8*B9*B10*