DEF co(t)=r*COS(RAD(t))
DEF si(t)=r*SIN(RAD(t))

SUB Venn(m$)
   SET WINDOW -1.5,1.5,-1.5,1.5
   SET LINE width 2
   PLOT LINES: -1,-1; 1,-1; 1,1; -1,1; -1,-1
   LET r=0.35
   DRAW circle WITH SHIFT(co(220),si(190))
   DRAW circle WITH SHIFT(co(320),si(190))

   SET TEXT HEIGHT 0.2 !記号を書く
   SET TEXT JUSTIFY "center","half"
   SET TEXT background "opaque"

   PLOT TEXT ,AT -0.8,1: "Ｕ"
   PLOT TEXT ,AT -0.7,0.3:"Ａ"
   PLOT TEXT ,AT 0.7,0.3:"Ｂ"
   PLOT TEXT ,AT 0.4,0.7:STR$(Q)
   PLOT TEXT ,AT 0,0:STR$(W)
   PLOT TEXT ,AT -0.4,0:STR$(X)
   PLOT TEXT ,AT 0.5,0:STR$(Y)
END SUB

PICTURE circle
   FOR i=0 TO 360
      PLOT LINES: COS(RAD(i))/2,SIN(RAD(i))/2;
   NEXT i
   PLOT LINES
END PICTURE

PRINT
PRINT "ベン図を描きます。"
INPUT PROMPT "全体集合の要素の数？ ":U
INPUT PROMPT "ＡにもＢにも含まれない要素の数？ ":Q
INPUT PROMPT "Ａに含まれる要素の数？ ":A
INPUT PROMPT "Ｂに含まれる要素の数？ ":B
LET W=(A+B)-(U-Q)
LET X=A-W
LET Y=B-W
CALL Venn(m$)
PRINT
END