Mercurial > hg > map

comparison userProgramsTim/sloga2iloga.m @ 38:c2204b18f4a2 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
End nov big change
author Ray Meddis <rmeddis@essex.ac.uk>
date Mon, 28 Nov 2011 13:34:28 +0000
parents
children
comparison
equal deleted inserted replaced
37:771a643d5c29 38:c2204b18f4a2
1 function [iOut] = sloga2iloga(sIn, gVar)
2 % string logatome to integer logatome
3 % Bernd Meyer / Medical Physik / University of Oldenburg
4 % bernd.meyer@uni-oldenburg.de; March 2005
5
6 if ~exist('gVar')
7 gVar.iVerboseFlag = 1;
8 end
9
10 sIn = strrep(sIn,' ','');
11
12 switch sIn
13 case 'adda'; iOut = 001;
14 case 'atta'; iOut = 002;
15 case 'agga'; iOut = 003;
16 case 'acka'; iOut = 004;
17 case 'affa'; iOut = 005;
18 case 'assa'; iOut = 006;
19 case 'abba'; iOut = 007;
20 case 'appa'; iOut = 008;
21 case 'awwa'; iOut = 009;
22 case 'azza'; iOut = 010;
23 case 'amma'; iOut = 011;
24 case 'anna'; iOut = 012;
25 case 'ascha'; iOut = 013;
26 case 'alla'; iOut = 014;
27 case 'edde'; iOut = 015;
28 case 'ette'; iOut = 016;
29 case 'egge'; iOut = 017;
30 case 'ecke'; iOut = 018;
31 case 'effe'; iOut = 019;
32 case 'esse'; iOut = 020;
33 case 'ebbe'; iOut = 021;
34 case 'eppe'; iOut = 022;
35 case 'ewwe'; iOut = 023;
36 case 'ezze'; iOut = 024;
37 case 'emme'; iOut = 025;
38 case 'enne'; iOut = 026;
39 case 'esche'; iOut = 027;
40 case 'escha'; iOut = 027;
41 case 'elle'; iOut = 028;
42 case 'iddi'; iOut = 029;
43 case 'itti'; iOut = 030;
44 case 'iggi'; iOut = 031;
45 case 'icki'; iOut = 032;
46 case 'iffi'; iOut = 033;
47 case 'issi'; iOut = 034;
48 case 'ibbi'; iOut = 035;
49 case 'ippi'; iOut = 036;
50 case 'iwwi'; iOut = 037;
51 case 'izzi'; iOut = 038;
52 case 'immi'; iOut = 039;
53 case 'inni'; iOut = 040;
54 case 'ischi'; iOut = 041;
55 case 'illi'; iOut = 042;
56 case 'oddo'; iOut = 043;
57 case 'otto'; iOut = 044;
58 case 'oggo'; iOut = 045;
59 case 'ocko'; iOut = 046;
60 case 'offo'; iOut = 047;
61 case 'osso'; iOut = 048;
62 case 'obbo'; iOut = 049;
63 case 'oppo'; iOut = 050;
64 case 'owwo'; iOut = 051;
65 case 'ozzo'; iOut = 052;
66 case 'ommo'; iOut = 053;
67 case 'onno'; iOut = 054;
68 case 'oscho'; iOut = 055;
69 case 'ollo'; iOut = 056;
70 case 'uddu'; iOut = 057;
71 case 'uttu'; iOut = 058;
72 case 'uggu'; iOut = 059;
73 case 'ucku'; iOut = 060;
74 case 'uffu'; iOut = 061;
75 case 'ussu'; iOut = 062;
76 case 'ubbu'; iOut = 063;
77 case 'uppu'; iOut = 064;
78 case 'uwwu'; iOut = 065;
79 case 'uzzu'; iOut = 066;
80 case 'ummu'; iOut = 067;
81 case 'unnu'; iOut = 068;
82 case 'uschu'; iOut = 069;
83 case 'ullu'; iOut = 070;
84 case 'dadd'; iOut = 071;
85 case 'tatt'; iOut = 072;
86 case 'gagg'; iOut = 073;
87 case 'kakk'; iOut = 074;
88 case 'faff'; iOut = 075;
89 case 'sass'; iOut = 076;
90 case 'babb'; iOut = 077;
91 case 'papp'; iOut = 078;
92 case 'dedd'; iOut = 079;
93 case 'tett'; iOut = 080;
94 case 'gegg'; iOut = 081;
95 case 'kekk'; iOut = 082;
96 case 'feff'; iOut = 083;
97 case 'sess'; iOut = 084;
98 case 'bebb'; iOut = 085;
99 case 'pepp'; iOut = 086;
100 case 'didd'; iOut = 087;
101 case 'titt'; iOut = 088;
102 case 'gigg'; iOut = 089;
103 case 'kikk'; iOut = 090;
104 case 'fiff'; iOut = 091;
105 case 'siss'; iOut = 092;
106 case 'bibb'; iOut = 093;
107 case 'pipp'; iOut = 094;
108 case 'dodd'; iOut = 095;
109 case 'tott'; iOut = 096;
110 case 'gogg'; iOut = 097;
111 case 'kokk'; iOut = 098;
112 case 'foff'; iOut = 099;
113 case 'soss'; iOut = 100;
114 case 'bobb'; iOut = 101;
115 case 'popp'; iOut = 102;
116 case 'dudd'; iOut = 103;
117 case 'tutt'; iOut = 104;
118 case 'gugg'; iOut = 105;
119 case 'kukk'; iOut = 106;
120 case 'fuff'; iOut = 107;
121 case 'suss'; iOut = 108;
122 case 'bubb'; iOut = 109;
123 case 'pupp'; iOut = 110;
124 case 'dahd'; iOut = 111;
125 case 'taht'; iOut = 112;
126 case 'gahg'; iOut = 113;
127 case 'kahk'; iOut = 114;
128 case 'fahf'; iOut = 115;
129 case 'sahs'; iOut = 116;
130 case 'bahb'; iOut = 117;
131 case 'pahp'; iOut = 118;
132 case 'dehd'; iOut = 119;
133 case 'teht'; iOut = 120;
134 case 'gehg'; iOut = 121;
135 case 'kehk'; iOut = 122;
136 case 'fehf'; iOut = 123;
137 case 'sehs'; iOut = 124;
138 case 'behb'; iOut = 125;
139 case 'pehp'; iOut = 126;
140 case 'died'; iOut = 127;
141 case 'tiet'; iOut = 128;
142 case 'gieg'; iOut = 129;
143 case 'kiek'; iOut = 130;
144 case 'fief'; iOut = 131;
145 case 'sies'; iOut = 132;
146 case 'bieb'; iOut = 133;
147 case 'piep'; iOut = 134;
148 case 'dohd'; iOut = 135;
149 case 'toht'; iOut = 136;
150 case 'gohg'; iOut = 137;
151 case 'kohk'; iOut = 138;
152 case 'fohf'; iOut = 139;
153 case 'sohs'; iOut = 140;
154 case 'bohb'; iOut = 141;
155 case 'pohp'; iOut = 142;
156 case 'duhd'; iOut = 143;
157 case 'tuht'; iOut = 144;
158 case 'guhg'; iOut = 145;
159 case 'kuhk'; iOut = 146;
160 case 'fuhf'; iOut = 147;
161 case 'suhs'; iOut = 148;
162 case 'buhb'; iOut = 149;
163 case 'puhp'; iOut = 150;
164 otherwise
165 if gVar.iVerboseFlag
166 disp(['no logatome ' sIn ' found in list']);
167 end
168 iOut = -1;
169 end % of switch