5.4 Расчёт искусственной освещённости рабочего места.
Расчет искусственного освещения необходим для того, чтобы: • исключить наличие резких контрастов; • исключить ослепляемость; • обеспечить постоянство освещения; • предупредить возникновение глубоких и резких теней на освещаемой поверхности или территории; • равномерно и в достаточной мере распределить яркость освещения по освещаемой поверхности или территории.
Ряд единиц, необходимых для расчета искусственного освещения, вытекает из задач данного мероприятия. Эти единицы нормированы, и поддержание их обеспечивает оптимальное распределение световой энергии, а значит, позволяет выполнить поставленные задачи. Основные параметры, которые учитываются при расчете искусственного освещения таковы:
1. Световой поток. Данная величина, измеряемая в люменах (лм) существенна для расчета искусственного освещения, поскольку характеризует мощность лучистой энергии в 1 Вт. 2. Освещенность. Эта характеристика, измеряемая в люксах (лк), важна для расчета искусственного освещения, поскольку определяет отношение светового потока к площади освещаемой поверхности. 3. Сила света измеряется в канделах (кд) и учитывается при расчете искусственного освещения потому, что характеризует плотность светового потока. 4. Светимость важна для расчета искусственного освещения в силу того, что определяет отношения светового потока к источнику освещения. Принятая единица измерения – лм/м2. 5. Яркость. Эта величина принципиальна для расчета искусственного освещения потому, что определяет отношение силы света к освещаемой поверхности.
Приложение
А- Алгоритмы реализации отдельных
частей программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
ExitButton: TButton;
Edit1: TEdit;
AddButton: TButton;
DeleteButton: TButton;
SaveButton: TButton;
InsertButton: TButton;
NameButton: TButton;
IndexButton: TButton;
IndexLabel: TLabel;
LabelIndex2: TLabel;
NameLabel: TLabel;
LabelName2: TLabel;
CapacityLabel: TLabel;
LabelCapacity2: TLabel;
procedure ExitButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure AddButtonClick(Sender: TObject);
procedure NameButtonClick(Sender: TObject);
procedure IndexButtonClick(Sender: TObject);
procedure DeleteButtonClick(Sender: TObject);
procedure SaveButtonClick(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure InsertButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.ExitButtonClick(Sender: TObject);
begin
close;
end;
procedure TForm1.AddButtonClick(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
listbox1.Items.SaveToFile('cars.txt');
labelcapacity2.Caption:=inttostr(listbox1.Items.Capacity);
edit1.Clear;
end;
procedure TForm1.DeleteButtonClick(Sender: TObject);
var I,k5:integer;
begin
if messagedlg('Delete Record', mtconfirmation, [mbYes, mbNo],0)=mrYes then
begin
I:=0;
for I := Listbox1.Items.Count - 1 downto 0 do
begin
if listbox1.selected[I] then
begin
listbox1.Items.Delete(I);
listbox1.Items.SaveToFile('cars.txt');
labelcapacity2.Caption:=inttostr(listbox1.Items.Capacity);
end;
end;
edit1.Clear;
end;
end;
procedure TForm1.SaveButtonClick(Sender: TObject);
begin
listbox1.Items.SaveToFile('cars.txt');
end;
procedure TForm1.InsertButtonClick(Sender: TObject);
var i:integer;
begin
I:=0;
for I := Listbox1.Items.Count - 1 downto 0 do
if listbox1.selected[I] then
begin
ListBox1.Items.Insert(i,Edit1.Text);
listbox1.Items.SaveToFile('cars.txt');
labelcapacity2.Caption:=inttostr(listbox1.Items.Capacity);
edit1.Clear;
end;
end;
procedure TForm1.NameButtonClick(Sender: TObject);
begin
ShowMessage(Listbox1.Items[ListBox1.ItemIndex]);
end;
procedure TForm1.IndexButtonClick(Sender: TObject);
begin
ShowMessage(inttostr(ListBox1.ItemIndex));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text='' then
begin
AddButton.Enabled:=false;
InsertButton.Enabled:=false;
end
else
begin
AddButton.Enabled:=true;
InsertButton.Enabled:=true;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Listbox1.Items.LoadFromFile('cars.txt');
ListBox1.ItemIndex:=0;
labelname2.Caption:='';
labelIndex2.Caption:='';
labelcapacity2.Caption:=inttostr(listbox1.Items.Capacity);
edit1.SetFocus;
AddButton.Enabled:=false;
InsertButton.Enabled:=false;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
labelname2.caption:=Listbox1.Items[ListBox1.ItemIndex];
labelIndex2.caption:=inttostr(ListBox1.ItemIndex);
end;
end.
procedure TPanelForm.Timer1Timer(Sender: TObject);
var
pos: TPoint;
begin
GetCursorPos (pos);
if (pos.X < 10) and (PanelForm.Left < 0) then
begin
range := 20;
PanelForm.Show;
end;
if (range <> 0) then PanelForm.Left := PanelForm.Left + range;
if PanelForm.Left < 0 - PanelForm.Width then
begin
range := 0;
PanelForm.Left := 0 - PanelForm.Width;
PanelForm.Hide;
end;
if (range = 20) and (PanelForm.Left >= 0) then
begin
range := 0;
PanelForm.Left := 0;
end;
end;
procedure TPanelForm.Timer2Timer(Sender: TObject);
var
pos: TPoint;
begin
GetCursorPos (pos);
if pos.X > PanelForm.Width then range := -20;
end;
end.
