mandel59

-- Unihanのデータを使って、部首ごとの文字数をカウントする。
-- 複数の部首が登録されている漢字については、それぞれの部首で重複してカウントされる。
-- 実行コマンド: erq --init mojidata.erq < unihan_radicals.erq

table temp.radicals_chart =
  unihan_kRSUnicode
  join regexp_all(value, '(?<r>\d+)''*\.(?<s>\d+)')
  { UCS, unpack groups {r, s} }
  join radicals on r=radical
  {radical: 部首漢字 => count: count(distinct UCS)}

mandel59

MJ文字情報一覧の部首・内画数のうち、下記リストのものは誤りが含まれると思われますが、こちらは修正可能でしょうか？ ご確認いただきたく存じます。

リストは空行区切りのレコードになっていて、各レコード各行にMJ文字図形名、漢字、MJ文字情報一覧表に記載されている部首・内画数（複数ある場合は複数行にわたって記載。正しい部首・内画数も含む。）を順に記載しています。

以下、リスト

MJ000026
㐭
亠部6画
广部8画

mandel59

-- erq <matsudo-population-density.erq > matsudo-population-density.svg
topojson_feature(readfile('r2ka12207.topojson'), 'town')
  {*, unpack properties {KEY_CODE, AREA, JINKO}}
  {*, population_density: JINKO / AREA * 1000000}
  output vega lite svg with
    projection mercator,
    mark geoshape,
    encoding {
      color: population_density q {title: "人口密度[人/km²]"}
    },

mandel59

{
  "$schema": "https://vega.github.io/schema/vega-lite/v5.json",
  "width": 500,
  "height": 300,
  "data": {
    "url": "https://geoshape.ex.nii.ac.jp/ka/topojson/2020/12/r2ka12207.topojson",
    "format": {
      "type": "topojson",
      "feature": "town"
    }

mandel59

-- erq <jazh-consonants.erq >jazh-consonants.svg
attach '/Users/mandel59/ws/mojidata/packages/mojidata/dist/moji.db' as mojidata;;
with ja as (k: unihan_kJapaneseOn join o: string_split(k.value, ' ') {UCS, ja_c: ifnull(regexp_substr(lower(o.value), '^(ch|ts|sh|[hfbmtdnrszjkgwy])'), '∅') })
with zh as (k: unihan_kMandarin join p: string_split(k.value, ' ') {UCS, zh_c: ifnull(regexp_substr(p.value, '^(zh|ch|sh|[bpmfdtnlzcsrjqxgkhwy])'), '∅') })
joyo { UCS: 漢字 } join ja using (UCS) join zh using (UCS) { ja_c, zh_c => count: count(distinct UCS) }
output vega lite svg with
  encoding {
    x: ja_c n sort['h','f','b','m','t','ch','ts','d','n','r','s','sh','z','j','k','g','w','y','∅'],
    y: zh_c n sort['b','p','m','f','d','t','n','l','zh','ch','sh','z','c','s','j','q','x','r','g','k','h','w','y','∅']
  },

mandel59

mandel59

mandel59

mandel59

From 5744eee9f8eae1f499d024631eedddea114d64e6 Mon Sep 17 00:00:00 2001
From: Ryusei Yamaguchi <mandel59@gmail.com>
Date: Sun, 7 Aug 2022 04:06:49 +0900
Subject: [PATCH] Fix 7 entries

U+5448, U+59C9, U+8821, U+947D, U+9855, U+20957, U+2BAA2
---
 IDS.TXT | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

mandel59

-- 常用漢字と規範字の対応表
with joyo_itaiji (常用漢字, 異体字) as (joyo_kangxi {漢字, 康熙字典体}; joyo {漢字, 漢字} distinct)
with joyo_zvar (常用漢字, 異体字) as (
    j: joyo_itaiji
        join u: unihan_variant on u.property = 'kZVariant' and u.UCS = j.異体字
        {常用漢字, 異体字};
    j: joyo_itaiji
        join m: mjsm_JIS包摂規準UCS統合規則 on j.異体字 = m.縮退UCS
        join mji on mji.MJ文字図形名 = m.MJ文字図形名
        [実装したUCS is not null]