134 lines
7.3 KiB
Matlab
134 lines
7.3 KiB
Matlab
CONST DIM KEYWORD$(N1) = {"CAN YOU ","CAN I ","YOU ARE ","YOU'RE ","I DON'T ","I FEEL ",
|
|
"WHY DON'T YOU ","WHY CAN'T I ","ARE YOU ","I CAN'T ","I AM ","I'M ",
|
|
"YOU ","I WANT ","WHAT ","HOW ","WHO ","WHERE ","WHEN ","WHY ",
|
|
"NAME ","CAUSE ","SORRY ","DREAM ","HELLO ","HI ","MAYBE ",
|
|
"NO","YOUR ","ALWAYS ","THINK ","ALIKE ","YES ","FRIEND ",
|
|
"COMPUTER", "NOKEYFOUND"}
|
|
|
|
CONST DIM WORDIN$(N2) = " ARE "," WERE "," YOU "," YOUR "," I'VE "," I'M "," ME "
|
|
|
|
CONST DIM WORDOUT$(N2) = " AM "," WAS "," I "," MY "," YOU'VE "," YOU'RE "," YOU "
|
|
|
|
CONST DIM REPLIES$(N3) = {"DON'T YOU BELIEVE THAT I CAN*",
|
|
"PERHAPS YOU WOULD LIKE TO BE ABLE TO*",
|
|
"YOU WANT ME TO BE ABLE TO*",
|
|
"PERHAPS YOU DON'T WANT TO*",
|
|
"DO YOU WANT TO BE ABLE TO*",
|
|
"WHAT MAKES YOU THINK I AM*",
|
|
"DOES IT PLEASE YOU TO BELIEVE I AM*",
|
|
"PERHAPS YOU WOULD LIKE TO BE*",
|
|
"DO YOU SOMETIMES WISH YOU WERE*",
|
|
"DON'T YOU REALLY*",
|
|
"WHY DON'T YOU*",
|
|
"DO YOU WISH TO BE ABLE TO*",
|
|
"DOES THAT TROUBLE YOU?",
|
|
"TELL ME MORE ABOUT SUCH FEELINGS.",
|
|
"DO YOU OFTEN FEEL*",
|
|
"DO YOU ENJOY FEELING*",
|
|
"DO YOU REALLY BELIEVE I DON'T*",
|
|
"PERHAPS IN GOOD TIME I WILL*",
|
|
"DO YOU WANT ME TO*",
|
|
"DO YOU THINK YOU SHOULD BE ABLE TO*",
|
|
"WHY CAN'T YOU*",
|
|
"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*",
|
|
"WOULD YOU PREFER IF I WERE NOT*",
|
|
"PERHAPS IN YOUR FANTASIES I AM*",
|
|
"HOW DO YOU KNOW YOU CAN'T*",
|
|
"HAVE YOU TRIED?",
|
|
"PERHAPS YOU CAN NOW*",
|
|
"DID YOU COME TO ME BECAUSE YOU ARE*",
|
|
"HOW LONG HAVE YOU BEEN*",
|
|
"DO YOU BELIEVE IT IS NORMAL TO BE*",
|
|
"DO YOU ENJOY BEING*",
|
|
"WE WERE DISCUSSING YOU -- NOT ME.",
|
|
"OH, I*",
|
|
"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?",
|
|
"WHAT WOULD IT MEAN TO YOU IF YOU GOT*",
|
|
"WHY DO YOU WANT*",
|
|
"SUPPOSE YOU SOON GOT*",
|
|
"WHAT IF YOU NEVER GOT*",
|
|
"I SOMETIMES ALSO WANT*",
|
|
"WHY DO YOU ASK?",
|
|
"DOES THAT QUESTION INTEREST YOU?",
|
|
"WHAT ANSWER WOULD PLEASE YOU THE MOST?",
|
|
"WHAT DO YOU THINK?",
|
|
"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?",
|
|
"WHAT IS IT THAT YOU REALLY WANT TO KNOW?",
|
|
"HAVE YOU ASKED ANYONE ELSE?",
|
|
"HAVE YOU ASKED SUCH QUESTIONS BEFORE?",
|
|
"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?",
|
|
"NAMES DON'T INTEREST ME.",
|
|
"I DON'T CARE ABOUT NAMES-- PLEASE GO ON.",
|
|
"IS THAT THE REAL REASON?",
|
|
"DON'T ANY OTHER REASONS COME TO MIND?",
|
|
"DOES THAT REASON EXPLAIN ANY THING ELSE?",
|
|
"WHAT OTHER REASONS MIGHT THERE BE?",
|
|
"PLEASE DON'T APOLOGIZE.",
|
|
"APOLOGIES ARE NOT NECESSARY.",
|
|
"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?",
|
|
"DON'T BE SO DEFENSIVE!",
|
|
"WHAT DOES THAT DREAM SUGGEST TO YOU?",
|
|
"DO YOU DREAM OFTEN?",
|
|
"WHAT PERSONS APPEAR IN YOUR DREAMS?",
|
|
"ARE YOU DISTURBED BY YOUR DREAMS?",
|
|
"HOW DO YOU DO--PLEASE STATE YOUR PROBLEM.",
|
|
"YOU DON'T SEEM QUITE CERTAIN.",
|
|
"WHY THE UNCERTAIN TONE?",
|
|
"CAN'T YOU BE MORE POSITIVE?",
|
|
"YOU AREN'T SURE?",
|
|
"DON'T YOU KNOW?",
|
|
"ARE YOU SAYING NO JUST TO BE NEGATIVE?",
|
|
"YOU ARE BEING A BIT NEGATIVE.",
|
|
"WHY NOT?",
|
|
"ARE YOU SURE?",
|
|
"WHY NO?",
|
|
"WHY ARE YOU CONCERNED ABOUT MY*",
|
|
"WHAT ABOUT YOUR OWN*",
|
|
"CAN YOU THINK OF A SPECIFIC EXAMPLE?",
|
|
"WHEN?",
|
|
"WHAT ARE YOU THINKING OF?",
|
|
"REALLY, ALWAYS?",
|
|
"DO YOU REALLY THINK SO?",
|
|
"BUT YOU ARE NOT SURE YOU*",
|
|
"DO YOU DOUBT YOU*",
|
|
"IN WHAT WAY?",
|
|
"WHAT RESEMBLANCE DO YOU SEE?",
|
|
"WHAT DOES THE SIMILARITY SUGGEST TO YOU?",
|
|
"WHAT OTHER CONNECTIONS DO YOU SEE?",
|
|
"COULD THERE REALLY BE SOME CONNECTION?",
|
|
"HOW?",
|
|
"YOU SEEM QUITE POSITIVE.",
|
|
"ARE YOU SURE?",
|
|
"I SEE.",
|
|
"I UNDERSTAND.",
|
|
"WHY DO YOU BRING UP THE TOPIC OF FRIENDS?",
|
|
"DO YOUR FRIENDS WORRY YOU?",
|
|
"DO YOUR FRIENDS PICK ON YOU?",
|
|
"ARE YOU SURE YOU HAVE ANY FRIENDS?",
|
|
"DO YOU IMPOSE ON YOUR FRIENDS?",
|
|
"PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU?",
|
|
"DO COMPUTERS WORRY YOU?",
|
|
"ARE YOU TALKING ABOUT ME IN PARTICULAR?",
|
|
"ARE YOU FRIGHTENED BY MACHINES?",
|
|
"WHY DO YOU MENTION COMPUTERS?",
|
|
"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?",
|
|
"DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?",
|
|
"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?",
|
|
"SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?",
|
|
"WHAT DOES THAT SUGGEST TO YOU?",
|
|
"I SEE.",
|
|
"I'M NOT SURE I UNDERSTAND YOU FULLY.",
|
|
"COME COME ELUCIDATE YOUR THOUGHTS.",
|
|
"CAN YOU ELABORATE ON THAT?",
|
|
"THAT IS QUITE INTERESTING."}
|
|
|
|
|
|
DIM S(N1) = {0, 3, 5, 5, 9, 13, 16, 19, 21, 24,
|
|
27, 27, 31, 34, 39, 39, 39, 39, 39, 39,
|
|
48, 50, 54, 58, 62, 62, 63, 68, 73, 75,
|
|
79 ,82 ,89 ,92, 98, 105}
|
|
DIM T(N1) = {2, 1, 3, 3, 3, 2, 2, 1, 2, 2,
|
|
3, 3, 2, 4, 8, 8, 8, 8, 8, 8,
|
|
1, 3, 3, 3, 0, 0, 4, 4, 1, 3,
|
|
2, 6, 2, 5, 6, 5}
|